paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 13:38:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

pas2js: less hints

Browse Source
This commit is contained in:
mattias 2025-01-28 10:31:04 +01:00
parent 64cfdfc0d6
commit 6a79e2f3d0
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/pas2js/components/iderpccodegen.pp
View File

@ -1,4 +1,4 @@
unit iderpccodegen;
unit IDERPCCodeGen;
{$mode ObjFPC}
{$h+}
@ -375,12 +375,15 @@ function TAPIClientCodeGen.GetServiceMethodName(const aClassName,
aMethodName: string): String;
begin
if aClassName='' then ;
Result:=EscapeKeyWord(aMethodName);
end;
function TAPIClientCodeGen.GetServiceMethodParamName(const aClassName, aMethodName, aParamName: string): String;
begin
if aClassName='' then ;
if aMethodName='' then ;
Result:=EscapeKeyWord(aParamName);
end;
@ -388,6 +391,9 @@ function TAPIClientCodeGen.GetServiceMethodParamType(const aClassName,
aMethodName, aParamName: String; aParamType: TJSONtype): String;
begin
if aClassName='' then ;
if aMethodName='' then ;
if aParamName='' then ;
case aParamtype of
jtString : Result:='String';
jtBoolean : Result:='Boolean';
@ -407,6 +413,9 @@ end;
function TAPIClientCodeGen.GetServiceMethodParamDefault(const aClassName, aMethodName, aParamName: string; aParamType : TJSONType): String;
begin
if aClassName='' then ;
if aMethodName='' then ;
if aParamName='' then ;
case aParamtype of
jtString : Result:='''''';
jtBoolean : Result:='False';
@ -438,6 +447,8 @@ begin
TJSValueResultHandler = reference to procedure (aResult : JSValue);
}
if aClassName='' then ;
if aMethodName='' then ;
if ccoForceJSValueResult in options then
Result:='TJSValueResultHandler'
else