Make module from Trianus system added.

S3 system filen renamed with prefix eth.


Former-commit-id: 2aeddb9975

src/lib/s3/ethBTrees.Mod

@@ -1,8 +1,8 @@
 (* ETH Oberon, Copyright 2001 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 BTrees;  (** portable *) (* ejz,  *)
-  IMPORT Files;
+MODULE ethBTrees;  (** portable *) (* ejz,  *)
+  IMPORT Files := OakFiles;
 
 (** BTrees is a utility module that manages b-trees with string (64 characters) or longint keys. Each key is linked to
     a longint value (org) which normaly is an offset to where the data for that key is stored. *)
@@ -1131,4 +1131,4 @@ MODULE BTrees;  (** portable *) (* ejz,  *)
 
 BEGIN
   Init()
-END BTrees.
+END ethBTrees.

src/lib/s3/ethGZReaders.Mod

@@ -0,0 +1,169 @@
+(* ETH Oberon, Copyright 2001 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 ethGZReaders;  (** Stefan Walthert  **)
+
+  (**
+    Reading from .gz files
+  **)
+  
+  IMPORT
+    Files := OakFiles, ZlibReaders := ethZlibReaders;
+    
+  
+  CONST
+    (** result codes **)
+    Ok* = ZlibReaders.Ok; StreamEnd* = ZlibReaders.StreamEnd;
+    StreamError* = ZlibReaders.StreamError; DataError* = ZlibReaders.DataError; BufError* = ZlibReaders.BufError; FileError* = ZlibReaders.FileError;
+    
+    BufSize = 4000H;
+    
+    DeflateMethod = 8;
+    
+  
+  TYPE
+    (** structure for reading from a .gz file **)
+    Reader* = RECORD
+      file-: Files.File;  (** underlying Oberon file **)
+      res-: LONGINT;  (** current stream state **)
+      transparent: BOOLEAN;  (* set if not a .gz file *)
+      pos: LONGINT;  (* logical position in decompressed output stream *)
+      zr: ZlibReaders.Reader;
+    END;
+
+    
+  (* check .gz header; input buffer must be empty or just have been refilled (in case magic id is missing) *)
+  PROCEDURE CheckHeader (VAR r: Reader; VAR fr: Files.Rider);
+    CONST
+      headCRC = 2; extraField = 4; origName = 8; comment = 10H; reserved = 20H;
+    VAR
+      ch, method, flags: CHAR; len: INTEGER;
+  BEGIN
+    Files.Read(fr, ch);
+    IF fr.eof THEN
+      r.res := StreamEnd
+    ELSIF ch # 1FX THEN
+      r.transparent := TRUE; r.res := Ok
+    ELSE  (* first byte of magic id ok *)
+      Files.Read(fr, ch);
+      IF fr.eof OR (ch # 8BX)THEN
+        r.transparent := TRUE; r.res := Ok
+      ELSE  (* second byte of magic id ok *)
+        Files.Read(fr, method); Files.Read(fr, flags);
+        IF fr.eof OR (ORD(method) # DeflateMethod) OR (ORD(flags) >= reserved) THEN
+          r.res := DataError
+        ELSE
+          FOR len := 1 TO 6 DO Files.Read(fr, ch) END;  (* skip time, xflags and OS code *)
+          IF ODD(ORD(flags) DIV extraField) THEN  (* skip extra field *)
+            Files.Read(fr, ch); len := ORD(ch);
+            Files.Read(fr, ch); len := len + 100H*ORD(ch);
+            WHILE ~fr.eof & (len # 0) DO
+              Files.Read(fr, ch); DEC(len)
+            END
+          END;
+          IF ODD(ORD(flags) DIV origName) THEN  (* skip original file name *)
+            REPEAT Files.Read(fr, ch) UNTIL fr.eof OR (ch = 0X)
+          END;
+          IF ODD(ORD(flags) DIV comment) THEN  (* skip the .gz file comment *)
+            REPEAT Files.Read(fr, ch) UNTIL fr.eof OR (ch = 0X)
+          END;
+          IF ODD(ORD(flags) DIV headCRC) THEN  (* skip header crc *)
+            Files.Read(fr, ch); Files.Read(fr, ch)
+          END;
+          IF fr.eof THEN r.res := DataError
+          ELSE r.res := Ok
+          END
+        END
+      END
+    END
+  END CheckHeader;
+  
+  (** open reader on existing file for input **)
+  PROCEDURE Open* (VAR r: Reader; file: Files.File);
+  VAR
+    fr: Files.Rider;
+  BEGIN
+    r.transparent := FALSE;
+    IF file # NIL THEN
+      r.file := file; Files.Set(fr, file, 0);
+      CheckHeader(r, fr);
+      ZlibReaders.Open(r.zr, FALSE, fr);
+      r.pos := 0
+    ELSE
+      r.res := StreamError
+    END
+  END Open;
+  
+  (** close reader **)
+  PROCEDURE Close* (VAR r: Reader);
+  VAR
+    fr: Files.Rider;
+    crc32: LONGINT;
+  BEGIN
+    IF r.transparent THEN
+      r.res := Ok
+    ELSE
+      ZlibReaders.Close(r.zr);
+      IF r.zr.res = ZlibReaders.Ok THEN
+        Files.Set(fr, r.file, Files.Length(r.file) - 8);
+        Files.ReadLInt(fr, crc32);
+        IF crc32 # r.zr.crc32 THEN
+          r.res := DataError
+        ELSE
+          r.res := Ok
+        END
+      ELSE
+        r.res := r.zr.res
+      END
+    END
+  END Close;
+  
+  (** read specified number of bytes into buffer and return number of bytes actually read **)
+  PROCEDURE ReadBytes* (VAR r: Reader; VAR buf: ARRAY OF CHAR; offset, len: LONGINT; VAR read: LONGINT);
+    VAR i: LONGINT; fr: Files.Rider; bufp: POINTER TO ARRAY OF CHAR;
+  BEGIN
+    IF r.file = NIL THEN
+      r.res := StreamError; read := 0
+    ELSIF r.res < Ok THEN
+      read := 0
+    ELSIF r.res = StreamEnd THEN
+      read := 0
+    ELSIF r.transparent THEN  (* uncompressed input *)
+      Files.Set(fr, r.file, r.pos);
+      IF offset = 0 THEN
+        Files.ReadBytes(fr, buf, len)
+      ELSE
+        NEW(bufp, len);
+        Files.ReadBytes(fr, bufp^, len);
+        FOR i := 0 TO len - 1 DO
+          buf[offset + i] := bufp[i]
+        END
+      END;
+      read := len - fr.res
+    ELSE
+      ZlibReaders.ReadBytes(r.zr, buf, offset, len, read)
+    END;
+    INC(r.pos, read)
+  END ReadBytes;
+  
+  (** read decompressed byte **)
+  PROCEDURE Read* (VAR r: Reader; VAR ch: CHAR);
+  BEGIN
+    ZlibReaders.Read(r.zr, ch)
+  END Read;
+  
+  (** get position of reader within uncompressed output stream **)
+  PROCEDURE Pos* (VAR r: Reader): LONGINT;
+    VAR pos: LONGINT;
+  BEGIN
+    IF r.file = NIL THEN
+      r.res := StreamError; pos := 0
+    ELSIF r.res < Ok THEN
+      pos := 0
+    ELSE
+      pos := r.pos
+    END;
+    RETURN pos
+  END Pos;
+  
+END ethGZReaders.

src/lib/s3/ethGZWriters.Mod

@@ -0,0 +1,113 @@
+(* ETH Oberon, Copyright 2001 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 ethGZWriters;  (** Stefan Walthert  **)
+
+IMPORT
+  Files := OakFiles,  ZlibWriters := ethZlibWriters;
+
+CONST
+  (** result codes **)
+  Ok* = ZlibWriters.Ok; StreamEnd* = ZlibWriters.StreamEnd;
+  FileError* = -1; StreamError* = ZlibWriters.StreamError; DataError* = ZlibWriters.DataError; BufError* = ZlibWriters.BufError;
+  
+  (** compression levels **)
+  DefaultCompression* = ZlibWriters.DefaultCompression; NoCompression* = ZlibWriters.NoCompression; 
+  BestSpeed* = ZlibWriters.BestSpeed; BestCompression* = ZlibWriters.BestCompression;
+  
+  (** compression strategies **)
+  DefaultStrategy* = ZlibWriters.DefaultStrategy; Filtered* = ZlibWriters.Filtered; HuffmanOnly* = ZlibWriters.HuffmanOnly;
+    
+  DeflateMethod = 8;
+
+TYPE
+  (** structure for writing to a .gz file **)
+  Writer* = RECORD
+    file-: Files.File;  (** underlying Oberon file **)
+    res-: LONGINT;  (** current stream state **)
+    start: LONGINT;  (* start of compressed data in file (after header) *)
+    pos: LONGINT;  (* logical position in uncompressed input stream *)
+    zw: ZlibWriters.Writer;
+  END;
+
+
+PROCEDURE WriteHeader(VAR w: Writer; VAR r: Files.Rider);
+VAR
+  i: INTEGER;
+BEGIN
+  Files.Write(r, 1FX); INC(w.start);  (* ID1 *)
+  Files.Write(r, 8BX); INC(w.start);  (* ID2 *)
+  Files.Write(r, CHR(DeflateMethod));  (* CM (Compression Method) *)
+  FOR i := 0 TO 6 DO Files.Write(r, 0X); INC(w.start) END;
+END WriteHeader;
+
+(** change deflate parameters within the writer **)
+PROCEDURE SetParams*(VAR w: Writer; level, strategy: SHORTINT);
+BEGIN
+  ZlibWriters.SetParams(w.zw, level, strategy, ZlibWriters.NoFlush);
+  w.res := w.zw.res;
+END SetParams;
+
+(** open writer on .gz-file **)
+PROCEDURE Open*(VAR w: Writer; level, strategy: SHORTINT; file: Files.File);
+VAR
+  r: Files.Rider;
+BEGIN
+  w.start := 0;
+  IF file# NIL THEN
+    w.file := file; Files.Set(r, w.file, 0);
+    WriteHeader(w, r);
+    ZlibWriters.Open(w.zw, level, strategy, ZlibWriters.NoFlush, FALSE, r);
+    w.res := w.zw.res
+  ELSE
+    w.res := FileError
+  END
+END Open;
+
+(** write specified number of bytes from buffer into .gz-file and return number of bytes actually written **)
+PROCEDURE WriteBytes*(VAR w: Writer; VAR buf: ARRAY OF CHAR; offset, len: LONGINT; VAR written: LONGINT);
+BEGIN
+  ZlibWriters.WriteBytes(w.zw, buf, offset, len, written);
+  INC(w.pos, written);
+  w.res := w.zw.res
+END WriteBytes;
+
+(** write byte **)
+PROCEDURE Write*(VAR w: Writer; ch: CHAR);
+BEGIN
+  ZlibWriters.Write(w.zw, ch);
+  w.res := w.zw.res
+END Write;
+
+(** close writer **)
+PROCEDURE Close*(VAR w: Writer);
+VAR
+  r: Files.Rider;
+BEGIN
+  ZlibWriters.Close(w.zw);
+  w.res := w.zw.res;
+  IF w.res = ZlibWriters.Ok THEN
+    Files.Close(w.file);
+    Files.Set(r, w.file, Files.Length(w.file));
+    Files.WriteLInt(r, w.zw.crc32);  (* CRC32 *)
+    Files.WriteLInt(r, w.pos);  (* ISIZE: Input Size *)
+    Files.Close(w.file)
+  END
+END Close;
+
+(** get position of reader within uncompressed output stream **)
+PROCEDURE Pos* (VAR w: Writer): LONGINT;
+  VAR pos: LONGINT;
+BEGIN
+  IF (w.file = NIL) THEN
+    w.res := StreamError; pos := 0
+  ELSIF w.res < Ok THEN
+    pos := 0
+  ELSE
+    pos := w.pos
+  END;
+  RETURN pos
+END Pos;
+
+
+END ethGZWriters.

src/lib/s3/ethMD5.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 MD5;  (** portable *) (* ejz  *)
+MODULE ethMD5;  (** portable *) (* ejz  *)
   IMPORT SYSTEM;
 
 (** The MD5 Message-Digest Algorithm (RFC1321)
@@ -292,4 +292,4 @@ under a public-key cryptosystem such as RSA. *)
     str[32] := 0X
   END ToString;
 
-END MD5.
+END ethMD5.

src/lib/s3/ethRandomNumbers.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 RandomNumbers;  (** portable *)
+MODULE ethRandomNumbers;  (** portable *)
 (* Random Number Generator, page 12 *)
 IMPORT Math := oocOakMath, Oberon := Kernel, SYSTEM;
 
@@ -37,4 +37,4 @@ END InitSeed;
 BEGIN
   Oberon.GetClock(t, d);
   Z := SYSTEM.VAL(LONGINT, SYSTEM.VAL(SET, t) / SYSTEM.VAL(SET, d))
-END RandomNumbers.  (* Copyright M. Reiser, 1992 *)
+END ethRandomNumbers.  (* Copyright M. Reiser, 1992 *)

src/lib/s3/ethSets.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 Sets;  (** portable *)
+MODULE ethSets;  (** portable *)
 
 IMPORT Texts := CmdlnTexts;
 
@@ -138,4 +138,4 @@ BEGIN
 END Print;
 
 
-END Sets.
+END ethSets.

src/lib/s3/ethZip.Mod

@@ -1,10 +1,10 @@
 (* ETH Oberon, Copyright 2001 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 Zip;  (** Stefan Walthert  **)
+MODULE ethZip;  (** Stefan Walthert  **)
 
 IMPORT
-  Files := OakFiles, Zlib, ZlibReaders, ZlibWriters;
+  Files := OakFiles, Zlib := ethZlib, ZlibReaders := ethZlibReaders, ZlibWriters := ethZlibWriters;
 
 CONST
   
@@ -742,4 +742,4 @@ BEGIN
   END
 END Close;
 
-END Zip.
+END ethZip.

src/lib/s3/ethZlib.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 Zlib;  (** Stefan Walthert  **)
+MODULE ethZlib;  (** Stefan Walthert  **)
 
 IMPORT
   SYSTEM;
@@ -157,4 +157,4 @@ END CRC32;
 
 BEGIN
   InitCRCTable();
-END Zlib.
+END ethZlib.

src/lib/s3/ethZlibBuffers.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 ZlibBuffers;  (** Stefan Walthert  **)
+MODULE ethZlibBuffers;  (** Stefan Walthert  **)
 
 IMPORT
   SYSTEM;
@@ -113,4 +113,4 @@ BEGIN
   INC(buf.avail, size); DEC(buf.next, size);
 END Drain;
 
-END ZlibBuffers.
+END ethZlibBuffers.

src/lib/s3/ethZlibDeflate.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 ZlibDeflate;  (** Stefan Walthert  **)
+MODULE ethZlibDeflate;  (** Stefan Walthert  **)
 
   (**
     Compression of byte streams with deflate algorithm
@@ -13,7 +13,7 @@ MODULE ZlibDeflate;  (** Stefan Walthert  **)
   *)
   
 IMPORT
-  SYSTEM, Zlib, ZlibBuffers;
+  SYSTEM, Zlib := ethZlib, ZlibBuffers := ethZlibBuffers;
 
 CONST
   (** Result codes for compression/decompression functions **)
@@ -1489,4 +1489,4 @@ BEGIN
     ConfigTable[8].MaxChain := 1024; ConfigTable[8].Compress :=  CompressSlow;
   ConfigTable[9].GoodLen := 32; ConfigTable[9].MaxLazy := 128; ConfigTable[9].NiceLen := 258; 
     ConfigTable[9].MaxChain := 4096; ConfigTable[9].Compress :=  CompressSlow;            (* maximum compression *)
-END ZlibDeflate.
+END ethZlibDeflate.

src/lib/s3/ethZlibInflate.Mod

@@ -1,7 +1,7 @@
 (* ETH Oberon, Copyright 2001 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 ZlibInflate;  (** eos  **)
+MODULE ethZlibInflate;  (** eos  **)
 
   (**
     Decompression of deflated byte streams
@@ -18,7 +18,7 @@ MODULE ZlibInflate;  (** eos  **)
   *)
   
   IMPORT
-    SYSTEM, Zlib, ZlibBuffers;
+    SYSTEM, Zlib := ethZlib, ZlibBuffers := ethZlibBuffers;
   
   CONST
     (** result codes **)
@@ -1227,4 +1227,4 @@ BEGIN
   Order[0] := 16; Order[1] := 17; Order[2] := 18; Order[3] := 0; Order[4] := 8; Order[5] := 7; Order[6] := 9;
   Order[7] := 6; Order[8] := 10; Order[9] := 5; Order[10] := 11; Order[11] := 4; Order[12] := 12; Order[13] := 3;
   Order[14] := 13; Order[15] := 2; Order[16] := 14; Order[17] := 1; Order[18] := 15
-END ZlibInflate.
+END ethZlibInflate.

src/lib/s3/ethZlibReaders.Mod

@@ -1,10 +1,10 @@
 (* ETH Oberon, Copyright 2001 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 ZlibReaders;  (** Stefan Walthert  **)
+MODULE ethZlibReaders;  (** Stefan Walthert  **)
 
 IMPORT
-  Files := OakFiles, Zlib, ZlibBuffers, ZlibInflate;
+  Files := OakFiles, Zlib := ethZlib, ZlibBuffers := ethZlibBuffers, ZlibInflate := ethZlibInflate;
 
 CONST
   (** result codes **)
@@ -110,4 +110,4 @@ BEGIN
 END Uncompress;
 
 
-END ZlibReaders.
+END ethZlibReaders.

src/lib/s3/ethZlibWriters.Mod

@@ -1,10 +1,10 @@
 (* ETH Oberon, Copyright 2001 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 ZlibWriters;  (** Stefan Walthert  **)
+MODULE ethZlibWriters;  (** Stefan Walthert  **)
 
 IMPORT
-  Files := OakFiles, Zlib, ZlibBuffers, ZlibDeflate;
+  Files := OakFiles, Zlib := ethZlib, ZlibBuffers := ethZlibBuffers, ZlibDeflate := ethZlibDeflate;
 
 CONST
   (** result codes **)
@@ -158,4 +158,4 @@ BEGIN
 END Compress;
   
 
-END ZlibWriters.
+END ethZlibWriters.