| version 1.6, 2004/09/10 13:20:23 |
version 1.7, 2004/09/16 23:53:44 |
|
|
| %% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.5 2004/09/09 03:14:46 takayama Exp $ |
%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.6 2004/09/10 13:20:23 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 |
|
|
| /StandardContextp [(CurrentContextp)] system_variable def |
/StandardContextp [(CurrentContextp)] system_variable def |
| /null 0 (null) data_conversion def |
/null 0 (null) data_conversion def |
| |
|
| |
/makeInfix { |
| |
[(or_attr) 4 4 -1 roll ] extension |
| |
} def |
| |
|
| %%%%%%%%%%%%%%%%%%%%%% usages %%%%%%%%%%%%%%%%%%%% |
%%%%%%%%%%%%%%%%%%%%%% usages %%%%%%%%%%%%%%%%%%%% |
| /@.usages [[( ) [(gate keeper)]] ] def |
/@.usages [[( ) [(gate keeper)]] ] def |
| /putUsages { |
/putUsages { |
|
|
| /? |
/? |
| { |
{ |
| show_systemdictionary |
show_systemdictionary |
| (-- ?? : to see macro dictionary --) |
(-- ?? : to see macro dictionary --) |
| |
(-- [(keyword in regular expression)] usages :: --) |
| message |
message |
| $-- (keyWord) usage to see the usages. Data type of (xxxyyy) is string.--$ |
$-- (keyWord) usage to see the usages. Data type of (xxxyyy) is string.--$ |
| message |
message |
|
|
| print newline ; |
print newline ; |
| } def |
} def |
| |
|
| /. {expand} def |
/. { dup tag 3 eq { exec } {expand} ifelse } def |
| |
|
| |
|
| /false 0 def |
/false 0 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