|
|
@@ -1,554 +0,0 @@
|
|
|
-(* ETH Oberon, Copyright 2000 ETH Zuerich Institut fuer Computersysteme, ETH Zentrum, CH-8092 Zuerich.
|
|
|
-Refer to the "General ETH Oberon System Source License" contract available at: http://www.oberon.ethz.ch/ *)
|
|
|
-
|
|
|
-MODULE Unix; (* Josef Templ, 5.3.90 SVR4 system calls *) (** Solaris x86 version, non portable *)
|
|
|
-
|
|
|
-(* Linux PPC version g.f. 18.04.98 *)
|
|
|
-(* Linux x86 version g.f 10.11.99 *)
|
|
|
-(* Solaris x86 version g.f 16.11.99 *)
|
|
|
-(* 2000.12.17 g.f. [C] - flag for new ompiler *)
|
|
|
-(* 2002.06.27 g.f. TmDesc fixed, new: Utime, Mktime *)
|
|
|
-(* 2006.07.31 g.f. shared memory support added *)
|
|
|
-(* 2007.04.13 g.f. Thread priorities added *)
|
|
|
-(* 2008.04.25 g.f. Trap handling unified *)
|
|
|
-
|
|
|
-IMPORT S := SYSTEM, Glue, Trace;
|
|
|
-
|
|
|
-
|
|
|
-CONST
|
|
|
- Version* = "Solaris";
|
|
|
-
|
|
|
- libcname* = "libc.so.1";
|
|
|
- libmname* = "libm.so.1";
|
|
|
- libX11name* = "libX11.so.4";
|
|
|
- libXextname* = "libXext.so.0";
|
|
|
-
|
|
|
- LittleEndian* = TRUE; (** byte order of basic types *)
|
|
|
- LsbIs0* = TRUE; (** bit order of SET type *)
|
|
|
-
|
|
|
- PageSize* = 4096; (* least MMU page size *)
|
|
|
-
|
|
|
- stdin* = 0; stdout* = 1; stderr* = 2;
|
|
|
-
|
|
|
- (** Unix error codes: *)
|
|
|
- EPERM* = 1; (* Not super-user *)
|
|
|
- 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 children *)
|
|
|
- EAGAIN* = 11; (* No more processes *)
|
|
|
- ENOMEM* = 12; (* Not enough core *)
|
|
|
- EACCES* = 13; (* Permission denied *)
|
|
|
- EFAULT* = 14; (* Bad address *)
|
|
|
- ENOTBLK* = 15; (* Block device required *)
|
|
|
- EBUSY* = 16; (* Mount device 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; (* Inappropriate ioctl for device *)
|
|
|
- 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 arg out of domain of func *)
|
|
|
- ERANGE* = 34; (* Math result not representable *)
|
|
|
- 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 *)
|
|
|
- EDEADLK* = 35; (* Deadlock condition. *)
|
|
|
- ENOLCK* = 37; (* No record locks available. *)
|
|
|
-
|
|
|
- (* open flags *)
|
|
|
- rdonly* = {}; rdwr* = {1}; creat* = {8}; trunc* = {9};
|
|
|
-
|
|
|
- (* access modes *)
|
|
|
- rwrwr* = {2, 4, 5, 7, 8}; rwxrwxrwx* = {0..8};
|
|
|
-
|
|
|
- F_OK* = {}; X_Ok* = {0}; W_OK* = {1}; R_OK* = {2};
|
|
|
-
|
|
|
- (*--------------------------- Threads -------------------------------*)
|
|
|
-
|
|
|
-TYPE
|
|
|
- Thread_t* = LONGINT;
|
|
|
- Mutex_t* = ADDRESS;
|
|
|
- Condition_t* = ADDRESS;
|
|
|
-
|
|
|
-CONST
|
|
|
- (* Thread priorities *)
|
|
|
- ThreadLow* = 0; ThreadNormal* = 20; ThreadHigh* = 100;
|
|
|
- NumPriorities* = 101; (* number of priority levels *)
|
|
|
-
|
|
|
-
|
|
|
- (*---------------------------- IP -----------------------------------*)
|
|
|
-
|
|
|
-CONST
|
|
|
- (* domain *)
|
|
|
- AFINET* = 2;
|
|
|
- AFINET6* = 26;
|
|
|
-
|
|
|
- PFINET* = AFINET;
|
|
|
- PFINET6* = AFINET6;
|
|
|
-
|
|
|
- (* types of connection *)
|
|
|
- SockStream* = 2;
|
|
|
- SockDGram* = 1;
|
|
|
-
|
|
|
- (* protocols *)
|
|
|
- IpProtoUDP* = 17;
|
|
|
- IpProtoTCP* = 6;
|
|
|
-
|
|
|
- (* setsockopt *)
|
|
|
- SoLSocket* = 0FFFFH; (* socket option level *)
|
|
|
- SoLinger* = 80H; (* linger (gracefully close the connection)*)
|
|
|
- SoKeepAlive* = 8; (* keep connection alive *)
|
|
|
- SoNoDelay* = 1; (* no delay *)
|
|
|
-
|
|
|
- (* ioctl *)
|
|
|
- FioNRead* = 4004667FH; (* something to read ? *)
|
|
|
-
|
|
|
- (* recv *)
|
|
|
- MsgPeek* = 2;
|
|
|
- MsgDontWait* = 80H; (* non blocking read *)
|
|
|
-
|
|
|
- (* shutdown *)
|
|
|
- ShutRDWR* = 2;
|
|
|
-
|
|
|
- SockAddrSizeV4* = 16;
|
|
|
- SockAddrSizeV6* = 32;
|
|
|
-
|
|
|
- (*---------------------------- serial line -----------------------------*)
|
|
|
-
|
|
|
-
|
|
|
- FIONREAD* = 4004667FH;
|
|
|
- TIOCMGET* = 0741DH;
|
|
|
- TIOCMSET* = 0741AH;
|
|
|
-
|
|
|
- (* Speeds *)
|
|
|
- B0* = 0;
|
|
|
- B50* = 1;
|
|
|
- B75* = 2;
|
|
|
- B110* = 3;
|
|
|
- B134* = 4;
|
|
|
- B150* = 5;
|
|
|
- B200* = 6;
|
|
|
- B300* = 7;
|
|
|
- B600* = 8;
|
|
|
- B1200* = 9;
|
|
|
- B1800* = 10;
|
|
|
- B2400* = 11;
|
|
|
- B4800* = 12;
|
|
|
- B9600* = 13;
|
|
|
- B19200* = 14;
|
|
|
- B38400* = 15;
|
|
|
-
|
|
|
- B57600* = 16;
|
|
|
- B115200* = 18;
|
|
|
- B230400* = 20;
|
|
|
-
|
|
|
-
|
|
|
- (* tio.cflag bits *)
|
|
|
- CSIZE* = {4,5};
|
|
|
- CS5* = {};
|
|
|
- CS6* = {4};
|
|
|
- CS7* = {5};
|
|
|
- CS8* = {4,5};
|
|
|
- CSTOPB* = {6};
|
|
|
- CREAD* = {7};
|
|
|
- PARENB* = {8};
|
|
|
- PARODD* = {9};
|
|
|
- HUPCL* = {10};
|
|
|
- CLOCAL* = {11};
|
|
|
-
|
|
|
-TYPE
|
|
|
- Termios* = RECORD
|
|
|
- iflags*, oflags*, cflags*, lflags*: SET;
|
|
|
- cc*: ARRAY 19 OF CHAR;
|
|
|
- dummy-: ARRAY 2 OF LONGINT
|
|
|
- END;
|
|
|
-
|
|
|
- (*------------------------------------------------------------------*)
|
|
|
-
|
|
|
-TYPE
|
|
|
- DevT* = LONGINT;
|
|
|
- InoT* = LONGINT;
|
|
|
-
|
|
|
- Status* = RECORD
|
|
|
- dev- : DevT;
|
|
|
- pad1- : ARRAY 3 OF LONGINT;
|
|
|
- ino- : InoT;
|
|
|
- mode- : LONGINT;
|
|
|
- nlink- : LONGINT;
|
|
|
- uid- : LONGINT;
|
|
|
- gid- : LONGINT;
|
|
|
- rdev- : DevT;
|
|
|
- pad2- : ARRAY 2 OF LONGINT;
|
|
|
- size- : LONGINT;
|
|
|
- pad3- : LONGINT;
|
|
|
- atime- : Timeval;
|
|
|
- mtime- : Timeval;
|
|
|
- ctime- : Timeval;
|
|
|
- blksize- : LONGINT;
|
|
|
- blocks- : LONGINT;
|
|
|
- fstype- : ARRAY 16 OF CHAR;
|
|
|
- pad4- : ARRAY 8 OF LONGINT;
|
|
|
- END;
|
|
|
-
|
|
|
- Timeval* = RECORD
|
|
|
- sec- : HUGEINT;
|
|
|
- usec- : HUGEINT;
|
|
|
- END;
|
|
|
-
|
|
|
- TmPtr* = POINTER TO Tm;
|
|
|
- Tm* = RECORD
|
|
|
- sec*, min*, hour*, mday*, mon*, year*, wday*, yday*, isdst*: LONGINT;
|
|
|
- gmtoff*, tmzone*: LONGINT;
|
|
|
- END;
|
|
|
-
|
|
|
- Tms* = RECORD
|
|
|
- utime*, stime*, cutime*, cstime*: LONGINT
|
|
|
- END;
|
|
|
-
|
|
|
- Timezone* = RECORD
|
|
|
- minuteswest*, dsttime*: LONGINT
|
|
|
- END;
|
|
|
-
|
|
|
- Itimerval* = RECORD
|
|
|
- interval*, value*: Timeval
|
|
|
- END;
|
|
|
-
|
|
|
-CONST
|
|
|
- FdSetLen* = 16;
|
|
|
-
|
|
|
-TYPE
|
|
|
- FdSet* = ARRAY FdSetLen OF SET;
|
|
|
-
|
|
|
- Dirent* = POINTER TO RECORD
|
|
|
- ino- : InoT;
|
|
|
- off- : LONGINT;
|
|
|
- reclen- : INTEGER;
|
|
|
- name- : (*array of*) CHAR;
|
|
|
- END;
|
|
|
-
|
|
|
- Sigset* = ARRAY 4 OF LONGINT;
|
|
|
-
|
|
|
- Stack* = RECORD
|
|
|
- sp* : ADDRESS;
|
|
|
- size* : SIZE;
|
|
|
- flags* : LONGINT;
|
|
|
- dummy: ADDRESS;
|
|
|
- END;
|
|
|
-
|
|
|
- Ucontext* = POINTER TO UcontextDesc;
|
|
|
- UcontextDesc* = RECORD
|
|
|
- flags- : SET;
|
|
|
- link- : ADDRESS;
|
|
|
- sigmask- : Sigset;
|
|
|
- stack- : Stack;
|
|
|
- mc- : McontextDesc;
|
|
|
- END;
|
|
|
-
|
|
|
- Mcontext* = POINTER TO McontextDesc;
|
|
|
- McontextDesc* = RECORD
|
|
|
- r_15 : HUGEINT;
|
|
|
- r_14 : HUGEINT;
|
|
|
- r_13 : HUGEINT;
|
|
|
- r_12 : HUGEINT;
|
|
|
- r_11 : HUGEINT;
|
|
|
- r_10 : HUGEINT;
|
|
|
- r_9 : HUGEINT;
|
|
|
- r_8 : HUGEINT;
|
|
|
- r_di : HUGEINT;
|
|
|
- r_si : HUGEINT;
|
|
|
- r_bp- : HUGEINT;
|
|
|
- r_bx : HUGEINT;
|
|
|
- r_dx : HUGEINT;
|
|
|
- r_cx : HUGEINT;
|
|
|
- r_ax : HUGEINT;
|
|
|
- r_trapno- : HUGEINT;
|
|
|
- r_err- : HUGEINT;
|
|
|
- r_pc- : HUGEINT;
|
|
|
- r_cs : HUGEINT;
|
|
|
- r_fl : HUGEINT;
|
|
|
- r_sp- : HUGEINT;
|
|
|
- r_ss : HUGEINT;
|
|
|
- r_fs : HUGEINT;
|
|
|
- r_gs : HUGEINT;
|
|
|
- r_es : HUGEINT;
|
|
|
- r_ds : HUGEINT;
|
|
|
- r_fsbase : HUGEINT;
|
|
|
- r_gsbase : HUGEINT;
|
|
|
- END;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
-VAR
|
|
|
- argc-: LONGINT; argv-: ADDRESS;
|
|
|
- aargc: ADDRESS;
|
|
|
-
|
|
|
- sysinfo-: RECORD
|
|
|
- sysname-, nodename-, release-, version-, machine-: ARRAY 65 OF CHAR;
|
|
|
- END;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- read- : PROCEDURE {C} ( fd: LONGINT; buf: ADDRESS; n: SIZE ): LONGINT;
|
|
|
- write- : PROCEDURE {C} ( fd: LONGINT; buf: ADDRESS; n: SIZE ): LONGINT;
|
|
|
- open- : PROCEDURE {C} ( name: ADDRESS; flags, mode: SET ): LONGINT;
|
|
|
- close- : PROCEDURE {C} ( fd: LONGINT ): LONGINT;
|
|
|
- lseek- : PROCEDURE {C} ( fd: LONGINT; offset, origin: SIZE ): LONGINT;
|
|
|
- fsync- : PROCEDURE {C} ( fd: LONGINT ): LONGINT;
|
|
|
- ioctl- : PROCEDURE {C} ( fd: LONGINT; request: LONGINT; arg: ADDRESS ): LONGINT;
|
|
|
- unlink- : PROCEDURE {C} ( name: ADDRESS ): LONGINT;
|
|
|
- rename- : PROCEDURE {C} ( oldname, newname: ADDRESS ): LONGINT;
|
|
|
- ftruncate- : PROCEDURE {C} ( fd: LONGINT; length: SIZE ): LONGINT;
|
|
|
- chmod- : PROCEDURE {C} ( name: ADDRESS; mode: SET ): LONGINT;
|
|
|
- utime- : PROCEDURE {C} ( name: ADDRESS; tb: ADDRESS ): LONGINT;
|
|
|
- access- : PROCEDURE {C} ( name: ADDRESS; mode: SET ): LONGINT;
|
|
|
- select- : PROCEDURE {C} ( width: LONGINT; rd, wr, ex: ADDRESS; VAR timeout: Timeval ): LONGINT;
|
|
|
-
|
|
|
- chdir- : PROCEDURE {C} ( name: ADDRESS ): LONGINT;
|
|
|
- mkdir- : PROCEDURE {C} ( name: ADDRESS; mode: SET ): LONGINT;
|
|
|
- rmdir- : PROCEDURE {C} ( path: ADDRESS ): LONGINT;
|
|
|
-
|
|
|
- stat- : PROCEDURE {C} ( name: ADDRESS; VAR buf: Status ): LONGINT;
|
|
|
- lstat- : PROCEDURE {C} ( name: ADDRESS; VAR buf: Status ): LONGINT;
|
|
|
- fstat- : PROCEDURE {C} ( fd: LONGINT; VAR buf: Status ): LONGINT;
|
|
|
-
|
|
|
- getpid- : PROCEDURE {C} ( ): LONGINT;
|
|
|
- getuid- : PROCEDURE {C} ( ): LONGINT;
|
|
|
-
|
|
|
- malloc- : PROCEDURE {C} ( size: SIZE ): ADDRESS;
|
|
|
- posix_memalign- : PROCEDURE {C} ( VAR p: ADDRESS; alignment, size: SIZE ): LONGINT;
|
|
|
- free- : PROCEDURE {C} ( p: ADDRESS );
|
|
|
- mprotect- : PROCEDURE {C} ( p: ADDRESS; len: SIZE; prot: LONGINT ): LONGINT;
|
|
|
-
|
|
|
- alarm- : PROCEDURE {C} ( ms: LONGINT ): LONGINT;
|
|
|
- setitimer- : PROCEDURE {C} ( which: LONGINT; VAR value, ovalue: Itimerval ): LONGINT;
|
|
|
- getitimer- : PROCEDURE {C} ( which: LONGINT; VAR value: Itimerval ): LONGINT;
|
|
|
-
|
|
|
- gettimeofday- : PROCEDURE {C} ( VAR tv: Timeval; VAR tz: Timezone ): LONGINT;
|
|
|
- mktime- : PROCEDURE {C} ( VAR tm: Tm ): LONGINT;
|
|
|
- localtime- : PROCEDURE {C} ( CONST tv: Timeval ): TmPtr;
|
|
|
- time- : PROCEDURE {C} ( VAR tv: Timeval ): LONGINT;
|
|
|
- times- : PROCEDURE {C} ( VAR tms: Tms ): LONGINT;
|
|
|
-
|
|
|
- system- : PROCEDURE {C} ( cmd: ADDRESS );
|
|
|
- uname- : PROCEDURE {C} ( utsname: ADDRESS ): LONGINT;
|
|
|
-
|
|
|
- getcwd- : PROCEDURE {C} ( buf: ADDRESS; len: SIZE ): ADDRESS;
|
|
|
- getenv- : PROCEDURE {C} ( name: ADDRESS ): ADDRESS;
|
|
|
-
|
|
|
- opendir- : PROCEDURE {C} ( name: ADDRESS ): ADDRESS;
|
|
|
- readdir- : PROCEDURE {C} ( dir: ADDRESS ): Dirent;
|
|
|
- closedir- : PROCEDURE {C} ( dir: ADDRESS );
|
|
|
-
|
|
|
- sigsetjmp- : PROCEDURE {C} ( env: ADDRESS; savemask: LONGINT ): LONGINT;
|
|
|
- siglongjmp- : PROCEDURE {C} ( env: ADDRESS; val: LONGINT );
|
|
|
-
|
|
|
- kill- : PROCEDURE {C} ( pid, sig: LONGINT ): LONGINT;
|
|
|
- exit- : PROCEDURE {C} ( status: LONGINT );
|
|
|
- perror- : PROCEDURE {C} ( msg: ADDRESS );
|
|
|
- errno- : PROCEDURE {C} ( ): LONGINT;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- libc-: ADDRESS;
|
|
|
-
|
|
|
- libraryPaths: ARRAY 7 OF ARRAY 32 OF CHAR;
|
|
|
- noPaths: LONGINT;
|
|
|
-
|
|
|
- PROCEDURE ModifyContext*( cont: Ucontext; pc, bp, sp: ADDRESS );
|
|
|
- BEGIN
|
|
|
- cont.mc.r_pc := pc;
|
|
|
- cont.mc.r_bp := bp;
|
|
|
- cont.mc.r_sp := sp;
|
|
|
- END ModifyContext;
|
|
|
-
|
|
|
- PROCEDURE Perror*( CONST msg: ARRAY OF CHAR );
|
|
|
- BEGIN
|
|
|
- perror( ADDRESSOF( msg ) )
|
|
|
- END Perror;
|
|
|
-
|
|
|
-
|
|
|
-
|
|
|
- PROCEDURE Dlsym*( lib: ADDRESS; CONST sym: ARRAY OF CHAR; objAddr: ADDRESS );
|
|
|
- VAR val: LONGINT;
|
|
|
- BEGIN
|
|
|
- Glue.dlsym( lib, ADDRESSOF( sym ), objAddr );
|
|
|
- S.GET( objAddr, val );
|
|
|
- IF val = 0 THEN
|
|
|
- Trace.String( "Unix.Dlsym: entry '" ); Trace.String( sym ); Trace.String( "' not found" );
|
|
|
- Trace.Ln
|
|
|
- END
|
|
|
- END Dlsym;
|
|
|
-
|
|
|
- PROCEDURE Dlopen*( CONST libname: ARRAY OF CHAR; mode: LONGINT ): ADDRESS;
|
|
|
- VAR h: ADDRESS; i, j, k: INTEGER;
|
|
|
- p: ARRAY 256 OF CHAR;
|
|
|
- BEGIN
|
|
|
- IF libname[0] = '/' THEN h := Glue.dlopen( ADDRESSOF( libname ), mode );
|
|
|
- ELSE
|
|
|
- i := 0; h := 0;
|
|
|
- WHILE (h = 0) & (i < noPaths) DO
|
|
|
- COPY( libraryPaths[i], p ); j := 0;
|
|
|
- WHILE p[j] # 0X DO INC( j ) END;
|
|
|
- p[j] := '/'; k := 0;
|
|
|
- REPEAT INC( j ); p[j] := libname[k]; INC( k ) UNTIL p[j] = 0X;
|
|
|
- h := Glue.dlopen( ADDRESSOF( p ), mode ); INC( i )
|
|
|
- END
|
|
|
- END;
|
|
|
- IF h = 0 THEN
|
|
|
- Trace.String( "Unix.Dlopen: loading library " );
|
|
|
- Trace.String( libname ); Trace.String( " failed" ); Trace.Ln
|
|
|
- END;
|
|
|
- RETURN h
|
|
|
- END Dlopen;
|
|
|
-
|
|
|
- PROCEDURE Dlclose*( lib: ADDRESS );
|
|
|
- BEGIN
|
|
|
- Glue.dlclose( lib )
|
|
|
- END Dlclose;
|
|
|
-
|
|
|
- PROCEDURE GetArg*( no: LONGINT; VAR val: ARRAY OF CHAR );
|
|
|
- VAR ch: CHAR; adr: ADDRESS; i: LONGINT;
|
|
|
- BEGIN
|
|
|
- IF no >= argc THEN val[0] := 0X
|
|
|
- ELSE
|
|
|
- S.GET( argv + SIZEOF(ADDRESS)*no, adr ); i := 0;
|
|
|
- REPEAT S.GET( adr, ch ); val[i] := ch; INC( adr ); INC( i ); UNTIL (ch = 0X) OR (i >= LEN( val ));
|
|
|
- END
|
|
|
- END GetArg;
|
|
|
-
|
|
|
- PROCEDURE GetArgval*( CONST argName: ARRAY OF CHAR; VAR val: ARRAY OF CHAR );
|
|
|
- VAR i: INTEGER;
|
|
|
- buf: ARRAY 40 OF CHAR;
|
|
|
- BEGIN
|
|
|
- i := 1;
|
|
|
- WHILE i < argc - 1 DO
|
|
|
- GetArg( i, buf );
|
|
|
- IF buf = argName THEN GetArg( i + 1, val ); RETURN END;
|
|
|
- INC( i )
|
|
|
- END;
|
|
|
- val[0] := 0X
|
|
|
- END GetArgval;
|
|
|
-
|
|
|
- PROCEDURE getSysinfo;
|
|
|
- VAR res: LONGINT; p: INTEGER;
|
|
|
- buf: ARRAY 4096 OF CHAR;
|
|
|
-
|
|
|
- PROCEDURE copy( VAR p: INTEGER; VAR dest: ARRAY OF CHAR );
|
|
|
- VAR i: INTEGER;
|
|
|
- BEGIN
|
|
|
- WHILE buf[p] <= ' ' DO INC( p ) END;
|
|
|
- i := 0;
|
|
|
- REPEAT dest[i] := buf[p]; INC( i ); INC( p ) UNTIL (buf[p - 1] = 0X) OR (i >= LEN( dest ));
|
|
|
- dest[i - 1] := 0X
|
|
|
- END copy;
|
|
|
-
|
|
|
- BEGIN
|
|
|
- FOR p := 0 TO 4096 - 1 DO buf[p] := 0X END;
|
|
|
- res := uname( ADDRESSOF( buf ) );
|
|
|
- p := 0;
|
|
|
- copy( p, sysinfo.sysname );
|
|
|
- copy( p, sysinfo.nodename );
|
|
|
- copy( p, sysinfo.release );
|
|
|
- copy( p, sysinfo.version );
|
|
|
- copy( p, sysinfo.machine );
|
|
|
- END getSysinfo;
|
|
|
-
|
|
|
-BEGIN
|
|
|
- Dlsym( 0, "argc", ADDRESSOF( aargc ) ); S.GET( aargc, argc );
|
|
|
- Dlsym( 0, "argv", ADDRESSOF( argv ) );
|
|
|
-
|
|
|
- libraryPaths[0] := "/usr/lib/amd64";
|
|
|
- libraryPaths[1] := "/lib/amd64";
|
|
|
- libraryPaths[2] := "/usr/openwin/lib/amd64";
|
|
|
- libraryPaths[3] := "/usr/local/lib/amd64";
|
|
|
- noPaths := 4;
|
|
|
-
|
|
|
-
|
|
|
- libc := Dlopen( libcname, 2 );
|
|
|
-
|
|
|
- Dlsym( libc, "read", ADDRESSOF( read ) );
|
|
|
- Dlsym( libc, "write", ADDRESSOF( write ) );
|
|
|
- Dlsym( libc, "open", ADDRESSOF( open ) );
|
|
|
- Dlsym( libc, "close", ADDRESSOF( close ) );
|
|
|
- Dlsym( libc, "lseek", ADDRESSOF( lseek ) );
|
|
|
- Dlsym( libc, "fsync", ADDRESSOF( fsync ) );
|
|
|
- Dlsym( libc, "ioctl", ADDRESSOF( ioctl ) );
|
|
|
- Dlsym( libc, "unlink", ADDRESSOF( unlink ) );
|
|
|
- Dlsym( libc, "rename", ADDRESSOF( rename ) );
|
|
|
- Dlsym( libc, "ftruncate", ADDRESSOF( ftruncate ) );
|
|
|
- Dlsym( libc, "chmod", ADDRESSOF( chmod ) );
|
|
|
- Dlsym( libc, "utime", ADDRESSOF( utime ) );
|
|
|
- Dlsym( libc, "access", ADDRESSOF( access ) );
|
|
|
- Dlsym( libc, "select", ADDRESSOF( select ) );
|
|
|
-
|
|
|
- Dlsym( libc, "chdir", ADDRESSOF( chdir ) );
|
|
|
- Dlsym( libc, "mkdir", ADDRESSOF( mkdir ) );
|
|
|
- Dlsym( libc, "rmdir", ADDRESSOF( rmdir ) );
|
|
|
-
|
|
|
- Dlsym( libc, "stat", ADDRESSOF( stat ) );
|
|
|
- Dlsym( libc, "lstat", ADDRESSOF( lstat ) );
|
|
|
- Dlsym( libc, "fstat", ADDRESSOF( fstat ) );
|
|
|
-
|
|
|
- Dlsym( libc, "getpid", ADDRESSOF( getpid ) );
|
|
|
- Dlsym( libc, "getuid", ADDRESSOF( getuid ) );
|
|
|
-
|
|
|
- Dlsym( libc, "alarm", ADDRESSOF( alarm ) );
|
|
|
- Dlsym( libc, "setitimer", ADDRESSOF( setitimer ) );
|
|
|
- Dlsym( libc, "getitimer", ADDRESSOF( getitimer ) );
|
|
|
-
|
|
|
- Dlsym( libc, "gettimeofday", ADDRESSOF( gettimeofday ) );
|
|
|
- Dlsym( libc, "mktime", ADDRESSOF( mktime ) );
|
|
|
- Dlsym( libc, "localtime", ADDRESSOF( localtime ) );
|
|
|
- Dlsym( libc, "time", ADDRESSOF( time ) );
|
|
|
- Dlsym( libc, "times", ADDRESSOF( times ) );
|
|
|
-
|
|
|
- Dlsym( libc, "getcwd", ADDRESSOF( getcwd ) );
|
|
|
- Dlsym( libc, "getenv", ADDRESSOF( getenv ) );
|
|
|
-
|
|
|
- Dlsym( libc, "opendir", ADDRESSOF( opendir ) );
|
|
|
- Dlsym( libc, "readdir", ADDRESSOF( readdir ) );
|
|
|
- Dlsym( libc, "closedir", ADDRESSOF( closedir ) );
|
|
|
-
|
|
|
- Dlsym( libc, "sigsetjmp", ADDRESSOF( sigsetjmp ) );
|
|
|
- Dlsym( libc, "siglongjmp", ADDRESSOF( siglongjmp ) );
|
|
|
-
|
|
|
- Dlsym( libc, "malloc", ADDRESSOF( malloc ) );
|
|
|
- Dlsym( libc, "posix_memalign", ADDRESSOF( posix_memalign ) );
|
|
|
- Dlsym( libc, "free", ADDRESSOF( free ) );
|
|
|
- Dlsym( libc, "mprotect", ADDRESSOF( mprotect ) );
|
|
|
-
|
|
|
- Dlsym( libc, "system", ADDRESSOF( system ) );
|
|
|
- Dlsym( libc, "uname", ADDRESSOF( uname ) );
|
|
|
-
|
|
|
- Dlsym( libc, "kill", ADDRESSOF( kill ) );
|
|
|
- Dlsym( libc, "exit", ADDRESSOF( exit ) );
|
|
|
- Dlsym( libc, "perror", ADDRESSOF( perror ) );
|
|
|
- Dlsym( libc, "errno", ADDRESSOF( errno ) );
|
|
|
-
|
|
|
-
|
|
|
- getSysinfo;
|
|
|
-END Unix.
|
eth.guenter