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

This commit is contained in:
Norayr Chilingarian 2014-04-10 17:02:55 +04:00
parent 615253e7a9
commit b25a810007
6 changed files with 12 additions and 0 deletions

BIN
ocat

Binary file not shown.

BIN
showdef

Binary file not shown.

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";

BIN
voc

Binary file not shown.

Binary file not shown.