chmod call corrected

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.