| version 1.4, 2004/09/04 11:25:58 |
version 1.5, 2004/09/09 03:14:46 |
|
|
| %% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.3 2004/05/13 05:33:10 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.4 2004/09/04 11:25:58 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 |
|
|
| % v1 v2 join |
% v1 v2 join |
| /join { |
/join { |
| /arg2 set /arg1 set |
/arg2 set /arg1 set |
| [/v1 /v2] pushVariables |
[(Kjoin) arg1 arg2] extension |
| /v1 arg1 def /v2 arg2 def |
|
| [ |
|
| [v1 aload pop v2 aload pop] /arg1 set |
|
| ] pop |
|
| popVariables |
|
| arg1 |
|
| } def |
} def |
| |
|
| /n.map 0 def /i.map 0 def /ar.map 0 def /res.map 0 def %% declare variables |
/n.map 0 def /i.map 0 def /ar.map 0 def /res.map 0 def %% declare variables |
![[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