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

* Support ArrayBuffer(View)

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-04-10 10:55:37 +02:00
parent 9f72de4276
commit 41f2dd9c26
3 changed files with 191 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/webidl/src/webidldefs.pp
View File

@ -65,6 +65,7 @@ Type
wibtDOMException,
// arrays
wibtArrayBuffer,
wibtArrayBufferView,
wibtDataView,
wibtInt8Array,
wibtInt16Array,
@ -111,6 +112,7 @@ const
'Error',
'DOMException',
'ArrayBuffer',
'ArrayBufferView',
'DataView',
'Int8Array',
'Int16Array',

1
packages/webidl/src/webidltopas.pp
View File

@ -1111,6 +1111,7 @@ begin
'DOMException': Result:=GetPasClassName('Error');
'ArrayBuffer',
'ArrayBufferView',
'DataView',
'Int8Array',
'Int16Array',

188
packages/webidl/tests/tcwebidl2wasmjob.pas
View File

@ -40,6 +40,9 @@ type
// attributes
procedure TestWJ_IntfAttribute_Boolean;
procedure TestWJ_IntfStringifier;
procedure TestWJ_IntfAttribute_ArrayBuffer;
procedure TestWJ_IntfAttribute_ArrayBufferView;
// todo procedure TestWJ_IntfAttribute_Any;
// functions
@ -50,6 +53,8 @@ type
procedure TestWJ_IntfFunction_EnumResult;
procedure TestWJ_IntfFunction_SequenceArg;
procedure TestWJ_IntfFunction_Constructor;
procedure TestWJ_IntfFunction_ArrayBufferArg;
procedure TestWJ_IntfFunction_ArrayBufferViewArg;
// Namespace attribute
procedure TestWJ_NamespaceAttribute_Boolean;
// maplike
@ -518,6 +523,102 @@ begin
end;
procedure TTestWebIDL2WasmJob.TestWJ_IntfAttribute_ArrayBuffer;
begin
TestWebIDL([
'interface Attr {',
' [SameObject, Throws] readonly attribute ArrayBuffer signature;',
'};',
''],
[
'Type',
' // Forward class definitions',
' IJSAttr = interface;',
' TJSAttr = class;',
' { --------------------------------------------------------------------',
' TJSAttr',
' --------------------------------------------------------------------}',
'',
' IJSAttr = interface(IJSObject)',
' [''{2D39068A-1305-3879-B4DC-37563664D5F5}'']',
' function _Getsignature: IJSArrayBuffer;',
' property signature: IJSArrayBuffer read _Getsignature;',
' end;',
'',
' TJSAttr = class(TJSObject,IJSAttr)',
' Private',
' function _Getsignature: IJSArrayBuffer;',
' Public',
' class function Cast(const Intf: IJSObject): IJSAttr;',
' property signature: IJSArrayBuffer read _Getsignature;',
' end;',
'',
'implementation',
'',
'function TJSAttr._Getsignature: IJSArrayBuffer;',
'begin',
' Result:=ReadJSPropertyObject(''signature'',TJSArrayBuffer) as IJSArrayBuffer;',
'end;',
'',
'class function TJSAttr.Cast(const Intf: IJSObject): IJSAttr;',
'begin',
' Result:=TJSAttr.JOBCast(Intf);',
'end;',
'',
'end.',
''
]);
end;
procedure TTestWebIDL2WasmJob.TestWJ_IntfAttribute_ArrayBufferView;
begin
TestWebIDL([
'interface Attr {',
' [SameObject, Throws] readonly attribute ArrayBufferView signature;',
'};',
''],
[
'Type',
' // Forward class definitions',
' IJSAttr = interface;',
' TJSAttr = class;',
' { --------------------------------------------------------------------',
' TJSAttr',
' --------------------------------------------------------------------}',
'',
' IJSAttr = interface(IJSObject)',
' [''{2D390654-2475-3879-B4DC-37563664D5F5}'']',
' function _Getsignature: IJSArrayBufferView;',
' property signature: IJSArrayBufferView read _Getsignature;',
' end;',
'',
' TJSAttr = class(TJSObject,IJSAttr)',
' Private',
' function _Getsignature: IJSArrayBufferView;',
' Public',
' class function Cast(const Intf: IJSObject): IJSAttr;',
' property signature: IJSArrayBufferView read _Getsignature;',
' end;',
'',
'implementation',
'',
'function TJSAttr._Getsignature: IJSArrayBufferView;',
'begin',
' Result:=ReadJSPropertyObject(''signature'',TJSArrayBufferView) as IJSArrayBufferView;',
'end;',
'',
'class function TJSAttr.Cast(const Intf: IJSObject): IJSAttr;',
'begin',
' Result:=TJSAttr.JOBCast(Intf);',
'end;',
'',
'end.',
''
]);
end;
procedure TTestWebIDL2WasmJob.TestWJ_IntfFunction_Void;
begin
TestWebIDL([
@ -830,6 +931,93 @@ begin
'']);
end;
procedure TTestWebIDL2WasmJob.TestWJ_IntfFunction_ArrayBufferArg;
begin
TestWebIDL([
'interface Attr {',
' undefined appendBuffer(ArrayBuffer data);',
'};'
],[
'Type',
' // Forward class definitions',
' IJSAttr = interface;',
' TJSAttr = class;',
' { --------------------------------------------------------------------',
' TJSAttr',
' --------------------------------------------------------------------}',
'',
' IJSAttr = interface(IJSObject)',
' [''{AA94F48A-84D7-3FB2-97EF-71ACA4B2AF2A}'']',
' procedure appendBuffer(aData: IJSArrayBuffer);',
' end;',
'',
' TJSAttr = class(TJSObject,IJSAttr)',
' Private',
' Public',
' procedure appendBuffer(aData: IJSArrayBuffer);',
' class function Cast(const Intf: IJSObject): IJSAttr;',
' end;',
'',
'implementation',
'',
'procedure TJSAttr.appendBuffer(aData: IJSArrayBuffer);',
'begin',
' InvokeJSNoResult(''appendBuffer'',[aData]);',
'end;',
'',
'class function TJSAttr.Cast(const Intf: IJSObject): IJSAttr;',
'begin',
' Result:=TJSAttr.JOBCast(Intf);',
'end;',
'',
'end.',
'' ]);
end;
procedure TTestWebIDL2WasmJob.TestWJ_IntfFunction_ArrayBufferViewArg;
begin
TestWebIDL([
'interface Attr {',
' undefined appendBuffer(ArrayBufferView data);',
'};'
],[
'Type',
' // Forward class definitions',
' IJSAttr = interface;',
' TJSAttr = class;',
' { --------------------------------------------------------------------',
' TJSAttr',
' --------------------------------------------------------------------}',
'',
' IJSAttr = interface(IJSObject)',
' [''{AA94F48A-84D7-3FB2-97EF-71ACA4B2AF2A}'']',
' procedure appendBuffer(aData: IJSArrayBufferView);',
' end;',
'',
' TJSAttr = class(TJSObject,IJSAttr)',
' Private',
' Public',
' procedure appendBuffer(aData: IJSArrayBufferView);',
' class function Cast(const Intf: IJSObject): IJSAttr;',
' end;',
'',
'implementation',
'',
'procedure TJSAttr.appendBuffer(aData: IJSArrayBufferView);',
'begin',
' InvokeJSNoResult(''appendBuffer'',[aData]);',
'end;',
'',
'class function TJSAttr.Cast(const Intf: IJSObject): IJSAttr;',
'begin',
' Result:=TJSAttr.JOBCast(Intf);',
'end;',
'',
'end.',
'' ]);
end;
procedure TTestWebIDL2WasmJob.TestWJ_NamespaceAttribute_Boolean;
begin