mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-05 23:22:25 +00:00
fixes
This commit is contained in:
parent
f9e43e9445
commit
e9b49fedc9
5 changed files with 42 additions and 0 deletions
|
|
@ -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)";
|
||||
|
||||
|
|
|
|||
|
|
@ -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";
|
||||
|
||||
|
|
|
|||
|
|
@ -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)";
|
||||
|
||||
|
|
|
|||
|
|
@ -47,6 +47,9 @@ MODULE Kernel;
|
|||
(* for localtime *)
|
||||
PROCEDURE -includetime()
|
||||
'#include "time.h"';
|
||||
(* for getcwd() *)
|
||||
PROCEDURE -includeUnistd()
|
||||
'#include <unistd.h>';
|
||||
|
||||
PROCEDURE -Lock*()
|
||||
"SYSTEM_lock++";
|
||||
|
|
|
|||
|
|
@ -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)";
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue