mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 16:52: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;
|
VAR line: ARRAY 128 OF CHAR;
|
||||||
pos: INTEGER;
|
pos: INTEGER;
|
||||||
|
|
||||||
|
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)";
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -317,9 +317,37 @@ from man gettimeofday
|
||||||
PROCEDURE -includeStat()
|
PROCEDURE -includeStat()
|
||||||
"#include <sys/stat.h>";
|
"#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()
|
PROCEDURE -includeErrno()
|
||||||
"#include <errno.h>";
|
"#include <errno.h>";
|
||||||
|
|
||||||
|
(* for open() *)
|
||||||
|
PROCEDURE -includeFcntl()
|
||||||
|
"#include <fcntl.h>";
|
||||||
|
|
||||||
PROCEDURE -err(): LONGINT
|
PROCEDURE -err(): LONGINT
|
||||||
"errno";
|
"errno";
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -66,6 +66,10 @@ MODULE Files; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix files
|
||||||
PROCEDURE -includetime()
|
PROCEDURE -includetime()
|
||||||
'#include "time.h"';
|
'#include "time.h"';
|
||||||
|
|
||||||
|
(* for getcwd() *)
|
||||||
|
PROCEDURE -includeUnistd()
|
||||||
|
'#include <unistd.h>';
|
||||||
|
|
||||||
PROCEDURE -localtime(VAR clock: LONGINT): Time
|
PROCEDURE -localtime(VAR clock: LONGINT): Time
|
||||||
"(Files_Time) localtime(clock)";
|
"(Files_Time) localtime(clock)";
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -47,6 +47,9 @@ MODULE Kernel;
|
||||||
(* for localtime *)
|
(* for localtime *)
|
||||||
PROCEDURE -includetime()
|
PROCEDURE -includetime()
|
||||||
'#include "time.h"';
|
'#include "time.h"';
|
||||||
|
(* for getcwd() *)
|
||||||
|
PROCEDURE -includeUnistd()
|
||||||
|
'#include <unistd.h>';
|
||||||
|
|
||||||
PROCEDURE -Lock*()
|
PROCEDURE -Lock*()
|
||||||
"SYSTEM_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()
|
PROCEDURE -includetime()
|
||||||
'#include "time.h"';
|
'#include "time.h"';
|
||||||
|
|
||||||
|
(* for getcwd() *)
|
||||||
|
PROCEDURE -includeUnistd()
|
||||||
|
'#include <unistd.h>';
|
||||||
|
|
||||||
PROCEDURE -localtime(VAR clock: LONGINT): Time
|
PROCEDURE -localtime(VAR clock: LONGINT): Time
|
||||||
"(OakFiles_Time) localtime(clock)";
|
"(OakFiles_Time) localtime(clock)";
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue