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
 MODULE File;
 IMPORT sys := SYSTEM, KOSAPI;
 IMPORT sys := SYSTEM, KOSAPI;
 CONST
 CONST
     SEEK_BEG* = 0; SEEK_CUR* = 1; SEEK_END* = 2;
-    time_modif*,  date_modif*,
+        time_modif*,  date_modif*,
-    size*, hsize*: INTEGER;
+        size*, hsize*: INTEGER;
-    name*: FNAME
+        name*: FNAME
-  END;
+    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                     *)
-  sys.CODE("5B");               (* pop     ebx              *)
+BH,               (*  pop     ebx                    *)
-  sys.CODE("8B4D08");           (* mov     ecx, [ebp + 08h] *)
+BH, 04DH, 008H,   (*  mov     ecx, dword [ebp +  8]  *)
-  sys.CODE("CD40");             (* int     40h              *)
+CDH, 040H,         (*  int     64                     *)
-  sys.CODE("8B4D0C");           (* mov     ecx, [ebp + 0Ch] *)
+BH, 04DH, 00CH,   (*  mov     ecx, dword [ebp + 12]  *)
-  sys.CODE("8911");             (* mov     [ecx], edx       *)
+H, 011H,         (*  mov     dword [ecx], edx       *)
-  sys.CODE("5B");               (* pop     ebx              *)
+BH,               (*  pop     ebx                    *)
-  sys.CODE("C9");               (* leave                    *)
+C9H,               (*  leave                          *)
+C2H, 008H, 000H    (*  ret     8                      *)
   sys.CODE("C20800");           (* ret     08h              *)
-  RETURN 0
+    RETURN 0
+END f_68_27;
 END f_68_27;
