| 0,0 → 1,85 |
|---|
| (* |
| BSD 2-Clause License |
| |
| Copyright (c) 2020, Anton Krotov |
| All rights reserved. |
| *) |
| |
| MODULE In; |
| |
| IMPORT SYSTEM, Libdl; |
| |
| |
| CONST |
| |
| MAX_LEN = 10240; |
| |
| |
| VAR |
| |
| Done*: BOOLEAN; |
| s: ARRAY MAX_LEN + 4 OF CHAR; |
| |
| sscanf: PROCEDURE [linux] (buf: INTEGER; fmt: INTEGER; adr: INTEGER): INTEGER; |
| gets: PROCEDURE [linux] (buf: INTEGER); |
| |
| |
| PROCEDURE String* (VAR str: ARRAY OF CHAR); |
| BEGIN |
| gets(SYSTEM.ADR(s[0])); |
| COPY(s, str); |
| str[LEN(str) - 1] := 0X; |
| Done := TRUE |
| END String; |
| |
| |
| PROCEDURE Int* (VAR x: INTEGER); |
| BEGIN |
| String(s); |
| Done := sscanf(SYSTEM.ADR(s[0]), SYSTEM.SADR("%d"), SYSTEM.ADR(x)) = 1 |
| END Int; |
| |
| |
| PROCEDURE Real* (VAR x: REAL); |
| BEGIN |
| String(s); |
| Done := sscanf(SYSTEM.ADR(s[0]), SYSTEM.SADR("%lf"), SYSTEM.ADR(x)) = 1 |
| END Real; |
| |
| |
| PROCEDURE Char* (VAR x: CHAR); |
| BEGIN |
| String(s); |
| x := s[0] |
| END Char; |
| |
| |
| PROCEDURE Ln*; |
| BEGIN |
| String(s) |
| END Ln; |
| |
| |
| PROCEDURE Open*; |
| BEGIN |
| Done := TRUE |
| END Open; |
| |
| |
| PROCEDURE init; |
| VAR |
| libc: INTEGER; |
| |
| BEGIN |
| libc := Libdl.open("libc.so.6", Libdl.LAZY); |
| ASSERT(libc # 0); |
| SYSTEM.PUT(SYSTEM.ADR(sscanf), Libdl.sym(libc, "sscanf")); |
| ASSERT(sscanf # NIL); |
| SYSTEM.PUT(SYSTEM.ADR(gets), Libdl.sym(libc, "gets")); |
| ASSERT(gets # NIL); |
| END init; |
| |
| |
| BEGIN |
| init |
| END In. |