paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-09-15 11:39:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* define TJSSharedArrayBuffer

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-11-04 14:14:19 +01:00
parent da93fd1eb0
commit 8ea570af56
1 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
packages/rtl/src/js.pas
View File

@ -487,17 +487,39 @@ type
property Elements[Index: NativeInt]: JSValue read GetElements write SetElements; default; property Elements[Index: NativeInt]: JSValue read GetElements write SetElements; default;
end; end;
TJSArrayBuffer = Class external name 'ArrayBuffer' (TJSObject) TJSAbstractArrayBuffer = Class external name 'Object' (TJSObject)
private private
fLength : NativeInt; external name 'byteLength'; fLength : NativeInt; external name 'byteLength';
public fmaxByteLength: NativeInt; external name 'maxByteLength';
Public
constructor new(aByteLength : NativeInt); constructor new(aByteLength : NativeInt);
class function isView(aValue : JSValue) : Boolean; Property byteLength : NativeInt Read fLength;
property maxByteLength : NativeInt Read fmaxByteLength;
end;
{ TJSArrayBuffer }
TJSArrayBuffer = Class external name 'ArrayBuffer' (TJSAbstractArrayBuffer)
private
fResizable: Boolean; external name 'resizable';
public
class function isView(aValue : JSValue) : Boolean;
function slice(aBegin : NativeInt) : TJSArrayBuffer; overload; function slice(aBegin : NativeInt) : TJSArrayBuffer; overload;
function slice(aBegin,aEnd : NativeInt) : TJSArrayBuffer; overload; function slice(aBegin,aEnd : NativeInt) : TJSArrayBuffer; overload;
Property byteLength : NativeInt Read fLength; property resizable : Boolean Read fResizable;
end; end;
TJSSharedArrayBuffer = Class external name 'SharedArrayBuffer' (TJSAbstractArrayBuffer)
private
fGrowable : boolean; external name 'growable';
public
procedure grow(aNewLength : nativeInt);
function slice(aBegin : NativeInt) : TJSSharedArrayBuffer; overload;
function slice(aBegin,aEnd : NativeInt) : TJSSharedArrayBuffer; overload;
property growable : Boolean Read fGrowable;
end;
TJSBufferSource = class external name 'BufferSource' (TJSObject) TJSBufferSource = class external name 'BufferSource' (TJSObject)
end; end;
@ -787,11 +809,15 @@ type
Property values[Index : NativeInt] : Float64 Read getTypedValue Write setTypedValue; default; Property values[Index : NativeInt] : Float64 Read getTypedValue Write setTypedValue; default;
end; end;
{ TJSDataView }
TJSDataView = Class external name 'DataView' (TJSBufferSource) TJSDataView = Class external name 'DataView' (TJSBufferSource)
private private
fBuffer : TJSArrayBuffer; external name 'buffer'; fBuffer : TJSArrayBuffer; external name 'buffer';
fBufferObj: TJSAbstractArrayBuffer; external name 'buffer';
fLength : NativeInt; external name 'byteLength'; fLength : NativeInt; external name 'byteLength';
fOffset : NativeInt; external name 'byteOffset'; fOffset : NativeInt; external name 'byteOffset';
public public
constructor new(aBuffer : TJSArrayBuffer); overload; constructor new(aBuffer : TJSArrayBuffer); overload;
constructor new(aBuffer : TJSArrayBuffer; aOffset : NativeInt); overload; constructor new(aBuffer : TJSArrayBuffer; aOffset : NativeInt); overload;
@ -828,6 +854,7 @@ type
Property byteLength : NativeInt Read fLength; Property byteLength : NativeInt Read fLength;
Property byteOffset : NativeInt read fOffset; Property byteOffset : NativeInt read fOffset;
property buffer : TJSArrayBuffer Read fBuffer; property buffer : TJSArrayBuffer Read fBuffer;
property bufferObj : TJSAbstractArrayBuffer Read fBufferObj;
end; end;
TJSJSON = class external name 'JSON' (TJSObject) TJSJSON = class external name 'JSON' (TJSObject)