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

wasmjob: added some IJSArray members

Browse Source
This commit is contained in:
mattias 2022-07-30 18:51:37 +02:00
parent 57bb610f3c
commit 6135d09834
2 changed files with 289 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

286
demo/wasienv/dom/job_js.pas
View File

@ -326,6 +326,7 @@ type
procedure WriteJSPropertyUtf8String(const aName: string; const Value: String); virtual; procedure WriteJSPropertyUtf8String(const aName: string; const Value: String); virtual;
procedure WriteJSPropertyObject(const aName: string; Value: IJSObject); virtual; procedure WriteJSPropertyObject(const aName: string; Value: IJSObject); virtual;
procedure WriteJSPropertyLongInt(const aName: string; Value: LongInt); virtual; procedure WriteJSPropertyLongInt(const aName: string; Value: LongInt); virtual;
procedure WriteJSPropertyInt64(const aName: string; Value: Int64); virtual;
procedure WriteJSPropertyValue(const aName: string; Value: TJOB_JSValue); virtual; procedure WriteJSPropertyValue(const aName: string; Value: TJOB_JSValue); virtual;
// create a new object using the new-operator // create a new object using the new-operator
function NewJSObject(Const Args: Array of const; aResultClass: TJSObjectClass): TJSObject; virtual; function NewJSObject(Const Args: Array of const; aResultClass: TJSObjectClass): TJSObject; virtual;
@ -432,12 +433,133 @@ type
IJSArray = interface(IJSObject) IJSArray = interface(IJSObject)
['{21E331BA-7B57-42DD-8DCE-B26FEA85C693}'] ['{21E331BA-7B57-42DD-8DCE-B26FEA85C693}']
function _GetElements(Index: NativeInt): TJOB_JSValue;
function _GetLength: NativeInt;
procedure _SetElements(Index: NativeInt; const AValue: TJOB_JSValue);
procedure _SetLength(const AValue: NativeInt);
function isArray(a: TJOB_JSValue): Boolean; overload;
function concat(el: TJOB_JSValue): IJSArray; overload; {varargs;}
//function copyWithin(aTarget: NativeInt): TJSArray;overload; // not in IE
//function copyWithin(aTarget, aStart: NativeInt): TJSArray;overload; // not in IE
//function copyWithin(aTarget, aStart, aEnd: NativeInt): TJSArray;overload; // not in IE
//function entries: TJSIterator;
//Function every(const aCallback: TJSArrayCallBack): boolean;overload;
//Function every(const aCallback: TJSArrayEvent; aThis: TObject): boolean;overload;
//Function filter(const aCallBack: TJSArrayCallBack): TJSArray; overload;
//Function filter(const aCallBack: TJSArrayEvent; aThis: TObject): TJSArray;overload;
Function fill(aValue: TJOB_JSValue): IJSArray; overload;
Function fill(aValue: TJOB_JSValue; aStartIndex: NativeInt): IJSArray; overload;
Function fill(aValue: TJOB_JSValue; aStartIndex,aEndIndex: NativeInt): IJSArray; overload;
//Function find(const aCallBack: TJSArrayCallBack): TJOB_JSValue; overload;
//Function find(const aCallBack: TJSArrayEvent; aThis: TObject): TJOB_JSValue; overload;
//Function findIndex(const aCallBack: TJSArrayCallBack): NativeInt; overload;
//Function findIndex(const aCallBack: TJSArrayEvent; aThis: TObject): NativeInt; overload;
//procedure forEach(const aCallBack: TJSArrayEventProc); overload;
//procedure forEach(const aCallBack: TJSArrayEvent); overload;
//procedure forEach(const aCallBack: TJSArrayEvent; aThis: TObject); overload;
function includes(aElement: TJOB_JSValue): Boolean; overload;
function includes(aElement: TJOB_JSValue; FromIndex: NativeInt): Boolean; overload;
function indexOf(aElement: TJOB_JSValue): NativeInt; overload;
function indexOf(aElement: TJOB_JSValue; FromIndex: NativeInt): NativeInt; overload;
function join: UnicodeString; overload;
function join (const aSeparator: UnicodeString): UnicodeString; overload;
//function keys: TJSIterator;
function lastIndexOf(aElement: TJOB_JSValue): NativeInt; overload;
function lastIndexOf(aElement: TJOB_JSValue; FromIndex: NativeInt): NativeInt; overload;
//Function map(const aCallBack: TJSArrayMapCallBack): TJSArray; overload;
//Function map(const aCallBack: TJSArrayMapEvent; aThis: TObject): TJSArray; overload;
function pop: TJOB_JSValue;
function push(aElement: TJOB_JSValue): 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;
//function reduceRight(const aCallBack: TJSArrayReduceCallBack; initialValue: TJOB_JSValue): TJOB_JSValue; overload;
Function reverse: IJSArray;
Function shift: TJOB_JSValue;
Function slice: IJSArray; overload;
function slice(aBegin: NativeInt): IJSArray; overload;
function slice(aBegin,aEnd: NativeInt): IJSArray; overload;
//Function some(const aCallback: TJSArrayCallBack): boolean; overload;
//Function some(const aCallback: TJSArrayEvent; aThis: TObject): boolean; overload;
//Function sort(const aCallback: TJSArrayCompareCallBack): IJSArray; overload;
Function sort(): IJSArray; overload;
function splice(aStart: NativeInt): IJSArray; overload;
function splice(aStart,aDeleteCount: NativeInt): IJSArray; {varargs;} overload;
function toLocaleString: UnicodeString; overload;
function toLocaleString(const locales: UnicodeString): UnicodeString; overload;
//function toLocaleString(locales: string; const Options: TLocaleCompareOptions): String; overload;
function toString: UnicodeString;
function unshift: NativeInt; {varargs;}
//function values: TJSIterator;
Property Length: NativeInt Read _GetLength Write _SetLength;
property Elements[Index: NativeInt]: TJOB_JSValue read _GetElements write _SetElements; default;
end; end;
{ TJSArray } { TJSArray }
TJSArray = class(TJSObject,IJSArray) TJSArray = class(TJSObject,IJSArray)
private
function _GetElements(Index: NativeInt): TJOB_JSValue;
function _GetLength: NativeInt;
procedure _SetElements(Index: NativeInt; const AValue: TJOB_JSValue);
procedure _SetLength(const AValue: NativeInt);
public public
function isArray(a: TJOB_JSValue): Boolean; overload;
function concat(el: TJOB_JSValue): IJSArray; overload; {varargs;}
//function copyWithin(aTarget: NativeInt): IJSArray;overload; // not in IE
//function copyWithin(aTarget, aStart: NativeInt): IJSArray;overload; // not in IE
//function copyWithin(aTarget, aStart, aEnd: NativeInt): IJSArray;overload; // not in IE
//function entries: TJSIterator;
//Function every(const aCallback: TJSArrayCallBack): boolean;overload;
//Function every(const aCallback: TJSArrayEvent; aThis: TObject): boolean;overload;
//Function filter(const aCallBack: TJSArrayCallBack): IJSArray; overload;
//Function filter(const aCallBack: TJSArrayEvent; aThis: TObject): IJSArray;overload;
Function fill(aValue: TJOB_JSValue): IJSArray; overload;
Function fill(aValue: TJOB_JSValue; aStartIndex: NativeInt): IJSArray; overload;
Function fill(aValue: TJOB_JSValue; aStartIndex,aEndIndex: NativeInt): IJSArray; overload;
//Function find(const aCallBack: TJSArrayCallBack): TJOB_JSValue; overload;
//Function find(const aCallBack: TJSArrayEvent; aThis: TObject): TJOB_JSValue; overload;
//Function findIndex(const aCallBack: TJSArrayCallBack): NativeInt; overload;
//Function findIndex(const aCallBack: TJSArrayEvent; aThis: TObject): NativeInt; overload;
//procedure forEach(const aCallBack: TJSArrayEventProc); overload;
//procedure forEach(const aCallBack: TJSArrayEvent); overload;
//procedure forEach(const aCallBack: TJSArrayEvent; aThis: TObject); overload;
function includes(aElement: TJOB_JSValue): Boolean; overload;
function includes(aElement: TJOB_JSValue; FromIndex: NativeInt): Boolean; overload;
function indexOf(aElement: TJOB_JSValue): NativeInt; overload;
function indexOf(aElement: TJOB_JSValue; FromIndex: NativeInt): NativeInt; overload;
function join: UnicodeString; overload;
function join (const aSeparator: UnicodeString): UnicodeString; overload;
//function keys: TJSIterator;
function lastIndexOf(aElement: TJOB_JSValue): NativeInt; overload;
function lastIndexOf(aElement: TJOB_JSValue; FromIndex: NativeInt): NativeInt; overload;
//Function map(const aCallBack: TJSArrayMapCallBack): IJSArray; overload;
//Function map(const aCallBack: TJSArrayMapEvent; aThis: TObject): IJSArray; overload;
function pop: TJOB_JSValue;
function push(aElement: TJOB_JSValue): 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;
//function reduceRight(const aCallBack: TJSArrayReduceCallBack; initialValue: TJOB_JSValue): TJOB_JSValue; overload;
Function reverse: IJSArray;
Function shift: TJOB_JSValue;
Function slice: IJSArray; overload;
function slice(aBegin: NativeInt): IJSArray; overload;
function slice(aBegin,aEnd: NativeInt): IJSArray; overload;
//Function some(const aCallback: TJSArrayCallBack): boolean; overload;
//Function some(const aCallback: TJSArrayEvent; aThis: TObject): boolean; overload;
//Function sort(const aCallback: TJSArrayCompareCallBack): IJSArray; overload;
Function sort(): IJSArray; overload;
function splice(aStart: NativeInt): IJSArray; overload;
function splice(aStart,aDeleteCount: NativeInt): IJSArray; {varargs;} overload;
function toLocaleString: UnicodeString; overload;
function toLocaleString(const locales: UnicodeString): UnicodeString; overload;
//function toLocaleString(locales: string; const Options: TLocaleCompareOptions): String; overload;
function toString: UnicodeString;
function unshift: NativeInt; {varargs;}
//function values: TJSIterator;
Property Length: NativeInt Read _GetLength Write _SetLength;
property Elements[Index: NativeInt]: TJOB_JSValue read _GetElements write _SetElements; default;
class function Cast(Intf: IJSObject): IJSArray; overload; class function Cast(Intf: IJSObject): IJSArray; overload;
end; end;
@ -1035,6 +1157,165 @@ end;
{ TJSArray } { TJSArray }
function TJSArray._GetElements(Index: NativeInt): TJOB_JSValue;
begin
Result:=InvokeJSValueResult(IntToStr(Index),[],jiGet);
end;
function TJSArray._GetLength: NativeInt;
begin
Result:=ReadJSPropertyLongInt('length');
end;
procedure TJSArray._SetElements(Index: NativeInt; const AValue: TJOB_JSValue);
begin
InvokeJSNoResult(IntToStr(Index),[AValue],jiSet);
end;
procedure TJSArray._SetLength(const AValue: NativeInt);
begin
WriteJSPropertyLongInt('length',AValue);
end;
function TJSArray.isArray(a: TJOB_JSValue): Boolean;
begin
Result:=InvokeJSBooleanResult('isArray',[a]);
end;
function TJSArray.concat(el: TJOB_JSValue): IJSArray;
begin
Result:=InvokeJSObjectResult('isArray',[el],TJSArray) as IJSArray;
end;
function TJSArray.fill(aValue: TJOB_JSValue): IJSArray;
begin
Result:=InvokeJSObjectResult('fill',[aValue],TJSArray) as IJSArray;
end;
function TJSArray.fill(aValue: TJOB_JSValue; aStartIndex: NativeInt): IJSArray;
begin
Result:=InvokeJSObjectResult('fill',[aValue,aStartIndex],TJSArray) as IJSArray;
end;
function TJSArray.fill(aValue: TJOB_JSValue; aStartIndex, aEndIndex: NativeInt
): IJSArray;
begin
Result:=InvokeJSObjectResult('fill',[aValue,aStartIndex,aEndIndex],TJSArray) as IJSArray;
end;
function TJSArray.includes(aElement: TJOB_JSValue): Boolean;
begin
Result:=InvokeJSBooleanResult('includes',[aElement]);
end;
function TJSArray.includes(aElement: TJOB_JSValue; FromIndex: NativeInt
): Boolean;
begin
Result:=InvokeJSBooleanResult('includes',[aElement,FromIndex]);
end;
function TJSArray.indexOf(aElement: TJOB_JSValue): NativeInt;
begin
Result:=InvokeJSMaxIntResult('indexOf',[aElement]);
end;
function TJSArray.indexOf(aElement: TJOB_JSValue; FromIndex: NativeInt
): NativeInt;
begin
Result:=InvokeJSMaxIntResult('indexOf',[aElement,FromIndex]);
end;
function TJSArray.join: UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('join',[]);
end;
function TJSArray.join(const aSeparator: UnicodeString): UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('join',[aSeparator]);
end;
function TJSArray.lastIndexOf(aElement: TJOB_JSValue): NativeInt;
begin
Result:=InvokeJSMaxIntResult('lastIndexOf',[aElement]);
end;
function TJSArray.lastIndexOf(aElement: TJOB_JSValue; FromIndex: NativeInt
): NativeInt;
begin
Result:=InvokeJSMaxIntResult('lastIndexOf',[aElement,FromIndex]);
end;
function TJSArray.pop: TJOB_JSValue;
begin
Result:=InvokeJSValueResult('pop',[]);
end;
function TJSArray.push(aElement: TJOB_JSValue): NativeInt;
begin
Result:=InvokeJSMaxIntResult('push',[aElement]);
end;
function TJSArray.reverse: IJSArray;
begin
Result:=InvokeJSObjectResult('reverse',[],TJSArray) as IJSArray;
end;
function TJSArray.shift: TJOB_JSValue;
begin
Result:=InvokeJSValueResult('shift',[]);
end;
function TJSArray.slice: IJSArray;
begin
Result:=InvokeJSObjectResult('slice',[],TJSArray) as IJSArray;
end;
function TJSArray.slice(aBegin: NativeInt): IJSArray;
begin
Result:=InvokeJSObjectResult('slice',[aBegin],TJSArray) as IJSArray;
end;
function TJSArray.slice(aBegin, aEnd: NativeInt): IJSArray;
begin
Result:=InvokeJSObjectResult('slice',[aBegin,aEnd],TJSArray) as IJSArray;
end;
function TJSArray.sort(): IJSArray;
begin
Result:=InvokeJSObjectResult('sort',[],TJSArray) as IJSArray;
end;
function TJSArray.splice(aStart: NativeInt): IJSArray;
begin
Result:=InvokeJSObjectResult('splice',[aStart],TJSArray) as IJSArray;
end;
function TJSArray.splice(aStart, aDeleteCount: NativeInt): IJSArray;
begin
Result:=InvokeJSObjectResult('splice',[aStart,aDeleteCount],TJSArray) as IJSArray;
end;
function TJSArray.toLocaleString: UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('toLocaleString',[]);
end;
function TJSArray.toLocaleString(const locales: UnicodeString): UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('toLocaleString',[locales]);
end;
function TJSArray.toString: UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('toString',[]);
end;
function TJSArray.unshift: NativeInt;
begin
Result:=InvokeJSMaxIntResult('unshift',[]);
end;
class function TJSArray.Cast(Intf: IJSObject): IJSArray; class function TJSArray.Cast(Intf: IJSObject): IJSArray;
begin begin
Result:=TJSArray.Cast(Intf); Result:=TJSArray.Cast(Intf);
@ -2420,6 +2701,11 @@ begin
InvokeJSNoResult(aName,[Value],jiSet); InvokeJSNoResult(aName,[Value],jiSet);
end; end;
procedure TJSObject.WriteJSPropertyInt64(const aName: string; Value: Int64);
begin
InvokeJSNoResult(aName,[Value],jiSet);
end;
procedure TJSObject.WriteJSPropertyValue(const aName: string; procedure TJSObject.WriteJSPropertyValue(const aName: string;
Value: TJOB_JSValue); Value: TJOB_JSValue);
begin begin

