OpenXM/src/k097/slib.sm1 - diff

Return to slib.sm1 CVS log

Up to [local] / OpenXM / src / k097

-version 1.4, 2000/12/10 09:34:27
+version 1.5, 2000/12/28 00:08:13
 Line 838  FunctionValue } def
 Line 838  FunctionValue } def
 Line 838  FunctionValue } def
  this [ %% function args
  [ (Load_sm1) [ (Load_sm1(s,flag) loads a sm1 program from s[0], s[1], ....) (If loading is succeeded, the already-loaded flag is set to true.) ((list s, string flag).)   ]   ] ] {HelpAdd} sendmsg2
+ /GetRing {
+  db.DebugStack setstack $In function : GetRing of class PrimitiveObject$  stdstack
+  /Arglist set /Argthis set /FunctionValue [ ] def
+  [/this /f  ] /ArgNames set ArgNames pushVariables [ %%function body
+  [Argthis] Arglist join ArgNames mapset
+   f getRing /FunctionValue set  /ExitPoint ]pop popVariables %%pop argValues
+  db.DebugStack setstack pop stdstack
+ FunctionValue } def
+ %%end of function
+ /SetRing {
+  db.DebugStack setstack $In function : SetRing of class PrimitiveObject$  stdstack
+  /Arglist set /Argthis set /FunctionValue [ ] def
+  [/this /r  ] /ArgNames set ArgNames pushVariables [ %%function body
+  [Argthis] Arglist join ArgNames mapset
+   r ring_def  /ExitPoint ]pop popVariables %%pop argValues
+  db.DebugStack setstack pop stdstack
+ FunctionValue } def
+ %%end of function