-PROCEDURE Load*(FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
+PROCEDURE Load* (FName: ARRAY OF CHAR; VAR size: INTEGER): INTEGER;
+    RETURN f_68_27(sys.ADR(FName[0]), size)
-  RETURN f_68_27(sys.ADR(FName[0]), size)
+END Load;
-END Load;
+PROCEDURE GetFileInfo* (FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN;
 VAR
-PROCEDURE GetFileInfo*(FName: ARRAY OF CHAR; VAR Info: rFD): BOOLEAN;
+    res2: INTEGER; fs: rFS;
 VAR res2: INTEGER; fs: rFS;
 BEGIN
-  fs.subfunc := 5;
+    fs.subfunc := 5;
-  fs.pos := 0;
+    fs.pos     := 0;
-  fs.hpos := 0;
+    fs.hpos    := 0;
+    fs.bytes   := 0;
-  fs.bytes := 0;
+    fs.buffer  := sys.ADR(Info);
-  fs.buffer := sys.ADR(Info);
+    COPY(FName, fs.name)
-  COPY(FName, fs.name)
+    RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0
+END GetFileInfo;
-  RETURN KOSAPI.sysfunc22(70, sys.ADR(fs), res2) = 0
 END GetFileInfo;
 PROCEDURE Exists* (FName: ARRAY OF CHAR): BOOLEAN;
-PROCEDURE Exists*(FName: ARRAY OF CHAR): BOOLEAN;
+VAR
+    fd: rFD;
-VAR fd: rFD;
+BEGIN
-BEGIN
+    RETURN GetFileInfo(FName, fd) & ~(4 IN BITS(fd.attr))
-  RETURN GetFileInfo(FName, fd) & ~(4 IN BITS(fd.attr))
+END Exists;
 END Exists;
-PROCEDURE Close*(VAR F: FS);
+PROCEDURE Close* (VAR F: FS);
+BEGIN
-BEGIN
+    IF F # NIL THEN
+        DISPOSE(F)
-  IF F # NIL THEN
+    END
+END Close;
     DISPOSE(F)
-  END
+PROCEDURE Open* (FName: ARRAY OF CHAR): FS;
-END Close;
+VAR
     F: FS;
 PROCEDURE Open*(FName: ARRAY OF CHAR): FS;
-VAR F: FS;
+BEGIN
-      COPY(FName, F.name)
+            COPY(FName, F.name)
-    END
+        END
-  ELSE
+    ELSE
-    F := NIL
+        F := NIL
-  END
+    END
-  RETURN F
+    RETURN F
 END Open;
+PROCEDURE Delete* (FName: ARRAY OF CHAR): BOOLEAN;
+VAR
-PROCEDURE Delete*(FName: ARRAY OF CHAR): BOOLEAN;
+    F: FS;
+    res, res2: INTEGER;
 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;
-      res := -1
+            res := -1
-    END
+        END
-  ELSE
+    ELSE
-    res := -1
+        res := -1
-  END
+    END
-  RETURN res = 0
+    RETURN res = 0
 END Delete;
+PROCEDURE Seek* (F: FS; Offset, Origin: INTEGER): INTEGER;
-PROCEDURE Seek*(F: FS; Offset, Origin: INTEGER): INTEGER;
+VAR
+    res: INTEGER;
+    fd: rFD;
 VAR res: INTEGER; fd: rFD;
+BEGIN
 BEGIN
-  IF (F # NIL) & GetFileInfo(F.name, fd) & (BITS(fd.attr) * {4} = {}) THEN
+    IF (F # NIL) & GetFileInfo(F.name, fd) & (BITS(fd.attr) * {4} = {}) THEN
-    CASE Origin OF
+        CASE Origin OF
-    |SEEK_BEG: F.pos := Offset
+        |SEEK_BEG: F.pos := Offset
-    |SEEK_CUR: F.pos := F.pos + Offset
+        |SEEK_CUR: F.pos := F.pos + Offset
-    END;
+        END;
-    res := F.pos
+        res := F.pos
-  ELSE
+    ELSE
-    res := -1
+        res := -1
-  END
+    END
-  RETURN res
+    RETURN res
 END Seek;
+PROCEDURE Read* (F: FS; Buffer, Count: INTEGER): INTEGER;
-PROCEDURE Read*(F: FS; Buffer, Count: INTEGER): INTEGER;
+VAR
+    res, res2: INTEGER;
 VAR res, res2: INTEGER;
+BEGIN
 BEGIN
-  IF F # NIL THEN
+    IF F # NIL THEN
-    F.subfunc := 0;
+        F.subfunc := 0;
-    F.bytes := Count;
+        F.bytes   := Count;
-    F.buffer := Buffer;
+        F.buffer  := Buffer;
-      F.pos := F.pos + res2
+            F.pos := F.pos + res2
-    END
+        END
-  ELSE
+    ELSE
-    res2 := 0
+        res2 := 0
-  END
+    END
-  RETURN res2
+    RETURN res2
 END Read;
+PROCEDURE Write* (F: FS; Buffer, Count: INTEGER): INTEGER;
-PROCEDURE Write*(F: FS; Buffer, Count: INTEGER): INTEGER;
+VAR
+    res, res2: INTEGER;
 VAR res, res2: INTEGER;
+BEGIN
 BEGIN
-  IF F # NIL THEN
+    IF F # NIL THEN
-    F.subfunc := 3;
+        F.subfunc := 3;
-    F.bytes := Count;
+        F.bytes   := Count;
-    F.buffer := Buffer;
+        F.buffer  := Buffer;
-      F.pos := F.pos + res2
+            F.pos := F.pos + res2
-    END
+        END
-  ELSE
+    ELSE
-    res2 := 0
+        res2 := 0
-  END
+    END
-  RETURN res2
+    RETURN res2
 END Write;
+PROCEDURE Create* (FName: ARRAY OF CHAR): FS;
+VAR
-PROCEDURE Create*(FName: ARRAY OF CHAR): FS;
+    F: FS;
+    res2: INTEGER;
 VAR F: FS; res2: INTEGER;
 BEGIN
+    NEW(F);
   NEW(F);
-  IF F # NIL THEN
+    IF F # NIL THEN
-    F.subfunc := 2;
+        F.subfunc := 2;
-    F.pos := 0;
+        F.pos     := 0;
-    F.hpos := 0;
+        F.hpos    := 0;
-    COPY(FName, F.name);
+        COPY(FName, F.name);
-    IF KOSAPI.sysfunc22(70, sys.ADR(F^), res2) # 0 THEN
+        IF KOSAPI.sysfunc22(70, sys.ADR(F^), res2) # 0 THEN
-      DISPOSE(F)
+            DISPOSE(F)
-    END
+        END
-  END
+    END
-  RETURN F
+    RETURN F
 END Create;
+PROCEDURE DirExists* (FName: ARRAY OF CHAR): BOOLEAN;
-PROCEDURE DirExists*(FName: ARRAY OF CHAR): BOOLEAN;
+VAR
-VAR fd: rFD;
+    fd: rFD;
 BEGIN
-  RETURN GetFileInfo(FName, fd) & (4 IN BITS(fd.attr))
+    RETURN GetFileInfo(FName, fd) & (4 IN BITS(fd.attr))
+END DirExists;
 END DirExists;
+PROCEDURE CreateDir* (DirName: ARRAY OF CHAR): BOOLEAN;
+VAR
+    F: FS;
-PROCEDURE CreateDir*(DirName: ARRAY OF CHAR): BOOLEAN;
+    res, res2: INTEGER;
 VAR F: FS; res, res2: INTEGER;
+BEGIN
-BEGIN
+    NEW(F);
   NEW(F);
-  IF F # NIL THEN
+    IF F # NIL THEN
-    F.subfunc := 9;
+        F.subfunc := 9;
-    F.pos := 0;
+        F.pos     := 0;
-    res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
+        res := KOSAPI.sysfunc22(70, sys.ADR(F^), res2);
-    DISPOSE(F)
+        DISPOSE(F)
-  ELSE
+    ELSE
-    res := -1
+        res := -1
-  END
+    END
-  RETURN res = 0
+    RETURN res = 0
 END CreateDir;
+PROCEDURE DeleteDir* (DirName: ARRAY OF CHAR): BOOLEAN;
+VAR
-PROCEDURE DeleteDir*(DirName: ARRAY OF CHAR): BOOLEAN;
+    F: FS;
+    res, res2: INTEGER;
 VAR F: FS; res, res2: INTEGER;
+BEGIN
 BEGIN
-  IF DirExists(DirName) THEN
+    IF DirExists(DirName) THEN
-    NEW(F);
+        NEW(F);
-    IF F # NIL THEN
+        IF F # NIL THEN
-      F.subfunc := 8;
+            F.subfunc := 8;
-      res := -1
+            res := -1
-    END
+        END
-  ELSE
+    ELSE
-    res := -1
+        res := -1
-  END
+    END
-  RETURN res = 0
+    RETURN res = 0
 END DeleteDir;
 END File.

Subversion Repositories Kolibri OS

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