WebSVN – Kolibri OS – Diff – /programs/develop/oberon07/Lib/Linux32/HOST.ob07

 (*
-    Copyright 2016 Anton Krotov
+    BSD 2-Clause License
-    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
-    (at your option) any later version.
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    Copyright (c) 2019, Anton Krotov
-    GNU Lesser General Public License for more details.
-    You should have received a copy of the GNU Lesser General Public License
-    along with this program.  If not, see .
+    All rights reserved.
 *)
+MODULE HOST;
 MODULE HOST;
+IMPORT SYSTEM, API, RTL;
+CONST
-IMPORT sys := SYSTEM, API;
+    slash* = "/";
+    OS* = "LINUX";
-CONST
+    bit_depth* = RTL.bit_depth;
-  OS* = "LNX";
+    maxint* = RTL.maxint;
-  Slash* = "/";
-VAR
+    minint* = RTL.minint;
   fsize  : INTEGER;
-  sec*	 : INTEGER;
+VAR
+    argc: INTEGER;
+    eol*: ARRAY 2 OF CHAR;
-  dsec*  : INTEGER;
-PROCEDURE GetCommandLine* (): INTEGER;
+PROCEDURE ExitProcess* (code: INTEGER);
-  RETURN API.Param
+BEGIN
+    API.exit(code)
+END ExitProcess;
-END GetCommandLine;
+PROCEDURE GetArg* (n: INTEGER; VAR s: ARRAY OF CHAR);
+VAR
+    i, len, ptr: INTEGER;
+    c: CHAR;
-PROCEDURE CloseFile* (File: INTEGER);
 BEGIN
-  File := API.fclose(File)
+    i := 0;
-END CloseFile;
+    len := LEN(s) - 1;
+    IF (n < argc) & (len > 0) THEN
+        SYSTEM.GET(API.MainParam + (n + 1) * SYSTEM.SIZE(INTEGER), ptr);
+        REPEAT
+            SYSTEM.GET(ptr, c);
+            s[i] := c;
-PROCEDURE FileRW* (hFile, Buffer, nNumberOfBytes: INTEGER; write: BOOLEAN): INTEGER;
-VAR res: INTEGER;
+            INC(i);
+            INC(ptr)
+        UNTIL (c = 0X) OR (i = len)
+    END;
+    s[i] := 0X
+END GetArg;
+PROCEDURE GetCurrentDirectory* (VAR path: ARRAY OF CHAR);
+VAR
+    n: INTEGER;
-BEGIN
-  IF write THEN
+BEGIN
+    GetArg(0, path);
-    res := API.fwrite(Buffer, nNumberOfBytes, 1, hFile) * nNumberOfBytes
+    n := LENGTH(path) - 1;
-  ELSE
+    WHILE path[n] # slash DO
-    res := API.fread(Buffer, nNumberOfBytes, 1, hFile) * nNumberOfBytes
+        DEC(n)
+    END;
-  END
+    path[n + 1] := 0X
-  RETURN res
+END GetCurrentDirectory;
-END FileRW;
+PROCEDURE ReadFile (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
+    RETURN API.fread(SYSTEM.ADR(Buffer[0]), 1, bytes, F)
-PROCEDURE OutString* (str: ARRAY OF CHAR);
+END ReadFile;
-VAR res: INTEGER;
-BEGIN
-  res := FileRW(API.stdout, sys.ADR(str), LENGTH(str), TRUE)
-END OutString;
 PROCEDURE WriteFile (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
-PROCEDURE CreateFile* (FName: ARRAY OF CHAR): INTEGER;
-  RETURN API.fopen(sys.ADR(FName), sys.ADR("wb"))
-END CreateFile;
+    RETURN API.fwrite(SYSTEM.ADR(Buffer[0]), 1, bytes, F)
-PROCEDURE OpenFile* (FName: ARRAY OF CHAR): INTEGER;
+END WriteFile;
-VAR F, res: INTEGER;
-BEGIN
-  F := API.fopen(sys.ADR(FName), sys.ADR("rb"));
-  IF F # 0 THEN
-    res   := API.fseek(F, 0, 2);
-    fsize := API.ftell(F);
+PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
+VAR
-    res   := API.fseek(F, 0, 0)
+    res: INTEGER;
-  END
+BEGIN
-  RETURN F
-END OpenFile;
+    res := ReadFile(F, Buffer, bytes);
+    IF res <= 0 THEN
-PROCEDURE FileSize* (F: INTEGER): INTEGER;
+        res := -1
-  RETURN fsize
+    END
-END FileSize;
+    RETURN res
+END FileRead;
+PROCEDURE FileWrite* (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
+VAR
+    res: INTEGER;
-PROCEDURE Align(n, m: INTEGER): INTEGER;
+BEGIN
-  RETURN n + (m - n MOD m) MOD m
+    res := WriteFile(F, Buffer, bytes);
+    IF res <= 0 THEN
+        res := -1
+    END
+    RETURN res
+END FileWrite;
+PROCEDURE FileCreate* (FName: ARRAY OF CHAR): INTEGER;
+    RETURN API.fopen(SYSTEM.ADR(FName[0]), SYSTEM.SADR("wb"))
+END FileCreate;
-END Align;
+PROCEDURE FileClose* (File: INTEGER);
+BEGIN
+    File := API.fclose(File)
+END FileClose;
-PROCEDURE malloc* (Bytes: INTEGER): INTEGER;
-VAR res: INTEGER;
-BEGIN
+PROCEDURE FileOpen* (FName: ARRAY OF CHAR): INTEGER;
-  Bytes := Align(Bytes, 4);
+    RETURN API.fopen(SYSTEM.ADR(FName[0]), SYSTEM.SADR("rb"))
-  res := API.malloc(Bytes);
-  IF res # 0 THEN
+END FileOpen;
     API.zeromem(ASR(Bytes, 2), res)
-  END
-  RETURN res
-END malloc;
+PROCEDURE OutChar* (c: CHAR);
+BEGIN
+    API.putc(c)
+END OutChar;
+PROCEDURE GetTickCount* (): INTEGER;
+VAR
+    tp:  API.TP;
+    res: INTEGER;
+BEGIN
+    IF API.clock_gettime(0, tp) = 0 THEN
+        res := tp[0] * 100 + tp[1] DIV 10000000
-PROCEDURE ExitProcess* (code: INTEGER);
+    ELSE
+        res := 0
+    END
+    RETURN res
+END GetTickCount;
+PROCEDURE isRelative* (path: ARRAY OF CHAR): BOOLEAN;
-BEGIN
+    RETURN path[0] # slash
+END isRelative;
+PROCEDURE now* (VAR year, month, day, hour, min, sec: INTEGER);
+END now;
-  API.exit(code)
-END ExitProcess;
-PROCEDURE Time* (VAR sec, dsec: INTEGER);
-VAR tp: API.TP;
+PROCEDURE UnixTime* (): INTEGER;
+    RETURN API.time(0)
+END UnixTime;
 BEGIN
   IF API.clock_gettime(0, tp) = 0 THEN

Subversion Repositories Kolibri OS

(root)/programs/develop/oberon07/Lib/Linux32/HOST.ob07 – Rev 6613 → 7597