mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-05 18:17:45 +02:00
* WASI Filesystem support, initial implementation
This commit is contained in:
Michael Van Canneyt
parent
a7db8e9f8b
commit
013f0bbdf5
File diff suppressed because it is too large
Load Diff
682
packages/wasi/src/wasitypes.pas
Normal file
682
packages/wasi/src/wasitypes.pas
Normal file
@ -0,0 +1,682 @@
|
||||
unit wasitypes;
|
||||
|
||||
{$mode ObjFPC}
|
||||
{$INTERFACES CORBA}
|
||||
|
||||
interface
|
||||
|
||||
uses JS;
|
||||
|
||||
Type
|
||||
TWasmMemoryLocation = Integer;
|
||||
// The imports as expected by WASI
|
||||
IWASI = interface ['{A03AC61B-3C68-4DA8-AC4F-53ED01814673}']
|
||||
// Please keep these sorted !!
|
||||
function args_get(argc, argvBufSize : NativeInt) : NativeInt;
|
||||
function args_sizes_get(argc, argvBufSize : NativeInt) : NativeInt;
|
||||
function clock_res_get(clockId, resolution: NativeInt): NativeInt;
|
||||
|
||||
function clock_time_get(clockId, precision : NativeInt; time: TWasmMemoryLocation): NativeInt;
|
||||
function environ_get(environ, environBuf : NativeInt) : NativeInt;
|
||||
function environ_sizes_get(environCount, environBufSize : NativeInt) : NativeInt;
|
||||
function fd_advise (fd, offset, len, advice : NativeInt) : NativeInt;
|
||||
function fd_allocate (fd, offset, len : NativeInt) : NativeInt;
|
||||
function fd_close(fd : NativeInt) : NativeInt;
|
||||
function fd_datasync (fd : NativeInt) : NativeInt;
|
||||
function fd_fdstat_get(fd : NativeInt; bufPtr: TWasmMemoryLocation) : NativeInt;
|
||||
function fd_fdstat_set_flags (fd, flags: NativeInt) : NativeInt;
|
||||
function fd_fdstat_set_rights (fd, fsRightsBase, fsRightsInheriting: NativeInt) : NativeInt;
|
||||
function fd_filestat_get (fd : NativeInt; bufPtr: TWasmMemoryLocation) : NativeInt;
|
||||
function fd_filestat_set_size (fd, stSize: NativeInt) : NativeInt;
|
||||
function fd_filestat_set_times (fd, stAtim, stMtim, fstflags: NativeInt) : NativeInt;
|
||||
function fd_pread(fd: NativeInt; iovs : TWasmMemoryLocation; iovsLen, offset: NativeInt; nread : TWasmMemoryLocation) : NativeInt;
|
||||
function fd_prestat_dir_name(fd : NativeInt; pathPtr : TWasmMemoryLocation; pathLen : NativeInt) : NativeInt;
|
||||
function fd_prestat_get(fd: NativeInt; bufPtr: TWasmMemoryLocation) : NativeInt;
|
||||
function fd_pwrite(fd, iovs, iovsLen, offset, nwritten : NativeInt) : NativeInt;
|
||||
function fd_read(fd: NativeInt; iovs : TWasmMemoryLocation; iovsLen: NativeInt; nread : TWasmMemoryLocation) : NativeInt;
|
||||
function fd_readdir(fd, bufPtr, bufLen, cookie, bufusedPtr : NativeInt) : NativeInt;
|
||||
function fd_renumber(afrom,ato : NativeInt) : NativeInt;
|
||||
function fd_seek(fd, offset, whence : NativeInt; newOffsetPtr : TWasmMemoryLocation) : NativeInt;
|
||||
function fd_sync(fd : NativeInt) : NativeInt;
|
||||
function fd_tell(fd: NativeInt; offsetPtr: TWasmMemoryLocation): NativeInt;
|
||||
function fd_write(fd,iovs,iovsLen,nwritten : NativeInt) : NativeInt;
|
||||
function path_create_directory (fd, pathPtr, pathLen : NativeInt) : NativeInt;
|
||||
function path_filestat_get (fd, flags : NativeInt; pathPtr : TWasmMemoryLocation; pathLen : Nativeint; bufPtr : TWasmMemoryLocation) : NativeInt;
|
||||
function path_filestat_set_times(fd, fstflags, pathPtr, pathLen, stAtim, stMtim : NativeInt) : NativeInt;
|
||||
function path_link (oldFd, oldFlags : NativeInt; oldPath: TWasmMemoryLocation; oldPathLen, newFd : NativeInt; NewPath: TWasmMemoryLocation; newPathLen: NativeInt) : NativeInt;
|
||||
function path_open (dirfd, dirflags : NativeInt; pathPtr : TWasmMemoryLocation; pathLen, oflags, fsRightsBase, fsRightsInheriting, fsFlags : NativeInt; fd : TWasmMemoryLocation) : NativeInt;
|
||||
function path_readlink (fd: NativeInt; pathPtr: TWasmMemoryLocation; pathLen: NativeInt; buf: TWasmMemoryLocation; bufLen : NativeInt; bufused : TWasmMemoryLocation) : NativeInt;
|
||||
function path_remove_directory (fd : NativeInt; pathPtr: TWasmMemoryLocation; pathLen : NativeInt) : NativeInt;
|
||||
function path_rename (oldFd, oldPath, oldPathLen, newFd, newPath, newPathLen : NativeInt) : NativeInt;
|
||||
function path_symlink (oldPath, oldPathLen, fd, newPath, newPathLen : NativeInt) : NativeInt;
|
||||
function path_unlink_file (fd, pathPtr, pathLen : NativeInt) : NativeInt;
|
||||
function poll_oneoff(sin, sout, nsubscriptions, nevents : NativeInt) : NativeInt;
|
||||
function proc_exit(rval : NativeInt) : NativeInt;
|
||||
function proc_raise (sig : NativeInt) : NativeInt;
|
||||
function random_get (bufPtr, bufLen: NativeInt) : NativeInt;
|
||||
function sched_yield() : NativeInt;
|
||||
function sock_recv() : NativeInt;
|
||||
function sock_send() : NativeInt;
|
||||
function sock_shutdown() : NativeInt;
|
||||
end;
|
||||
|
||||
|
||||
Const
|
||||
WASI_ESUCCESS = 0;
|
||||
WASI_E2BIG = 1;
|
||||
WASI_EACCES = 2;
|
||||
WASI_EADDRINUSE = 3;
|
||||
WASI_EADDRNOTAVAIL = 4;
|
||||
WASI_EAFNOSUPPORT = 5;
|
||||
WASI_EAGAIN = 6;
|
||||
WASI_EALREADY = 7;
|
||||
WASI_EBADF = 8;
|
||||
WASI_EBADMSG = 9;
|
||||
WASI_EBUSY = 10;
|
||||
WASI_ECANCELED = 11;
|
||||
WASI_ECHILD = 12;
|
||||
WASI_ECONNABORTED = 13;
|
||||
WASI_ECONNREFUSED = 14;
|
||||
WASI_ECONNRESET = 15;
|
||||
WASI_EDEADLK = 16;
|
||||
WASI_EDESTADDRREQ = 17;
|
||||
WASI_EDOM = 18;
|
||||
WASI_EDQUOT = 19;
|
||||
WASI_EEXIST = 20;
|
||||
WASI_EFAULT = 21;
|
||||
WASI_EFBIG = 22;
|
||||
WASI_EHOSTUNREACH = 23;
|
||||
WASI_EIDRM = 24;
|
||||
WASI_EILSEQ = 25;
|
||||
WASI_EINPROGRESS = 26;
|
||||
WASI_EINTR = 27;
|
||||
WASI_EINVAL = 28;
|
||||
WASI_EIO = 29;
|
||||
WASI_EISCONN = 30;
|
||||
WASI_EISDIR = 31;
|
||||
WASI_ELOOP = 32;
|
||||
WASI_EMFILE = 33;
|
||||
WASI_EMLINK = 34;
|
||||
WASI_EMSGSIZE = 35;
|
||||
WASI_EMULTIHOP = 36;
|
||||
WASI_ENAMETOOLONG = 37;
|
||||
WASI_ENETDOWN = 38;
|
||||
WASI_ENETRESET = 39;
|
||||
WASI_ENETUNREACH = 40;
|
||||
WASI_ENFILE = 41;
|
||||
WASI_ENOBUFS = 42;
|
||||
WASI_ENODEV = 43;
|
||||
WASI_ENOENT = 44;
|
||||
WASI_ENOEXEC = 45;
|
||||
WASI_ENOLCK = 46;
|
||||
WASI_ENOLINK = 47;
|
||||
WASI_ENOMEM = 48;
|
||||
WASI_ENOMSG = 49;
|
||||
WASI_ENOPROTOOPT = 50;
|
||||
WASI_ENOSPC = 51;
|
||||
WASI_ENOSYS = 52;
|
||||
WASI_ENOTCONN = 53;
|
||||
WASI_ENOTDIR = 54;
|
||||
WASI_ENOTEMPTY = 55;
|
||||
WASI_ENOTRECOVERABLE = 56;
|
||||
WASI_ENOTSOCK = 57;
|
||||
WASI_ENOTSUP = 58;
|
||||
WASI_ENOTTY = 59;
|
||||
WASI_ENXIO = 60;
|
||||
WASI_EOVERFLOW = 61;
|
||||
WASI_EOWNERDEAD = 62;
|
||||
WASI_EPERM = 63;
|
||||
WASI_EPIPE = 64;
|
||||
WASI_EPROTO = 65;
|
||||
WASI_EPROTONOSUPPORT = 66;
|
||||
WASI_EPROTOTYPE = 67;
|
||||
WASI_ERANGE = 68;
|
||||
WASI_EROFS = 69;
|
||||
WASI_ESPIPE = 70;
|
||||
WASI_ESRCH = 71;
|
||||
WASI_ESTALE = 72;
|
||||
WASI_ETIMEDOUT = 73;
|
||||
WASI_ETXTBSY = 74;
|
||||
WASI_EXDEV = 75;
|
||||
WASI_ENOTCAPABLE = 76;
|
||||
|
||||
WASI_SIGABRT = 0;
|
||||
WASI_SIGALRM = 1;
|
||||
WASI_SIGBUS = 2;
|
||||
WASI_SIGCHLD = 3;
|
||||
WASI_SIGCONT = 4;
|
||||
WASI_SIGFPE = 5;
|
||||
WASI_SIGHUP = 6;
|
||||
WASI_SIGILL = 7;
|
||||
WASI_SIGINT = 8;
|
||||
WASI_SIGKILL = 9;
|
||||
WASI_SIGPIPE = 10;
|
||||
WASI_SIGQUIT = 11;
|
||||
WASI_SIGSEGV = 12;
|
||||
WASI_SIGSTOP = 13;
|
||||
WASI_SIGTERM = 14;
|
||||
WASI_SIGTRAP = 15;
|
||||
WASI_SIGTSTP = 16;
|
||||
WASI_SIGTTIN = 17;
|
||||
WASI_SIGTTOU = 18;
|
||||
WASI_SIGURG = 19;
|
||||
WASI_SIGUSR1 = 20;
|
||||
WASI_SIGUSR2 = 21;
|
||||
WASI_SIGVTALRM = 22;
|
||||
WASI_SIGXCPU = 23;
|
||||
WASI_SIGXFSZ = 24;
|
||||
|
||||
WASI_FILETYPE_UNKNOWN = 0;
|
||||
WASI_FILETYPE_BLOCK_DEVICE = 1;
|
||||
WASI_FILETYPE_CHARACTER_DEVICE = 2;
|
||||
WASI_FILETYPE_DIRECTORY = 3;
|
||||
WASI_FILETYPE_REGULAR_FILE = 4;
|
||||
WASI_FILETYPE_SOCKET_DGRAM = 5;
|
||||
WASI_FILETYPE_SOCKET_STREAM = 6;
|
||||
WASI_FILETYPE_SYMBOLIC_LINK = 7;
|
||||
|
||||
WASI_FDFLAG_APPEND = $0001;
|
||||
WASI_FDFLAG_DSYNC = $0002;
|
||||
WASI_FDFLAG_NONBLOCK = $0004;
|
||||
WASI_FDFLAG_RSYNC = $0008;
|
||||
WASI_FDFLAG_SYNC = $0010;
|
||||
|
||||
WASI_RIGHT_FD_DATASYNC = $0000000000000001;
|
||||
WASI_RIGHT_FD_READ = $0000000000000002;
|
||||
WASI_RIGHT_FD_SEEK = $0000000000000004;
|
||||
WASI_RIGHT_FD_FDSTAT_SET_FLAGS = $0000000000000008;
|
||||
WASI_RIGHT_FD_SYNC = $0000000000000010;
|
||||
WASI_RIGHT_FD_TELL = $0000000000000020;
|
||||
WASI_RIGHT_FD_WRITE = $0000000000000040;
|
||||
WASI_RIGHT_FD_ADVISE = $0000000000000080;
|
||||
WASI_RIGHT_FD_ALLOCATE = $0000000000000100;
|
||||
WASI_RIGHT_PATH_CREATE_DIRECTORY = $0000000000000200;
|
||||
WASI_RIGHT_PATH_CREATE_FILE = $0000000000000400;
|
||||
WASI_RIGHT_PATH_LINK_SOURCE = $0000000000000800;
|
||||
WASI_RIGHT_PATH_LINK_TARGET = $0000000000001000;
|
||||
WASI_RIGHT_PATH_OPEN = $0000000000002000;
|
||||
WASI_RIGHT_FD_READDIR = $0000000000004000;
|
||||
WASI_RIGHT_PATH_READLINK = $0000000000008000;
|
||||
WASI_RIGHT_PATH_RENAME_SOURCE = $0000000000010000;
|
||||
WASI_RIGHT_PATH_RENAME_TARGET = $0000000000020000;
|
||||
WASI_RIGHT_PATH_FILESTAT_GET = $0000000000040000;
|
||||
WASI_RIGHT_PATH_FILESTAT_SET_SIZE = $0000000000080000;
|
||||
WASI_RIGHT_PATH_FILESTAT_SET_TIMES = $0000000000100000;
|
||||
WASI_RIGHT_FD_FILESTAT_GET = $0000000000200000;
|
||||
WASI_RIGHT_FD_FILESTAT_SET_SIZE = $0000000000400000;
|
||||
WASI_RIGHT_FD_FILESTAT_SET_TIMES = $0000000000800000;
|
||||
WASI_RIGHT_PATH_SYMLINK = $0000000001000000;
|
||||
WASI_RIGHT_PATH_REMOVE_DIRECTORY = $0000000002000000;
|
||||
WASI_RIGHT_PATH_UNLINK_FILE = $0000000004000000;
|
||||
WASI_RIGHT_POLL_FD_READWRITE = $0000000008000000;
|
||||
WASI_RIGHT_SOCK_SHUTDOWN = $0000000010000000;
|
||||
|
||||
RIGHTS_ALL = WASI_RIGHT_FD_DATASYNC or WASI_RIGHT_FD_READ
|
||||
or WASI_RIGHT_FD_SEEK or WASI_RIGHT_FD_FDSTAT_SET_FLAGS or WASI_RIGHT_FD_SYNC
|
||||
or WASI_RIGHT_FD_TELL or WASI_RIGHT_FD_WRITE or WASI_RIGHT_FD_ADVISE
|
||||
or WASI_RIGHT_FD_ALLOCATE or WASI_RIGHT_PATH_CREATE_DIRECTORY
|
||||
or WASI_RIGHT_PATH_CREATE_FILE or WASI_RIGHT_PATH_LINK_SOURCE
|
||||
or WASI_RIGHT_PATH_LINK_TARGET or WASI_RIGHT_PATH_OPEN or WASI_RIGHT_FD_READDIR
|
||||
or WASI_RIGHT_PATH_READLINK or WASI_RIGHT_PATH_RENAME_SOURCE
|
||||
or WASI_RIGHT_PATH_RENAME_TARGET or WASI_RIGHT_PATH_FILESTAT_GET
|
||||
or WASI_RIGHT_PATH_FILESTAT_SET_SIZE or WASI_RIGHT_PATH_FILESTAT_SET_TIMES
|
||||
or WASI_RIGHT_FD_FILESTAT_GET or WASI_RIGHT_FD_FILESTAT_SET_TIMES
|
||||
or WASI_RIGHT_FD_FILESTAT_SET_SIZE or WASI_RIGHT_PATH_SYMLINK
|
||||
or WASI_RIGHT_PATH_UNLINK_FILE or WASI_RIGHT_PATH_REMOVE_DIRECTORY
|
||||
or WASI_RIGHT_POLL_FD_READWRITE or WASI_RIGHT_SOCK_SHUTDOWN;
|
||||
|
||||
RIGHTS_BLOCK_DEVICE_BASE = RIGHTS_ALL;
|
||||
RIGHTS_BLOCK_DEVICE_INHERITING = RIGHTS_ALL;
|
||||
|
||||
RIGHTS_CHARACTER_DEVICE_BASE = RIGHTS_ALL;
|
||||
RIGHTS_CHARACTER_DEVICE_INHERITING = RIGHTS_ALL;
|
||||
|
||||
RIGHTS_REGULAR_FILE_BASE = WASI_RIGHT_FD_DATASYNC or WASI_RIGHT_FD_READ
|
||||
or WASI_RIGHT_FD_SEEK or WASI_RIGHT_FD_FDSTAT_SET_FLAGS or WASI_RIGHT_FD_SYNC
|
||||
or WASI_RIGHT_FD_TELL or WASI_RIGHT_FD_WRITE or WASI_RIGHT_FD_ADVISE
|
||||
or WASI_RIGHT_FD_ALLOCATE or WASI_RIGHT_FD_FILESTAT_GET
|
||||
or WASI_RIGHT_FD_FILESTAT_SET_SIZE or WASI_RIGHT_FD_FILESTAT_SET_TIMES
|
||||
or WASI_RIGHT_POLL_FD_READWRITE;
|
||||
RIGHTS_REGULAR_FILE_INHERITING = 00;
|
||||
|
||||
RIGHTS_DIRECTORY_BASE = WASI_RIGHT_FD_FDSTAT_SET_FLAGS
|
||||
or WASI_RIGHT_FD_SYNC or WASI_RIGHT_FD_ADVISE or WASI_RIGHT_PATH_CREATE_DIRECTORY
|
||||
or WASI_RIGHT_PATH_CREATE_FILE or WASI_RIGHT_PATH_LINK_SOURCE
|
||||
or WASI_RIGHT_PATH_LINK_TARGET or WASI_RIGHT_PATH_OPEN or WASI_RIGHT_FD_READDIR
|
||||
or WASI_RIGHT_PATH_READLINK or WASI_RIGHT_PATH_RENAME_SOURCE
|
||||
or WASI_RIGHT_PATH_RENAME_TARGET or WASI_RIGHT_PATH_FILESTAT_GET
|
||||
or WASI_RIGHT_PATH_FILESTAT_SET_SIZE or WASI_RIGHT_PATH_FILESTAT_SET_TIMES
|
||||
or WASI_RIGHT_FD_FILESTAT_GET or WASI_RIGHT_FD_FILESTAT_SET_TIMES
|
||||
or WASI_RIGHT_PATH_SYMLINK or WASI_RIGHT_PATH_UNLINK_FILE
|
||||
or WASI_RIGHT_PATH_REMOVE_DIRECTORY or WASI_RIGHT_POLL_FD_READWRITE;
|
||||
RIGHTS_DIRECTORY_INHERITING = RIGHTS_DIRECTORY_BASE
|
||||
or RIGHTS_REGULAR_FILE_BASE;
|
||||
|
||||
RIGHTS_SOCKET_BASE = WASI_RIGHT_FD_READ or WASI_RIGHT_FD_FDSTAT_SET_FLAGS
|
||||
or WASI_RIGHT_FD_WRITE or WASI_RIGHT_FD_FILESTAT_GET
|
||||
or WASI_RIGHT_POLL_FD_READWRITE or WASI_RIGHT_SOCK_SHUTDOWN;
|
||||
|
||||
RIGHTS_SOCKET_INHERITING = RIGHTS_ALL;
|
||||
|
||||
RIGHTS_TTY_BASE = WASI_RIGHT_FD_READ or WASI_RIGHT_FD_FDSTAT_SET_FLAGS
|
||||
or WASI_RIGHT_FD_WRITE or WASI_RIGHT_FD_FILESTAT_GET
|
||||
or WASI_RIGHT_POLL_FD_READWRITE;
|
||||
|
||||
RIGHTS_TTY_INHERITING = 0;
|
||||
|
||||
WASI_CLOCK_MONOTONIC = 0;
|
||||
WASI_CLOCK_PROCESS_CPUTIME_ID = 1;
|
||||
WASI_CLOCK_REALTIME = 2;
|
||||
WASI_CLOCK_THREAD_CPUTIME_ID = 3;
|
||||
|
||||
WASI_EVENTTYPE_CLOCK = 0;
|
||||
WASI_EVENTTYPE_FD_READ = 1;
|
||||
WASI_EVENTTYPE_FD_WRITE = 2;
|
||||
|
||||
WASI_FILESTAT_SET_ATIM = 1 << 0;
|
||||
WASI_FILESTAT_SET_ATIM_NOW = 1 << 1;
|
||||
WASI_FILESTAT_SET_MTIM = 1 << 2;
|
||||
WASI_FILESTAT_SET_MTIM_NOW = 1 << 3;
|
||||
|
||||
WASI_O_CREAT = 1 << 0;
|
||||
WASI_O_DIRECTORY = 1 << 1;
|
||||
WASI_O_EXCL = 1 << 2;
|
||||
WASI_O_TRUNC = 1 << 3;
|
||||
|
||||
WASI_PREOPENTYPE_DIR = 0;
|
||||
|
||||
WASI_DIRCOOKIE_START = 0;
|
||||
|
||||
WASI_STDIN_FILENO = 0;
|
||||
WASI_STDOUT_FILENO = 1;
|
||||
WASI_STDERR_FILENO = 2;
|
||||
|
||||
WASI_WHENCE_CUR = 0;
|
||||
WASI_WHENCE_END = 1;
|
||||
WASI_WHENCE_SET = 2;
|
||||
|
||||
__WASI_CLOCKID_REALTIME = 0;
|
||||
__WASI_CLOCKID_MONOTONIC = 1;
|
||||
__WASI_CLOCKID_PROCESS_CPUTIME_ID = 2;
|
||||
__WASI_CLOCKID_THREAD_CPUTIME_ID = 3;
|
||||
|
||||
__WASI_ERRNO_SUCCESS = 0;
|
||||
__WASI_ERRNO_2BIG = 1;
|
||||
__WASI_ERRNO_ACCES = 2;
|
||||
__WASI_ERRNO_ADDRINUSE = 3;
|
||||
__WASI_ERRNO_ADDRNOTAVAIL = 4;
|
||||
__WASI_ERRNO_AFNOSUPPORT = 5;
|
||||
__WASI_ERRNO_AGAIN = 6;
|
||||
__WASI_ERRNO_ALREADY = 7;
|
||||
__WASI_ERRNO_BADF = 8;
|
||||
__WASI_ERRNO_BADMSG = 9;
|
||||
__WASI_ERRNO_BUSY = 10;
|
||||
__WASI_ERRNO_CANCELED = 11;
|
||||
__WASI_ERRNO_CHILD = 12;
|
||||
__WASI_ERRNO_CONNABORTED = 13;
|
||||
__WASI_ERRNO_CONNREFUSED = 14;
|
||||
__WASI_ERRNO_CONNRESET = 15;
|
||||
__WASI_ERRNO_DEADLK = 16;
|
||||
__WASI_ERRNO_DESTADDRREQ = 17;
|
||||
__WASI_ERRNO_DOM = 18;
|
||||
__WASI_ERRNO_DQUOT = 19;
|
||||
__WASI_ERRNO_EXIST = 20;
|
||||
__WASI_ERRNO_FAULT = 21;
|
||||
__WASI_ERRNO_FBIG = 22;
|
||||
__WASI_ERRNO_HOSTUNREACH = 23;
|
||||
__WASI_ERRNO_IDRM = 24;
|
||||
__WASI_ERRNO_ILSEQ = 25;
|
||||
__WASI_ERRNO_INPROGRESS = 26;
|
||||
__WASI_ERRNO_INTR = 27;
|
||||
__WASI_ERRNO_INVAL = 28;
|
||||
__WASI_ERRNO_IO = 29;
|
||||
__WASI_ERRNO_ISCONN = 30;
|
||||
__WASI_ERRNO_ISDIR = 31;
|
||||
__WASI_ERRNO_LOOP = 32;
|
||||
__WASI_ERRNO_MFILE = 33;
|
||||
__WASI_ERRNO_MLINK = 34;
|
||||
__WASI_ERRNO_MSGSIZE = 35;
|
||||
__WASI_ERRNO_MULTIHOP = 36;
|
||||
__WASI_ERRNO_NAMETOOLONG = 37;
|
||||
__WASI_ERRNO_NETDOWN = 38;
|
||||
__WASI_ERRNO_NETRESET = 39;
|
||||
__WASI_ERRNO_NETUNREACH = 40;
|
||||
__WASI_ERRNO_NFILE = 41;
|
||||
__WASI_ERRNO_NOBUFS = 42;
|
||||
__WASI_ERRNO_NODEV = 43;
|
||||
__WASI_ERRNO_NOENT = 44;
|
||||
__WASI_ERRNO_NOEXEC = 45;
|
||||
__WASI_ERRNO_NOLCK = 46;
|
||||
__WASI_ERRNO_NOLINK = 47;
|
||||
__WASI_ERRNO_NOMEM = 48;
|
||||
__WASI_ERRNO_NOMSG = 49;
|
||||
__WASI_ERRNO_NOPROTOOPT = 50;
|
||||
__WASI_ERRNO_NOSPC = 51;
|
||||
__WASI_ERRNO_NOSYS = 52;
|
||||
__WASI_ERRNO_NOTCONN = 53;
|
||||
__WASI_ERRNO_NOTDIR = 54;
|
||||
__WASI_ERRNO_NOTEMPTY = 55;
|
||||
__WASI_ERRNO_NOTRECOVERABLE = 56;
|
||||
__WASI_ERRNO_NOTSOCK = 57;
|
||||
__WASI_ERRNO_NOTSUP = 58;
|
||||
__WASI_ERRNO_NOTTY = 59;
|
||||
__WASI_ERRNO_NXIO = 60;
|
||||
__WASI_ERRNO_OVERFLOW = 61;
|
||||
__WASI_ERRNO_OWNERDEAD = 62;
|
||||
__WASI_ERRNO_PERM = 63;
|
||||
__WASI_ERRNO_PIPE = 64;
|
||||
__WASI_ERRNO_PROTO = 65;
|
||||
__WASI_ERRNO_PROTONOSUPPORT = 66;
|
||||
__WASI_ERRNO_PROTOTYPE = 67;
|
||||
__WASI_ERRNO_RANGE = 68;
|
||||
__WASI_ERRNO_ROFS = 69;
|
||||
__WASI_ERRNO_SPIPE = 70;
|
||||
__WASI_ERRNO_SRCH = 71;
|
||||
__WASI_ERRNO_STALE = 72;
|
||||
__WASI_ERRNO_TIMEDOUT = 73;
|
||||
__WASI_ERRNO_TXTBSY = 74;
|
||||
__WASI_ERRNO_XDEV = 75;
|
||||
__WASI_ERRNO_NOTCAPABLE = 76;
|
||||
|
||||
|
||||
const
|
||||
__WASI_RIGHTS_FD_DATASYNC = 1;
|
||||
__WASI_RIGHTS_FD_READ = 2;
|
||||
__WASI_RIGHTS_FD_SEEK = 4;
|
||||
__WASI_RIGHTS_FD_FDSTAT_SET_FLAGS = 8;
|
||||
__WASI_RIGHTS_FD_SYNC = 16;
|
||||
__WASI_RIGHTS_FD_TELL = 32;
|
||||
__WASI_RIGHTS_FD_WRITE = 64;
|
||||
__WASI_RIGHTS_FD_ADVISE = 128;
|
||||
__WASI_RIGHTS_FD_ALLOCATE = 256;
|
||||
__WASI_RIGHTS_PATH_CREATE_DIRECTORY = 512;
|
||||
__WASI_RIGHTS_PATH_CREATE_FILE = 1024;
|
||||
__WASI_RIGHTS_PATH_LINK_SOURCE = 2048;
|
||||
__WASI_RIGHTS_PATH_LINK_TARGET = 4096;
|
||||
__WASI_RIGHTS_PATH_OPEN = 8192;
|
||||
__WASI_RIGHTS_FD_READDIR = 16384;
|
||||
__WASI_RIGHTS_PATH_READLINK = 32768;
|
||||
__WASI_RIGHTS_PATH_RENAME_SOURCE = 65536;
|
||||
__WASI_RIGHTS_PATH_RENAME_TARGET = 131072;
|
||||
__WASI_RIGHTS_PATH_FILESTAT_GET = 262144;
|
||||
__WASI_RIGHTS_PATH_FILESTAT_SET_SIZE = 524288;
|
||||
__WASI_RIGHTS_PATH_FILESTAT_SET_TIMES = 1048576;
|
||||
__WASI_RIGHTS_FD_FILESTAT_GET = 2097152;
|
||||
__WASI_RIGHTS_FD_FILESTAT_SET_SIZE = 4194304;
|
||||
__WASI_RIGHTS_FD_FILESTAT_SET_TIMES = 8388608;
|
||||
__WASI_RIGHTS_PATH_SYMLINK = 16777216;
|
||||
__WASI_RIGHTS_PATH_REMOVE_DIRECTORY = 33554432;
|
||||
__WASI_RIGHTS_PATH_UNLINK_FILE = 67108864;
|
||||
__WASI_RIGHTS_POLL_FD_READWRITE = 134217728;
|
||||
__WASI_RIGHTS_SOCK_SHUTDOWN = 268435456;
|
||||
|
||||
const
|
||||
__WASI_SIGNAL_NONE = 0;
|
||||
__WASI_SIGNAL_HUP = 1;
|
||||
__WASI_SIGNAL_INT = 2;
|
||||
__WASI_SIGNAL_QUIT = 3;
|
||||
__WASI_SIGNAL_ILL = 4;
|
||||
__WASI_SIGNAL_TRAP = 5;
|
||||
__WASI_SIGNAL_ABRT = 6;
|
||||
__WASI_SIGNAL_BUS = 7;
|
||||
__WASI_SIGNAL_FPE = 8;
|
||||
__WASI_SIGNAL_KILL = 9;
|
||||
__WASI_SIGNAL_USR1 = 10;
|
||||
__WASI_SIGNAL_SEGV = 11;
|
||||
__WASI_SIGNAL_USR2 = 12;
|
||||
__WASI_SIGNAL_PIPE = 13;
|
||||
__WASI_SIGNAL_ALRM = 14;
|
||||
__WASI_SIGNAL_TERM = 15;
|
||||
__WASI_SIGNAL_CHLD = 16;
|
||||
__WASI_SIGNAL_CONT = 17;
|
||||
__WASI_SIGNAL_STOP = 18;
|
||||
__WASI_SIGNAL_TSTP = 19;
|
||||
__WASI_SIGNAL_TTIN = 20;
|
||||
__WASI_SIGNAL_TTOU = 21;
|
||||
__WASI_SIGNAL_URG = 22;
|
||||
__WASI_SIGNAL_XCPU = 23;
|
||||
__WASI_SIGNAL_XFSZ = 24;
|
||||
__WASI_SIGNAL_VTALRM = 25;
|
||||
__WASI_SIGNAL_PROF = 26;
|
||||
__WASI_SIGNAL_WINCH = 27;
|
||||
__WASI_SIGNAL_POLL = 28;
|
||||
__WASI_SIGNAL_PWR = 29;
|
||||
__WASI_SIGNAL_SYS = 30;
|
||||
|
||||
__WASI_ROFLAGS_RECV_DATA_TRUNCATED = 1;
|
||||
|
||||
|
||||
const
|
||||
__WASI_WHENCE_SET = 0;
|
||||
__WASI_WHENCE_CUR = 1;
|
||||
__WASI_WHENCE_END = 2;
|
||||
|
||||
__WASI_FILETYPE_UNKNOWN = 0;
|
||||
__WASI_FILETYPE_BLOCK_DEVICE = 1;
|
||||
__WASI_FILETYPE_CHARACTER_DEVICE = 2;
|
||||
__WASI_FILETYPE_DIRECTORY = 3;
|
||||
__WASI_FILETYPE_REGULAR_FILE = 4;
|
||||
__WASI_FILETYPE_SOCKET_DGRAM = 5;
|
||||
__WASI_FILETYPE_SOCKET_STREAM = 6;
|
||||
__WASI_FILETYPE_SYMBOLIC_LINK = 7;
|
||||
|
||||
|
||||
|
||||
__WASI_OFLAGS_CREAT = 1;
|
||||
__WASI_OFLAGS_DIRECTORY = 2;
|
||||
__WASI_OFLAGS_EXCL = 4;
|
||||
__WASI_OFLAGS_TRUNC = 8;
|
||||
|
||||
__WASI_FSTFLAGS_ATIM = 1;
|
||||
__WASI_FSTFLAGS_ATIM_NOW = 2;
|
||||
__WASI_FSTFLAGS_MTIM = 4;
|
||||
__WASI_FSTFLAGS_MTIM_NOW = 8;
|
||||
|
||||
__WASI_ADVICE_NORMAL = 0;
|
||||
__WASI_ADVICE_SEQUENTIAL = 1;
|
||||
__WASI_ADVICE_RANDOM = 2;
|
||||
__WASI_ADVICE_WILLNEED = 3;
|
||||
__WASI_ADVICE_DONTNEED = 4;
|
||||
__WASI_ADVICE_NOREUSE = 5;
|
||||
|
||||
|
||||
__WASI_FDFLAGS_APPEND = 1;
|
||||
__WASI_FDFLAGS_DSYNC = 2;
|
||||
__WASI_FDFLAGS_NONBLOCK = 4;
|
||||
__WASI_FDFLAGS_RSYNC = 8;
|
||||
__WASI_FDFLAGS_SYNC = 16;
|
||||
|
||||
|
||||
|
||||
__WASI_SUBCLOCKFLAGS_SUBSCRIPTION_CLOCK_ABSTIME = 1;
|
||||
|
||||
__WASI_RIFLAGS_RECV_PEEK = 1;
|
||||
__WASI_RIFLAGS_RECV_WAITALL = 2;
|
||||
|
||||
__WASI_LOOKUPFLAGS_SYMLINK_FOLLOW = 1;
|
||||
|
||||
__WASI_EVENTRWFLAGS_FD_READWRITE_HANGUP = 1;
|
||||
|
||||
type
|
||||
PUInt8 = NativeInt;
|
||||
size_t = longint;
|
||||
|
||||
__wasi_size_t = longint;
|
||||
__wasi_filesize_t = UInt64;
|
||||
__wasi_timestamp_t = UInt64;
|
||||
__wasi_clockid_t = UInt32;
|
||||
__wasi_errno_t = UInt16;
|
||||
__wasi_fd_t = longint;
|
||||
__wasi_filedelta_t = Int64;
|
||||
__wasi_whence_t = UInt8;
|
||||
__wasi_dircookie_t = UInt64;
|
||||
__wasi_dirnamlen_t = UInt32;
|
||||
__wasi_inode_t = UInt64;
|
||||
__wasi_filetype_t = UInt8;
|
||||
__wasi_rights_t = UInt64;
|
||||
__wasi_exitcode_t = UInt32;
|
||||
__wasi_signal_t = UInt8;
|
||||
__wasi_riflags_t = UInt16;
|
||||
__wasi_roflags_t = UInt16;
|
||||
__wasi_siflags_t = UInt16;
|
||||
__wasi_sdflags_t = UInt8;
|
||||
__wasi_preopentype_t = UInt8;
|
||||
__wasi_advice_t = UInt8;
|
||||
__wasi_fdflags_t = UInt16;
|
||||
__wasi_device_t = UInt64;
|
||||
__wasi_fstflags_t = UInt16;
|
||||
__wasi_lookupflags_t = UInt32;
|
||||
__wasi_oflags_t = UInt16;
|
||||
__wasi_linkcount_t = UInt64;
|
||||
__wasi_userdata_t = UInt64;
|
||||
__wasi_eventtype_t = UInt8;
|
||||
__wasi_eventrwflags_t = UInt16;
|
||||
__wasi_subclockflags_t = UInt16;
|
||||
|
||||
|
||||
|
||||
__wasi_iovec_t = record
|
||||
buf: PUInt8;
|
||||
buf_len: __wasi_size_t;
|
||||
end;
|
||||
TWASIIOVec = __wasi_iovec_t;
|
||||
|
||||
__wasi_ciovec_t = record
|
||||
buf: PUInt8;
|
||||
buf_len: __wasi_size_t;
|
||||
end;
|
||||
TWASICIOVec = __wasi_ciovec_t;
|
||||
|
||||
__wasi_dirent_t = record
|
||||
d_next: __wasi_dircookie_t;
|
||||
d_ino: __wasi_inode_t;
|
||||
d_namlen: __wasi_dirnamlen_t;
|
||||
d_type: __wasi_filetype_t;
|
||||
end;
|
||||
TWASIDirent = __wasi_dirent_t;
|
||||
|
||||
__wasi_fdstat_t = record
|
||||
fs_filetype: __wasi_filetype_t;
|
||||
fs_flags: __wasi_fdflags_t;
|
||||
fs_rights_base: __wasi_rights_t;
|
||||
fs_rights_inheriting: __wasi_rights_t;
|
||||
end;
|
||||
TWASIFDStat = __wasi_fdstat_t;
|
||||
|
||||
__wasi_filestat_t = record
|
||||
dev: __wasi_device_t;
|
||||
ino: __wasi_inode_t;
|
||||
filetype: __wasi_filetype_t;
|
||||
nlink: __wasi_linkcount_t;
|
||||
size: __wasi_filesize_t;
|
||||
atim: __wasi_timestamp_t;
|
||||
mtim: __wasi_timestamp_t;
|
||||
ctim: __wasi_timestamp_t;
|
||||
end;
|
||||
TWASIFilestat = __wasi_filestat_t;
|
||||
|
||||
__wasi_event_fd_readwrite_t = record
|
||||
nbytes: __wasi_filesize_t;
|
||||
flags: __wasi_eventrwflags_t;
|
||||
end;
|
||||
TWASIEventFDReadWrite = __wasi_event_fd_readwrite_t;
|
||||
|
||||
__wasi_event_t = record
|
||||
userdata: __wasi_userdata_t;
|
||||
error: __wasi_errno_t;
|
||||
type_: __wasi_eventtype_t;
|
||||
fd_readwrite: __wasi_event_fd_readwrite_t;
|
||||
end;
|
||||
TWASIEvent = __wasi_event_t;
|
||||
|
||||
__wasi_subscription_clock_t = record
|
||||
id: __wasi_clockid_t;
|
||||
timeout: __wasi_timestamp_t;
|
||||
precision: __wasi_timestamp_t;
|
||||
flags: __wasi_subclockflags_t;
|
||||
end;
|
||||
TWASISubscriptionClock = __wasi_subscription_clock_t;
|
||||
|
||||
__wasi_subscription_fd_readwrite_t = record
|
||||
file_descriptor: __wasi_fd_t;
|
||||
end;
|
||||
TWASISubscriptionDSReadWrite = __wasi_subscription_fd_readwrite_t;
|
||||
|
||||
// The following 3 represent a part of the variant record.
|
||||
__wasi_subscription_u_u_t_0 = record
|
||||
clock: __wasi_subscription_clock_t;
|
||||
end;
|
||||
__wasi_subscription_u_u_t_1 = record
|
||||
fd_read: __wasi_subscription_fd_readwrite_t
|
||||
end;
|
||||
__wasi_subscription_u_u_t_2 = record
|
||||
fd_write: __wasi_subscription_fd_readwrite_t
|
||||
end;
|
||||
|
||||
__wasi_subscription_u_u_t = Record
|
||||
// Note, this is a variant record
|
||||
Clock : __wasi_subscription_clock_t; {case 0}
|
||||
fd_read: __wasi_subscription_fd_readwrite_t; {case 1}
|
||||
fd_write: __wasi_subscription_fd_readwrite_t; {case 2}
|
||||
end;
|
||||
|
||||
__wasi_subscription_u_t = record
|
||||
tag: __wasi_eventtype_t;
|
||||
u: __wasi_subscription_u_u_t;
|
||||
end;
|
||||
|
||||
__wasi_subscription_t = record
|
||||
userdata: __wasi_userdata_t;
|
||||
u: __wasi_subscription_u_t;
|
||||
end;
|
||||
|
||||
__wasi_prestat_dir_t = record
|
||||
pr_name_len: __wasi_size_t;
|
||||
end;
|
||||
TWASIPrestatDir = __wasi_prestat_dir_t;
|
||||
|
||||
__wasi_prestat_u_t = record
|
||||
dir: __wasi_prestat_dir_t;
|
||||
end;
|
||||
TWasiPrestatU = __wasi_prestat_u_t;
|
||||
|
||||
__wasi_prestat_t = record
|
||||
tag: __wasi_preopentype_t;
|
||||
u: __wasi_prestat_u_t;
|
||||
end;
|
||||
TWasiPreStat = __wasi_prestat_t;
|
||||
|
||||
|
||||
{ EWasiFSError }
|
||||
|
||||
{ IWASIFS }
|
||||
TSeekWhence = (swBeginning, swCurrent, swEnd);
|
||||
TSetTimesFlag = (stfatime,stfaTimeNow,stfmTime,stfmTimeNow);
|
||||
TSetTimesFlags = set of TSetTimesFlag;
|
||||
|
||||
IWASIFS = Interface
|
||||
Function MkDirAt(FD : Integer; const aPath : String) : NativeInt;
|
||||
Function RmDirAt(FD : Integer; const aPath : String) : NativeInt;
|
||||
function StatAt(FD : Integer; const aPath : String; var stat: TWasiFileStat) : NativeInt;
|
||||
function StatFD(FD : Integer; var stat: TWasiFileStat) : NativeInt;
|
||||
Function UTimesAt(FD : Integer; aPath : String; aTime,MTime : TJSDate; UpdateLink : boolean) : NativeInt;
|
||||
Function UTimes(FD : Integer; aTime,MTime : TJSDate; Flags : TSetTimesFlags) : NativeInt;
|
||||
Function LinkAt(OldFD : Integer; OldPath : String; NewFD : Integer; NewPath : String) : NativeInt;
|
||||
Function SymLinkAt(FD : Integer; Path : String; Target : String) : NativeInt;
|
||||
Function RenameAt(OldFD : Integer; OldPath : String; NewFD : Integer; NewPath : String) : NativeInt;
|
||||
Function UnLinkAt(FD : Integer; const aPath : String) : NativeInt;
|
||||
function OpenAt(FD : Integer; FDFlags : NativeInt; aPath : String; Flags, fsRightsBase, fsRightsInheriting, fsFlags: NativeInt; out Openfd: Integer): NativeInt;
|
||||
function ReadLinkAt(FD : Integer; aPath : String; out aTarget : String): NativeInt;
|
||||
function Close(FD : Integer): NativeInt;
|
||||
function Write(FD : Integer; Data : TJSUint8Array; AtPos : Integer; Out Written : Integer) : NativeInt;
|
||||
function Sync(FD : Integer) : NativeInt;
|
||||
function DataSync(FD : Integer) : NativeInt;
|
||||
function Seek(FD : integer; Offset : Integer; Whence : TSeekWhence; out NewPos : Integer) : NativeInt;
|
||||
Function Read(FD : Integer; Data : TJSUint8Array; AtPos : Integer; Out BytesRead : Integer) : NativeInt;
|
||||
Function GetPrestat(FD: Integer) : String;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
|
||||
444
packages/wasi/src/wasizenfs.pas
Normal file
444
packages/wasi/src/wasizenfs.pas
Normal file
@ -0,0 +1,444 @@
|
||||
unit wasizenfs;
|
||||
|
||||
{$mode ObjFPC}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
JS, libzenfs, Wasitypes;
|
||||
|
||||
Type
|
||||
|
||||
{ TWASIZenFS }
|
||||
|
||||
TWASIZenFS = class (TObject,IWasiFS)
|
||||
private
|
||||
FRoot : TZenFSDir;
|
||||
protected
|
||||
function PrependFD(FD: Integer; aPath: String): string;
|
||||
class function ExceptToError(E : TJSObject) : Integer;
|
||||
class function ZenFSDateToWasiTimeStamp(aDate: TJSDate): Nativeint;
|
||||
class function ZenStatToWasiStat(ZSTat: TZenFSStats): TWasiFileStat;
|
||||
Public
|
||||
Function MkDirAt(FD : Integer; const aPath : String) : NativeInt;
|
||||
Function RmDirAt(FD : Integer; const aPath : String) : NativeInt;
|
||||
function StatAt(FD : Integer; const aPath : String; var stat: TWasiFileStat) : NativeInt;
|
||||
function StatFD(FD : Integer; var stat: TWasiFileStat) : NativeInt;
|
||||
Function UTimesAt(FD : Integer; aPath : String; aTime,MTime : TJSDate; UpdateLink : boolean) : NativeInt;
|
||||
Function UTimes(FD : Integer; aTime,MTime : TJSDate; Flags : TSetTimesFlags) : NativeInt;
|
||||
Function LinkAt(OldFD : Integer; OldPath : String; NewFD : Integer; NewPath : String) : NativeInt;
|
||||
Function RenameAt(OldFD : Integer; OldPath : String; NewFD : Integer; NewPath : String) : NativeInt;
|
||||
Function SymLinkAt(FD : Integer; Path : String; Target : String) : NativeInt;
|
||||
Function UnLinkAt(FD : Integer; const aPath : String) : NativeInt;
|
||||
function OpenAt(FD : Integer; FDFlags : NativeInt; aPath : String; Flags, fsRightsBase, fsRightsInheriting, fsFlags: NativeInt; out Openfd: Integer): NativeInt;
|
||||
function ReadLinkAt(FD : Integer; aPath : String; out aTarget : String): NativeInt;
|
||||
function Close(FD: Integer): NativeInt;
|
||||
function Write(FD : Integer; Data : TJSUint8Array; AtPos : Integer; out Written :Integer) : NativeInt;
|
||||
function Sync(FD : Integer) : NativeInt;
|
||||
function DataSync(FD : Integer) : NativeInt;
|
||||
function Seek(FD : integer; Offset : Integer; Whence : TSeekWhence; out NewPos : Integer) : NativeInt;
|
||||
Function Read(FD : Integer; Data : TJSUint8Array; AtPos : Integer; Out BytesRead : Integer) : NativeInt;
|
||||
Function GetPrestat(FD: Integer) : String;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
const
|
||||
ResOK = __WASI_ERRNO_SUCCESS;
|
||||
|
||||
{ TWASIZenFS }
|
||||
|
||||
function TWASIZenFS.PrependFD(FD: Integer; aPath: String) : string;
|
||||
|
||||
begin
|
||||
if FD<>3 then
|
||||
Writeln('Warning, unknown CWD ID',FD);
|
||||
Result:='/'+aPath;
|
||||
end;
|
||||
|
||||
class function TWASIZenFS.ExceptToError(E: TJSObject): Integer;
|
||||
begin
|
||||
if Assigned(E) then;
|
||||
// For the moment.
|
||||
Result:=WASI_ENOSYS;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.MkDirAt(FD: Integer; const aPath: String): NativeInt;
|
||||
begin
|
||||
try
|
||||
ZenFS.mkdirSync(PrependFD(FD,aPath),&777);
|
||||
Result:=ResOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.RmDirAt(FD: Integer; const aPath: String): NativeInt;
|
||||
begin
|
||||
try
|
||||
ZenFS.rmdirSync(PrependFD(FD,aPath));
|
||||
Result:=ResOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
class function TWASIZenFS.ZenFSDateToWasiTimeStamp(aDate: TJSDate): Nativeint;
|
||||
begin
|
||||
Result:=aDate.Time;
|
||||
end;
|
||||
|
||||
class function TWASIZenFS.ZenStatToWasiStat(ZSTat: TZenFSStats): TWasiFileStat;
|
||||
|
||||
begin
|
||||
Result.dev:=0;
|
||||
Result.ino:=0;
|
||||
if ZStat.isDirectory then
|
||||
Result.filetype:=__WASI_FILETYPE_DIRECTORY
|
||||
else if ZSTat.isBlockDevice then
|
||||
Result.filetype:=__WASI_FILETYPE_BLOCK_DEVICE
|
||||
else if ZStat.isCharacterDevice then
|
||||
Result.filetype:=__WASI_FILETYPE_CHARACTER_DEVICE
|
||||
else if ZStat.isFile then
|
||||
Result.filetype:=__WASI_FILETYPE_REGULAR_FILE
|
||||
else if ZStat.isSocket() then
|
||||
Result.filetype:=__WASI_FILETYPE_SOCKET_DGRAM
|
||||
else if ZStat.isSymbolicLink() then
|
||||
Result.filetype:=__WASI_FILETYPE_SYMBOLIC_LINK
|
||||
else
|
||||
Result.filetype:=__WASI_FILETYPE_UNKNOWN;
|
||||
Result.nlink:=AsIntNumber(ZStat.nlink);
|
||||
Result.size:=AsIntNumber(ZStat.Size);
|
||||
Result.atim:=ZenFSDateToWasiTimeStamp(ZStat.aTime);
|
||||
Result.mtim:=ZenFSDateToWasiTimeStamp(ZStat.mTime);
|
||||
Result.ctim:=ZenFSDateToWasiTimeStamp(ZStat.cTime);
|
||||
end;
|
||||
|
||||
function TWASIZenFS.StatAt(FD: Integer; const aPath: String;
|
||||
var stat: TWasiFileStat): NativeInt;
|
||||
|
||||
var
|
||||
ZStat : TZenFSStats;
|
||||
|
||||
begin
|
||||
try
|
||||
ZStat:=ZenFS.statSync(PrependFD(FD,aPath));
|
||||
Stat:=ZenStatToWasiStat(ZStat);
|
||||
Result:=ResOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.StatFD(FD: Integer; var stat: TWasiFileStat): NativeInt;
|
||||
var
|
||||
ZStat : TZenFSStats;
|
||||
|
||||
begin
|
||||
try
|
||||
ZStat:=ZenFS.fstatSync(FD);
|
||||
Stat:=ZenStatToWasiStat(ZStat);
|
||||
Result:=ResOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.UTimesAt(FD : Integer; aPath: String; aTime, MTime: TJSDate; UpdateLink: boolean): NativeInt;
|
||||
|
||||
var
|
||||
lPath : String;
|
||||
|
||||
begin
|
||||
lPath:=PrependFD(FD,aPath);
|
||||
try
|
||||
if UpdateLink then
|
||||
ZenFS.lutimesSync(lPath,aTime,mTime)
|
||||
else
|
||||
ZenFS.utimesSync(lPath,aTime,mTime);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.UTimes(FD: Integer; aTime, MTime: TJSDate;
|
||||
Flags: TSetTimesFlags): NativeInt;
|
||||
begin
|
||||
try
|
||||
ZenFS.futimes(fd,aTime,mTime);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.LinkAt(OldFD: Integer; OldPath: String; NewFD: Integer;
|
||||
NewPath: String): NativeInt;
|
||||
|
||||
var
|
||||
lOld,lNew : String;
|
||||
|
||||
begin
|
||||
lOld:=PrependFD(OldFD,OldPath);
|
||||
lNew:=PrependFD(NewFD,NewPath);
|
||||
try
|
||||
ZenFS.linkSync(lOld,lNew);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.RenameAt(OldFD: Integer; OldPath: String; NewFD: Integer;
|
||||
NewPath: String): NativeInt;
|
||||
var
|
||||
lOld,lNew : String;
|
||||
|
||||
begin
|
||||
lOld:=PrependFD(OldFD,OldPath);
|
||||
lNew:=PrependFD(NewFD,NewPath);
|
||||
try
|
||||
ZenFS.renameSync(lOld,lNew);
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.SymLinkAt(FD: Integer; Path: String; Target: String
|
||||
): NativeInt;
|
||||
var
|
||||
lPath : String;
|
||||
|
||||
begin
|
||||
lPath:=PrependFD(FD,Path);
|
||||
try
|
||||
ZenFS.symLinkSync(Target,lPath);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.Close(FD : Integer): NativeInt;
|
||||
|
||||
begin
|
||||
try
|
||||
ZenFS.closeSync(fd);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.Write(FD: Integer; Data: TJSUint8Array; AtPos : Integer; out Written : Integer): NativeInt;
|
||||
|
||||
var
|
||||
DS : TJSDataView;
|
||||
|
||||
begin
|
||||
try
|
||||
DS:=TJSDataView.New(Data.buffer);
|
||||
if atPos<>-1 then
|
||||
Written:=ZenFS.writeSync(fd,DS,atPos)
|
||||
else
|
||||
Written:=ZenFS.writeSync(fd,DS,0,Data.byteLength);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.Sync(FD: Integer): NativeInt;
|
||||
begin
|
||||
try
|
||||
ZenFS.fSyncSync(fd);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.DataSync(FD: Integer): NativeInt;
|
||||
begin
|
||||
try
|
||||
ZenFS.fdatasyncSync(fd);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.Seek(FD: integer; Offset: Integer; Whence: TSeekWhence; out
|
||||
NewPos: Integer): NativeInt;
|
||||
|
||||
var
|
||||
aPos : Integer;
|
||||
F : TZenFSFile;
|
||||
Stat : TZenFSStats;
|
||||
|
||||
begin
|
||||
try
|
||||
case whence of
|
||||
swBeginning :
|
||||
aPos:=AsIntNumber(OffSet);
|
||||
swCurrent :
|
||||
begin
|
||||
// This is officially not supported...
|
||||
F:=fd2file(fd);
|
||||
if Assigned(F) then
|
||||
aPos:=AsintNumber(F.Position)+AsIntNumber(Offset)
|
||||
else
|
||||
Raise TZenFSErrnoError.new(TZenFSErrNo.EBADF);
|
||||
end;
|
||||
swEnd :
|
||||
begin
|
||||
Stat:=ZenFS.fstatSync(fd);
|
||||
aPos:=AsIntNumber(Stat.size)+AsIntNumber(Offset);
|
||||
end;
|
||||
end;
|
||||
// Buf:=TJSDataView.New(TJSUint8Array.New(0));
|
||||
ZenFS.readSync(fd,Nil,0,0,aPos);
|
||||
NewPos:=aPos;
|
||||
Result:=resOK;
|
||||
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.Read(FD: Integer; Data: TJSUint8Array; AtPos: Integer; out
|
||||
BytesRead: Integer): NativeInt;
|
||||
|
||||
Var
|
||||
V : TJSDataView;
|
||||
opts : TZenFSReadSyncOptions;
|
||||
|
||||
begin
|
||||
V:=TJSDataView.new(Data.buffer);
|
||||
try
|
||||
opts:=TZenFSReadSyncOptions.new;
|
||||
opts.offset:=0;
|
||||
opts.length:=Data.byteLength;
|
||||
if AtPos<>-1 then
|
||||
opts.position:=AtPos;
|
||||
BytesRead:=ZenFS.readSync(FD,V,Opts);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.GetPrestat(FD: Integer): String;
|
||||
begin
|
||||
if (FD=3) then
|
||||
begin
|
||||
FRoot:=ZenFS.OpenDirSync('/');
|
||||
Result:='/';
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.UnLinkAt(FD: Integer; const aPath: String): NativeInt;
|
||||
|
||||
var
|
||||
lPath : String;
|
||||
|
||||
begin
|
||||
lPath:=PrependFD(FD,aPath);
|
||||
try
|
||||
ZenFS.unlinkSync(lPath);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.OpenAt(FD : Integer; FDFlags : NativeInt; aPath : String; Flags, fsRightsBase, fsRightsInheriting, fsFlags: NativeInt; out Openfd: Integer): NativeInt;
|
||||
|
||||
var
|
||||
lPath : String;
|
||||
lFlags : String;
|
||||
Rights : NativeInt;
|
||||
Reading,Writing : Boolean;
|
||||
|
||||
Function HasFlag(aFlag : Integer) : Boolean;
|
||||
begin
|
||||
Result:=(Flags and aFlag)<>0;
|
||||
end;
|
||||
|
||||
Function HasRight(aRight : Integer) : Boolean;
|
||||
begin
|
||||
if IsBigint(Rights) then
|
||||
begin
|
||||
asm
|
||||
Result = ((Rights & BigInt(aRight)) != 0)
|
||||
end;
|
||||
end
|
||||
else
|
||||
Result:=(Rights and aRight)<>0;
|
||||
end;
|
||||
|
||||
begin
|
||||
if (fdFlags<>0) and (fsFlags<>0) then ;
|
||||
lPath:=PrependFD(FD,aPath);
|
||||
Rights:=AsIntNumber(fsRightsBase);
|
||||
Writing:=HasFlag(__WASI_OFLAGS_CREAT) or HasRight(__WASI_RIGHTS_FD_WRITE);
|
||||
Reading:=HasRight(__WASI_RIGHTS_FD_READ);
|
||||
if Writing then
|
||||
begin
|
||||
if HasFlag(__WASI_OFLAGS_TRUNC) then
|
||||
lFLags:='w'
|
||||
else
|
||||
lFLags:='a';
|
||||
if HasFlag(__WASI_OFLAGS_EXCL) then
|
||||
lFLags:=lFLags+'x';
|
||||
if Reading then
|
||||
lFLags:=lFLags+'+';
|
||||
end
|
||||
else
|
||||
begin
|
||||
lFlags:='r';
|
||||
end;
|
||||
try
|
||||
OpenFD:=ZenFS.openSync(lPath,lFlags);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWASIZenFS.ReadLinkAt(FD: Integer; aPath: String; out aTarget: String): NativeInt;
|
||||
|
||||
var
|
||||
lPath : String;
|
||||
|
||||
begin
|
||||
lPath:=PrependFD(FD,aPath);
|
||||
try
|
||||
aTarget:=ZenFS.readlinkSync(lPath);
|
||||
Result:=resOK;
|
||||
except
|
||||
on E : TJSObject do
|
||||
Result:=ExceptToError(E);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user