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

* Create objects directly

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-26 18:14:46 +02:00
parent 1de3aba4e3
commit 6a7524418a
1 changed files with 40 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -13,7 +13,7 @@ unit JOB.Js;
{$H+}
{$ModeSwitch advancedrecords}
{$define VerboseJOB}
{off $define VerboseJOB}
interface
@ -319,6 +319,8 @@ type
constructor JOBCast(const Intf: IJSObject); overload;
constructor JOBCreateFromID(aID: TJOBObjectID); virtual; // use this only for the owner (it will release it on free)
constructor JOBCreateGlobal(const aID: UnicodeString); virtual;
constructor JOBCreate(Args : Array of const);
class function JSClassName : UnicodeString; virtual;
class function Cast(const Intf: IJSObject): IJSObject; overload;
destructor Destroy; override;
property JOBObjectID: TJOBObjectID read FJOBObjectID;
@ -1024,6 +1026,12 @@ function __job_get_global(
NameLen: longint
): TJOBObjectID; external JOBExportName name JOBFn_GetGlobal;
function __job_create_object(
NameP: PWideChar;
NameLen: longint;
ArgP: PByte
): TJOBObjectID; external JOBExportName name JOBFn_CreateObject;
function JOBCallback(const Func: TJOBCallback; Data, Code: Pointer; Args: PByte): PByte;
function VarRecToJSValue(const V: TVarRec): TJOB_JSValue;
@ -1071,7 +1079,9 @@ end;
function __job_callback(w: NativeInt): boolean;
begin
{$IFDEF VERBOSEJOB}
writeln('__job_callback w=',w);
{$ENDIF}
Result:=true;
end;
@ -2714,7 +2724,9 @@ var
begin
v:=Args[Index].VVariant^;
t:=VarType(v);
{$IFDEF VERBOSEJOB}
writeln('AddVariant Index=',Index,' VarType=',t);
{$ENDIF}
case t of
varEmpty:
Prep(1,JOBArgUndefined);
@ -2920,11 +2932,38 @@ begin
FJOBObjectIDOwner:=true;
end;
constructor TJSObject.JOBCreate(Args : Array of const);
var
N : Unicodestring;
InvokeArgs: PByte;
begin
N:=JSClassName;
if Length(Args)>0 then
InvokeArgs:=CreateInvokeJSArgs(Args)
else
InvokeArgs:=Nil;
FJobObjectID:=__job_create_object(PWideChar(N),Length(N),InvokeArgs);
{$IFDEF VERBOSEJOB}
Writeln('[',ClassName,'] Created new object with ID: ',FJobObjectID);
{$ENDIF}
end;
class function TJSObject.Cast(const Intf: IJSObject): IJSObject;
begin
Result:=JOBCast(Intf);
end;
class function TJSObject.JSClassName : UnicodeString;
begin
Result:='Object';
end;
destructor TJSObject.Destroy;
begin
if FJOBCastSrc<>nil then