mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 18:02:25 +00:00
added includes to not use internal write, read in Console and Unix
Former-commit-id: b25a810007
This commit is contained in:
parent
331170683e
commit
44dd584190
6 changed files with 15 additions and 3 deletions
BIN
ocat
BIN
ocat
Binary file not shown.
|
|
@ -1 +1 @@
|
||||||
f5fd9a8471482e945d275319e4740da9a07a053f
|
b8912125a0cc6b1d7322b4e8f0651f41ece55412
|
||||||
|
|
@ -7,6 +7,10 @@ MODULE Console; (* J. Templ, 29-June-96 *)
|
||||||
VAR line: ARRAY 128 OF CHAR;
|
VAR line: ARRAY 128 OF CHAR;
|
||||||
pos: INTEGER;
|
pos: INTEGER;
|
||||||
|
|
||||||
|
(* for read(), write() *)
|
||||||
|
PROCEDURE -includeUnistd()
|
||||||
|
"#include <unistd.h>";
|
||||||
|
|
||||||
PROCEDURE -Write(adr, n: LONGINT)
|
PROCEDURE -Write(adr, n: LONGINT)
|
||||||
"write(1/*stdout*/, adr, n)";
|
"write(1/*stdout*/, adr, n)";
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -313,6 +313,14 @@ from man gettimeofday
|
||||||
PROCEDURE -includeErrno()
|
PROCEDURE -includeErrno()
|
||||||
"#include <errno.h>";
|
"#include <errno.h>";
|
||||||
|
|
||||||
|
(* for read(), write() *)
|
||||||
|
PROCEDURE -includeUnistd()
|
||||||
|
"#include <unistd.h>";
|
||||||
|
|
||||||
|
(* for system() *)
|
||||||
|
PROCEDURE -includeStdlib()
|
||||||
|
"#include <stdlib.h>";
|
||||||
|
|
||||||
PROCEDURE -err(): LONGINT
|
PROCEDURE -err(): LONGINT
|
||||||
"errno";
|
"errno";
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
9986ddb20ed214b5db77e1a3ff72ac05bb12f8af
|
675d9ee513e6424d707a4e82ff97bddacb103fcc
|
||||||
|
|
@ -1 +1 @@
|
||||||
9986ddb20ed214b5db77e1a3ff72ac05bb12f8af
|
675d9ee513e6424d707a4e82ff97bddacb103fcc
|
||||||
Loading…
Add table
Add a link
Reference in a new issue