From 979ad4982ea59a817369303918b5c100f7390ecb Mon Sep 17 00:00:00 2001 From: Alexander Shiryaev Date: Wed, 17 Jan 2018 09:51:33 +0300 Subject: [PATCH] chmod call corrected --- .../Dev2/Mod/LnkChmod.odc | Bin 1634 -> 1640 bytes BlackBox/_Linux_/Lin/Mod/Libc.odc | Bin 25005 -> 25024 bytes BlackBox/_Linux_/Lin/Mod/Libc.txt | 958 +++++++++--------- 3 files changed, 479 insertions(+), 479 deletions(-) diff --git a/BlackBox/_FreeBSDLinuxOpenBSD_/Dev2/Mod/LnkChmod.odc b/BlackBox/_FreeBSDLinuxOpenBSD_/Dev2/Mod/LnkChmod.odc index 25753c2e1551bc965b333149dedb75237bd7ec17..97ee6995d86ec88d8c404cc783a744e96e13e464 100644 GIT binary patch delta 68 zcmaFF^MYqWJ>%1f4RM^ttPBjC3=9m~6Q8>>UY)GVXwP|{iGhJ1D0F>tDdSnjuFcL& Y%Nf~=Qi~O=Y!xQIV%FU(!Q#aP0Lyq2@Bjb+ delta 62 zcmaFC^N43cJ>&g}4RM^htPBjC3=9ma6Q8>>o}aACXwP|*iGhJ1D0FdhDdSnjmd(yg S%NZwsWY%T0-Ym!B#RLFT=n@A2 diff --git a/BlackBox/_Linux_/Lin/Mod/Libc.odc b/BlackBox/_Linux_/Lin/Mod/Libc.odc index 44884c962ff4acc1773406cf3517819c7ac37d9c..4ce115e97e4c7e21bb0cabaa47476606bc0cc378 100644 GIT binary patch delta 215 zcmZ2`nDM}2#tHR|wi6rTIJ*-V7&sXi7@8+OcV*O_tjlOGydjQ(fgdQe0!TxE(&laao*$&0{J{=fDU2>xtHM*!)8UnM*GQYL*+Ja5BMek0GVPm&;S4c delta 216 zcmX?bm~ri4#tHR|S`!=MI4cqu7&sXi7z!pncV(2CtjlOGJU5PkfgdO|6-YyX#O8WN zRwi}^EoO#-$BdJ^nb*MCb}X83b{aamwU_2`Rh`fj}3r>VTXzk8!iMV59xyhXJCSPX&Av004eJH(3Ax diff --git a/BlackBox/_Linux_/Lin/Mod/Libc.txt b/BlackBox/_Linux_/Lin/Mod/Libc.txt index b5b5767..51748f9 100644 --- a/BlackBox/_Linux_/Lin/Mod/Libc.txt +++ b/BlackBox/_Linux_/Lin/Mod/Libc.txt @@ -1,479 +1,479 @@ -MODULE LinLibc ["libc.so.6"]; - - (* THIS IS TEXT COPY OF Libc.odc *) - (* DO NOT EDIT *) - - IMPORT SYSTEM; - - CONST - NULL* = 0H; - TRUE* = 1; - FALSE* = 0; - - (* file constants *) - SEEK_SET* = 0; - SEEK_CUR* = 1; - SEEK_END* = 2; - NAME_MAX* = 256; - - (* The value of CLOCKS_PER_SEC is required to be 1 million on all XSI-conformant systems.*) - CLOCKS_PER_SECOND* = 1000000; - - (* temp directory defined in stdio.h *) - P_tmpdir* = "/tmp"; - - (* signal constants *) (* Fake signal functions. *) - SIG_ERR* = -1; (* Error return. *) - SIG_DFL* = 0; (* Default action. *) - SIG_IGN* = 1; (* Ignore signal. *) - SIG_HOLD* = 2; (* Add signal to hold mask. *) - - (* Signals. *) - SIGHUP* = 1; (* Hangup (POSIX). *) - SIGINT* = 2; (* Interrupt (ANSI). *) - SIGQUIT* = 3; (* Quit (POSIX). *) - SIGILL* = 4; (* Illegal instruction (ANSI). *) - SIGTRAP* = 5; (* Trace trap (POSIX). *) - SIGABRT* = 6; (* Abort (ANSI). *) - SIGIOT* = 6; (* IOT trap (4.2 BSD). *) - SIGBUS* = 7; (* BUS error (4.2 BSD). *) - SIGFPE* = 8; (* Floating-point exception (ANSI). *) - SIGKILL* = 9; (* Kill, unblockable (POSIX). *) - SIGUSR1* = 10; (* User-defined signal 1 (POSIX). *) - SIGSEGV* = 11; (* Segmentation violation (ANSI). *) - SIGUSR2* = 12; (* User-defined signal 2 (POSIX). *) - SIGPIPE* = 13; (* Broken pipe (POSIX). *) - SIGALRM* = 14; (* Alarm clock (POSIX). *) - SIGTERM* = 15; (* Termination (ANSI). *) - SIGSTKFLT* = 16; (* Stack fault. *) - SIGCHLD* = 17; (* Child status has changed (POSIX). *) - SIGCLD* = SIGCHLD; (* Same as SIGCHLD (System V). *) - SIGCONT* = 18; (* Continue (POSIX). *) - SIGSTOP* = 19; (* Stop, unblockable (POSIX). *) - SIGTSTP* = 20; (* Keyboard stop (POSIX). *) - SIGTTIN* = 21; (* Background read from tty (POSIX). *) - SIGTTOU* = 22; (* Background write to tty (POSIX). *) - SIGURG* = 23; (* Urgent condition on socket (4.2 BSD). *) - SIGXCPU* = 24; (* CPU limit exceeded (4.2 BSD). *) - SIGXFSZ* = 25; (* File size limit exceeded (4.2 BSD). *) - SIGVTALRM* =26; (* Virtual alarm clock (4.2 BSD). *) - SIGPROF* = 27; (* Profiling alarm clock (4.2 BSD). *) - SIGWINCH* = 28; (* Window size change (4.3 BSD, Sun). *) - SIGIO* = 29; (* I/O now possible (4.2 BSD). *) - SIGPOLL* = SIGIO; (* Pollable event occurred (System V). *) - SIGPWR* = 30; (* Power failure restart (System V). *) - SIGSYS* = 31; (* Bad system call. *) - SIGUNUSED* =31; - _NSIG* = 64; (* Biggest signal number + 1 (including real-time signals). *) - __SIGRTMIN*= 32; - __SIGRTMAX*=_NSIG - 1; - - (* Bits in `sa_flags'. *) - SA_NOCLDSTOP* = {0}; (* = 1 Don't send SIGCHLD when children stop. *) - SA_NOCLDWAIT* = {1}; (* = 2 Don't create zombie on child death. *) - SA_SIGINFO* = {2}; (* = 4 Invoke signal-catching function wth three arguments instead of one. *) - SA_ONSTACK* = {27}; (* = 0x08000000 Use signal stack by using `sa_restorer'. *) - SA_RESTART* = {28}; (* = 0x10000000 Restart syscall on signal return. *) - SA_NODEFER* = {30}; (* = 0x40000000 Don't automatically block the signal when its handler is being executed. *) - SA_RESETHAND* = {31}; (* = 0x80000000 Reset to SIG_DFL on entry to handler. *) - SA_INTERRUPT* = {29}; (* = 0x20000000 Historical no-op. *) - (* Some aliases for the SA_ constants. *) - SA_NOMASK* = SA_NODEFER; - SA_ONESHOT* = SA_RESETHAND; - SA_STACK* = SA_ONSTACK; - - (* code values for siginfo_t.si_code when sig = SIGFPE *) - FPE_INTDIV* = 1; (* Integer divide by zero. *) - FPE_INTOVF* = 2; (* Integer overflow. *) - FPE_FLTDIV* = 3; (* Floating point divide by zero. *) - FPE_FLTOVF* = 4; (* Floating point overflow. *) - FPE_FLTUND* = 5; (* Floating point underflow. *) - FPE_FLTRES* =6; (* Floating point inexact result. *) - FPE_FLTINV* = 7; (* Floating point invalid operation. *) - FPE_FLTSUB* = 8; (* Subscript out of range. *) - - (* possible error constants for errno *) - EPERM* = 1; (* Operation not permitted *) - ENOENT* = 2; (* No such file or directory *) - ESRCH* = 3; (* No such process *) - EINTR* = 4; (* Interrupted system call *) - EIO* = 5; (* I/O error *) - ENXIO* = 6; (* No such device or address *) - E2BIG* = 7; (* Arg list too long *) - ENOEXEC* = 8; (* Exec format error *) - EBADF* = 9; (* Bad file number *) - ECHILD* = 10; (* No child processes *) - EAGAIN* = 11; (* Try again *) - ENOMEM* = 12; (* Out of memory *) - EACCES* = 13; (* Permission denied *) - EFAULT* = 14; (* Bad address *) - ENOTBLK* = 15; (* Block device required *) - EBUSY* = 16; (* Device or resource busy *) - EEXIST* = 17; (* File exists *) - EXDEV* = 18; (* Cross-device link *) - ENODEV* = 19; (* No such device *) - ENOTDIR* = 20; (* Not a directory *) - EISDIR* = 21; (* Is a directory *) - EINVAL* = 22; (* Invalid argument *) - ENFILE* = 23; (* File table overflow *) - EMFILE* = 24; (* Too many open files *) - ENOTTY* = 25; (* Not a typewriter *) - ETXTBSY* = 26; (* Text file busy *) - EFBIG* = 27; (* File too large *) - ENOSPC* = 28; (* No space left on device *) - ESPIPE* = 29; (* Illegal seek *) - EROFS* = 30; (* Read-only file system *) - EMLINK* = 31; (* Too many links *) - EPIPE* = 32; (* Broken pipe *) - EDOM* = 33; (* Math argument out of domain of func *) - ERANGE* = 34; (* Math result not representable *) - EDEADLK* = 35; (* Resource deadlock would occur *) - ENAMETOOLONG* = 36; (* File name too long *) - ENOLCK* = 37; (* No record locks available *) - ENOSYS* = 38; (* Function not implemented *) - ENOTEMPTY* = 39; (* Directory not empty *) - ELOOP* = 40; (* Too many symbolic links encountered *) - EWOULDBLOCK* = EAGAIN; (* Operation would block *) - ENOMSG* = 42; (* No message of desired type *) - EIDRM* = 43; (* Identifier removed *) - ECHRNG* = 44; (* Channel number out of range *) - EL2NSYNC* = 45; (* Level 2 not synchronized *) - EL3HLT* = 46; (* Level 3 halted *) - EL3RST* = 47; (* Level 3 reset *) - ELNRNG* = 48; (* Link number out of range *) - EUNATCH* = 49; (* Protocol driver not attached *) - ENOCSI* = 50; (* No CSI structure available *) - EL2HLT* = 51; (* Level 2 halted *) - EBADE* = 52; (* Invalid exchange *) - EBADR* = 53; (* Invalid request descriptor *) - EXFULL* = 54; (* Exchange full *) - ENOANO* = 55; (* No anode *) - EBADRQC* = 56; (* Invalid request code *) - EBADSLT* = 57; (* Invalid slot *) - EDEADLOCK* = EDEADLK; - EBFONT* = 59; (* Bad font file format *) - ENOSTR* = 60; (* Device not a stream *) - ENODATA* = 61; (* No data available *) - ETIME* = 62; (* Timer expired *) - ENOSR* = 63; (* Out of streams resources *) - ENONET* = 64; (* Machine is not on the network *) - ENOPKG* = 65; (* Package not installed *) - EREMOTE* = 66; (* Object is remote *) - ENOLINK* = 67; (* Link has been severed *) - EADV* = 68; (* Advertise error *) - ESRMNT* = 69; (* Srmount error *) - ECOMM* = 70; (* Communication error on send *) - EPROTO* = 71; (* Protocol error *) - EMULTIHOP* = 72; (* Multihop attempted *) - EDOTDOT* = 73; (* RFS specific error *) - EBADMSG* = 74; (* Not a data message *) - EOVERFLOW* = 75; (* Value too large for defined data type *) - ENOTUNIQ* = 76; (* Name not unique on network *) - EBADFD* = 77; (* File descriptor in bad state *) - EREMCHG* = 78; (* Remote address changed *) - ELIBACC* = 79; (* Can not access a needed shared library *) - ELIBBAD* = 80; (* Accessing a corrupted shared library *) - ELIBSCN* = 81; (* .lib section in a.out corrupted *) - ELIBMAX* = 82; (* Attempting to link in too many shared libraries *) - ELIBEXEC* = 83; (* Cannot exec a shared library directly *) - EILSEQ* = 84; (* Illegal byte sequence *) - ERESTART* = 85; (* Interrupted system call should be restarted *) - ESTRPIPE* = 86; (* Streams pipe error *) - EUSERS* = 87; (* Too many users *) - ENOTSOCK* = 88; (* Socket operation on non-socket *) - EDESTADDRREQ* = 89; (* Destination address required *) - EMSGSIZE* = 90; (* Message too long *) - EPROTOTYPE* = 91; (* Protocol wrong type for socket *) - ENOPROTOOPT* = 92; (* Protocol not available *) - EPROTONOSUPPORT* = 93; (* Protocol not supported *) - ESOCKTNOSUPPORT* = 94; (* Socket type not supported *) - EOPNOTSUPP* = 95; (* Operation not supported on transport endpoint *) - EPFNOSUPPORT* = 96; (* Protocol family not supported *) - EAFNOSUPPORT* = 97; (* Address family not supported by protocol *) - EADDRINUSE* = 98; (* Address already in use *) - EADDRNOTAVAIL* = 99; (* Cannot assign requested address *) - ENETDOWN* = 100; (* Network is down *) - ENETUNREACH* = 101; (* Network is unreachable *) - ENETRESET* = 102; (* Network dropped connection because of reset *) - ECONNABORTED* = 103; (* Software caused connection abort *) - ECONNRESET* = 104; (* Connection reset by peer *) - ENOBUFS* = 105; (* No buffer space available *) - EISCONN* = 106; (* Transport endpoint is already connected *) - ENOTCONN* = 107; (* Transport endpoint is not connected *) - ESHUTDOWN* = 108; (* Cannot send after transport endpoint shutdown *) - ETOOMANYREFS* = 109; (* Too many references: cannot splice *) - ETIMEDOUT* = 110; (* Connection timed out *) - ECONNREFUSED* = 111; (* Connection refused *) - EHOSTDOWN* = 112; (* Host is down *) - EHOSTUNREACH* = 113; (* No route to host *) - EALREADY* = 114; (* Operation already in progress *) - EINPROGRESS* = 115; (* Operation now in progress *) - ESTALE* = 116; (* Stale NFS file handle *) - EUCLEAN* = 117; (* Structure needs cleaning *) - ENOTNAM* = 118; (* Not a XENIX named type file *) - ENAVAIL* = 119; (* No XENIX semaphores available *) - EISNAM* = 120; (* Is a named type file *) - EREMOTEIO* = 121; (* Remote I/O error *) - EDQUOT* = 122; (* Quota exceeded *) - ENOMEDIUM* = 123; (* No medium found *) - EMEDIUMTYPE* = 124; (* Wrong medium type *) - - PROT_NONE* = {}; (* No access *) - PROT_READ* = {2}; (* Pages can be read *) - PROT_WRITE* = {1}; (* Pages can be written *) - PROT_EXEC* = {0}; (* Pages can be executed *) - MAP_FILE* = {0}; (* Mapped from a file or device *) - MAP_ANON* = {1}; (* Allocated from anonymous virtual memory *) - MAP_COPY* = {5}; (* Virtual copy of region at mapping time *) - MAP_SHARED* = {4}; (* Share changes *) - MAP_PRIVATE* = {}; (* Changes private; copy pages on write *) - MAP_FIXED* = {8}; (* Map address must be exactly as requested *) - MAP_NOEXTEND* = {9} ; (* For MAP_FILE, don't change file size *) - MAP_HASSEMPHORE*= {10}; (* Region may contain semaphores *) - MAP_INHERIT* = {11} ; (* Region is retained after exec *) - MAP_FAILED* = -1; - - O_RDONLY* = {} ; (* Open read-only *) - O_WRONLY* = {0} ; (* Open write-only *) - O_RDWR* = {1} ; (* Open read/write *) - O_NONBLOCK* = {11}; - - SIG_BLOCK* = 0; (* Block signals *) - SIG_UNBLOCK* = 1; (* Unblock signals *) - SIG_SETMASK* = 2; (* Set the set of blocked signals *) - - _SC_PAGESIZE* = 30; - - SIGSTKSZ* = 8192; - - STDIN_FILENO* = 0; - STDOUT_FILENO* = 1; - STDERR_FILENO* = 2; - - TYPE - __ftw_func_t* = PROCEDURE (fileName: PtrSTR; VAR [nil] stat: stat_t; flag: INTEGER): INTEGER; - PtrVoid* = INTEGER; - PtrSTR* = POINTER TO ARRAY [untagged] OF SHORTCHAR; - wchar_t* = INTEGER; - PtrWSTR* = POINTER TO ARRAY [untagged] OF wchar_t; - PtrInt* = INTEGER; - StrArray* = POINTER TO ARRAY [untagged] OF PtrSTR; - PtrFILE* = INTEGER; - PtrDIR* = INTEGER; - PtrProc* = INTEGER; - clock_t* = INTEGER; - jmp_buf* = ARRAY [untagged] 6 OF INTEGER; (* bx, si, di, bp, sp, pc *) - mode_t* = SET; - off_t* = INTEGER; - SelectorFunc* = PROCEDURE (dirent: Dirent): INTEGER; - CmpFunc* = PROCEDURE (VAR [nil] dirent1, dirent2: PtrDirent): INTEGER; - size_t* = INTEGER; (* should be unsigned int *) - ssize_t* = INTEGER; - sigjmp_buf* = RECORD [untagged] - buf*: jmp_buf; - mask_was_saved*: INTEGER; - saved_mask*: sigset_t; - END; - - PtrDirent* = POINTER TO Dirent; - PtrDirentArray* = POINTER TO ARRAY [untagged] OF Dirent; - Dirent* = RECORD [untagged] - d_ino*: INTEGER; (* inode number *) - d_off*: off_t; (* offset to this dirent *) - d_reclen*: SHORTINT; (* length of this d_name *) - d_type*: BYTE; - d_name*: ARRAY[untagged] NAME_MAX+1 OF SHORTCHAR; (* file name (null-terminated) *) - END; - - pid_t* = INTEGER; - uid_t* = INTEGER; - sigval_t* = INTEGER; - - siginfo_t* = RECORD [untagged] - si_signo*: INTEGER; (* Signal number *) - si_errno*: INTEGER; (* An errno value *) - si_code*: INTEGER; (* Signal code *) - si_pid*: pid_t; (* Sending process ID *) - si_uid*: uid_t; (* Real user ID of sending process *) - si_status*: INTEGER; (* Exit value or signal *) - si_utime*: clock_t; (* User time consumed *) - si_stime*: clock_t; (* System time consumed *) - si_value*: sigval_t; (* Signal value *) - si_int*: INTEGER; (* POSIX.1b signal *) - si_ptr*: PtrVoid; (* POSIX.1b signal *) - si_addr*: PtrVoid; (* Memory location which caused fault *) - si_band*: INTEGER; (* Band event *) - si_fd*: INTEGER; (* File descriptor *) - END; - Ptrsiginfo_t* = POINTER TO siginfo_t; - - sigset_t* = ARRAY [untagged] 128 OF BYTE; - Ptrsigset_t* = INTEGER; - sigaction_t* = RECORD [untagged] - sa_sigaction*: PROCEDURE [ccall] (sig: INTEGER; siginfo: Ptrsiginfo_t; ptr: Ptrucontext_t); (* union with sa_handler*: PtrProc;*) - sa_mask*: sigset_t; - sa_flags*: SET; - sa_restorer*: LONGINT; - END; - - stack_t* = RECORD [untagged] - ss_sp*: PtrVoid; - ss_flags*: INTEGER; - ss_size*: size_t; - END; - - stat_t* = RECORD [untagged] - st_dev*: LONGINT; (* device *) - __pad1: SHORTINT; - st_ino*: INTEGER; (* 64? inode *) - st_mode*: mode_t; (* protection *) - st_nlink*: INTEGER; (* number of hard links *) - st_uid*: uid_t; (* user ID of owner *) - st_gid*: INTEGER; (* group ID of owner *) - st_rdev*: LONGINT; (* device type (if inode device) *) - __pad2: SHORTINT; - st_size*: off_t; (* 64? total size, in bytes *) - st_blksize*: INTEGER; (* blocksize for filesystem I/O *) - st_blocks*: INTEGER; (* 64? number of blocks allocated *) - st_atime*: INTEGER; (* time of last access *) - __unused1: INTEGER; - st_mtime*: INTEGER; (* time of last modification *) - __unused2: INTEGER; - st_ctime*: INTEGER; (* time of last change *) - __unused3: INTEGER; - __unused4: INTEGER; - __unused5: INTEGER; - END; - - fpreg* = RECORD [untagged] - significand*: ARRAY [untagged] 4 OF CHAR; - exponent*: CHAR; - END; - - fpstate* = RECORD [untagged] - cw*: INTEGER; (* unsigned long int *) - sw*: INTEGER; (* unsigned long int *) - tag*: INTEGER; (* unsigned long int *) - ipoff*: INTEGER; (* unsigned long int *) - cssel*: INTEGER; (* unsigned long int *) - dataoff*: INTEGER; (* unsigned long int *) - datasel*: INTEGER; (* unsigned long int *) - _st: ARRAY [untagged] 8 OF fpreg; - status*: INTEGER; (* unsigned long int *) - END; - - gregset_t* = ARRAY [untagged] 19 OF INTEGER; - fpregset_t* = POINTER TO fpstate; - - mcontext_t* = RECORD [untagged] - gregs*: gregset_t; - fpregs*: fpregset_t; - oldmask*: INTEGER; (* unsigned long int *) - cr2*: INTEGER; (* unsigned long int *) - END; - - Ptrucontext_t* = POINTER TO ucontext_t; - ucontext_t* = RECORD [untagged] - uc_flags*: INTEGER; (* unsigned long int *) - uc_link*: Ptrucontext_t; - uc_stack*: stack_t; - uc_mcontext*: mcontext_t; - uc_sigmask: sigset_t; - __fpregs_mem*: fpstate; - END; - - (* Times and Dates *) - - tm* = POINTER TO tmDesc; - tmDesc* = RECORD [untagged] - tm_sec*: INTEGER; (* seconds *) - tm_min*: INTEGER; (* minutes *) - tm_hour*: INTEGER; (* hours *) - tm_mday*: INTEGER; (* day of the month *) - tm_mon*: INTEGER; (* month *) - tm_year*: INTEGER; (* year *) - tm_wday*: INTEGER; (* day of the week *) - tm_yday*: INTEGER; (* day in the year *) - tm_isdst*: INTEGER; (* daylight saving time *) - END; - time_t* = INTEGER; - - VAR - timezone*: INTEGER; (* seconds from GMT *) -(* - stdin*, stdout*, stderr* : PtrFILE; -*) - - PROCEDURE [ccall] calloc* (num, size: size_t): PtrVoid; - PROCEDURE [ccall] clock* (): clock_t; - PROCEDURE [ccall] closedir* (dir: PtrDIR): INTEGER; - PROCEDURE [ccall] chmod* (path: PtrSTR; mode: mode_t); - PROCEDURE [ccall] exit* (status: INTEGER); - PROCEDURE [ccall] fclose* (fp: PtrFILE): INTEGER; - PROCEDURE [ccall] fflush* (fp: PtrFILE): INTEGER; - PROCEDURE [ccall] fopen* (filename, mode: PtrSTR): PtrFILE; - PROCEDURE [ccall] fdopen* (fildes: INTEGER; mode: PtrSTR): PtrFILE; - PROCEDURE [ccall] feof* (fp: PtrFILE): INTEGER; - PROCEDURE [ccall] fread* (ptr: PtrVoid; size, nobj: size_t; stream: PtrFILE): size_t; - PROCEDURE [ccall] fseek* (stream: PtrFILE; offset, origin: INTEGER): INTEGER; - PROCEDURE [ccall] free* (p: PtrVoid); - PROCEDURE [ccall] ftell* (stream: PtrFILE): LONGINT; - PROCEDURE [ccall] ftw* (filename: PtrSTR; func: __ftw_func_t; descriptors: INTEGER): INTEGER; - PROCEDURE [ccall] fwrite* (ptr: PtrVoid; size, nobj: size_t; stream: PtrFILE): size_t; - PROCEDURE [ccall] getcwd* (buf: PtrSTR; size: size_t): PtrSTR; - PROCEDURE [ccall] getcontext* (ucontext_t: Ptrucontext_t): INTEGER; - PROCEDURE [ccall] gets* (s: PtrSTR); - PROCEDURE [ccall] fgets* (s: PtrSTR; n: INTEGER; fp: PtrFILE): PtrSTR; - PROCEDURE [ccall] gmtime* (VAR timep: time_t): tm; - PROCEDURE [ccall] kill* (pid: pid_t; sig: INTEGER): INTEGER; - PROCEDURE [ccall] localtime* (VAR timep: time_t): tm; - PROCEDURE [ccall] malloc* (size: size_t): PtrVoid; - PROCEDURE [ccall] mkdir* (pathname: PtrSTR; mode: mode_t): INTEGER; - PROCEDURE [ccall] mktime* (timeptr: tm): time_t; - PROCEDURE [ccall] opendir* (name: PtrSTR): PtrDIR; - PROCEDURE [ccall] printf* (s: PtrSTR): INTEGER; - PROCEDURE [ccall] readdir* (dir: PtrDIR): PtrDirent; - PROCEDURE [ccall] remove* (filename: PtrSTR): INTEGER; - PROCEDURE [ccall] rename* (oldname, newname: PtrSTR): INTEGER; - PROCEDURE [ccall] scandir* (dir: PtrDIR; namelist: PtrDirentArray; selector: SelectorFunc; cmp: CmpFunc): INTEGER; - PROCEDURE [ccall] setcontext* (ucontext_t: Ptrucontext_t): INTEGER; - PROCEDURE [ccall] setjmp* (VAR env: jmp_buf): INTEGER; - PROCEDURE [ccall] sigaction* (sig_num: INTEGER; VAR [nil] act: sigaction_t; VAR [nil] oldact: sigaction_t): INTEGER; - PROCEDURE [ccall] sigaddset* (set: Ptrsigset_t; sig: INTEGER): INTEGER; - PROCEDURE [ccall] sigdelset* (set: Ptrsigset_t; sig: INTEGER): INTEGER; - PROCEDURE [ccall] sigemptyset* (set: Ptrsigset_t): INTEGER; - PROCEDURE [ccall] sigfillset* (set: Ptrsigset_t): INTEGER; - PROCEDURE [ccall] sigismemeber* (set: Ptrsigset_t; sig: INTEGER): INTEGER; - PROCEDURE [ccall] siglongjmp* (VAR env: sigjmp_buf; val: INTEGER); - PROCEDURE [ccall] signal* (sig_num: INTEGER; sighandler: PtrProc): PtrProc; - PROCEDURE [ccall] sigsetjmp* ["__sigsetjmp"] (VAR env: sigjmp_buf; savemask: INTEGER): INTEGER; -(* - PROCEDURE [ccall] stat* (filename: PtrSTR; VAR buf: stat_t): INTEGER; stat is a macro and expands to __xstat(3, filename, buf) -*) - PROCEDURE [ccall] __xstat* (version: INTEGER; filename: PtrSTR; VAR buf: stat_t): INTEGER; - PROCEDURE [ccall] strftime* (s: PtrSTR; max: size_t; format: PtrSTR; ptm: tm): size_t; - PROCEDURE [ccall] time* (VAR [nil] t: time_t): time_t; - - PROCEDURE [ccall] __errno_location*(): INTEGER; - - PROCEDURE [ccall] open* (name: PtrSTR; flags: SET; mode: mode_t): INTEGER; - PROCEDURE [ccall] close* (d: INTEGER): INTEGER; - PROCEDURE [ccall] read* (d: INTEGER; buf: PtrVoid; nbytes: size_t): ssize_t; - PROCEDURE [ccall] write* (d: INTEGER; buf: PtrVoid; nBytes: size_t): ssize_t; - - PROCEDURE [ccall] mmap* (addr: PtrVoid; len: size_t; prot: SET; flags: SET; fd, offset: off_t): PtrVoid; - PROCEDURE [ccall] munmap* (addr: PtrVoid; len: size_t): INTEGER; - PROCEDURE [ccall] mprotect* (addr: PtrVoid; len: size_t; prot: SET): INTEGER; - - PROCEDURE [ccall] getenv* (name: PtrSTR): PtrSTR; - - PROCEDURE [ccall] sysconf* (name: INTEGER): INTEGER; - - PROCEDURE [ccall] sigaltstack* (VAR [nil] ss: stack_t; VAR [nil] oss: stack_t): INTEGER; - - PROCEDURE [ccall] sigprocmask* (how: INTEGER; set: Ptrsigset_t; oldset: Ptrsigset_t): INTEGER; - - PROCEDURE [ccall] system* (cmd: PtrSTR): INTEGER; - PROCEDURE [ccall] popen* (cmd, mode: PtrSTR): INTEGER; - -END LinLibc. +MODULE LinLibc ["libc.so.6"]; + + (* THIS IS TEXT COPY OF Libc.odc *) + (* DO NOT EDIT *) + + IMPORT SYSTEM; + + CONST + NULL* = 0H; + TRUE* = 1; + FALSE* = 0; + + (* file constants *) + SEEK_SET* = 0; + SEEK_CUR* = 1; + SEEK_END* = 2; + NAME_MAX* = 256; + + (* The value of CLOCKS_PER_SEC is required to be 1 million on all XSI-conformant systems.*) + CLOCKS_PER_SECOND* = 1000000; + + (* temp directory defined in stdio.h *) + P_tmpdir* = "/tmp"; + + (* signal constants *) (* Fake signal functions. *) + SIG_ERR* = -1; (* Error return. *) + SIG_DFL* = 0; (* Default action. *) + SIG_IGN* = 1; (* Ignore signal. *) + SIG_HOLD* = 2; (* Add signal to hold mask. *) + + (* Signals. *) + SIGHUP* = 1; (* Hangup (POSIX). *) + SIGINT* = 2; (* Interrupt (ANSI). *) + SIGQUIT* = 3; (* Quit (POSIX). *) + SIGILL* = 4; (* Illegal instruction (ANSI). *) + SIGTRAP* = 5; (* Trace trap (POSIX). *) + SIGABRT* = 6; (* Abort (ANSI). *) + SIGIOT* = 6; (* IOT trap (4.2 BSD). *) + SIGBUS* = 7; (* BUS error (4.2 BSD). *) + SIGFPE* = 8; (* Floating-point exception (ANSI). *) + SIGKILL* = 9; (* Kill, unblockable (POSIX). *) + SIGUSR1* = 10; (* User-defined signal 1 (POSIX). *) + SIGSEGV* = 11; (* Segmentation violation (ANSI). *) + SIGUSR2* = 12; (* User-defined signal 2 (POSIX). *) + SIGPIPE* = 13; (* Broken pipe (POSIX). *) + SIGALRM* = 14; (* Alarm clock (POSIX). *) + SIGTERM* = 15; (* Termination (ANSI). *) + SIGSTKFLT* = 16; (* Stack fault. *) + SIGCHLD* = 17; (* Child status has changed (POSIX). *) + SIGCLD* = SIGCHLD; (* Same as SIGCHLD (System V). *) + SIGCONT* = 18; (* Continue (POSIX). *) + SIGSTOP* = 19; (* Stop, unblockable (POSIX). *) + SIGTSTP* = 20; (* Keyboard stop (POSIX). *) + SIGTTIN* = 21; (* Background read from tty (POSIX). *) + SIGTTOU* = 22; (* Background write to tty (POSIX). *) + SIGURG* = 23; (* Urgent condition on socket (4.2 BSD). *) + SIGXCPU* = 24; (* CPU limit exceeded (4.2 BSD). *) + SIGXFSZ* = 25; (* File size limit exceeded (4.2 BSD). *) + SIGVTALRM* =26; (* Virtual alarm clock (4.2 BSD). *) + SIGPROF* = 27; (* Profiling alarm clock (4.2 BSD). *) + SIGWINCH* = 28; (* Window size change (4.3 BSD, Sun). *) + SIGIO* = 29; (* I/O now possible (4.2 BSD). *) + SIGPOLL* = SIGIO; (* Pollable event occurred (System V). *) + SIGPWR* = 30; (* Power failure restart (System V). *) + SIGSYS* = 31; (* Bad system call. *) + SIGUNUSED* =31; + _NSIG* = 64; (* Biggest signal number + 1 (including real-time signals). *) + __SIGRTMIN*= 32; + __SIGRTMAX*=_NSIG - 1; + + (* Bits in `sa_flags'. *) + SA_NOCLDSTOP* = {0}; (* = 1 Don't send SIGCHLD when children stop. *) + SA_NOCLDWAIT* = {1}; (* = 2 Don't create zombie on child death. *) + SA_SIGINFO* = {2}; (* = 4 Invoke signal-catching function wth three arguments instead of one. *) + SA_ONSTACK* = {27}; (* = 0x08000000 Use signal stack by using `sa_restorer'. *) + SA_RESTART* = {28}; (* = 0x10000000 Restart syscall on signal return. *) + SA_NODEFER* = {30}; (* = 0x40000000 Don't automatically block the signal when its handler is being executed. *) + SA_RESETHAND* = {31}; (* = 0x80000000 Reset to SIG_DFL on entry to handler. *) + SA_INTERRUPT* = {29}; (* = 0x20000000 Historical no-op. *) + (* Some aliases for the SA_ constants. *) + SA_NOMASK* = SA_NODEFER; + SA_ONESHOT* = SA_RESETHAND; + SA_STACK* = SA_ONSTACK; + + (* code values for siginfo_t.si_code when sig = SIGFPE *) + FPE_INTDIV* = 1; (* Integer divide by zero. *) + FPE_INTOVF* = 2; (* Integer overflow. *) + FPE_FLTDIV* = 3; (* Floating point divide by zero. *) + FPE_FLTOVF* = 4; (* Floating point overflow. *) + FPE_FLTUND* = 5; (* Floating point underflow. *) + FPE_FLTRES* =6; (* Floating point inexact result. *) + FPE_FLTINV* = 7; (* Floating point invalid operation. *) + FPE_FLTSUB* = 8; (* Subscript out of range. *) + + (* possible error constants for errno *) + EPERM* = 1; (* Operation not permitted *) + ENOENT* = 2; (* No such file or directory *) + ESRCH* = 3; (* No such process *) + EINTR* = 4; (* Interrupted system call *) + EIO* = 5; (* I/O error *) + ENXIO* = 6; (* No such device or address *) + E2BIG* = 7; (* Arg list too long *) + ENOEXEC* = 8; (* Exec format error *) + EBADF* = 9; (* Bad file number *) + ECHILD* = 10; (* No child processes *) + EAGAIN* = 11; (* Try again *) + ENOMEM* = 12; (* Out of memory *) + EACCES* = 13; (* Permission denied *) + EFAULT* = 14; (* Bad address *) + ENOTBLK* = 15; (* Block device required *) + EBUSY* = 16; (* Device or resource busy *) + EEXIST* = 17; (* File exists *) + EXDEV* = 18; (* Cross-device link *) + ENODEV* = 19; (* No such device *) + ENOTDIR* = 20; (* Not a directory *) + EISDIR* = 21; (* Is a directory *) + EINVAL* = 22; (* Invalid argument *) + ENFILE* = 23; (* File table overflow *) + EMFILE* = 24; (* Too many open files *) + ENOTTY* = 25; (* Not a typewriter *) + ETXTBSY* = 26; (* Text file busy *) + EFBIG* = 27; (* File too large *) + ENOSPC* = 28; (* No space left on device *) + ESPIPE* = 29; (* Illegal seek *) + EROFS* = 30; (* Read-only file system *) + EMLINK* = 31; (* Too many links *) + EPIPE* = 32; (* Broken pipe *) + EDOM* = 33; (* Math argument out of domain of func *) + ERANGE* = 34; (* Math result not representable *) + EDEADLK* = 35; (* Resource deadlock would occur *) + ENAMETOOLONG* = 36; (* File name too long *) + ENOLCK* = 37; (* No record locks available *) + ENOSYS* = 38; (* Function not implemented *) + ENOTEMPTY* = 39; (* Directory not empty *) + ELOOP* = 40; (* Too many symbolic links encountered *) + EWOULDBLOCK* = EAGAIN; (* Operation would block *) + ENOMSG* = 42; (* No message of desired type *) + EIDRM* = 43; (* Identifier removed *) + ECHRNG* = 44; (* Channel number out of range *) + EL2NSYNC* = 45; (* Level 2 not synchronized *) + EL3HLT* = 46; (* Level 3 halted *) + EL3RST* = 47; (* Level 3 reset *) + ELNRNG* = 48; (* Link number out of range *) + EUNATCH* = 49; (* Protocol driver not attached *) + ENOCSI* = 50; (* No CSI structure available *) + EL2HLT* = 51; (* Level 2 halted *) + EBADE* = 52; (* Invalid exchange *) + EBADR* = 53; (* Invalid request descriptor *) + EXFULL* = 54; (* Exchange full *) + ENOANO* = 55; (* No anode *) + EBADRQC* = 56; (* Invalid request code *) + EBADSLT* = 57; (* Invalid slot *) + EDEADLOCK* = EDEADLK; + EBFONT* = 59; (* Bad font file format *) + ENOSTR* = 60; (* Device not a stream *) + ENODATA* = 61; (* No data available *) + ETIME* = 62; (* Timer expired *) + ENOSR* = 63; (* Out of streams resources *) + ENONET* = 64; (* Machine is not on the network *) + ENOPKG* = 65; (* Package not installed *) + EREMOTE* = 66; (* Object is remote *) + ENOLINK* = 67; (* Link has been severed *) + EADV* = 68; (* Advertise error *) + ESRMNT* = 69; (* Srmount error *) + ECOMM* = 70; (* Communication error on send *) + EPROTO* = 71; (* Protocol error *) + EMULTIHOP* = 72; (* Multihop attempted *) + EDOTDOT* = 73; (* RFS specific error *) + EBADMSG* = 74; (* Not a data message *) + EOVERFLOW* = 75; (* Value too large for defined data type *) + ENOTUNIQ* = 76; (* Name not unique on network *) + EBADFD* = 77; (* File descriptor in bad state *) + EREMCHG* = 78; (* Remote address changed *) + ELIBACC* = 79; (* Can not access a needed shared library *) + ELIBBAD* = 80; (* Accessing a corrupted shared library *) + ELIBSCN* = 81; (* .lib section in a.out corrupted *) + ELIBMAX* = 82; (* Attempting to link in too many shared libraries *) + ELIBEXEC* = 83; (* Cannot exec a shared library directly *) + EILSEQ* = 84; (* Illegal byte sequence *) + ERESTART* = 85; (* Interrupted system call should be restarted *) + ESTRPIPE* = 86; (* Streams pipe error *) + EUSERS* = 87; (* Too many users *) + ENOTSOCK* = 88; (* Socket operation on non-socket *) + EDESTADDRREQ* = 89; (* Destination address required *) + EMSGSIZE* = 90; (* Message too long *) + EPROTOTYPE* = 91; (* Protocol wrong type for socket *) + ENOPROTOOPT* = 92; (* Protocol not available *) + EPROTONOSUPPORT* = 93; (* Protocol not supported *) + ESOCKTNOSUPPORT* = 94; (* Socket type not supported *) + EOPNOTSUPP* = 95; (* Operation not supported on transport endpoint *) + EPFNOSUPPORT* = 96; (* Protocol family not supported *) + EAFNOSUPPORT* = 97; (* Address family not supported by protocol *) + EADDRINUSE* = 98; (* Address already in use *) + EADDRNOTAVAIL* = 99; (* Cannot assign requested address *) + ENETDOWN* = 100; (* Network is down *) + ENETUNREACH* = 101; (* Network is unreachable *) + ENETRESET* = 102; (* Network dropped connection because of reset *) + ECONNABORTED* = 103; (* Software caused connection abort *) + ECONNRESET* = 104; (* Connection reset by peer *) + ENOBUFS* = 105; (* No buffer space available *) + EISCONN* = 106; (* Transport endpoint is already connected *) + ENOTCONN* = 107; (* Transport endpoint is not connected *) + ESHUTDOWN* = 108; (* Cannot send after transport endpoint shutdown *) + ETOOMANYREFS* = 109; (* Too many references: cannot splice *) + ETIMEDOUT* = 110; (* Connection timed out *) + ECONNREFUSED* = 111; (* Connection refused *) + EHOSTDOWN* = 112; (* Host is down *) + EHOSTUNREACH* = 113; (* No route to host *) + EALREADY* = 114; (* Operation already in progress *) + EINPROGRESS* = 115; (* Operation now in progress *) + ESTALE* = 116; (* Stale NFS file handle *) + EUCLEAN* = 117; (* Structure needs cleaning *) + ENOTNAM* = 118; (* Not a XENIX named type file *) + ENAVAIL* = 119; (* No XENIX semaphores available *) + EISNAM* = 120; (* Is a named type file *) + EREMOTEIO* = 121; (* Remote I/O error *) + EDQUOT* = 122; (* Quota exceeded *) + ENOMEDIUM* = 123; (* No medium found *) + EMEDIUMTYPE* = 124; (* Wrong medium type *) + + PROT_NONE* = {}; (* No access *) + PROT_READ* = {2}; (* Pages can be read *) + PROT_WRITE* = {1}; (* Pages can be written *) + PROT_EXEC* = {0}; (* Pages can be executed *) + MAP_FILE* = {0}; (* Mapped from a file or device *) + MAP_ANON* = {1}; (* Allocated from anonymous virtual memory *) + MAP_COPY* = {5}; (* Virtual copy of region at mapping time *) + MAP_SHARED* = {4}; (* Share changes *) + MAP_PRIVATE* = {}; (* Changes private; copy pages on write *) + MAP_FIXED* = {8}; (* Map address must be exactly as requested *) + MAP_NOEXTEND* = {9} ; (* For MAP_FILE, don't change file size *) + MAP_HASSEMPHORE*= {10}; (* Region may contain semaphores *) + MAP_INHERIT* = {11} ; (* Region is retained after exec *) + MAP_FAILED* = -1; + + O_RDONLY* = {} ; (* Open read-only *) + O_WRONLY* = {0} ; (* Open write-only *) + O_RDWR* = {1} ; (* Open read/write *) + O_NONBLOCK* = {11}; + + SIG_BLOCK* = 0; (* Block signals *) + SIG_UNBLOCK* = 1; (* Unblock signals *) + SIG_SETMASK* = 2; (* Set the set of blocked signals *) + + _SC_PAGESIZE* = 30; + + SIGSTKSZ* = 8192; + + STDIN_FILENO* = 0; + STDOUT_FILENO* = 1; + STDERR_FILENO* = 2; + + TYPE + __ftw_func_t* = PROCEDURE (fileName: PtrSTR; VAR [nil] stat: stat_t; flag: INTEGER): INTEGER; + PtrVoid* = INTEGER; + PtrSTR* = POINTER TO ARRAY [untagged] OF SHORTCHAR; + wchar_t* = INTEGER; + PtrWSTR* = POINTER TO ARRAY [untagged] OF wchar_t; + PtrInt* = INTEGER; + StrArray* = POINTER TO ARRAY [untagged] OF PtrSTR; + PtrFILE* = INTEGER; + PtrDIR* = INTEGER; + PtrProc* = INTEGER; + clock_t* = INTEGER; + jmp_buf* = ARRAY [untagged] 6 OF INTEGER; (* bx, si, di, bp, sp, pc *) + mode_t* = SET; + off_t* = INTEGER; + SelectorFunc* = PROCEDURE (dirent: Dirent): INTEGER; + CmpFunc* = PROCEDURE (VAR [nil] dirent1, dirent2: PtrDirent): INTEGER; + size_t* = INTEGER; (* should be unsigned int *) + ssize_t* = INTEGER; + sigjmp_buf* = RECORD [untagged] + buf*: jmp_buf; + mask_was_saved*: INTEGER; + saved_mask*: sigset_t; + END; + + PtrDirent* = POINTER TO Dirent; + PtrDirentArray* = POINTER TO ARRAY [untagged] OF Dirent; + Dirent* = RECORD [untagged] + d_ino*: INTEGER; (* inode number *) + d_off*: off_t; (* offset to this dirent *) + d_reclen*: SHORTINT; (* length of this d_name *) + d_type*: BYTE; + d_name*: ARRAY[untagged] NAME_MAX+1 OF SHORTCHAR; (* file name (null-terminated) *) + END; + + pid_t* = INTEGER; + uid_t* = INTEGER; + sigval_t* = INTEGER; + + siginfo_t* = RECORD [untagged] + si_signo*: INTEGER; (* Signal number *) + si_errno*: INTEGER; (* An errno value *) + si_code*: INTEGER; (* Signal code *) + si_pid*: pid_t; (* Sending process ID *) + si_uid*: uid_t; (* Real user ID of sending process *) + si_status*: INTEGER; (* Exit value or signal *) + si_utime*: clock_t; (* User time consumed *) + si_stime*: clock_t; (* System time consumed *) + si_value*: sigval_t; (* Signal value *) + si_int*: INTEGER; (* POSIX.1b signal *) + si_ptr*: PtrVoid; (* POSIX.1b signal *) + si_addr*: PtrVoid; (* Memory location which caused fault *) + si_band*: INTEGER; (* Band event *) + si_fd*: INTEGER; (* File descriptor *) + END; + Ptrsiginfo_t* = POINTER TO siginfo_t; + + sigset_t* = ARRAY [untagged] 128 OF BYTE; + Ptrsigset_t* = INTEGER; + sigaction_t* = RECORD [untagged] + sa_sigaction*: PROCEDURE [ccall] (sig: INTEGER; siginfo: Ptrsiginfo_t; ptr: Ptrucontext_t); (* union with sa_handler*: PtrProc;*) + sa_mask*: sigset_t; + sa_flags*: SET; + sa_restorer*: LONGINT; + END; + + stack_t* = RECORD [untagged] + ss_sp*: PtrVoid; + ss_flags*: INTEGER; + ss_size*: size_t; + END; + + stat_t* = RECORD [untagged] + st_dev*: LONGINT; (* device *) + __pad1: SHORTINT; + st_ino*: INTEGER; (* 64? inode *) + st_mode*: mode_t; (* protection *) + st_nlink*: INTEGER; (* number of hard links *) + st_uid*: uid_t; (* user ID of owner *) + st_gid*: INTEGER; (* group ID of owner *) + st_rdev*: LONGINT; (* device type (if inode device) *) + __pad2: SHORTINT; + st_size*: off_t; (* 64? total size, in bytes *) + st_blksize*: INTEGER; (* blocksize for filesystem I/O *) + st_blocks*: INTEGER; (* 64? number of blocks allocated *) + st_atime*: INTEGER; (* time of last access *) + __unused1: INTEGER; + st_mtime*: INTEGER; (* time of last modification *) + __unused2: INTEGER; + st_ctime*: INTEGER; (* time of last change *) + __unused3: INTEGER; + __unused4: INTEGER; + __unused5: INTEGER; + END; + + fpreg* = RECORD [untagged] + significand*: ARRAY [untagged] 4 OF CHAR; + exponent*: CHAR; + END; + + fpstate* = RECORD [untagged] + cw*: INTEGER; (* unsigned long int *) + sw*: INTEGER; (* unsigned long int *) + tag*: INTEGER; (* unsigned long int *) + ipoff*: INTEGER; (* unsigned long int *) + cssel*: INTEGER; (* unsigned long int *) + dataoff*: INTEGER; (* unsigned long int *) + datasel*: INTEGER; (* unsigned long int *) + _st: ARRAY [untagged] 8 OF fpreg; + status*: INTEGER; (* unsigned long int *) + END; + + gregset_t* = ARRAY [untagged] 19 OF INTEGER; + fpregset_t* = POINTER TO fpstate; + + mcontext_t* = RECORD [untagged] + gregs*: gregset_t; + fpregs*: fpregset_t; + oldmask*: INTEGER; (* unsigned long int *) + cr2*: INTEGER; (* unsigned long int *) + END; + + Ptrucontext_t* = POINTER TO ucontext_t; + ucontext_t* = RECORD [untagged] + uc_flags*: INTEGER; (* unsigned long int *) + uc_link*: Ptrucontext_t; + uc_stack*: stack_t; + uc_mcontext*: mcontext_t; + uc_sigmask: sigset_t; + __fpregs_mem*: fpstate; + END; + + (* Times and Dates *) + + tm* = POINTER TO tmDesc; + tmDesc* = RECORD [untagged] + tm_sec*: INTEGER; (* seconds *) + tm_min*: INTEGER; (* minutes *) + tm_hour*: INTEGER; (* hours *) + tm_mday*: INTEGER; (* day of the month *) + tm_mon*: INTEGER; (* month *) + tm_year*: INTEGER; (* year *) + tm_wday*: INTEGER; (* day of the week *) + tm_yday*: INTEGER; (* day in the year *) + tm_isdst*: INTEGER; (* daylight saving time *) + END; + time_t* = INTEGER; + + VAR + timezone*: INTEGER; (* seconds from GMT *) +(* + stdin*, stdout*, stderr* : PtrFILE; +*) + + PROCEDURE [ccall] calloc* (num, size: size_t): PtrVoid; + PROCEDURE [ccall] clock* (): clock_t; + PROCEDURE [ccall] closedir* (dir: PtrDIR): INTEGER; + PROCEDURE [ccall] chmod* (path: PtrSTR; mode: mode_t): INTEGER; + PROCEDURE [ccall] exit* (status: INTEGER); + PROCEDURE [ccall] fclose* (fp: PtrFILE): INTEGER; + PROCEDURE [ccall] fflush* (fp: PtrFILE): INTEGER; + PROCEDURE [ccall] fopen* (filename, mode: PtrSTR): PtrFILE; + PROCEDURE [ccall] fdopen* (fildes: INTEGER; mode: PtrSTR): PtrFILE; + PROCEDURE [ccall] feof* (fp: PtrFILE): INTEGER; + PROCEDURE [ccall] fread* (ptr: PtrVoid; size, nobj: size_t; stream: PtrFILE): size_t; + PROCEDURE [ccall] fseek* (stream: PtrFILE; offset, origin: INTEGER): INTEGER; + PROCEDURE [ccall] free* (p: PtrVoid); + PROCEDURE [ccall] ftell* (stream: PtrFILE): LONGINT; + PROCEDURE [ccall] ftw* (filename: PtrSTR; func: __ftw_func_t; descriptors: INTEGER): INTEGER; + PROCEDURE [ccall] fwrite* (ptr: PtrVoid; size, nobj: size_t; stream: PtrFILE): size_t; + PROCEDURE [ccall] getcwd* (buf: PtrSTR; size: size_t): PtrSTR; + PROCEDURE [ccall] getcontext* (ucontext_t: Ptrucontext_t): INTEGER; + PROCEDURE [ccall] gets* (s: PtrSTR); + PROCEDURE [ccall] fgets* (s: PtrSTR; n: INTEGER; fp: PtrFILE): PtrSTR; + PROCEDURE [ccall] gmtime* (VAR timep: time_t): tm; + PROCEDURE [ccall] kill* (pid: pid_t; sig: INTEGER): INTEGER; + PROCEDURE [ccall] localtime* (VAR timep: time_t): tm; + PROCEDURE [ccall] malloc* (size: size_t): PtrVoid; + PROCEDURE [ccall] mkdir* (pathname: PtrSTR; mode: mode_t): INTEGER; + PROCEDURE [ccall] mktime* (timeptr: tm): time_t; + PROCEDURE [ccall] opendir* (name: PtrSTR): PtrDIR; + PROCEDURE [ccall] printf* (s: PtrSTR): INTEGER; + PROCEDURE [ccall] readdir* (dir: PtrDIR): PtrDirent; + PROCEDURE [ccall] remove* (filename: PtrSTR): INTEGER; + PROCEDURE [ccall] rename* (oldname, newname: PtrSTR): INTEGER; + PROCEDURE [ccall] scandir* (dir: PtrDIR; namelist: PtrDirentArray; selector: SelectorFunc; cmp: CmpFunc): INTEGER; + PROCEDURE [ccall] setcontext* (ucontext_t: Ptrucontext_t): INTEGER; + PROCEDURE [ccall] setjmp* (VAR env: jmp_buf): INTEGER; + PROCEDURE [ccall] sigaction* (sig_num: INTEGER; VAR [nil] act: sigaction_t; VAR [nil] oldact: sigaction_t): INTEGER; + PROCEDURE [ccall] sigaddset* (set: Ptrsigset_t; sig: INTEGER): INTEGER; + PROCEDURE [ccall] sigdelset* (set: Ptrsigset_t; sig: INTEGER): INTEGER; + PROCEDURE [ccall] sigemptyset* (set: Ptrsigset_t): INTEGER; + PROCEDURE [ccall] sigfillset* (set: Ptrsigset_t): INTEGER; + PROCEDURE [ccall] sigismemeber* (set: Ptrsigset_t; sig: INTEGER): INTEGER; + PROCEDURE [ccall] siglongjmp* (VAR env: sigjmp_buf; val: INTEGER); + PROCEDURE [ccall] signal* (sig_num: INTEGER; sighandler: PtrProc): PtrProc; + PROCEDURE [ccall] sigsetjmp* ["__sigsetjmp"] (VAR env: sigjmp_buf; savemask: INTEGER): INTEGER; +(* + PROCEDURE [ccall] stat* (filename: PtrSTR; VAR buf: stat_t): INTEGER; stat is a macro and expands to __xstat(3, filename, buf) +*) + PROCEDURE [ccall] __xstat* (version: INTEGER; filename: PtrSTR; VAR buf: stat_t): INTEGER; + PROCEDURE [ccall] strftime* (s: PtrSTR; max: size_t; format: PtrSTR; ptm: tm): size_t; + PROCEDURE [ccall] time* (VAR [nil] t: time_t): time_t; + + PROCEDURE [ccall] __errno_location*(): INTEGER; + + PROCEDURE [ccall] open* (name: PtrSTR; flags: SET; mode: mode_t): INTEGER; + PROCEDURE [ccall] close* (d: INTEGER): INTEGER; + PROCEDURE [ccall] read* (d: INTEGER; buf: PtrVoid; nbytes: size_t): ssize_t; + PROCEDURE [ccall] write* (d: INTEGER; buf: PtrVoid; nBytes: size_t): ssize_t; + + PROCEDURE [ccall] mmap* (addr: PtrVoid; len: size_t; prot: SET; flags: SET; fd, offset: off_t): PtrVoid; + PROCEDURE [ccall] munmap* (addr: PtrVoid; len: size_t): INTEGER; + PROCEDURE [ccall] mprotect* (addr: PtrVoid; len: size_t; prot: SET): INTEGER; + + PROCEDURE [ccall] getenv* (name: PtrSTR): PtrSTR; + + PROCEDURE [ccall] sysconf* (name: INTEGER): INTEGER; + + PROCEDURE [ccall] sigaltstack* (VAR [nil] ss: stack_t; VAR [nil] oss: stack_t): INTEGER; + + PROCEDURE [ccall] sigprocmask* (how: INTEGER; set: Ptrsigset_t; oldset: Ptrsigset_t): INTEGER; + + PROCEDURE [ccall] system* (cmd: PtrSTR): INTEGER; + PROCEDURE [ccall] popen* (cmd, mode: PtrSTR): INTEGER; + +END LinLibc. -- 2.29.2