paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 01:47:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

wasmjob: added cachestorage

Browse Source
This commit is contained in:
mattias 2022-07-30 19:59:38 +02:00
parent 8b6bdbd553
commit b588ff243d
2 changed files with 292 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -835,24 +835,24 @@ type
IJSPromise = interface(IJSObject)
['{2BFE673B-B5D4-4F31-96CD-5E1A60EFBE26}']
function all(arg: IJSArray): IJSPromise; overload;
function all(arg: TJOB_JSValue): IJSPromise; overload;
function allSettled(arg: IJSArray): IJSPromise; overload;
function allSettled(arg: TJOB_JSValue): IJSPromise; overload;
function race(arg: IJSArray): IJSPromise; overload;
function race(arg: TJOB_JSValue): IJSPromise; overload;
function all(const arg: IJSArray): IJSPromise; overload;
function all(const arg: TJOB_JSValue): IJSPromise; overload;
function allSettled(const arg: IJSArray): IJSPromise; overload;
function allSettled(const arg: TJOB_JSValue): IJSPromise; overload;
function race(const arg: IJSArray): IJSPromise; overload;
function race(const arg: TJOB_JSValue): IJSPromise; overload;
function reject(const reason: UnicodeString): IJSPromise; overload;
function reject(reason: TJOB_JSValue): IJSPromise; overload;
function reject(const reason: TJOB_JSValue): IJSPromise; overload;
function resolve(const value: boolean): IJSPromise; overload;
function resolve(const value: longint): IJSPromise; overload;
function resolve(const value: double): IJSPromise; overload;
function resolve(const value: IJSObject): IJSPromise; overload;
function resolve(const value: UnicodeString): IJSPromise; overload;
function resolve(value: TJOB_JSValue): IJSPromise; overload;
function resolve(const value: TJOB_JSValue): IJSPromise; overload;
function resolve: IJSPromise; overload;
function _then (const OnAccepted: TJSPromiseResolver): IJSPromise; overload;
function _then (const OnAccepted, OnRejected: TJSPromiseResolver) : IJSPromise; overload;
function catch (const OnRejected: TJSPromiseResolver): IJSPromise; overload;
function _then(const OnAccepted: TJSPromiseResolver): IJSPromise; overload;
function _then(const OnAccepted, OnRejected: TJSPromiseResolver) : IJSPromise; overload;
function catch(const OnRejected: TJSPromiseResolver): IJSPromise; overload;
function _finally(const Handler: TJSPromiseFinallyHandler): IJSPromise; overload;
end;
@ -861,26 +861,26 @@ type
TJSPromise = class(TJSObject,IJSPromise)
public
//class function Create(const Executor: TJSPromiseExecutor): IJSPromise; overload;
function all(arg: IJSArray): IJSPromise; overload;
function all(arg: TJOB_JSValue): IJSPromise; overload;
function allSettled(arg: IJSArray): IJSPromise; overload;
function allSettled(arg: TJOB_JSValue): IJSPromise; overload;
function race(arg: IJSArray): IJSPromise; overload;
function race(arg: TJOB_JSValue): IJSPromise; overload;
function all(const arg: IJSArray): IJSPromise; overload;
function all(const arg: TJOB_JSValue): IJSPromise; overload;
function allSettled(const arg: IJSArray): IJSPromise; overload;
function allSettled(const arg: TJOB_JSValue): IJSPromise; overload;
function race(const arg: IJSArray): IJSPromise; overload;
function race(const arg: TJOB_JSValue): IJSPromise; overload;
function reject(const reason: UnicodeString): IJSPromise; overload;
function reject(reason: TJOB_JSValue): IJSPromise; overload;
function reject(const reason: TJOB_JSValue): IJSPromise; overload;
function resolve(const value: boolean): IJSPromise; overload;
function resolve(const value: longint): IJSPromise; overload;
function resolve(const value: double): IJSPromise; overload;
function resolve(const value: IJSObject): IJSPromise; overload;
function resolve(const value: UnicodeString): IJSPromise; overload;
function resolve(value: TJOB_JSValue): IJSPromise; overload;
function resolve(const value: TJOB_JSValue): IJSPromise; overload;
function resolve: IJSPromise; overload;
function _then (const OnAccepted: TJSPromiseResolver): IJSPromise; overload;
function _then (const OnAccepted, OnRejected: TJSPromiseResolver) : IJSPromise; overload;
function catch (const OnRejected: TJSPromiseResolver): IJSPromise; overload;
function _then(const OnAccepted: TJSPromiseResolver): IJSPromise; overload;
function _then(const OnAccepted, OnRejected: TJSPromiseResolver) : IJSPromise; overload;
function catch(const OnRejected: TJSPromiseResolver): IJSPromise; overload;
function _finally(const Handler: TJSPromiseFinallyHandler): IJSPromise; overload;
class function Cast(Intf: IJSObject): IJSPromise; overload;
class function Cast(const Intf: IJSObject): IJSPromise; overload;
end;
{ IJSTextDecoder }
@ -1175,32 +1175,32 @@ end;
{ TJSPromise }
function TJSPromise.all(arg: IJSArray): IJSPromise;
function TJSPromise.all(const arg: IJSArray): IJSPromise;
begin
Result:=InvokeJSObjectResult('all',[arg],TJSPromise) as IJSPromise;
end;
function TJSPromise.all(arg: TJOB_JSValue): IJSPromise;
function TJSPromise.all(const arg: TJOB_JSValue): IJSPromise;
begin
Result:=InvokeJSObjectResult('all',[arg],TJSPromise) as IJSPromise;
end;
function TJSPromise.allSettled(arg: IJSArray): IJSPromise;
function TJSPromise.allSettled(const arg: IJSArray): IJSPromise;
begin
Result:=InvokeJSObjectResult('allSettled',[arg],TJSPromise) as IJSPromise;
end;
function TJSPromise.allSettled(arg: TJOB_JSValue): IJSPromise;
function TJSPromise.allSettled(const arg: TJOB_JSValue): IJSPromise;
begin
Result:=InvokeJSObjectResult('allSettled',[arg],TJSPromise) as IJSPromise;
end;
function TJSPromise.race(arg: IJSArray): IJSPromise;
function TJSPromise.race(const arg: IJSArray): IJSPromise;
begin
Result:=InvokeJSObjectResult('race',[arg],TJSPromise) as IJSPromise;
end;
function TJSPromise.race(arg: TJOB_JSValue): IJSPromise;
function TJSPromise.race(const arg: TJOB_JSValue): IJSPromise;
begin
Result:=InvokeJSObjectResult('race',[arg],TJSPromise) as IJSPromise;
end;
@ -1210,7 +1210,7 @@ begin
Result:=InvokeJSObjectResult('reject',[reason],TJSPromise) as IJSPromise;
end;
function TJSPromise.reject(reason: TJOB_JSValue): IJSPromise;
function TJSPromise.reject(const reason: TJOB_JSValue): IJSPromise;
begin
Result:=InvokeJSObjectResult('reject',[reason],TJSPromise) as IJSPromise;
end;
@ -1240,7 +1240,7 @@ begin
Result:=InvokeJSObjectResult('resolve',[value],TJSPromise) as IJSPromise;
end;
function TJSPromise.resolve(value: TJOB_JSValue): IJSPromise;
function TJSPromise.resolve(const value: TJOB_JSValue): IJSPromise;
begin
Result:=InvokeJSObjectResult('resolve',[value],TJSPromise) as IJSPromise;
end;
@ -1302,7 +1302,7 @@ begin
end;
end;
class function TJSPromise.Cast(Intf: IJSObject): IJSPromise;
class function TJSPromise.Cast(const Intf: IJSObject): IJSPromise;
begin
Result:=TJSPromise.Cast(Intf);
end;

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

