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

* Some fixes in stats and writesync

Browse Source
This commit is contained in:
Michael Van Canneyt 2024-05-18 23:22:26 +02:00
parent 68b3cf0051
commit 4f1a37293d
1 changed files with 77 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

84
packages/zenfs/src/libzenfs.pas
View File

@ -75,10 +75,15 @@ Type
mtimeNs : NativeInt; mtimeNs : NativeInt;
ctimeNs : NativeInt; ctimeNs : NativeInt;
birthtimeNs : NativeInt; birthtimeNs : NativeInt;
atime : TJSObject; dev : NativeInt;
mtime : TJSObject; blocks : NativeInt;
ctime : TJSObject; blksize : NativeInt;
birthtime : TJSObject; ino : NativeInt;
rdev : NativeInt;
nlink : NativeInt;
uid : NativeInt;
guid : NativeInt;
size : NativeInt;
constructor new; constructor new;
constructor new (aStats : TZenFSStats); constructor new (aStats : TZenFSStats);
function isFile() : Boolean; function isFile() : Boolean;
@ -94,10 +99,53 @@ Type
function cred(uid, gid: NativeInt) : TZenFSCred; function cred(uid, gid: NativeInt) : TZenFSCred;
procedure chmod(mode: NativeInt); procedure chmod(mode: NativeInt);
procedure chown(uid, gid: NativeInt); procedure chown(uid, gid: NativeInt);
atime : TJSDate;
mtime : TJSDate;
ctime : TJSDate;
birthtime : TJSDate;
end; end;
TZenFSStatsCallback = reference to procedure(stats : TZenFSStats); TZenFSStatsCallback = reference to procedure(stats : TZenFSStats);
TZenFSStatsListener = Procedure (curr : TZenFSStats; prev : TZenFSStats); TZenFSStatsListener = Procedure (curr : TZenFSStats; prev : TZenFSStats);
TZenFSBigintStats = Class external name 'ZenFS.BigIntStats' (TJSObject)
Public
atimeNs : NativeInt;
mtimeNs : NativeInt;
ctimeNs : NativeInt;
birthtimeNs : NativeInt;
dev : TJSBigint;
blocks : TJSBigint;
blksize : TJSBigint;
ino : TJSBigint;
rdev : TJSBigint;
nlink : TJSBigint;
uid : TJSBigint;
guid : TJSBigint;
size : TJSBigint;
constructor new;
constructor new (aStats : TZenFSStats);
function isFile() : Boolean;
function isDirectory() : Boolean;
function isSymbolicLink() : Boolean;
function isSocket() : Boolean;
function isBlockDevice() : Boolean;
function isCharacterDevice() : Boolean;
function isFIFO() : Boolean;
function hasAccess(mode: NativeInt;Cred: TZenFSCred) : Boolean;
function cred() : TZenFSCred;
function cred(uid: NativeInt) : TZenFSCred;
function cred(uid, gid: NativeInt) : TZenFSCred;
procedure chmod(mode: NativeInt);
procedure chown(uid, gid: NativeInt);
atime : TJSDate;
mtime : TJSDate;
ctime : TJSDate;
birthtime : TJSDate;
end;
TZenFSBigintStatsCallback = reference to procedure(stats : TZenFSBigintStats);
TZenFSBigintStatsListener = Procedure (curr : TZenFSBigintStats; prev : TZenFSBigintStats);
{ TZenFSDirent } { TZenFSDirent }
TZenFSDirent = Class external name 'ZenFS.Dirent' (TJSObject) TZenFSDirent = Class external name 'ZenFS.Dirent' (TJSObject)
@ -174,7 +222,7 @@ Type
FPath: string; external name 'path'; FPath: string; external name 'path';
FPending: boolean; external name 'pending'; FPending: boolean; external name 'pending';
Public Public
procedure close; procedure close; reintroduce;
procedure close(Callback : TVoidCallback); procedure close(Callback : TVoidCallback);
property pending : boolean read FPending; property pending : boolean read FPending;
Property bytesWritten : NativeInt read FBytesWritten; Property bytesWritten : NativeInt read FBytesWritten;
@ -353,6 +401,23 @@ Type
end; end;
TZenFSErrnoError = class external name 'ZenFS.ErrnoError' (TJSError)
constructor New (ErrNo : Integer);
constructor New (ErrNo : Integer; Message : String);
constructor New (ErrNo : Integer; Message,Path : String);
constructor New (ErrNo : Integer; Message,Path,Syscall : String);
class function fromJSON (aJSOn : TJSObject) : TZenFSErrnoError;
class function With_ (code : String) : TZenFSErrnoError external name 'With';
class function With_ (code : String; Path : String) : TZenFSErrnoError external name 'With';
class function With_ (code : String; Path, SysCall : String) : TZenFSErrnoError external name 'With';
errno : integer;
code : string;
stack : string;
function toJSON : TJSObject;
function toString : string; reintroduce;
function bufferSize : integer;
end;
TZenFSFileSystemMetaData = Class external name 'ZenFS.FileSystemMetaData' (TJSObject) TZenFSFileSystemMetaData = Class external name 'ZenFS.FileSystemMetaData' (TJSObject)
name : string; name : string;
readonly : boolean; readonly : boolean;
@ -617,8 +682,11 @@ Type
function lstatSync(arg1: JSValue;arg2: JSValue) : JSValue; function lstatSync(arg1: JSValue;arg2: JSValue) : JSValue;
procedure lutimes(path : String; aTime : NativeInt; mTime : NativeInt; callback : TVoidCallback); procedure lutimes(path : String; aTime : NativeInt; mTime : NativeInt; callback : TVoidCallback);
procedure lutimes(path : String; aTime : TJSDate; mTime : TJSDate; callback : TVoidCallback);
procedure lutimes(path : String; aTime : NativeInt; mTime : NativeInt); procedure lutimes(path : String; aTime : NativeInt; mTime : NativeInt);
procedure lutimes(path : String; aTime : TJSDate; mTime : TJSDate);
procedure lutimesSync(path : String; aTime : NativeInt; mTime : NativeInt); procedure lutimesSync(path : String; aTime : NativeInt; mTime : NativeInt);
procedure lutimesSync(path : String; aTime : TJSDate; mTime : TJSDate);
procedure mkdir(path : String; mode : Nativeint; callback : TVoidCallback); procedure mkdir(path : String; mode : Nativeint; callback : TVoidCallback);
procedure mkdir(path : String; mode : Nativeint); procedure mkdir(path : String; mode : Nativeint);
@ -766,9 +834,9 @@ Type
Procedure writeFileSync(afile : String; data : TJSDataView); overload; Procedure writeFileSync(afile : String; data : TJSDataView); overload;
Function writeSync(fd : NativeInt; buffer : TJSDataView; offset : NativeInt; length : NativeInt; position : NativeInt): NativeInt; overload; Function writeSync(fd : NativeInt; buffer : TJSDataView; offset : NativeInt; length : NativeInt; position : NativeInt): NativeInt; overload;
Function writeSync(fd : NativeInt; buffer : TJSDataView): NativeInt; overload;
Function writeSync(fd : NativeInt; buffer : TJSDataView; offset : NativeInt): NativeInt; overload;
Function writeSync(fd : NativeInt; buffer : TJSDataView; offset : NativeInt; length : NativeInt): NativeInt; overload; Function writeSync(fd : NativeInt; buffer : TJSDataView; offset : NativeInt; length : NativeInt): NativeInt; overload;
Function writeSync(fd : NativeInt; buffer : TJSDataView; offset : NativeInt): NativeInt; overload;
Function writeSync(fd : NativeInt; buffer : TJSDataView): NativeInt; overload;
Function writeSync(fd : NativeInt; aString : string; position : NativeInt; encoding : String): NativeInt; overload; Function writeSync(fd : NativeInt; aString : string; position : NativeInt; encoding : String): NativeInt; overload;
Function writeSync(fd : NativeInt; aString : string): NativeInt; overload; Function writeSync(fd : NativeInt; aString : string): NativeInt; overload;
Function writeSync(fd : NativeInt; aString : string; position : NativeInt): NativeInt; overload; Function writeSync(fd : NativeInt; aString : string; position : NativeInt): NativeInt; overload;
@ -781,6 +849,8 @@ Type
Property mounts : TJSMap Read FMounts; Property mounts : TJSMap Read FMounts;
end; end;
// Using this function is dangerous, it is not part of the API !
function fd2file(fd : Integer) : TZenFSFile; external name 'fd2file';
var var
ZenFS : TZenFS; external name 'ZenFS'; ZenFS : TZenFS; external name 'ZenFS';