paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-21 06:29:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

wasmjob: callback variant arg and result

Browse Source
This commit is contained in:
mattias 2022-08-22 10:39:13 +02:00
parent 33053cc810
commit be5baeec71
1 changed files with 100 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -137,6 +137,7 @@ type
function GetString: UnicodeString;
function GetObject(aResultClass: TJSObjectClass): TJSObject;
function GetValue: TJOB_JSValue;
function GetVariant: Variant;
function GetLongInt: longint;
function GetMaxInt: int64;
@ -146,10 +147,11 @@ type
function AllocDouble(const d: double): PByte;
function AllocString(const s: UnicodeString): PByte;
function AllocNil: PByte;
function AllocIntf(Intf: IJSObject): PByte;
function AllocIntf(const Intf: IJSObject): PByte;
function AllocObject(Obj: TJSObject): PByte;
function AllocObjId(ObjId: TJOBObjectID): PByte;
function AllocJSValue(Value: TJOB_JSValue): PByte;
function AllocJSValue(const Value: TJOB_JSValue): PByte;
function AllocVariant(const Value: Variant): PByte;
end;
TJOBCallback = function(const aMethod: TMethod; var H: TJOBCallbackHelper): PByte;
@ -1926,6 +1928,67 @@ begin
inc(Index);
end;
function TJOBCallbackHelper.GetVariant: Variant;
var
ObjId, Len: LongWord;
Obj: TJSObject;
S: UnicodeString;
begin
if (Index=Count) or (p^=JOBArgUndefined) then
begin
Result:=Variants.Unassigned;
exit;
end;
case p^ of
JOBArgTrue:
begin
Result:=true;
inc(p);
end;
JOBArgFalse:
begin
Result:=false;
inc(p);
end;
JOBArgDouble:
begin
inc(p);
Result:=PDouble(p)^;
inc(p,8);
end;
JOBArgUnicodeString:
begin
inc(p);
Len:=PLongWord(p)^;
inc(p,4);
S:='';
if Len>0 then
begin
SetLength(S,Len);
Move(p^,S[1],2*Len);
inc(p,2*Len);
end;
Result:=S;
end;
JOBArgNil:
begin
Result:=Variants.Null;
inc(p);
end;
JOBArgObject:
begin
inc(p);
ObjId:=PLongWord(p)^;
inc(p,4);
Obj:=TJSObject.JOBCreateFromID(ObjId);
Result:=Obj as IJSObject;
end;
else
raise EJSArgParse.Create(JOBArgNames[p^]);
end;
inc(Index);
end;
function TJOBCallbackHelper.GetLongInt: longint;
var
d: Double;
@ -1995,7 +2058,7 @@ begin
Result^:=JOBArgNil;
end;
function TJOBCallbackHelper.AllocIntf(Intf: IJSObject): PByte;
function TJOBCallbackHelper.AllocIntf(const Intf: IJSObject): PByte;
begin
if Intf=nil then
Result:=AllocNil
@ -2018,7 +2081,7 @@ begin
PJOBObjectID(Result+1)^:=ObjId;
end;
function TJOBCallbackHelper.AllocJSValue(Value: TJOB_JSValue): PByte;
function TJOBCallbackHelper.AllocJSValue(const Value: TJOB_JSValue): PByte;
begin
if Value=nil then
exit(AllocUndefined);
@ -2033,6 +2096,39 @@ begin
end;
end;
function TJOBCallbackHelper.AllocVariant(const Value: Variant): PByte;
var
t: tvartype;
Intf: IJSObject;
begin
t:=VarType(Value);
case t of
varEmpty:
Result:=AllocUndefined;
varNull:
Result:=AllocNil;
varSmallInt,varInteger,varByte,varWord,varShortInt:
Result:=AllocLongint(Value);
varLongWord,varCurrency,varInt64,varQWord,varSingle,varDouble,varDate:
Result:=AllocDouble(Value);
varOleStr,varString:
Result:=AllocString(Value);
varBoolean:
Result:=AllocBool(Value);
varUnknown:
begin
if tvardata(Value).vunknown=nil then
Result:=AllocNil
else if VarSupports(Value,IJSObject,Intf) then
Result:=AllocIntf(Intf)
else
raise EJSInvoke.Create('TJOBCallbackHelper.AllocVariant: [20220822103744] unsupported variant: '+IntToStr(t));
end
else
raise EJSInvoke.Create('TJOBCallbackHelper.AllocVariant: [20220822103751] unsupported variant: '+IntToStr(t));
end;
end;
{ TJOB_JSValue }
constructor TJOB_JSValue.Create(aKind: TJOB_JSValueKind);