| version 1.10, 2003/11/20 09:20:36 |
version 1.11, 2004/09/10 13:20:23 |
| Line 182 FunctionValue } def |
|
| Line 182 FunctionValue } def |
|
| /Arglist set /Argthis set /FunctionValue [ ] def |
/Arglist set /Argthis set /FunctionValue [ ] def |
| [/this /f /r ] /ArgNames set ArgNames pushVariables [ %%function body |
[/this /f /r ] /ArgNames set ArgNames pushVariables [ %%function body |
| [Argthis] Arglist join ArgNames mapset |
[Argthis] Arglist join ArgNames mapset |
| f r ,, /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues |
f r __ /FunctionValue set /ExitPoint ]pop popVariables %%pop argValues |
| db.DebugStack setstack pop stdstack |
db.DebugStack setstack pop stdstack |
| FunctionValue } def |
FunctionValue } def |
| %%end of function |
%%end of function |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to slib.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / k097