mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 12:12:25 +00:00
parent
6a89c55bf3
commit
bb80cb07a1
5 changed files with 42 additions and 0 deletions
|
|
@ -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