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

wasmjob: added some IJSFunction members

Browse Source
This commit is contained in:
mattias 2022-07-30 19:14:25 +02:00
parent 937c709dc5
commit ed27e1411f
1 changed files with 37 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -375,12 +375,29 @@ type
IJSFunction = interface(IJSObject)
['{8BD36F12-F6F7-4F8B-91FB-43D8626A72FE}']
function _GetLength: NativeInt;
function _GetName: UnicodeString;
function _GetPrototyp: IJSFunction;
procedure _SetName(const AValue: UnicodeString);
property name: UnicodeString read _GetName write _SetName;
property prototyp: IJSFunction read _GetPrototyp;
property length: NativeInt read _GetLength;
//function apply(thisArg: TJSObject; const ArgArray: TJSValueDynArray): JSValue; varargs;
//function bind(thisArg: TJSObject): JSValue; varargs;
//function call(thisArg: TJSObject): JSValue; varargs;
end;
{ TJSFunction }
TJSFunction = class(TJSObject,IJSFunction)
public
function _GetLength: NativeInt;
function _GetName: UnicodeString;
function _GetPrototyp: IJSFunction;
procedure _SetName(const AValue: UnicodeString);
property name: UnicodeString read _GetName write _SetName;
property prototyp: IJSFunction read _GetPrototyp;
property length: NativeInt read _GetLength;
class function Cast(Intf: IJSObject): IJSFunction; overload;
end;
@ -1435,6 +1452,26 @@ end;
{ TJSFunction }
function TJSFunction._GetLength: NativeInt;
begin
Result:=ReadJSPropertyLongInt('length');
end;
function TJSFunction._GetName: UnicodeString;
begin
Result:=ReadJSPropertyUnicodeString('name');
end;
function TJSFunction._GetPrototyp: IJSFunction;
begin
Result:=ReadJSPropertyObject('prototyp',TJSFunction) as IJSFunction;
end;
procedure TJSFunction._SetName(const AValue: UnicodeString);
begin
WriteJSPropertyUnicodeString('length',AValue);
end;
class function TJSFunction.Cast(Intf: IJSObject): IJSFunction;
begin
Result:=TJSFunction.Cast(Intf);