Permalink
Browse files

First stab at $*CUSTOM-LIB.

  • Loading branch information...
1 parent 960f328 commit 0d2a99ed57026e044c50db67d736947f651afd88 @colomon colomon committed Oct 15, 2012
Showing with 2 additions and 0 deletions.
  1. +1 −0 lib/Builtins.cs
  2. +1 −0 lib/CORE.setting
View
@@ -2569,6 +2569,7 @@ class CrossSource: ItemSource {
}
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;
}
}
View
@@ -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 = ();
}
# }}}

0 comments on commit 0d2a99e

Please sign in to comment.