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

* Move some definitions

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-01-24 19:01:18 +01:00 committed by mattias
parent f324831371
commit f6c7b4e0f3
2 changed files with 211 additions and 96 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

102
packages/rtl/src/web.pas
View File

@ -46,13 +46,7 @@ Type
TJSPointerEvent = Class;
TJSUIEvent = class;
TJSTouchEvent = Class;
TJSPermissions = class;
TJSFileSystemFileHandle = class;
TJSFileSystemFileHandleArray = array of TJSFileSystemFileHandle;
TJSFileSystemDirectoryHandle = class;
TJSFileSystemDirectoryHandleArray = array of TJSFileSystemDirectoryHandle;
TJSShowOpenFilePickerOptions = class;
TJSShowSaveFilePickerOptions = class;
TJSPermissions = weborworker.TJSPermissions;
{$IFDEF FPC_DOTTEDUNITS}
TJSServiceWorker = BrowserApi.WebOrWorker.TJSServiceWorker;
@ -128,6 +122,9 @@ Type
TJSServiceWorker = weborworker.TJSServiceWorker;
TJSServiceWorkerRegistration = weborworker.TJSServiceWorkerRegistration;
TJSMessageEvent = weborworker.TJSMessageEvent;
TJSShowOpenFilePickerOptions = class;
TJSShowSaveFilePickerOptions = class;
TJSEvent = weborworker.TJSEvent;
TJSBlob = weborworker.TJSBlob;
TJSEventTarget = weborworker.TJSEventTarget;
@ -197,7 +194,6 @@ Type
{$ENDIF}
TJSMessagePortArray = TJSMessagePortDynArray;
TEventListenerEvent = TJSEvent;
TJSEventHandler = reference to function(Event: TEventListenerEvent): boolean; safecall;
TJSRawEventHandler = reference to Procedure(Event: TJSEvent); safecall;
@ -2247,8 +2243,7 @@ Type
private
FAlign: String; external name 'align';
FBGColor: String; external name 'bgColor';
FBorder: String; external name 'border';
FCaption: TJSHTMLElement; external name 'caption';
FBorder: String; external name 'border'; FCaption: TJSHTMLElement; external name 'caption';
FCellPadding: String; external name 'cellPadding';
FCellSpacing: String; external name 'cellSpacing';
FFrame: String; external name 'frame';
@ -3264,91 +3259,6 @@ Type
end;
TOnChangeProcedure = reference to procedure;
TJSPermissionDescriptor = class external name 'Object' (TJSObject)
public
name: String;
userVisibleOnly: Boolean;
sysex: Boolean;
end;
TJSPermissionStatus = class external name 'PermissionStatus' (TJSObject)
private
FState: String; external name 'state';
public
onchange: TOnChangeProcedure;
property state: String read FState;
end;
TJSPermissions = class external name 'Permissions' (TJSObject)
public
function query(descriptor: TJSPermissionDescriptor): TJSPermissionStatus; async;
end;
TJSFileSystemHandlePermissionDescriptor = class external name 'Object' (TJSObject)
public
mode: String;
end;
TJSFileSystemCreateWritableOptions = class external name 'Object' (TJSObject)
public
keepExistingData: Boolean;
end;
TJSFileSystemWritableFileStream = class;
TJSFileSystemHandle = class external name 'FileSystemHandle' (TJSObject)
private
FKind: String; external name 'kind';
FName: String; external name 'name';
public
function isSameEntry(const Handle: TJSFileSystemHandle): Boolean;
function queryPermission(descriptor: TJSFileSystemHandlePermissionDescriptor): String;
function requestPermission(descriptor: TJSFileSystemHandlePermissionDescriptor): String;
property kind: String read FKind;
property name: String read FName;
end;
TJSFileSystemFileHandle = class external name 'FileSystemFileHandle' (TJSFileSystemHandle)
public
function getFile: TJSHTMLFile; async;
function createWritable: TJSFileSystemWritableFileStream; overload;
function createWritable(options: TJSFileSystemCreateWritableOptions): TJSFileSystemWritableFileStream; overload;
end;
TJSGetFileHandleOptions = class external name 'Object'
public
create: Boolean;
constructor new;
end;
TJSRemoveEntryOptions = class external name 'Object' (TJSObject)
recursive: Boolean;
end;
TJSFileSystemDirectoryHandle = class external name 'FileSystemDirectoryHandle' (TJSFileSystemHandle)
public
function entries: TJSObject;
function getDirectoryHandle(name: String): TJSFileSystemDirectoryHandle; async; overload;
function getDirectoryHandle(name: String; options: TJSGetFileHandleOptions): TJSFileSystemDirectoryHandle; async; overload;
function getFileHandle(name: String): TJSFileSystemFileHandle; async; overload;
function getFileHandle(name: String; options: TJSGetFileHandleOptions): TJSFileSystemFileHandle; async; overload;
function keys: TJSFileSystemDirectoryHandleArray; reintroduce;
function removeEntry(name: String): TJSPromise;
function removeEntry(name: String; options: TJSRemoveEntryOptions): TJSPromise;
function resolve(possibleDescendant: String): TStringDynArray; async;
function values(possibleDescendant: String): TJSFileSystemDirectoryHandleArray; reintroduce; async;
end;
TJSFileSystemWritableFileStream = class external name 'FileSystemWritableFileStream' (TJSWritableStream)
public
function seek(position: NativeInt): TJSPromise;
function write(data: JSValue): TJSPromise;
function truncate(size: NativeInt): TJSPromise;
end;
TJSShowOpenFilePickerTypeOptions = class external name 'Object' (TJSObject)
public
@ -3434,4 +3344,4 @@ begin
Result:=TJSHTMLElement(Target);
end;
end.
end.

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

