paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 02:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add some utility methods to TJSarray for easier pushing of values

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-09-03 10:33:44 +02:00
parent 00e5289967
commit aef32d5de9
1 changed files with 76 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

76
packages/wasm-job/src/job.js.pas
View File

@ -625,6 +625,11 @@ type
//Function map(const aCallBack: TJSArrayMapEvent; aThis: TObject): TJSArray; overload;
function pop: TJOB_JSValue;
function push(aElement: TJOB_JSValue): NativeInt; overload; {varargs;}
function push(aValue : Integer): NativeInt; overload; {varargs;}
function push(aValue : Double): NativeInt; overload; {varargs;}
function push(aValue : rawByteString): NativeInt; overload; {varargs;}
function push(aValue : UnicodeString): NativeInt; overload; {varargs;}
function push(aValue : IJSObject): NativeInt; overload; {varargs;}
//function reduce(const aCallBack: TJSArrayReduceCallBack): TJOB_JSValue; overload;
//function reduce(const aCallBack: TJSArrayReduceCallBack; initialValue: TJOB_JSValue): TJOB_JSValue; overload;
//function reduceRight(const aCallBack: TJSArrayReduceCallBack): TJOB_JSValue; overload;
@ -709,6 +714,11 @@ type
//Function map(const aCallBack: TJSArrayMapEvent; aThis: TObject): IJSArray; overload;
function pop: TJOB_JSValue;
function push(aElement: TJOB_JSValue): NativeInt; overload; {varargs;}
function push(aValue : Integer): NativeInt; overload; {varargs;}
function push(aValue : Double): NativeInt; overload; {varargs;}
function push(aValue : rawByteString): NativeInt; overload; {varargs;}
function push(aValue : UnicodeString): NativeInt; overload; {varargs;}
function push(aValue : IJSObject): NativeInt; overload; {varargs;}
//function reduce(const aCallBack: TJSArrayReduceCallBack): TJOB_JSValue; overload;
//function reduce(const aCallBack: TJSArrayReduceCallBack; initialValue: TJOB_JSValue): TJOB_JSValue; overload;
//function reduceRight(const aCallBack: TJSArrayReduceCallBack): TJOB_JSValue; overload;
@ -2615,6 +2625,72 @@ begin
Result:=InvokeJSMaxIntResult('push',[aElement]);
end;
function TJSArray.push(aValue: Integer): NativeInt;
var
Obj : TJOB_Double;
begin
Obj:=TJOB_Double.Create(aValue);
try
Result:=Push(Obj);
finally
Obj.Free;
end;
end;
function TJSArray.push(aValue: Double): NativeInt;
var
Obj : TJOB_Double;
begin
Obj:=TJOB_Double.Create(aValue);
try
Result:=Push(Obj);
finally
Obj.Free;
end;
end;
function TJSArray.push(aValue: rawByteString): NativeInt;
var
Obj : TJOB_String;
begin
Obj:=TJOB_String.Create(UTF8Decode(aValue));
try
Result:=Push(Obj);
finally
Obj.Free;
end;
end;
function TJSArray.push(aValue: UnicodeString): NativeInt;
var
Obj : TJOB_String;
begin
Obj:=TJOB_String.Create(aValue);
try
Result:=Push(Obj);
finally
Obj.Free;
end;
end;
function TJSArray.push(aValue: IJSObject): NativeInt;
var
Obj : TJOB_Object;
begin
Obj:=TJOB_Object.Create(aValue);
try
Result:=Push(Obj);
finally
Obj.Free;
end;
end;
function TJSArray.reverse: IJSArray;
begin
Result:=InvokeJSObjectResult('reverse',[],TJSArray) as IJSArray;