Changeset 2060

Timestamp:

Aug 24, 2006, 7:34:05 PM (14 years ago)

Author:

orlov

Message:

• Args and GetEnv? functions.

File:

• to-imperative/trunk/java/org/refal/plus/library/Dos.java (modified) (2 diffs)

to-imperative/trunk/java/org/refal/plus/library/Dos.java

@@ -8 +8 @@
 import java.math.BigInteger;
 import java.util.Calendar;
+import java.lang.System;
 
-public final class Dos
+public class Dos
 {
     private static final Word[] months = {
-            new Word("Jan"), new Word("Feb"), new Word("Mar"), new Word("Apr"),
-            new Word("May"), new Word("Jun"), new Word("Jul"), new Word("Aug"),
-            new Word("Sep"), new Word("Oct"), new Word("Nov"), new Word("Dec")  };
+        new Word("Jan"), new Word("Feb"), new Word("Mar"), new Word("Apr"),
+        new Word("May"), new Word("Jun"), new Word("Jul"), new Word("Aug"),
+        new Word("Sep"), new Word("Oct"), new Word("Nov"), new Word("Dec")  };
 
     private static final Character space = new Character(' ');
@@ -55 +56 @@
     }
 
+    static public void Args (Result args)
+    {
+        args.assignUnsafe(RefalRuntime.args);
+    }
+
+    static public void GetEnv (Expr var, Result value)
+    {
+        java.lang.String s = System.getenv(var.toString());
+        if (s != null)
+            value.assign(s);
+        else
+            value.assign(Expr.empty);
+    }
+
     static public void Exit (Expr e) throws RefalException
     {