| version 1.2, 2000/01/16 07:55:41 |
version 1.4, 2004/09/04 11:25:58 |
|
|
| %% $OpenXM$ |
%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.3 2004/05/13 05:33:10 takayama Exp $ |
| %%%%%% global control variables |
%%%%%% global control variables |
| %% /@@@.quiet 0 def It is defined in scanner(). |
%% /@@@.quiet 0 def It is defined in scanner(). |
| /@@@.Dsymbol (D) def |
/@@@.Dsymbol (D) def |
|
|
| /@@@.hsymbol (h) def |
/@@@.hsymbol (h) def |
| /@@@.esymbol (e_) def |
/@@@.esymbol (e_) def |
| /@@@.Esymbol (E) def |
/@@@.Esymbol (E) def |
| |
/@@@.Hsymbol (H) def |
| |
|
| %%% pointer to the StandardContext. |
%%% pointer to the StandardContext. |
| /StandardContextp [(CurrentContextp)] system_variable def |
/StandardContextp [(CurrentContextp)] system_variable def |
|
|
| [$PrintDollar$ 0] system_variable pop |
[$PrintDollar$ 0] system_variable pop |
| @@@.quiet 0 eq |
@@@.quiet 0 eq |
| {$sm1>$ print} { } ifelse |
{$sm1>$ print} { } ifelse |
| |
[(traceClearStack)] extension pop |
| ] system_variable pop |
] system_variable pop |
| } def |
} def |
| |
|
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to smacro.sm1 CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM / src / kan96xx / Kan