OberonCore

WHILE ~rd.eot DO
    rd.Read();
END;

TYPE
    ReadAction = POINTER TO RECORD (Services.Action)
        rd: Reader;
    END;


PROCEDURE (a: ReadAction) Do;
   CONST maxSpeed = 10;
   VAR speedUp: INTEGER;
BEGIN
    speedUp:=0;
    WHILE ~a.rd.eot & (speedUp<maxSpeed) DO
        a.rd.Read;
        INC(speedUp)
    END;
    IF ~a.rd.eot THEN Services.DoLated(a, Services.immediately) END;
END Do;

PROCEDURE Process;
   VAR msg: WinApi.MSG; res: INTEGER;
BEGIN
   res := WinApi.TranslateMessage(msg);
   res := WinApi.DispatchMessageW(msg)
END Process;

PROCEDURE (a: ReadAction) Do;
   CONST dt = 50; (* msecs *)
   VAR t0: LONGINT;
BEGIN
    t0:=Services.Ticks();
    WHILE ~a.rd.eot & ((Services.Ticks()-t0)<dt) DO
        a.rd.Read;
    END;
    IF ~a.rd.eot THEN Services.DoLated(a, Services.immediately) END;
END Do;

   IF Dialog.IsWindows() THEN
      ASSERT(Kernel.ThisMod("ZlibFilesWin") # NIL, 21);
      Log.String("Hook for Windows."); Log.Ln;
   ELSIF Dialog.IsLinux() THEN
      ASSERT(Kernel.ThisMod("ZlibFilesLin") # NIL, 21);
      Log.String("Hook for Linux."); Log.Ln;
   END

ent.dataDescriptor := ODD(sintDummy DIV 8);

ent.dataDescriptor := 3 IN ent.genPurpBitFlag;

   (* Writes file header in central directory, updates ent.offsetCentralDir *)
   PROCEDURE WriteFileHeader(ent: Entry; wr: Files.Writer);
     VAR
       i, commentLen, nameLen: INTEGER;
       oem: POINTER TO ARRAY OF SHORTCHAR;
         vMadeBy: INTEGER;
   BEGIN
      ent.offsetCentralDir := wr.Pos();
      WriteInt(wr, CentralFileHeaderSignature);   (* central file header signature *)
      IF EFS IN ent.genPurpBitFlag THEN
         vMadeBy := (*UNIX*)3 * 100H + CompatibleVersions * 10;
      ELSE
         vMadeBy := (*MS-DOS*)0 * 100H + CompatibleVersions * 10
      END;
      ...

   CONST N = 64*1024; (* трап 113 в ZlibDeflate.CompressStored *)
   VAR in: ARRAY N OF SHORTCHAR;
   VAR out: ARRAY N+128 OF SHORTCHAR;
   VAR outLen: LONGINT; VAR res: INTEGER;
   ZlibDeflate.Compress(in, out, 0, N, 0, N+128, 0, 0, outLen, res);
   Log.String("res = "); Log.Int(res); Log.Tab; Log.String("outLen = "); Log.Real(outLen); Log.Ln;

date := SHORT(day + month * 16 + (year-1980) * 256);
time := SHORT(second DIV 2 +  minute * 16 + hour * 1024);

date := SHORT(day + month * 32 + (year-1980) * 512);
time := SHORT(second DIV 2 +  minute * 32 + hour * 2048);

   VAR
      days: ARRAY 13 OF INTEGER;

   PROCEDURE (hk: Hook) GetFileModifyDateTime (f: Files.File; VAR date, time: SHORTINT);
   VAR year, month, day, hour, minute, second, bais: INTEGER;
      
      PROCEDURE Prev(): INTEGER;   
      BEGIN IF month = 1 THEN RETURN 12 ELSE RETURN month - 1 END
      END Prev;
      
      PROCEDURE Next(): INTEGER;   
      BEGIN IF month = 12 THEN RETURN 1 ELSE RETURN month + 1 END
      END Next;
      
   BEGIN
      HostFiles.GetModDate(f, year, month, day, hour, minute, second);      
      Dates.GetUTCBias(bais);
      minute := minute - bais;
      IF minute > 59 THEN
         hour := hour + minute DIV 60;
         minute := minute MOD 60;
      ELSIF minute < 0 THEN
         hour := hour + minute DIV 60;
         minute := minute MOD 60;
      END;
      IF hour > 23 THEN
         INC(day);
         hour := hour MOD 24;
      ELSIF hour < 0 THEN
         DEC(day);
         hour := hour MOD 24;
      END;
      IF year MOD 4 = 0 THEN days[2] := 29 ELSE days[2] := 28 END;
      IF day < 1 THEN
         month := Prev();
         IF month = 12 THEN DEC(year) END;
         day := days[month]
      ELSIF day > days[month] THEN
         month := Next();
         IF month = 1 THEN INC(year) END;
         day := 1
      END;
      date := SHORT(day + month * 32 + (year-1980) * 512);
      time := SHORT(second DIV 2 +  minute * 32 + hour * 2048);
   END GetFileModifyDateTime;

BEGIN   
   days[1] := 31; days[2] := 28; days[3] := 31; days[4] := 30; days[5] := 31; days[6] := 30;
   days[7] := 31; days[8] := 31; days[9] := 30; days[10] := 31; days[11] := 30; days[12] := 31;