WebSVN – Kolibri OS – Diff – /programs/develop/oberon07/Lib/KolibriOS/File.ob07

 (*
-    Copyright 2016 Anton Krotov
+    Copyright 2016, 2018 Anton Krotov
     This program is free software: you can redistribute it and/or modify
     it under the terms of the GNU Lesser General Public License as published by
     the Free Software Foundation, either version 3 of the License, or
     along with this program.  If not, see .
 *)
 MODULE File;
 IMPORT sys := SYSTEM, KOSAPI;
-IMPORT sys := SYSTEM, KOSAPI;
 CONST
-CONST
+    SEEK_BEG* = 0; SEEK_CUR* = 1; SEEK_END* = 2;
+TYPE
+    FNAME* = ARRAY 520 OF CHAR;
+    FS* = POINTER TO rFS;
-  SEEK_BEG* = 0; SEEK_CUR* = 1; SEEK_END* = 2;
-TYPE
-  FNAME* = ARRAY 520 OF CHAR;
-  FS* = POINTER TO rFS;
-  rFS* = RECORD
+    rFS* = RECORD
-    subfunc*, pos*, hpos*, bytes*, buffer*: INTEGER;
+        subfunc*, pos*, hpos*, bytes*, buffer*: INTEGER;
-    name*: FNAME
+        name*: FNAME
-  END;
+    END;
-  FD* = POINTER TO rFD;
+    FD* = POINTER TO rFD;
-  rFD* = RECORD
+    rFD* = RECORD
-    attr*: INTEGER;
+        attr*: INTEGER;
+        ntyp*: CHAR;
-    ntyp*: CHAR;
+        reserved: ARRAY 3 OF CHAR;
-    reserved: ARRAY 3 OF CHAR;
+        time_create*, date_create*,
-    time_create*, date_create*,
+        time_access*, date_access*,
+        time_modif*,  date_modif*,
-    time_access*, date_access*,
+        size*, hsize*: INTEGER;
-    time_modif*,  date_modif*,
+        name*: FNAME
-    size*, hsize*: INTEGER;
+    END;
-    name*: FNAME
-  END;
+PROCEDURE [stdcall] f_68_27 (file_name: INTEGER; VAR size: INTEGER): INTEGER;
-PROCEDURE [stdcall] f_68_27(file_name: INTEGER; VAR size: INTEGER): INTEGER;
+BEGIN
-BEGIN
+    sys.CODE(
-  sys.CODE("53");               (* push    ebx              *)
+H,               (*  push    ebx                    *)
-  sys.CODE("6A44");             (* push    68               *)
+AH, 044H,         (*  push    68                     *)
-  sys.CODE("58");               (* pop     eax              *)
+H,               (*  pop     eax                    *)
-  sys.CODE("6A1B");             (* push    27               *)
+AH, 01BH,         (*  push    27                     *)
+BH,               (*  pop     ebx                    *)
-  sys.CODE("5B");               (* pop     ebx              *)
+BH, 04DH, 008H,   (*  mov     ecx, dword [ebp +  8]  *)
-  sys.CODE("8B4D08");           (* mov     ecx, [ebp + 08h] *)
+CDH, 040H,         (*  int     64                     *)
+BH, 04DH, 00CH,   (*  mov     ecx, dword [ebp + 12]  *)
-  sys.CODE("CD40");             (* int     40h              *)
+H, 011H,         (*  mov     dword [ecx], edx       *)
-  sys.CODE("8B4D0C");           (* mov     ecx, [ebp + 0Ch] *)
+BH,               (*  pop     ebx                    *)
-  sys.CODE("8911");             (* mov     [ecx], edx       *)
+C9H,               (*  leave                          *)
+C2H, 008H, 000H    (*  ret     8                      *)
-  sys.CODE("5B");               (* pop     ebx              *)
+    )
+    RETURN 0
-  sys.CODE("C9");               (* leave                    *)
+END f_68_27;
   sys.CODE("C20800");           (* ret     08h              *)
