===================================================================
RCS file: /home/cvs/OpenXM/src/k097/slib.k,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- OpenXM/src/k097/slib.k	2000/01/21 03:01:26	1.2
+++ OpenXM/src/k097/slib.k	2000/12/10 02:21:46	1.3
@@ -1,4 +1,4 @@
-/* $OpenXM$ */
+/* $OpenXM: OpenXM/src/k097/slib.k,v 1.2 2000/01/21 03:01:26 takayama Exp $ */
 /*  slib.sm1, standard library. */
 /* April 26-- , 1996 */
 /* Don't use function names that is already used as a postscipt macro names*/
@@ -321,3 +321,8 @@ def NewArray(n) {
 HelpAdd(["NewArray",
 ["NewArray(n) returns an array of size n (integer n)."]]);
 
+def GetEnv(s) {
+ sm1(" [(getenv) s] extension /FunctionValue set ");
+}
+HelpAdd(["GetEnv",
+["GetEnv(s) returns the value of the environmental variable s (string s)."]]);