This commit is contained in:
Norayr Chilingarian 2014-03-19 04:09:44 +04:00
parent f9e43e9445
commit e9b49fedc9
5 changed files with 42 additions and 0 deletions

View file

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

View file

@ -317,9 +317,37 @@ from man gettimeofday
PROCEDURE -includeStat()
"#include <sys/stat.h>";
(* for select() *)
PROCEDURE -includeSelect()
"#include <sys/select.h>";
(* for kill() *)
PROCEDURE -includeSignal()
"#include <signal.h>";
(* for read() also *)
PROCEDURE -includeTypes()
"#include <sys/types.h>";
PROCEDURE -includeUio()
"#include <sys/uio.h>";
(* for getpid(), lseek(), close(), fsync(), ftruncate(), read() *)
PROCEDURE -includeUnistd()
"#include <unistd.h>";
(* for rename() *)
PROCEDURE -includeStdio()
"#include <stdio.h>";
PROCEDURE -includeErrno()
"#include <errno.h>";
(* for open() *)
PROCEDURE -includeFcntl()
"#include <fcntl.h>";
PROCEDURE -err(): LONGINT
"errno";

View file

@ -66,6 +66,10 @@ MODULE Files; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix files
PROCEDURE -includetime()
'#include "time.h"';
(* for getcwd() *)
PROCEDURE -includeUnistd()
'#include <unistd.h>';
PROCEDURE -localtime(VAR clock: LONGINT): Time
"(Files_Time) localtime(clock)";

View file

@ -47,6 +47,9 @@ MODULE Kernel;
(* for localtime *)
PROCEDURE -includetime()
'#include "time.h"';
(* for getcwd() *)
PROCEDURE -includeUnistd()
'#include <unistd.h>';
PROCEDURE -Lock*()
"SYSTEM_lock++";

View file

@ -66,6 +66,10 @@ MODULE OakFiles; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix fil
PROCEDURE -includetime()
'#include "time.h"';
(* for getcwd() *)
PROCEDURE -includeUnistd()
'#include <unistd.h>';
PROCEDURE -localtime(VAR clock: LONGINT): Time
"(OakFiles_Time) localtime(clock)";