-  RETURN 0
+PROCEDURE Load* (FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
-END f_68_27;
+    RETURN f_68_27(sys.ADR(FName[0]), size)
+END Load;
-PROCEDURE Load*(FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
-  RETURN f_68_27(sys.ADR(FName[0]), size)
-END Load;
+PROCEDURE GetFileInfo* (FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN;
+VAR
+    res2: INTEGER; fs: rFS;
-PROCEDURE GetFileInfo*(FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN;
+BEGIN
-VAR res2: INTEGER; fs: rFS;
+    fs.subfunc := 5;
+    fs.pos     := 0;
-BEGIN
+    fs.hpos    := 0;
-  fs.subfunc := 5;
+    fs.bytes   := 0;
-  fs.pos := 0;
+    fs.buffer  := sys.ADR(Info);
-  fs.hpos := 0;
+    COPY(FName, fs.name)
-  fs.bytes := 0;
+    RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0
-  fs.buffer := sys.ADR(Info);
+END GetFileInfo;
-  COPY(FName, fs.name)
-  RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0
-END GetFileInfo;
+PROCEDURE Exists* (FName: ARRAY OF CHAR): BOOLEAN;
 VAR
-PROCEDURE Exists*(FName: ARRAY OF CHAR): BOOLEAN;
-VAR fd: rFD;
-BEGIN
-  RETURN GetFileInfo(FName, fd) & ~(4 IN BITS(fd.attr))
-END Exists;
-PROCEDURE Close*(VAR F: FS);
-BEGIN
-  IF F # NIL THEN
-    DISPOSE(F)
-  END
-END Close;
-PROCEDURE Open*(FName: ARRAY OF CHAR): FS;
-VAR F: FS;
-BEGIN
-  IF Exists(FName) THEN
-    NEW(F);
+    fd: rFD;
+BEGIN
+    RETURN GetFileInfo(FName, fd) & ~(4 IN BITS(fd.attr))
+END Exists;
+PROCEDURE Close* (VAR F: FS);
+BEGIN
+    IF F # NIL THEN
+        DISPOSE(F)
+    END
+END Close;
+PROCEDURE Open* (FName: ARRAY OF CHAR): FS;
+VAR
+    F: FS;
+BEGIN
+    IF Exists(FName) THEN
+        NEW(F);
+        IF F # NIL THEN
+            F.subfunc := 0;
-    IF F # NIL THEN
+            F.pos     := 0;
+            F.hpos    := 0;
+            F.bytes   := 0;
-      F.subfunc := 0;
+            F.buffer  := 0;
+            COPY(FName, F.name)
-      F.pos := 0;
+        END
+    ELSE
-      F.hpos := 0;
+        F := NIL
-      F.bytes := 0;
+    END
-      F.buffer := 0;
-      COPY(FName, F.name)
+    RETURN F
-    END
+END Open;
-  ELSE
-    F := NIL
-  END
+PROCEDURE Delete* (FName: ARRAY OF CHAR): BOOLEAN;
-  RETURN F
+VAR
-END Open;
+    F: FS;
+    res, res2: INTEGER;
-PROCEDURE Delete*(FName: ARRAY OF CHAR): BOOLEAN;
-VAR F: FS; res, res2: INTEGER;
+BEGIN
-BEGIN
-  IF Exists(FName) THEN
+    IF Exists(FName) THEN
-    NEW(F);
+        NEW(F);
-    IF F # NIL THEN
+        IF F # NIL THEN
+            F.subfunc := 8;
-      F.subfunc := 8;
+            F.pos     := 0;
-      F.pos := 0;
+            F.hpos    := 0;
+            F.bytes   := 0;
+            F.buffer  := 0;
+            COPY(FName, F.name);
+            res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+            DISPOSE(F)
+        ELSE
-      F.hpos := 0;
-      F.bytes := 0;
-      F.buffer := 0;
+            res := -1
+        END
-      COPY(FName, F.name);
+    ELSE
-      res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+        res := -1
-      DISPOSE(F)
+    END
-    ELSE
-      res := -1
+    RETURN res = 0
+END Delete;
-    END
+PROCEDURE Seek* (F: FS; Offset, Origin: INTEGER): INTEGER;
-  ELSE
-    res := -1
-  END
-  RETURN res = 0
+VAR
-END Delete;
+    res: INTEGER;
+    fd: rFD;
-PROCEDURE Seek*(F: FS; Offset, Origin: INTEGER): INTEGER;
+BEGIN
-VAR res: INTEGER; fd: rFD;
+    IF (F # NIL) & GetFileInfo(F.name, fd) & (BITS(fd.attr) * {4} = {}) THEN
+        CASE Origin OF
-BEGIN
+        |SEEK_BEG: F.pos := Offset
+        |SEEK_CUR: F.pos := F.pos + Offset
-  IF (F # NIL) & GetFileInfo(F.name, fd) & (BITS(fd.attr) * {4} = {}) THEN
+        |SEEK_END: F.pos := fd.size + Offset
+        ELSE
-    CASE Origin OF
+        END;
-    |SEEK_BEG: F.pos := Offset
+        res := F.pos
-    |SEEK_CUR: F.pos := F.pos + Offset
+    ELSE
-    |SEEK_END: F.pos := fd.size + Offset
+        res := -1
-    ELSE
+    END
-    END;
-    res := F.pos
+    RETURN res
-  ELSE
+END Seek;
-    res := -1
-  END
-  RETURN res
+PROCEDURE Read* (F: FS; Buffer, Count: INTEGER): INTEGER;
+VAR
-END Seek;
+    res, res2: INTEGER;
+BEGIN
-PROCEDURE Read*(F: FS; Buffer, Count: INTEGER): INTEGER;
-VAR res, res2: INTEGER;
+    IF F # NIL THEN
+        F.subfunc := 0;
-BEGIN
+        F.bytes   := Count;
+        F.buffer  := Buffer;
-  IF F # NIL THEN
+        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+        IF res2 > 0 THEN
-    F.subfunc := 0;
+            F.pos := F.pos + res2
-    F.bytes := Count;
+        END
-    F.buffer := Buffer;
+    ELSE
-    res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+        res2 := 0
-    IF res2 > 0 THEN
+    END
-      F.pos := F.pos + res2
-    END
+    RETURN res2
-  ELSE
+END Read;
-    res2 := 0
-  END
-  RETURN res2
+PROCEDURE Write* (F: FS; Buffer, Count: INTEGER): INTEGER;
+VAR
-END Read;
+    res, res2: INTEGER;
+BEGIN
+    IF F # NIL THEN
+        F.subfunc := 3;
+        F.bytes   := Count;
+        F.buffer  := Buffer;
-PROCEDURE Write*(F: FS; Buffer, Count: INTEGER): INTEGER;
-VAR res, res2: INTEGER;
-BEGIN
+        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-  IF F # NIL THEN
+        IF res2 > 0 THEN
+            F.pos := F.pos + res2
-    F.subfunc := 3;
+        END
-    F.bytes := Count;
+    ELSE
-    F.buffer := Buffer;
+        res2 := 0
-    res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+    END
-    IF res2 > 0 THEN
-      F.pos := F.pos + res2
+    RETURN res2
-    END
+END Write;
-  ELSE
-    res2 := 0
+PROCEDURE Create* (FName: ARRAY OF CHAR): FS;
-  END
+VAR
-  RETURN res2
+    F: FS;
-END Write;
+    res2: INTEGER;
+BEGIN
-PROCEDURE Create*(FName: ARRAY OF CHAR): FS;
+    NEW(F);
-VAR F: FS; res2: INTEGER;
+    IF F # NIL THEN
-BEGIN
+        F.subfunc := 2;
-  NEW(F);
+        F.pos     := 0;
-  IF F # NIL THEN
+        F.hpos    := 0;
-    F.subfunc := 2;
-    F.pos := 0;
-    F.hpos := 0;
-    F.bytes := 0;
-    F.buffer := 0;
-    COPY(FName, F.name);
-    IF KOSAPI.sysfunc22(70, sys.ADR(F^), res2) # 0 THEN
-      DISPOSE(F)
-    END
-  END
-  RETURN F
-END Create;
-PROCEDURE DirExists*(FName: ARRAY OF CHAR): BOOLEAN;
-VAR fd: rFD;
-BEGIN
-  RETURN GetFileInfo(FName, fd) & (4 IN BITS(fd.attr))
-END DirExists;
+        F.bytes   := 0;
+        F.buffer  := 0;
+        COPY(FName, F.name);
-PROCEDURE CreateDir*(DirName: ARRAY OF CHAR): BOOLEAN;
+        IF KOSAPI.sysfunc22(70, sys.ADR(F^), res2) # 0 THEN
+            DISPOSE(F)
-VAR F: FS; res, res2: INTEGER;
+        END
-BEGIN
-  NEW(F);
+    END
-  IF F # NIL THEN
+    RETURN F
-    F.subfunc := 9;
+END Create;
-    F.pos := 0;
-    F.hpos := 0;
-    F.bytes := 0;
+PROCEDURE DirExists* (FName: ARRAY OF CHAR): BOOLEAN;
-    F.buffer := 0;
+VAR
-    COPY(DirName, F.name);
+    fd: rFD;
-    res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+BEGIN
-    DISPOSE(F)
+    RETURN GetFileInfo(FName, fd) & (4 IN BITS(fd.attr))
-  ELSE
+END DirExists;
-    res := -1
-  END
+PROCEDURE CreateDir* (DirName: ARRAY OF CHAR): BOOLEAN;
+VAR
+    F: FS;
+    res, res2: INTEGER;
+BEGIN
+    NEW(F);
+    IF F # NIL THEN
+        F.subfunc := 9;
+        F.pos     := 0;
+        F.hpos    := 0;
+        F.bytes   := 0;
+        F.buffer  := 0;
+        COPY(DirName, F.name);
+        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+        DISPOSE(F)
+    ELSE
+        res := -1
+    END
+    RETURN res = 0
+END CreateDir;
+PROCEDURE DeleteDir* (DirName: ARRAY OF CHAR): BOOLEAN;
-  RETURN res = 0
+VAR
-END CreateDir;
+    F: FS;
+    res, res2: INTEGER;
-PROCEDURE DeleteDir*(DirName: ARRAY OF CHAR): BOOLEAN;
+BEGIN
 VAR F: FS; res, res2: INTEGER;
+    IF DirExists(DirName) THEN
-BEGIN
+        NEW(F);
-  IF DirExists(DirName) THEN
+        IF F # NIL THEN

Subversion Repositories Kolibri OS

(root)/programs/develop/oberon07/Lib/KolibriOS/File.ob07 – Rev 6613 → 7597