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;
+IMPORT SYSTEM, API, RTL;
 IMPORT sys := SYSTEM, API;
 CONST
+    slash* = "/";
+    OS* = "LINUX";
-  OS* = "LNX";
+    bit_depth* = RTL.bit_depth;
+    maxint* = RTL.maxint;
+    minint* = RTL.minint;
   Slash* = "/";
 VAR
-  fsize  : INTEGER;
+    argc: INTEGER;
-  sec*	 : INTEGER;
-  dsec*  : INTEGER;
-PROCEDURE GetCommandLine* (): INTEGER;
-  RETURN API.Param
+    eol*: ARRAY 2 OF CHAR;
-END GetCommandLine;
+PROCEDURE ExitProcess* (code: INTEGER);
+BEGIN
+    API.exit(code)
+END ExitProcess;
-PROCEDURE CloseFile* (File: INTEGER);
-BEGIN
-  File := API.fclose(File)
+PROCEDURE GetArg* (n: INTEGER; VAR s: ARRAY OF CHAR);
-END CloseFile;
+VAR
+    i, len, ptr: INTEGER;
+    c: CHAR;
-PROCEDURE FileRW* (hFile, Buffer, nNumberOfBytes: INTEGER; write: BOOLEAN): INTEGER;
+BEGIN
+    i := 0;
+    len := LEN(s) - 1;
+    IF (n < argc) & (len > 0) THEN
+        SYSTEM.GET(API.MainParam + (n + 1) * SYSTEM.SIZE(INTEGER), ptr);
-VAR res: INTEGER;
+        REPEAT
-BEGIN
+            SYSTEM.GET(ptr, c);
-  IF write THEN
+            s[i] := c;
-    res := API.fwrite(Buffer, nNumberOfBytes, 1, hFile) * nNumberOfBytes
+            INC(i);
+            INC(ptr)
+        UNTIL (c = 0X) OR (i = len)
+    END;
+    s[i] := 0X
+END GetArg;
-  ELSE
-    res := API.fread(Buffer, nNumberOfBytes, 1, hFile) * nNumberOfBytes
   END
+PROCEDURE GetCurrentDirectory* (VAR path: ARRAY OF CHAR);
+VAR
+    n: INTEGER;
+BEGIN
+    GetArg(0, path);
+    n := LENGTH(path) - 1;
+    WHILE path[n] # slash DO
+        DEC(n)
-  RETURN res
+    END;
-END FileRW;
+    path[n + 1] := 0X
+END GetCurrentDirectory;
-PROCEDURE OutString* (str: ARRAY OF CHAR);
-VAR res: INTEGER;
+PROCEDURE ReadFile (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
+    RETURN API.fread(SYSTEM.ADR(Buffer[0]), 1, bytes, F)
-BEGIN
+END ReadFile;
-  res := FileRW(API.stdout, sys.ADR(str), LENGTH(str), TRUE)
-END OutString;
+PROCEDURE WriteFile (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
+    RETURN API.fwrite(SYSTEM.ADR(Buffer[0]), 1, bytes, F)
+END WriteFile;
-PROCEDURE CreateFile* (FName: ARRAY OF CHAR): INTEGER;
-  RETURN API.fopen(sys.ADR(FName), sys.ADR("wb"))
-END CreateFile;
-PROCEDURE OpenFile* (FName: ARRAY OF CHAR): INTEGER;
+PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
-VAR F, res: INTEGER;
+VAR
-BEGIN
-  F := API.fopen(sys.ADR(FName), sys.ADR("rb"));
-  IF F # 0 THEN
-    res   := API.fseek(F, 0, 2);
+    res: INTEGER;
-    fsize := API.ftell(F);
-    res   := API.fseek(F, 0, 0)
+BEGIN
-  END
-  RETURN F
-END OpenFile;
+    res := ReadFile(F, Buffer, bytes);
-PROCEDURE FileSize* (F: INTEGER): INTEGER;
+    IF res <= 0 THEN
+        res := -1
-  RETURN fsize
+    END
-END FileSize;
+    RETURN res
-PROCEDURE Align(n, m: INTEGER): INTEGER;
+END FileRead;
-  RETURN n + (m - n MOD m) MOD m
-END Align;
 PROCEDURE FileWrite* (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
+VAR
-PROCEDURE malloc* (Bytes: INTEGER): INTEGER;
+    res: INTEGER;
-VAR res: INTEGER;
+BEGIN
+    res := WriteFile(F, Buffer, bytes);
+    IF res <= 0 THEN
+        res := -1
+    END
-BEGIN
+    RETURN res
-  Bytes := Align(Bytes, 4);
+END FileWrite;
+PROCEDURE FileCreate* (FName: ARRAY OF CHAR): INTEGER;
+    RETURN API.fopen(SYSTEM.ADR(FName[0]), SYSTEM.SADR("wb"))
+END FileCreate;
+PROCEDURE FileClose* (File: INTEGER);
+BEGIN
+    File := API.fclose(File)
+END FileClose;
-  res := API.malloc(Bytes);
-  IF res # 0 THEN
+PROCEDURE FileOpen* (FName: ARRAY OF CHAR): INTEGER;
+    RETURN API.fopen(SYSTEM.ADR(FName[0]), SYSTEM.SADR("rb"))
+END FileOpen;
+PROCEDURE OutChar* (c: CHAR);
-    API.zeromem(ASR(Bytes, 2), res)
-  END
-  RETURN res
+BEGIN
-END malloc;
+    API.putc(c)
-PROCEDURE ExitProcess* (code: INTEGER);
+END OutChar;
 BEGIN
-  API.exit(code)
-END ExitProcess;
 PROCEDURE GetTickCount* (): INTEGER;
-PROCEDURE Time* (VAR sec, dsec: INTEGER);
+VAR
+    tp:  API.TP;
+    res: INTEGER;
+BEGIN
+    IF API.clock_gettime(0, tp) = 0 THEN
+        res := tp[0] * 100 + tp[1] DIV 10000000
+    ELSE
+        res := 0
+    END
+    RETURN res
+END GetTickCount;
-VAR tp: API.TP;
+PROCEDURE isRelative* (path: ARRAY OF CHAR): BOOLEAN;
+    RETURN path[0] # slash
+END isRelative;
+PROCEDURE now* (VAR year, month, day, hour, min, sec: INTEGER);
+END now;
 BEGIN
+PROCEDURE UnixTime* (): INTEGER;
+    RETURN API.time(0)
+END UnixTime;
-  IF API.clock_gettime(0, tp) = 0 THEN
-    sec := tp[0];
+PROCEDURE splitf* (x: REAL; VAR a, b: INTEGER): INTEGER;
-    dsec := tp[1] DIV 10000000
-  ELSE
-    sec := 0;
+VAR
+    res: INTEGER;
-    dsec := 0
+BEGIN
-  END
+    a := 0;
-END Time;
+    b := 0;
     SYSTEM.MOVE(SYSTEM.ADR(x), SYSTEM.ADR(a), 4);
-PROCEDURE init*;
+    SYSTEM.MOVE(SYSTEM.ADR(x) + 4, SYSTEM.ADR(b), 4);
-BEGIN
+    SYSTEM.GET(SYSTEM.ADR(x), res)
-  Time(sec, dsec)
+    RETURN res
-END init;
+END splitf;
 PROCEDURE GetName*(): INTEGER;
-  RETURN 0
+BEGIN
-END GetName;
+    eol := 0AX;
     SYSTEM.GET(API.MainParam, argc)
 END HOST.

Subversion Repositories Kolibri OS

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