version 1.2, 2000/01/21 03:01:26 |
version 1.3, 2000/12/10 02:21:46 |
|
|
/* $OpenXM$ */ |
/* $OpenXM: OpenXM/src/k097/slib.k,v 1.2 2000/01/21 03:01:26 takayama Exp $ */ |
/* slib.sm1, standard library. */ |
/* slib.sm1, standard library. */ |
/* April 26-- , 1996 */ |
/* April 26-- , 1996 */ |
/* Don't use function names that is already used as a postscipt macro names*/ |
/* Don't use function names that is already used as a postscipt macro names*/ |
Line 321 def NewArray(n) { |
|
Line 321 def NewArray(n) { |
|
HelpAdd(["NewArray", |
HelpAdd(["NewArray", |
["NewArray(n) returns an array of size n (integer n)."]]); |
["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)."]]); |