@ -333,6 +333,14 @@ Type
TJSFileSystemDirectoryReader = class;
IJSFormData = interface;
TJSFormData = class;
IJSServiceWorker = interface;
TJSServiceWorker = class;
IJSAbstractWorker = interface;
TJSAbstractWorker = class;
IJSWindowOrWorkerGlobalScope = interface;
TJSWindowOrWorkerGlobalScope = class;
IJSCacheStorage = interface;
TJSCacheStorage = class;
TJSEventListenerOptions = TJOB_Dictionary;
TJSAddEventListenerOptions = TJOB_Dictionary;
TJSGetRootNodeOptions = TJOB_Dictionary;
@ -370,6 +378,7 @@ Type
TJSFileSystemFlags = TJOB_Dictionary;
TJSChannelPixelLayout = TJOB_Dictionary;
TJSImageBitmapOptions = TJOB_Dictionary;
TJSMultiCacheQueryOptions = TJOB_Dictionary;
TVisibilityState = UnicodeString;
TDocumentAutoplayPolicy = UnicodeString;
TFlashClassification = UnicodeString;
@ -393,6 +402,8 @@ Type
TImageOrientation = UnicodeString;
TPremultiplyAlpha = UnicodeString;
TColorSpaceConversion = UnicodeString;
TServiceWorkerState = UnicodeString;
TCacheStorageNamespace = UnicodeString;
TEventListener = function (event: IJSEvent): Boolean of object;
TEventHandlerNonNull = function (event: IJSEvent): TJOB_JSValue of object;
TEventHandler = TEventHandlerNonNull;
@ -823,6 +834,14 @@ Type
resizeHeight: LongWord;
end;
{ --------------------------------------------------------------------
TJSMultiCacheQueryOptions
--------------------------------------------------------------------}
TJSMultiCacheQueryOptionsRec = record
cacheName: UnicodeString;
end;
{ --------------------------------------------------------------------
TJSEventTarget
--------------------------------------------------------------------}
@ -4476,6 +4495,96 @@ Type
class function Cast(Intf: IJSObject): IJSFormData;
end;
{ --------------------------------------------------------------------
TJSAbstractWorker
--------------------------------------------------------------------}
IJSAbstractWorker = interface(IJSObject)
['{2D2E9E9C-BF21-3301-BE30-7D8E8AF584D5}']
// property onerror: TEventHandler read _Getonerror write _Setonerror;
end;
TJSAbstractWorker = class(TJSObject,IJSAbstractWorker)
Private
Public
class function Cast(Intf: IJSObject): IJSAbstractWorker;
// property onerror: TEventHandler read _Getonerror write _Setonerror;
end;
{ --------------------------------------------------------------------
TJSWindowOrWorkerGlobalScope
--------------------------------------------------------------------}
IJSWindowOrWorkerGlobalScope = interface(IJSObject)
['{A638F512-23A4-3CE5-9F80-7BDB74A6E1BB}']
function _Getorigin: UnicodeString;
function _GetcrossOriginIsolated: Boolean;
function _GetisSecureContext: Boolean;
function _Getcaches: IJSCacheStorage;
procedure reportError(aE: TJOB_JSValue);
function btoa(const aBtoa: UnicodeString): UnicodeString;
function atob(const _atob: UnicodeString): UnicodeString;
function setTimeout(aHandler: IJSFunction; aTimeout: Integer; arguments: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setTimeout(aHandler: IJSFunction): Integer{; ToDo:varargs}; overload;
function setTimeout(const aHandler: UnicodeString; aTimeout: Integer; aUnused: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setTimeout(const aHandler: UnicodeString): Integer{; ToDo:varargs}; overload;
procedure clearTimeout(aHandle: Integer); overload;
procedure clearTimeout; overload;
function setInterval(aHandler: IJSFunction; aTimeout: Integer; arguments: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setInterval(aHandler: IJSFunction): Integer{; ToDo:varargs}; overload;
function setInterval(const aHandler: UnicodeString; aTimeout: Integer; aUnused: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setInterval(const aHandler: UnicodeString): Integer{; ToDo:varargs}; overload;
procedure clearInterval(aHandle: Integer); overload;
procedure clearInterval; overload;
property origin: UnicodeString read _Getorigin;
property crossOriginIsolated: Boolean read _GetcrossOriginIsolated;
property isSecureContext: Boolean read _GetisSecureContext;
property caches: IJSCacheStorage read _Getcaches;
end;
TJSWindowOrWorkerGlobalScope = class(TJSObject,IJSWindowOrWorkerGlobalScope)
Private
function _Getorigin: UnicodeString;
function _GetcrossOriginIsolated: Boolean;
function _GetisSecureContext: Boolean;
function _Getcaches: IJSCacheStorage;
Public
procedure reportError(aE: TJOB_JSValue);
function btoa(const aBtoa: UnicodeString): UnicodeString;
function atob(const _atob: UnicodeString): UnicodeString;
function setTimeout(aHandler: IJSFunction; aTimeout: Integer; arguments: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setTimeout(aHandler: IJSFunction): Integer{; ToDo:varargs}; overload;
function setTimeout(const aHandler: UnicodeString; aTimeout: Integer; aUnused: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setTimeout(const aHandler: UnicodeString): Integer{; ToDo:varargs}; overload;
procedure clearTimeout(aHandle: Integer); overload;
procedure clearTimeout; overload;
function setInterval(aHandler: IJSFunction; aTimeout: Integer; arguments: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setInterval(aHandler: IJSFunction): Integer{; ToDo:varargs}; overload;
function setInterval(const aHandler: UnicodeString; aTimeout: Integer; aUnused: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
function setInterval(const aHandler: UnicodeString): Integer{; ToDo:varargs}; overload;
procedure clearInterval(aHandle: Integer); overload;
procedure clearInterval; overload;
class function Cast(Intf: IJSObject): IJSWindowOrWorkerGlobalScope;
property origin: UnicodeString read _Getorigin;
property crossOriginIsolated: Boolean read _GetcrossOriginIsolated;
property isSecureContext: Boolean read _GetisSecureContext;
property caches: IJSCacheStorage read _Getcaches;
end;
{ --------------------------------------------------------------------
TJSCacheStorage
--------------------------------------------------------------------}
IJSCacheStorage = interface(IJSObject)
['{E6CE12C8-9006-3FF9-944A-1ED81AA2A621}']
end;
TJSCacheStorage = class(TJSObject,IJSCacheStorage)
Private
Public
class function Cast(Intf: IJSObject): IJSCacheStorage;
end;
{ --------------------------------------------------------------------
TJSNode
--------------------------------------------------------------------}
@ -5974,6 +6083,32 @@ Type
class function Cast(Intf: IJSObject): IJSFileSystemDirectoryEntry;
end;
{ --------------------------------------------------------------------
TJSServiceWorker
--------------------------------------------------------------------}
IJSServiceWorker = interface(IJSEventTarget)
['{578B7E11-8576-31FB-96D8-0793D46C61C4}']
function _GetscriptURL: UnicodeString;
function _Getstate: TServiceWorkerState;
property scriptURL: UnicodeString read _GetscriptURL;
property state: TServiceWorkerState read _Getstate;
// property onstatechange: TEventHandler read _Getonstatechange write _Setonstatechange;
// property onerror: TEventHandler read _Getonerror write _Setonerror;
end;
TJSServiceWorker = class(TJSEventTarget,IJSServiceWorker)
Private
function _GetscriptURL: UnicodeString;
function _Getstate: TServiceWorkerState;
Public
class function Cast(Intf: IJSObject): IJSServiceWorker;
property scriptURL: UnicodeString read _GetscriptURL;
property state: TServiceWorkerState read _Getstate;
// property onstatechange: TEventHandler read _Getonstatechange write _Setonstatechange;
// property onerror: TEventHandler read _Getonerror write _Setonerror;
end;
{ --------------------------------------------------------------------
TJSDocument
--------------------------------------------------------------------}
@ -13657,6 +13792,116 @@ begin
Result:=TJSFormData.JOBCast(Intf);
end;
class function TJSAbstractWorker.Cast(Intf: IJSObject): IJSAbstractWorker;
begin
Result:=TJSAbstractWorker.JOBCast(Intf);
end;
function TJSWindowOrWorkerGlobalScope._Getorigin: UnicodeString;
begin
Result:=ReadJSPropertyUnicodeString('origin');
end;
function TJSWindowOrWorkerGlobalScope._GetcrossOriginIsolated: Boolean;
begin
Result:=ReadJSPropertyBoolean('crossOriginIsolated');
end;
function TJSWindowOrWorkerGlobalScope._GetisSecureContext: Boolean;
begin
Result:=ReadJSPropertyBoolean('isSecureContext');
end;
function TJSWindowOrWorkerGlobalScope._Getcaches: IJSCacheStorage;
begin
Result:=ReadJSPropertyObject('caches',TJSCacheStorage) as IJSCacheStorage;
end;
procedure TJSWindowOrWorkerGlobalScope.reportError(aE: TJOB_JSValue);
begin
InvokeJSNoResult('reportError',[aE]);
end;
function TJSWindowOrWorkerGlobalScope.btoa(const aBtoa: UnicodeString): UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('btoa',[aBtoa]);
end;
function TJSWindowOrWorkerGlobalScope.atob(const _atob: UnicodeString): UnicodeString;
begin
Result:=InvokeJSUnicodeStringResult('atob',[_atob]);
end;
function TJSWindowOrWorkerGlobalScope.setTimeout(aHandler: IJSFunction; aTimeout: Integer; arguments: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setTimeout',[aHandler,aTimeout,arguments]);
end;
function TJSWindowOrWorkerGlobalScope.setTimeout(aHandler: IJSFunction): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setTimeout',[aHandler]);
end;
function TJSWindowOrWorkerGlobalScope.setTimeout(const aHandler: UnicodeString; aTimeout: Integer; aUnused: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setTimeout',[aHandler,aTimeout,aUnused]);
end;
function TJSWindowOrWorkerGlobalScope.setTimeout(const aHandler: UnicodeString): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setTimeout',[aHandler]);
end;
procedure TJSWindowOrWorkerGlobalScope.clearTimeout(aHandle: Integer); overload;
begin
InvokeJSNoResult('clearTimeout',[aHandle]);
end;
procedure TJSWindowOrWorkerGlobalScope.clearTimeout; overload;
begin
InvokeJSNoResult('clearTimeout',[]);
end;
function TJSWindowOrWorkerGlobalScope.setInterval(aHandler: IJSFunction; aTimeout: Integer; arguments: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setInterval',[aHandler,aTimeout,arguments]);
end;
function TJSWindowOrWorkerGlobalScope.setInterval(aHandler: IJSFunction): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setInterval',[aHandler]);
end;
function TJSWindowOrWorkerGlobalScope.setInterval(const aHandler: UnicodeString; aTimeout: Integer; aUnused: TJOB_JSValue): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setInterval',[aHandler,aTimeout,aUnused]);
end;
function TJSWindowOrWorkerGlobalScope.setInterval(const aHandler: UnicodeString): Integer{; ToDo:varargs}; overload;
begin
Result:=InvokeJSLongIntResult('setInterval',[aHandler]);
end;
procedure TJSWindowOrWorkerGlobalScope.clearInterval(aHandle: Integer); overload;
begin
InvokeJSNoResult('clearInterval',[aHandle]);
end;
procedure TJSWindowOrWorkerGlobalScope.clearInterval; overload;
begin
InvokeJSNoResult('clearInterval',[]);
end;
class function TJSWindowOrWorkerGlobalScope.Cast(Intf: IJSObject): IJSWindowOrWorkerGlobalScope;
begin
Result:=TJSWindowOrWorkerGlobalScope.JOBCast(Intf);
end;
class function TJSCacheStorage.Cast(Intf: IJSObject): IJSCacheStorage;
begin
Result:=TJSCacheStorage.JOBCast(Intf);
end;
function TJSNode._GetnodeType: Word;
begin
Result:=ReadJSPropertyLongInt('nodeType');
@ -15557,6 +15802,21 @@ begin
Result:=TJSFileSystemDirectoryEntry.JOBCast(Intf);
end;
function TJSServiceWorker._GetscriptURL: UnicodeString;
begin
Result:=ReadJSPropertyUnicodeString('scriptURL');
end;
function TJSServiceWorker._Getstate: TServiceWorkerState;
begin
Result:=ReadJSPropertyUnicodeString('state');
end;
class function TJSServiceWorker.Cast(Intf: IJSObject): IJSServiceWorker;
begin
Result:=TJSServiceWorker.JOBCast(Intf);
end;
function TJSDocument._Getimplementation_: IJSDOMImplementation;
begin
Result:=ReadJSPropertyObject('implementation',TJSDOMImplementation) as IJSDOMImplementation;
@ -20608,4 +20868,3 @@ finalization
JSDocument.Free;
JSWindow.Free;
end.