added includes to not use internal write, read in Console and Unix

Former-commit-id: b25a810007
This commit is contained in:
Norayr Chilingarian 2014-04-10 17:02:55 +04:00
parent 331170683e
commit 44dd584190
6 changed files with 15 additions and 3 deletions

BIN
ocat

Binary file not shown.

View file

@ -1 +1 @@
f5fd9a8471482e945d275319e4740da9a07a053f
b8912125a0cc6b1d7322b4e8f0651f41ece55412

View file

@ -7,6 +7,10 @@ MODULE Console; (* J. Templ, 29-June-96 *)
VAR line: ARRAY 128 OF CHAR;
pos: INTEGER;
(* for read(), write() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
PROCEDURE -Write(adr, n: LONGINT)
"write(1/*stdout*/, adr, n)";

View file

@ -313,6 +313,14 @@ from man gettimeofday
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for read(), write() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for system() *)
PROCEDURE -includeStdlib()
"#include <stdlib.h>";
PROCEDURE -err(): LONGINT
"errno";

View file

@ -1 +1 @@
9986ddb20ed214b5db77e1a3ff72ac05bb12f8af
675d9ee513e6424d707a4e82ff97bddacb103fcc

View file

@ -1 +1 @@
9986ddb20ed214b5db77e1a3ff72ac05bb12f8af
675d9ee513e6424d707a4e82ff97bddacb103fcc