forked from KolibriOS/kolibrios
201 lines
3.6 KiB
Plaintext
201 lines
3.6 KiB
Plaintext
(*
|
|
BSD 2-Clause License
|
|
|
|
Copyright (c) 2020-2021, Anton Krotov
|
|
All rights reserved.
|
|
*)
|
|
|
|
MODULE HOST;
|
|
|
|
IMPORT SYSTEM, Trap;
|
|
|
|
|
|
CONST
|
|
|
|
$IF (host_linux)
|
|
|
|
slash* = "/";
|
|
eol* = 0AX;
|
|
|
|
$ELSE
|
|
|
|
slash* = "\";
|
|
eol* = 0DX + 0AX;
|
|
|
|
$END
|
|
|
|
bit_depth* = 64;
|
|
maxint* = ROR(-2, 1);
|
|
minint* = ROR(1, 1);
|
|
|
|
|
|
VAR
|
|
|
|
maxreal*: REAL;
|
|
|
|
|
|
PROCEDURE syscall0 (fn: INTEGER): INTEGER;
|
|
BEGIN
|
|
Trap.syscall(SYSTEM.ADR(fn))
|
|
RETURN fn
|
|
END syscall0;
|
|
|
|
|
|
PROCEDURE syscall1 (fn, p1: INTEGER): INTEGER;
|
|
BEGIN
|
|
Trap.syscall(SYSTEM.ADR(fn))
|
|
RETURN fn
|
|
END syscall1;
|
|
|
|
|
|
PROCEDURE syscall2 (fn, p1, p2: INTEGER): INTEGER;
|
|
BEGIN
|
|
Trap.syscall(SYSTEM.ADR(fn))
|
|
RETURN fn
|
|
END syscall2;
|
|
|
|
|
|
PROCEDURE syscall3 (fn, p1, p2, p3: INTEGER): INTEGER;
|
|
BEGIN
|
|
Trap.syscall(SYSTEM.ADR(fn))
|
|
RETURN fn
|
|
END syscall3;
|
|
|
|
|
|
PROCEDURE syscall4 (fn, p1, p2, p3, p4: INTEGER): INTEGER;
|
|
BEGIN
|
|
Trap.syscall(SYSTEM.ADR(fn))
|
|
RETURN fn
|
|
END syscall4;
|
|
|
|
|
|
PROCEDURE ExitProcess* (code: INTEGER);
|
|
BEGIN
|
|
code := syscall1(0, code)
|
|
END ExitProcess;
|
|
|
|
|
|
PROCEDURE GetCurrentDirectory* (VAR path: ARRAY OF CHAR);
|
|
VAR
|
|
a: INTEGER;
|
|
BEGIN
|
|
a := syscall2(1, LEN(path), SYSTEM.ADR(path[0]))
|
|
END GetCurrentDirectory;
|
|
|
|
|
|
PROCEDURE GetArg* (n: INTEGER; VAR s: ARRAY OF CHAR);
|
|
BEGIN
|
|
n := syscall3(2, n, LEN(s), SYSTEM.ADR(s[0]))
|
|
END GetArg;
|
|
|
|
|
|
PROCEDURE FileRead* (F: INTEGER; VAR Buffer: ARRAY OF CHAR; bytes: INTEGER): INTEGER;
|
|
RETURN syscall4(3, F, LEN(Buffer), SYSTEM.ADR(Buffer[0]), bytes)
|
|
END FileRead;
|
|
|
|
|
|
PROCEDURE FileWrite* (F: INTEGER; Buffer: ARRAY OF BYTE; bytes: INTEGER): INTEGER;
|
|
RETURN syscall4(4, F, LEN(Buffer), SYSTEM.ADR(Buffer[0]), bytes)
|
|
END FileWrite;
|
|
|
|
|
|
PROCEDURE FileCreate* (FName: ARRAY OF CHAR): INTEGER;
|
|
RETURN syscall2(5, LEN(FName), SYSTEM.ADR(FName[0]))
|
|
END FileCreate;
|
|
|
|
|
|
PROCEDURE FileClose* (F: INTEGER);
|
|
BEGIN
|
|
F := syscall1(6, F)
|
|
END FileClose;
|
|
|
|
|
|
PROCEDURE FileOpen* (FName: ARRAY OF CHAR): INTEGER;
|
|
RETURN syscall2(7, LEN(FName), SYSTEM.ADR(FName[0]))
|
|
END FileOpen;
|
|
|
|
|
|
PROCEDURE chmod* (FName: ARRAY OF CHAR);
|
|
VAR
|
|
a: INTEGER;
|
|
BEGIN
|
|
a := syscall2(12, LEN(FName), SYSTEM.ADR(FName[0]))
|
|
END chmod;
|
|
|
|
|
|
PROCEDURE OutChar* (c: CHAR);
|
|
VAR
|
|
a: INTEGER;
|
|
BEGIN
|
|
a := syscall1(8, ORD(c))
|
|
END OutChar;
|
|
|
|
|
|
PROCEDURE GetTickCount* (): INTEGER;
|
|
RETURN syscall0(9)
|
|
END GetTickCount;
|
|
|
|
|
|
PROCEDURE isRelative* (path: ARRAY OF CHAR): BOOLEAN;
|
|
RETURN syscall2(11, LEN(path), SYSTEM.ADR(path[0])) # 0
|
|
END isRelative;
|
|
|
|
|
|
PROCEDURE UnixTime* (): INTEGER;
|
|
RETURN syscall0(10)
|
|
END UnixTime;
|
|
|
|
|
|
PROCEDURE splitf* (x: REAL; VAR a, b: INTEGER): INTEGER;
|
|
VAR
|
|
res: INTEGER;
|
|
|
|
BEGIN
|
|
a := 0;
|
|
b := 0;
|
|
SYSTEM.GET32(SYSTEM.ADR(x), a);
|
|
SYSTEM.GET32(SYSTEM.ADR(x) + 4, b);
|
|
SYSTEM.GET(SYSTEM.ADR(x), res)
|
|
RETURN res
|
|
END splitf;
|
|
|
|
|
|
PROCEDURE d2s* (x: REAL): INTEGER;
|
|
VAR
|
|
h, l, s, e: INTEGER;
|
|
|
|
BEGIN
|
|
e := splitf(x, l, h);
|
|
|
|
s := ASR(h, 31) MOD 2;
|
|
e := (h DIV 100000H) MOD 2048;
|
|
IF e <= 896 THEN
|
|
h := (h MOD 100000H) * 8 + (l DIV 20000000H) MOD 8 + 800000H;
|
|
REPEAT
|
|
h := h DIV 2;
|
|
INC(e)
|
|
UNTIL e = 897;
|
|
e := 896;
|
|
l := (h MOD 8) * 20000000H;
|
|
h := h DIV 8
|
|
ELSIF (1151 <= e) & (e < 2047) THEN
|
|
e := 1151;
|
|
h := 0;
|
|
l := 0
|
|
ELSIF e = 2047 THEN
|
|
e := 1151;
|
|
IF (h MOD 100000H # 0) OR (BITS(l) * {0..31} # {}) THEN
|
|
h := 80000H;
|
|
l := 0
|
|
END
|
|
END;
|
|
DEC(e, 896)
|
|
|
|
RETURN LSL(s, 31) + LSL(e, 23) + (h MOD 100000H) * 8 + (l DIV 20000000H) MOD 8
|
|
END d2s;
|
|
|
|
|
|
BEGIN
|
|
maxreal := 1.9;
|
|
PACK(maxreal, 1023)
|
|
END HOST. |