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

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