OpenXM/src/k097/slib.sm1 - diff

Return to slib.sm1 CVS log

Up to [local] / OpenXM / src / k097

-version 1.1, 1999/10/08 02:12:15
+version 1.2, 2000/12/10 02:25:31
 Line 716  FunctionValue } def
 Line 716  FunctionValue } def
 Line 716  FunctionValue } def
  this [ %% function args
  [ (NewArray) [ (NewArray(n) returns an array of size n (integer n).)   ]   ] ] {HelpAdd} sendmsg2
+ /GetEnv {
+  db.DebugStack setstack $In function : GetEnv of class PrimitiveObject$  stdstack
+  /Arglist set /Argthis set /FunctionValue [ ] def
+  [/this /s  ] /ArgNames set ArgNames pushVariables [ %%function body
+  [Argthis] Arglist join ArgNames mapset
+   [(getenv) s] extension /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues
+  db.DebugStack setstack pop stdstack
+ FunctionValue } def
+ %%end of function
+ this [ %% function args
+ [ (GetEnv) [ (GetEnv(s) returns the value of the environmental variable s (string s).)   ]   ] ] {HelpAdd} sendmsg2