added OakFiles.Mod which does not search for files in OBERON path, implemented ReadLine procedure.

added oocRts wrapper around Unix.Mod and Args.Mod,added Filenames.Mod.
Unix.Mod and Args.Mod modified, interface extended.


Former-commit-id: 8f34e77d9d
This commit is contained in:
Norayr Chilingarian 2013-10-21 19:53:26 +04:00
parent a346587b35
commit d8d1c29e6f
24 changed files with 1025 additions and 16 deletions

View file

@ -48,5 +48,17 @@ MODULE Args; (* jt, 8.12.94 *)
IF p # NIL THEN COPY(p^, val) END
END GetEnv;
PROCEDURE getEnv*(var: ARRAY OF CHAR; VAR val: ARRAY OF CHAR): BOOLEAN;
VAR p: ArgPtr;
BEGIN
p := getenv(var);
IF p # NIL THEN
COPY(p^, val);
RETURN TRUE
ELSE
RETURN FALSE
END
END getEnv;
BEGIN argc := Argc(); argv := Argv()
END Args.