paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2026-02-18 17:36:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

wasmjob: use const in cast

Browse Source
This commit is contained in:
mattias 2022-09-01 20:42:45 +02:00
parent 09e05a4c99
commit f964eb1bda
2 changed files with 383 additions and 382 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -297,10 +297,10 @@ type
procedure InvokeJS_RaiseResultMismatchStr(const aName: string; const Expected, Actual: string); virtual;
function CreateInvokeJSArgs(const Args: array of const): PByte; virtual;
public
constructor JOBCast(Intf: IJSObject); overload;
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;
class function Cast(Intf: IJSObject): IJSObject; overload;
class function Cast(const Intf: IJSObject): IJSObject; overload;
destructor Destroy; override;
property JOBObjectID: TJOBObjectID read FJOBObjectID;
property JOBObjectIDOwner: boolean read FJOBObjectIDOwner write FJOBObjectIDOwner;
@ -363,7 +363,7 @@ type
TJSSet = class(TJSObject,IJSSet)
public
class function Cast(Intf: IJSObject): IJSSet; overload;
class function Cast(const Intf: IJSObject): IJSSet; overload;
end;
{ IJSMap }
@ -376,7 +376,7 @@ type
TJSMap = class(TJSObject,IJSMap)
public
class function Cast(Intf: IJSObject): IJSMap; overload;
class function Cast(const Intf: IJSObject): IJSMap; overload;
end;
{ IJSFunction }
@ -406,7 +406,7 @@ type
property name: UnicodeString read _GetName write _SetName;
property prototyp: IJSFunction read _GetPrototyp;
property length: NativeInt read _GetLength;
class function Cast(Intf: IJSObject): IJSFunction; overload;
class function Cast(const Intf: IJSObject): IJSFunction; overload;
end;
{ IJSDate }
@ -423,7 +423,7 @@ type
TJSDate = class(TJSObject,IJSDate)
public
class function Cast(Intf: IJSObject): IJSDate; overload;
class function Cast(const Intf: IJSObject): IJSDate; overload;
function Create(aYear: NativeInt; aMonth: NativeInt; aDayOfMonth: NativeInt = 1;
TheHours: NativeInt = 0; TheMinutes: NativeInt = 0; TheSeconds: NativeInt = 0;
TheMilliseconds: NativeInt = 0): IJSDate;
@ -480,7 +480,7 @@ type
property multiline: Boolean Read _GetMultiLine write _SetMultiline;
property source: UnicodeString Read _GetSource write _SetSource;
property unicode: boolean Read _GetUnicode write _SetUnicode;
class function Cast(Intf: IJSObject): IJSRegExp; overload;
class function Cast(const Intf: IJSObject): IJSRegExp; overload;
end;
{ IJSString }
@ -493,7 +493,7 @@ type
TJSString = class(TJSObject,IJSString)
public
class function Cast(Intf: IJSObject): IJSString; overload;
class function Cast(const Intf: IJSObject): IJSString; overload;
end;
{ IJSArray }
@ -623,7 +623,7 @@ type
//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(const Intf: IJSObject): IJSArray; overload;
end;
{ IJSArrayBuffer }
@ -636,7 +636,7 @@ type
TJSArrayBuffer = class(TJSObject,IJSArrayBuffer)
public
class function Cast(Intf: IJSObject): IJSArrayBuffer; overload;
class function Cast(const Intf: IJSObject): IJSArrayBuffer; overload;
end;
{ IJSTypedArray }
@ -649,7 +649,7 @@ type
TJSTypedArray = class(TJSObject,IJSTypedArray)
public
class function Cast(Intf: IJSObject): IJSTypedArray; overload;
class function Cast(const Intf: IJSObject): IJSTypedArray; overload;
end;
{ IJSInt8Array }
@ -662,7 +662,7 @@ type
TJSInt8Array = class(TJSTypedArray,IJSInt8Array)
public
class function Cast(Intf: IJSObject): IJSInt8Array; overload;
class function Cast(const Intf: IJSObject): IJSInt8Array; overload;
end;
{ IJSUint8Array }
@ -675,7 +675,7 @@ type
TJSUint8Array = class(TJSTypedArray,IJSUint8Array)
public
class function Cast(Intf: IJSObject): IJSUint8Array; overload;
class function Cast(const Intf: IJSObject): IJSUint8Array; overload;
end;
{ IJSUint8ClampedArray }
@ -688,7 +688,7 @@ type
TJSUint8ClampedArray = class(TJSTypedArray,IJSUint8ClampedArray)
public
class function Cast(Intf: IJSObject): IJSUint8ClampedArray; overload;
class function Cast(const Intf: IJSObject): IJSUint8ClampedArray; overload;
end;
{ IJSInt16Array }
@ -701,7 +701,7 @@ type
TJSInt16Array = class(TJSTypedArray,IJSInt16Array)
public
class function Cast(Intf: IJSObject): IJSInt16Array; overload;
class function Cast(const Intf: IJSObject): IJSInt16Array; overload;
end;
{ IJSUint16Array }
@ -714,7 +714,7 @@ type
TJSUint16Array = class(TJSTypedArray,IJSUint16Array)
public
class function Cast(Intf: IJSObject): IJSUint16Array; overload;
class function Cast(const Intf: IJSObject): IJSUint16Array; overload;
end;
{ IJSInt32Array }
@ -727,7 +727,7 @@ type
TJSInt32Array = class(TJSTypedArray,IJSInt32Array)
public
class function Cast(Intf: IJSObject): IJSInt32Array; overload;
class function Cast(const Intf: IJSObject): IJSInt32Array; overload;
end;
{ IJSUint32Array }
@ -740,7 +740,7 @@ type
TJSUint32Array = class(TJSTypedArray,IJSUint32Array)
public
class function Cast(Intf: IJSObject): IJSUint32Array; overload;
class function Cast(const Intf: IJSObject): IJSUint32Array; overload;
end;
{ IJSFloat32Array }
@ -753,7 +753,7 @@ type
TJSFloat32Array = class(TJSTypedArray,IJSFloat32Array)
public
class function Cast(Intf: IJSObject): IJSFloat32Array; overload;
class function Cast(const Intf: IJSObject): IJSFloat32Array; overload;
end;
{ IJSFloat64Array }
@ -766,7 +766,7 @@ type
TJSFloat64Array = class(TJSTypedArray,IJSFloat64Array)
public
class function Cast(Intf: IJSObject): IJSFloat64Array; overload;
class function Cast(const Intf: IJSObject): IJSFloat64Array; overload;
end;
{ IJSBufferSource }
@ -779,7 +779,7 @@ type
TJSBufferSource = class(TJSObject,IJSBufferSource)
public
class function Cast(Intf: IJSObject): IJSBufferSource; overload;
class function Cast(const Intf: IJSObject): IJSBufferSource; overload;
end;
{ IJSDataView }
@ -792,7 +792,7 @@ type
TJSDataView = class(TJSObject,IJSDataView)
public
class function Cast(Intf: IJSObject): IJSDataView; overload;
class function Cast(const Intf: IJSObject): IJSDataView; overload;
end;
{ IJSJSON }
@ -819,7 +819,7 @@ type
function stringify(aValue,aReplacer: TJOB_JSValue): UnicodeString; overload;
function stringify(aValue,aReplacer: TJOB_JSValue; space: NativeInt): UnicodeString; overload;
function stringify(aValue,aReplacer: TJOB_JSValue; const space: UnicodeString): UnicodeString; overload;
class function Cast(Intf: IJSObject): IJSJSON; overload;
class function Cast(const Intf: IJSObject): IJSJSON; overload;
end;
{ IJSError }
@ -832,7 +832,7 @@ type
TJSError = class(TJSObject,IJSError)
public
class function Cast(Intf: IJSObject): IJSError; overload;
class function Cast(const Intf: IJSObject): IJSError; overload;
end;
TJSPromiseResolver = function(const aValue: Variant): Variant of object;
@ -883,7 +883,7 @@ type
TJSTextDecoder = class(TJSObject,IJSTextDecoder)
public
class function Cast(Intf: IJSObject): IJSTextDecoder; overload;
class function Cast(const Intf: IJSObject): IJSTextDecoder; overload;
end;
{ IJSTextEncoder }
@ -896,7 +896,7 @@ type
TJSTextEncoder = class(TJSObject,IJSTextEncoder)
public
class function Cast(Intf: IJSObject): IJSTextEncoder; overload;
class function Cast(const Intf: IJSObject): IJSTextEncoder; overload;
end;
var
@ -1147,14 +1147,14 @@ end;
{ TJSTextEncoder }
class function TJSTextEncoder.Cast(Intf: IJSObject): IJSTextEncoder;
class function TJSTextEncoder.Cast(const Intf: IJSObject): IJSTextEncoder;
begin
Result:=TJSTextEncoder.Cast(Intf);
end;
{ TJSTextDecoder }
class function TJSTextDecoder.Cast(Intf: IJSObject): IJSTextDecoder;
class function TJSTextDecoder.Cast(const Intf: IJSObject): IJSTextDecoder;
begin
Result:=TJSTextDecoder.Cast(Intf);
end;
@ -1250,7 +1250,7 @@ end;
{ TJSError }
class function TJSError.Cast(Intf: IJSObject): IJSError;
class function TJSError.Cast(const Intf: IJSObject): IJSError;
begin
Result:=TJSError.Cast(Intf);
end;
@ -1289,98 +1289,99 @@ begin
Result:=InvokeJSUnicodeStringResult('stringify',[aValue,aReplacer,space]);
end;
class function TJSJSON.Cast(Intf: IJSObject): IJSJSON;
class function TJSJSON.Cast(const Intf: IJSObject): IJSJSON;
begin
Result:=TJSJSON.Cast(Intf);
end;
{ TJSDataView }
class function TJSDataView.Cast(Intf: IJSObject): IJSDataView;
class function TJSDataView.Cast(const Intf: IJSObject): IJSDataView;
begin
Result:=TJSDataView.Cast(Intf);
end;
{ TJSBufferSource }
class function TJSBufferSource.Cast(Intf: IJSObject): IJSBufferSource;
class function TJSBufferSource.Cast(const Intf: IJSObject): IJSBufferSource;
begin
Result:=TJSBufferSource.Cast(Intf);
end;
{ TJSFloat64Array }
class function TJSFloat64Array.Cast(Intf: IJSObject): IJSFloat64Array;
class function TJSFloat64Array.Cast(const Intf: IJSObject): IJSFloat64Array;
begin
Result:=TJSFloat64Array.Cast(Intf);
end;
{ TJSFloat32Array }
class function TJSFloat32Array.Cast(Intf: IJSObject): IJSFloat32Array;
class function TJSFloat32Array.Cast(const Intf: IJSObject): IJSFloat32Array;
begin
Result:=TJSFloat32Array.Cast(Intf);
end;
{ TJSUint32Array }
class function TJSUint32Array.Cast(Intf: IJSObject): IJSUint32Array;
class function TJSUint32Array.Cast(const Intf: IJSObject): IJSUint32Array;
begin
Result:=TJSUint32Array.Cast(Intf);
end;
{ TJSInt32Array }
class function TJSInt32Array.Cast(Intf: IJSObject): IJSInt32Array;
class function TJSInt32Array.Cast(const Intf: IJSObject): IJSInt32Array;
begin
Result:=TJSInt32Array.Cast(Intf);
end;
{ TJSUint16Array }
class function TJSUint16Array.Cast(Intf: IJSObject): IJSUint16Array;
class function TJSUint16Array.Cast(const Intf: IJSObject): IJSUint16Array;
begin
Result:=TJSUint16Array.Cast(Intf);
end;
{ TJSInt16Array }
class function TJSInt16Array.Cast(Intf: IJSObject): IJSInt16Array;
class function TJSInt16Array.Cast(const Intf: IJSObject): IJSInt16Array;
begin
Result:=TJSInt16Array.Cast(Intf);
end;
{ TJSUint8ClampedArray }
class function TJSUint8ClampedArray.Cast(Intf: IJSObject): IJSUint8ClampedArray;
class function TJSUint8ClampedArray.Cast(const Intf: IJSObject
): IJSUint8ClampedArray;
begin
Result:=TJSUint8ClampedArray.Cast(Intf);
end;
{ TJSUInt8Array }
class function TJSUInt8Array.Cast(Intf: IJSObject): IJSUInt8Array;
class function TJSUint8Array.Cast(const Intf: IJSObject): IJSUint8Array;
begin
Result:=TJSUInt8Array.Cast(Intf);
end;
{ TJSInt8Array }
class function TJSInt8Array.Cast(Intf: IJSObject): IJSInt8Array;
class function TJSInt8Array.Cast(const Intf: IJSObject): IJSInt8Array;
begin
Result:=TJSInt8Array.Cast(Intf);
end;
{ TJSTypedArray }
class function TJSTypedArray.Cast(Intf: IJSObject): IJSTypedArray;
class function TJSTypedArray.Cast(const Intf: IJSObject): IJSTypedArray;
begin
Result:=TJSTypedArray.Cast(Intf);
end;
{ TJSArrayBuffer }
class function TJSArrayBuffer.Cast(Intf: IJSObject): IJSArrayBuffer;
class function TJSArrayBuffer.Cast(const Intf: IJSObject): IJSArrayBuffer;
begin
Result:=TJSArrayBuffer.Cast(Intf);
end;
@ -1536,14 +1537,14 @@ begin
Result:=InvokeJSMaxIntResult('unshift',[]);
end;
class function TJSArray.Cast(Intf: IJSObject): IJSArray;
class function TJSArray.Cast(const Intf: IJSObject): IJSArray;
begin
Result:=TJSArray.Cast(Intf);
end;
{ TJSString }
class function TJSString.Cast(Intf: IJSObject): IJSString;
class function TJSString.Cast(const Intf: IJSObject): IJSString;
begin
Result:=TJSString.Cast(Intf);
end;
@ -1620,7 +1621,7 @@ begin
Result:=InvokeJSBooleanResult('test',[aString]);
end;
class function TJSRegExp.Cast(Intf: IJSObject): IJSRegExp;
class function TJSRegExp.Cast(const Intf: IJSObject): IJSRegExp;
begin
Result:=TJSRegExp.Cast(Intf);
end;
@ -1647,21 +1648,21 @@ begin
WriteJSPropertyUnicodeString('length',AValue);
end;
class function TJSFunction.Cast(Intf: IJSObject): IJSFunction;
class function TJSFunction.Cast(const Intf: IJSObject): IJSFunction;
begin
Result:=TJSFunction.Cast(Intf);
end;
{ TJSMap }
class function TJSMap.Cast(Intf: IJSObject): IJSMap;
class function TJSMap.Cast(const Intf: IJSObject): IJSMap;
begin
Result:=TJSMap.Cast(Intf);
end;
{ TJSSet }
class function TJSSet.Cast(Intf: IJSObject): IJSSet;
class function TJSSet.Cast(const Intf: IJSObject): IJSSet;
begin
Result:=TJSSet.Cast(Intf);
end;
@ -2823,7 +2824,7 @@ begin
{$ENDIF}
end;
constructor TJSObject.JOBCast(Intf: IJSObject);
constructor TJSObject.JOBCast(const Intf: IJSObject);
begin
FJOBObjectID:=Intf.GetJSObjectID;
FJOBCastSrc:=Intf.GetJSObjectCastSrc;
@ -2845,7 +2846,7 @@ begin
FJOBObjectIDOwner:=true;
end;
class function TJSObject.Cast(Intf: IJSObject): IJSObject;
class function TJSObject.Cast(const Intf: IJSObject): IJSObject;
begin
Result:=JOBCast(Intf);
end;
@ -3208,7 +3209,7 @@ end;
{ TJSDate }
class function TJSDate.Cast(Intf: IJSObject): IJSDate;
class function TJSDate.Cast(const Intf: IJSObject): IJSDate;
begin
Result:=TJSDate.JOBCast(Intf);
end;

660
demo/wasienv/dom/job_web.pas
View File

File diff suppressed because it is too large Load Diff