diff --git a/src/lib/system/darwin/clang/Console.Mod b/src/lib/system/darwin/clang/Console.Mod index e523ef7b..93be9373 100644 --- a/src/lib/system/darwin/clang/Console.Mod +++ b/src/lib/system/darwin/clang/Console.Mod @@ -7,6 +7,9 @@ MODULE Console; (* J. Templ, 29-June-96 *) VAR line: ARRAY 128 OF CHAR; pos: INTEGER; + PROCEDURE -includeUnistd() + "#include "; + PROCEDURE -Write(adr, n: LONGINT) "write(1/*stdout*/, adr, n)"; diff --git a/src/lib/system/darwin/clang/x86_64/Unix.Mod b/src/lib/system/darwin/clang/x86_64/Unix.Mod index 14cece97..cbcf6d8d 100644 --- a/src/lib/system/darwin/clang/x86_64/Unix.Mod +++ b/src/lib/system/darwin/clang/x86_64/Unix.Mod @@ -317,9 +317,37 @@ from man gettimeofday PROCEDURE -includeStat() "#include "; + (* for select() *) + PROCEDURE -includeSelect() + "#include "; + + (* for kill() *) + PROCEDURE -includeSignal() + "#include "; + + (* for read() also *) + PROCEDURE -includeTypes() + "#include "; + + PROCEDURE -includeUio() + "#include "; + + (* for getpid(), lseek(), close(), fsync(), ftruncate(), read() *) + PROCEDURE -includeUnistd() + "#include "; + + + (* for rename() *) + PROCEDURE -includeStdio() + "#include "; + PROCEDURE -includeErrno() "#include "; + (* for open() *) + PROCEDURE -includeFcntl() + "#include "; + PROCEDURE -err(): LONGINT "errno"; diff --git a/src/lib/v4/Files.Mod b/src/lib/v4/Files.Mod index 454736be..adf51fd4 100644 --- a/src/lib/v4/Files.Mod +++ b/src/lib/v4/Files.Mod @@ -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 '; + PROCEDURE -localtime(VAR clock: LONGINT): Time "(Files_Time) localtime(clock)"; diff --git a/src/lib/v4/Kernel.Mod b/src/lib/v4/Kernel.Mod index a13f9d3b..ecfc166d 100644 --- a/src/lib/v4/Kernel.Mod +++ b/src/lib/v4/Kernel.Mod @@ -47,6 +47,9 @@ MODULE Kernel; (* for localtime *) PROCEDURE -includetime() '#include "time.h"'; +(* for getcwd() *) + PROCEDURE -includeUnistd() + '#include '; PROCEDURE -Lock*() "SYSTEM_lock++"; diff --git a/src/lib/v4/OakFiles.Mod b/src/lib/v4/OakFiles.Mod index 77449c30..44ee35d4 100644 --- a/src/lib/v4/OakFiles.Mod +++ b/src/lib/v4/OakFiles.Mod @@ -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 '; + PROCEDURE -localtime(VAR clock: LONGINT): Time "(OakFiles_Time) localtime(clock)";