update build script

BlackBox/_FreeBSDLinuxOpenBSD_GUI/build

@@ -1,12 +1,7 @@
 #!/bin/sh
 
 ./run-dev0 <<DATA
-DevCompiler.CompileThis LinDl LinLibc LinLibW LinIconv LinTermios LinIoctl LinNet
-
-# Linux only
-DevCompiler.CompileThis LinRt
-
-DevCompiler.CompileSubs System Gtk2 Std Cons Host Text Form Dev Xhtml Comm Obx
+DevCompiler.CompileSubs Lin System Gtk2 Std Cons Host Text Form Dev Xhtml Comm Obx
 
 ### Dev2
 DevCompiler.CompileThis Dev2LnkBase Dev2LnkLoad Dev2LnkWritePe Dev2LnkWriteElf Dev2LnkWriteElfStatic Dev2Linker Dev2Linker1

BlackBox/_FreeBSDLinuxOpenBSD_Interp/build

@@ -1,12 +1,7 @@
 #!/bin/sh
 
 ./run-dev0 <<DATA
-DevCompiler.CompileThis LinDl LinLibc LinLibW LinIconv LinTermios LinIoctl LinNet
-
-# Linux only
-DevCompiler.CompileThis LinRt
-
-DevCompiler.CompileSubs System Std Host Cons Text Form Dev Xhtml Comm Obx
+DevCompiler.CompileSubs Lin System Std Host Cons Text Form Dev Xhtml Comm Obx
 
 ### Dev2
 DevCompiler.CompileThis Dev2LnkBase Dev2LnkLoad Dev2LnkWritePe Dev2LnkWriteElf Dev2LnkWriteElfStatic Dev2Linker Dev2Linker1

BlackBox/_Linux_/Lin/Mod/attic/Libc.txt

@@ -1,494 +0,0 @@
-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;
-
-		WAIT_ANY* = -1;
-		WCONTINUED* = {3};
-		WNOHANG* = {0};
-		WUNTRACED* = {1};
-
-	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] fchmod* (fd: INTEGER; 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] fileno* (stream: 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] 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] fork* (): pid_t;
-	PROCEDURE [ccall] waitpid* (wpid: pid_t; VAR [nil] status: INTEGER; options: SET): pid_t;
-
-	PROCEDURE [ccall] execv* (path: PtrSTR; argv: POINTER [untagged] TO ARRAY [untagged] OF PtrSTR): INTEGER;
-	PROCEDURE [ccall] execvp* (file: PtrSTR; argv: POINTER [untagged] TO ARRAY [untagged] OF PtrSTR): INTEGER;
-
-	PROCEDURE [ccall] system* (string: PtrSTR): INTEGER;
-
-	PROCEDURE [ccall] sysconf* (name: INTEGER): INTEGER;
-
-	PROCEDURE [ccall] popen* (command, type: PtrSTR): PtrFILE;
-	PROCEDURE [ccall] pclose* (stream: PtrFILE): INTEGER;
-
-END LinLibc.