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

src/lib/system/gnuc/armv6j/Args.Mod

@@ -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.

src/lib/system/gnuc/armv6j/Unix.Mod

@@ -406,6 +406,11 @@ TYPE
       r := sys(cmd);
    END system;
 
-
+   PROCEDURE System*(cmd : ARRAY OF CHAR): INTEGER;
+   VAR r : INTEGER;
+   BEGIN
+      r := sys(cmd);
+      RETURN r
+   END System;
 
 END Unix.

src/lib/system/gnuc/armv6j_hardfp/Args.Mod

@@ -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.

src/lib/system/gnuc/armv6j_hardfp/Unix.Mod

@@ -406,6 +406,11 @@ TYPE
       r := sys(cmd);
    END system;
 
-
+   PROCEDURE System*(cmd : ARRAY OF CHAR): INTEGER;
+   VAR r : INTEGER;
+   BEGIN
+      r := sys(cmd);
+      RETURN r
+   END System;
 
 END Unix.

src/lib/system/gnuc/armv7a_hardfp/Args.Mod

@@ -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.

src/lib/system/gnuc/armv7a_hardfp/Unix.Mod

@@ -406,6 +406,11 @@ TYPE
       r := sys(cmd);
    END system;
 
-
+   PROCEDURE System*(cmd : ARRAY OF CHAR): INTEGER;
+   VAR r : INTEGER;
+   BEGIN
+      r := sys(cmd);
+      RETURN r
+   END System;
 
 END Unix.

src/lib/system/gnuc/x86/Args.Mod

@@ -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.

src/lib/system/gnuc/x86/Unix.Mod

@@ -406,6 +406,11 @@ TYPE
       r := sys(cmd);
    END system;
 
-
+   PROCEDURE System*(cmd : ARRAY OF CHAR): INTEGER;
+   VAR r : INTEGER;
+   BEGIN
+      r := sys(cmd);
+      RETURN r
+   END System;
 
 END Unix.

src/lib/system/gnuc/x86_64/Args.Mod

@@ -49,5 +49,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.

src/lib/system/gnuc/x86_64/Unix.Mod

@@ -485,4 +485,13 @@ from man gettimeofday
       r := sys(cmd);
    END system;
 
+   PROCEDURE System*(cmd : ARRAY OF CHAR): INTEGER;
+   VAR r : INTEGER;
+   BEGIN
+      r := sys(cmd);
+      RETURN r
+   END System;
+
+
+
 END Unix.