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

* AbortSignal

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-26 17:38:07 +01:00
parent 7a6c0cdbd4
commit 26080b7853
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/rtl/src/weborworker.pas
View File

@ -1146,6 +1146,32 @@ type
property crypto : TJSCrypto Read FCrypto;
end;
{ TJSAbortSignal }
TJSAbortSignal = class external name 'AbortSignal' (TJSEventTarget)
private
FAborted: Boolean; external name 'aborted';
FReason: JSValue; external name 'reason';
Public
Class function abort : TJSAbortSignal;
Class function any(iterable : TJSIterator) : TJSAbortSignal;
Class function any(iterable : array of TJSAbortSignal) : TJSAbortSignal;
Class function timeout(aTimeout : NativeInt) : TJSAbortSignal;
procedure throwIfAborted;
Property Aborted : Boolean Read FAborted;
Property Reason : JSValue Read FReason;
end;
{ TJSAbortController }
TJSAbortController = class external name 'AbortController' (TJSAbortSignal)
private
FSignal: TJSAbortSignal; external name 'signal';
Public
Procedure abort;
Procedure abort(aReason : JSValue);
Property signal : TJSAbortSignal Read FSignal;
end;
var
Console : TJSConsole; external name 'console';