@ -41,6 +41,18 @@ type
TJSServiceWorker = class;
TJSReadableStream = class;
TJSClient = class;
TJSFileSystemHandle = class;
TJSFileSystemFileHandle = class;
TJSFileSystemDirectoryHandle = class;
TJSFileSystemWritableFileStream = class;
TJSFileSystemSyncAccessHandle = class;
TFileSystemHandleKind = String;
TWriteCommandType = String;
TJSFileSystemFileHandleArray = array of TJSFileSystemFileHandle;
TJSFileSystemDirectoryHandleArray = array of TJSFileSystemDirectoryHandle;
{ ----------------------------------------------------------------------
Console
@ -278,6 +290,26 @@ type
property type_ : string read FType;
end;
TJSFileNewOptions = class external name 'Object' (TJSObject)
type_ : string; external name 'type';
lastModifier : NativeInt;
end;
{ TJSFile }
TJSFile = class external name 'File' (TJSBlob)
private
fLastModified: NativeInt; external name 'lastModified';
fname: String; external name 'fname';
public
constructor new(Bits : TJSArray; const aName: string);
constructor new(Bits: TJSDataView; const aName : string);
constructor new(Bits : TJSArray; const aName: string; aOptions : TJSFileNewOptions);
constructor new(Bits: TJSDataView; const aName : string; aOptions : TJSFileNewOptions);
property Name : String read fname;
property lastModified : NativeInt Read fLastModified;
end;
TJSBody = class external name 'Body' (TJSObject)
private
fbody: TJSReadableStream; external name 'body';
@ -1098,10 +1130,183 @@ type
property Registration: TJSServiceWorkerRegistration read FRegistration;
end;
TOnChangeProcedure = reference to procedure;
TJSPermissionDescriptor = class external name 'Object' (TJSObject)
public
name: String;
userVisibleOnly: Boolean;
sysex: Boolean;
end;
TJSPermissionStatus = class external name 'PermissionStatus' (TJSObject)
private
FState: String; external name 'state';
public
onchange: TOnChangeProcedure;
property state: String read FState;
end;
TJSPermissions = class external name 'Permissions' (TJSObject)
public
function query(descriptor: TJSPermissionDescriptor): TJSPermissionStatus; async;
end;
TJSFileSystemHandlePermissionDescriptor = class external name 'Object' (TJSObject)
public
mode: String;
end;
// Union of BufferSource, Blob, USVString, WriteParams
TJSFileSystemWriteChunkType = JSValue;
{ --------------------------------------------------------------------
FileSystemCreateWritableOptions
--------------------------------------------------------------------}
TJSFileSystemCreateWritableOptions = record
keepExistingData: Boolean;
end;
{ --------------------------------------------------------------------
FileSystemGetFileOptions
--------------------------------------------------------------------}
TJSFileSystemGetFileOptions = record
create: Boolean;
end;
{ --------------------------------------------------------------------
FileSystemGetDirectoryOptions
--------------------------------------------------------------------}
TJSFileSystemGetDirectoryOptions = record
create: Boolean;
end;
{ --------------------------------------------------------------------
FileSystemRemoveOptions
--------------------------------------------------------------------}
TJSFileSystemRemoveOptions = record
recursive: Boolean;
end;
{ --------------------------------------------------------------------
WriteParams
--------------------------------------------------------------------}
TJSWriteParams = record
type_: TWriteCommandType;external name 'type';
size: NativeInt;
position: NativeInt;
data: JSValue;
end;
{ --------------------------------------------------------------------
FileSystemReadWriteOptions
--------------------------------------------------------------------}
TJSFileSystemReadWriteOptions = record
at: NativeInt;
end;
{ --------------------------------------------------------------------
TJSWritableStream
--------------------------------------------------------------------}
{ --------------------------------------------------------------------
TJSFileSystemHandle
--------------------------------------------------------------------}
TJSBooleanPromise = specialize TGPromise<boolean>;
TJSValuePromise = specialize TGPromise<JSValue>;
TJSUndefinedPromise = TJSValuePromise;
TJSFilePromise = specialize TGPromise<TJSFile>;
TJSFileSystemHandle = class external name 'FileSystemHandle'
Private
Fkind: TFileSystemHandleKind; external name 'kind';
Fname: String; external name 'name';
Public
function isSameEntry(aOther: TJSFileSystemHandle): TJSBooleanPromise;
Property kind: TFileSystemHandleKind Read Fkind;
Property name: String Read Fname;
end;
{ --------------------------------------------------------------------
TJSFileSystemSyncAccessHandle
--------------------------------------------------------------------}
TJSFileSystemSyncAccessHandle = class external name 'FileSystemSyncAccessHandle'
Private
Public
function read(aBuffer: TJSBufferSource; const aOptions: TJSFileSystemReadWriteOptions): NativeInt; overload;
function read(aBuffer: TJSBufferSource): NativeInt; overload;
function write(aBuffer: TJSBufferSource; const aOptions: TJSFileSystemReadWriteOptions): NativeInt; overload;
function write(aBuffer: TJSBufferSource): NativeInt; overload;
function truncate(aNewSize: NativeInt): TJSUndefinedPromise;
function getSize: NativeInt;
function flush: TJSUndefinedPromise;
function close: TJSUndefinedPromise;
end;
{ --------------------------------------------------------------------
TJSFileSystemFileHandle
--------------------------------------------------------------------}
TJSFileSystemWritableFileStreamPromise = specialize TGPromise<TJSFileSystemWritableFileStream>;
TJSFileSystemSyncAccessHandlePromise = specialize TGPromise<TJSFileSystemSyncAccessHandle>;
TJSFileSystemFileHandle = class external name 'FileSystemFileHandle' (TJSFileSystemHandle)
Private
Public
function getFile: TJSFilePromise;
function createWritable(const aOptions: TJSFileSystemCreateWritableOptions): TJSFileSystemWritableFileStreamPromise; overload;
function createWritable: TJSFileSystemWritableFileStreamPromise; overload;
function createSyncAccessHandle: TJSFileSystemSyncAccessHandlePromise;
end;
{ --------------------------------------------------------------------
TJSFileSystemDirectoryHandle
--------------------------------------------------------------------}
TJSFileSystemFileHandlePromise = specialize TGPromise<TJSFileSystemFileHandle>;
TJSStringDynArrayPromise = specialize TGPromise<TStringDynArray>;
TJSFileSystemDirectoryHandlePromise = specialize TGPromise<TJSFileSystemDirectoryHandle>;
TJSFileSystemDirectoryHandle = class external name 'FileSystemDirectoryHandle' (TJSFileSystemHandle)
Private
Public
function getFileHandle(aName: String; const aOptions: TJSFileSystemGetFileOptions): TJSFileSystemFileHandlePromise; overload;
function getFileHandle(aName: String): TJSFileSystemFileHandlePromise; overload;
function getDirectoryHandle(aName: String; const aOptions: TJSFileSystemGetDirectoryOptions): TJSFileSystemDirectoryHandlePromise; overload;
function getDirectoryHandle(aName: String): TJSFileSystemDirectoryHandlePromise; overload;
function removeEntry(aName: String; const aOptions: TJSFileSystemRemoveOptions): TJSUndefinedPromise; overload;
function removeEntry(aName: String): TJSUndefinedPromise; overload;
function resolve(aPossibleDescendant: TJSFileSystemHandle): TJSStringDynArrayPromise;
function entries: TJSObject;
function values : TJSObject;
end;
{ --------------------------------------------------------------------
TJSFileSystemWritableFileStream
--------------------------------------------------------------------}
TJSFileSystemWritableFileStream = class external name 'FileSystemWritableFileStream' (TJSWritableStream)
Private
Public
function write(aData: TJSFileSystemWriteChunkType): TJSUndefinedPromise;
function seek(aPosition: NativeInt): TJSUndefinedPromise;
function truncate(aSize: NativeInt): TJSUndefinedPromise;
end;
TJSDirectoryPromise = specialize TGPromise<TJSFileSystemDirectoryHandle>;
TJSStorageManager = class external name 'StorageManager' (TJSObject)
function estimate : TJSPromise;
function persist : TJSPromise;
function persisted : TJSPromise;
function GetDirectory : TJSDirectoryPromise;
end;
TJSMicrotaskProcedure = reference to Procedure;