First stab at $*CUSTOM-LIB.

sorear · Oct 15, 2012 · 0d2a99e · 0d2a99e
1 parent 960f328
commit 0d2a99e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/lib/Builtins.cs b/lib/Builtins.cs
@@ -2569,6 +2569,7 @@ [ImplicitConsts] public static Variable sysquery(Constants c, int ix) {
             }
             case 5: return MakeStr(Environment.OSVersion.Platform.ToString());
             case 6: return MakeStr(Environment.OSVersion.Version.ToString());
+            case 7: return MakeStr(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData).ToString());
             default: return null;
         }
     }

diff --git a/lib/CORE.setting b/lib/CORE.setting
@@ -4028,6 +4028,7 @@ INIT {
     $PROCESS::BASE_DIRECTORY ::= Q:CgOp { (sysquery (i 3)) };
     $PROCESS::OS ::= Q:CgOp { (sysquery (i 5)) };
     $PROCESS::CWD ::= Q:CgOp { (box Str (cwd_path)) };
+    $PROCESS::CUSTOM-LIB ::= Q:CgOp { (sysquery (i 7)) } ~ "/niecza" ;
     @GLOBAL::INC = ();
 }
 # }}}