6
packages/rtl/js.pas
View File

@ -399,9 +399,9 @@ type
class function from(arrayLike : JSValue; mapFunction : TJSMapFunctionCallBack; thisArg : JSValue): TJSArray; overload; class function from(arrayLike : JSValue; mapFunction : TJSMapFunctionCallBack; thisArg : JSValue): TJSArray; overload;
{$ENDIF} {$ENDIF}
function concat(el : JSValue) : TJSArray; varargs; function concat(el : JSValue) : TJSArray; varargs;
function copyWithin(aTarget : NativeInt) : TJSarray;overload; // not in IE function copyWithin(aTarget : NativeInt) : TJSArray;overload; // not in IE
function copyWithin(aTarget, aStart : NativeInt) : TJSarray;overload; // not in IE function copyWithin(aTarget, aStart : NativeInt) : TJSArray;overload; // not in IE
function copyWithin(aTarget, aStart, aEnd : NativeInt) : TJSarray;overload; // not in IE function copyWithin(aTarget, aStart, aEnd : NativeInt) : TJSArray;overload; // not in IE
function entries: TJSIterator; function entries: TJSIterator;
Function every(const aCallback : TJSArrayCallBack) : boolean;overload; Function every(const aCallback : TJSArrayCallBack) : boolean;overload;
Function every(const aCallback : TJSArrayEvent; aThis : TObject) : boolean;overload; Function every(const aCallback : TJSArrayEvent; aThis : TObject) : boolean;overload;