separated Kernel, Files. Texts modules for bootstrapping and general use

2026-04-06 21:32:26 +00:00 · 2014-03-21 04:00:44 +08:00 · 2014-03-21 04:00:44 +08:00 · e1f76da278
commit e1f76da278
parent e0a915b319
41 changed files with 3226 additions and 323 deletions
--- a/src/lib/system/linux/gnuc/Kernel0.Mod
+++ b/src/lib/system/linux/gnuc/Kernel0.Mod
@ -0,0 +1,179 @@
+MODULE Kernel0; 
+(*
+  J. Templ, 16.4.95 
+  communication with C-runtime and storage management
+*)
+(* version for bootstrapping voc *)
+
+  IMPORT SYSTEM, Unix, Args, Strings := oocOakStrings, version;
+
+  TYPE
+    RealTime = POINTER TO TimeDesc;
+    TimeDesc = RECORD
+      sec, min, hour, mday, mon, year, wday, isdst, zone, gmtoff: LONGINT
+(*      sec, min, hour, mday, mon, year, wday, isdst, zone, gmtoff: INTEGER*)
+    END ;
+
+    KeyCmd* = PROCEDURE;
+
+    ObjFinalizer* = PROCEDURE(obj: SYSTEM.PTR);
+
+
+  VAR
+    (* trap handling *)
+    trapEnv*: Unix.JmpBuf;  (* saved stack environment for trap handling *)
+    
+    (* oberon heap management *)
+    nofiles*: LONGINT;
+
+    (* input event handling *)
+    readSet*, readySet*: Unix.FdSet;
+
+    FKey*: ARRAY 16 OF KeyCmd;
+
+    littleEndian*: BOOLEAN;
+
+    TimeUnit*: LONGINT;  (* 1 sec *)
+
+    LIB*, CWD*: ARRAY 256 OF CHAR;
+    OBERON*: ARRAY 1024 OF CHAR;
+    MODULES-: ARRAY 1024 OF CHAR;
+
+    prefix*, fullprefix* : ARRAY 256 OF CHAR;
+    timeStart: LONGINT; (* milliseconds *)
+
+
+  PROCEDURE -includesetjmp()
+    '#include "setjmp.h"';
+(* for localtime *)
+  PROCEDURE -includetime()
+    '#include "time.h"';
+
+  PROCEDURE -Lock*()
+    "SYSTEM_lock++";
+
+  PROCEDURE -Unlock*()
+    "SYSTEM_lock--; if (SYSTEM_interrupted && SYSTEM_lock == 0) __HALT(-9)";
+
+  PROCEDURE -Exit*(n: LONGINT)
+    "exit(n)";
+
+  PROCEDURE -sigsetjmp*(VAR env: Unix.JmpBuf; savemask: LONGINT): LONGINT
+    "__sigsetjmp(env, savemask)";
+
+  PROCEDURE -siglongjmp*(VAR env:Unix.JmpBuf; val: LONGINT)
+    "siglongjmp(env, val)";
+
+  PROCEDURE -heapsize*(): LONGINT
+    "SYSTEM_heapsize";
+
+  PROCEDURE -allocated*(): LONGINT
+      "SYSTEM_allocated";
+
+  PROCEDURE -localtime(VAR clock: LONGINT): RealTime
+      "(Kernel0_RealTime)localtime(clock)";
+
+  PROCEDURE -malloc*(size: LONGINT): LONGINT
+      "(LONGINT)malloc(size)";
+
+  PROCEDURE -free*(adr: LONGINT)
+      "(void)free(adr)";
+
+  PROCEDURE -getcwd(VAR cwd: Unix.Name)
+    "getcwd(cwd, cwd__len)";
+
+
+  PROCEDURE GetClock* (VAR t, d: LONGINT);
+    VAR tv: Unix.Timeval; tz: Unix.Timezone; time: RealTime;
+    l : LONGINT;
+  BEGIN
+    l := Unix.Gettimeofday(tv, tz);
+    time := localtime(tv.sec);
+    t := time.sec + ASH(time.min, 6) + ASH(time.hour, 12);
+    d := time.mday + ASH(time.mon+1, 5) + ASH(time.year MOD 100, 9); 
+  END GetClock;
+
+  PROCEDURE SetClock* (t, d: LONGINT);
+    VAR err: ARRAY 25 OF CHAR;
+  BEGIN err := "not yet implemented"; HALT(99)
+  END SetClock;
+
+  PROCEDURE Time*(): LONGINT;
+    VAR timeval: Unix.Timeval; timezone: Unix.Timezone;
+    l : LONGINT;
+  BEGIN
+    l := Unix.Gettimeofday(timeval, timezone);
+    RETURN (timeval.usec DIV 1000 + timeval.sec * 1000 - timeStart) MOD 7FFFFFFFH
+  END  Time;
+
+(*
+  PROCEDURE UserTime*(): LONGINT;
+    VAR rusage: Unix.Rusage;
+  BEGIN
+    Unix.Getrusage(0, S.ADR(rusage));
+    RETURN rusage.utime.sec*1000 + rusage.utime.usec DIV 1000
+        (*  + rusage.stime.sec*1000 + rusage.stime.usec DIV 1000*)
+  END  UserTime;
+*)
+
+  PROCEDURE Select*(delay: LONGINT);
+    VAR rs, ws, xs: Unix.FdSet; n: LONGINT; tv: Unix.Timeval;
+  BEGIN
+    rs := readSet;
+    FOR n := 0 TO 7 DO ws[n] := {}; xs[n] := {}; readySet[n] := {} END;
+    IF delay < 0 THEN delay := 0 END ;
+    tv.sec := delay DIV 1000; tv.usec := delay MOD 1000 * 1000;
+    n := Unix.Select(256, rs, ws, xs, tv);
+    IF n >= 0 THEN readySet := rs END
+  END Select;
+
+  PROCEDURE -GC*(markStack: BOOLEAN)
+    "SYSTEM_GC(markStack)";
+
+  PROCEDURE -RegisterObject*(obj: SYSTEM.PTR; finalize: ObjFinalizer)
+    "SYSTEM_REGFIN(obj, finalize)";
+
+  PROCEDURE -SetHalt*(p: PROCEDURE(n: LONGINT))
+      "SYSTEM_Halt = p";
+
+  PROCEDURE InstallTermHandler*(p: PROCEDURE);
+    (* not yet supported; no Modules.Free *)
+  END InstallTermHandler;
+
+  PROCEDURE LargestAvailable*(): LONGINT;
+  BEGIN
+    (* dummy proc for System 3 compatibility
+        no meaningful value except may be the remaining swap space can be returned
+        in the context of an extensible heap *)
+    RETURN MAX(LONGINT)
+  END LargestAvailable;
+
+  PROCEDURE Halt(n: LONGINT);
+    VAR res: LONGINT;
+  BEGIN res := Unix.Kill(Unix.Getpid(), 4);
+  END Halt;
+
+  PROCEDURE EndianTest;
+    VAR i: LONGINT; dmy: INTEGER;
+  BEGIN
+    dmy := 1; i := SYSTEM.ADR(dmy);
+    SYSTEM.GET(i, littleEndian);  (* indirection via i avoids warning on SUN cc -O *)
+  END EndianTest;
+
+BEGIN
+  EndianTest();
+  SetHalt(Halt);
+  CWD := ""; OBERON := "."; LIB := "";
+  MODULES := ""; (* additional modules path which can be specified on commandline and will be added to the OBERON variable; noch *)
+  getcwd(CWD);
+  Args.GetEnv ("MODULES", MODULES);
+  Args.GetEnv("OBERON", OBERON);
+  (* always have current directory in module search path, noch *)
+  Strings.Append(":.:", OBERON);
+  Strings.Append(MODULES, OBERON);
+  Strings.Append(":", OBERON);
+  Strings.Append(version.prefix, OBERON);
+  Strings.Append("/lib/voc/sym:", OBERON);
+  Args.GetEnv("OBERON_LIB", LIB);
+  TimeUnit := 1000; timeStart := 0; timeStart := Time()
+END Kernel0.