=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/Kan/smacro.sm1,v retrieving revision 1.1.1.1 retrieving revision 1.8 diff -u -p -r1.1.1.1 -r1.8 --- OpenXM/src/kan96xx/Kan/smacro.sm1 1999/10/08 02:12:01 1.1.1.1 +++ OpenXM/src/kan96xx/Kan/smacro.sm1 2004/09/17 00:47:09 1.8 @@ -1,4 +1,4 @@ - +%% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.7 2004/09/16 23:53:44 takayama Exp $ %%%%%% global control variables %% /@@@.quiet 0 def It is defined in scanner(). /@@@.Dsymbol (D) def @@ -7,11 +7,16 @@ /@@@.hsymbol (h) def /@@@.esymbol (e_) def /@@@.Esymbol (E) def +/@@@.Hsymbol (H) def %%% pointer to the StandardContext. /StandardContextp [(CurrentContextp)] system_variable def /null 0 (null) data_conversion def +/makeInfix { + [(or_attr) 4 4 -1 roll ] extension +} def + %%%%%%%%%%%%%%%%%%%%%% usages %%%%%%%%%%%%%%%%%%%% /@.usages [[( ) [(gate keeper)]] ] def /putUsages { @@ -64,13 +69,15 @@ [$PrintDollar$ 0] system_variable pop @@@.quiet 0 eq {$sm1>$ print} { } ifelse + [(traceClearStack)] extension pop ] system_variable pop } def /? { show_systemdictionary - (-- ?? : to see macro dictionary --) + (-- ?? : to see macro dictionary --) + (-- [(keyword in regular expression)] usages :: --) message $-- (keyWord) usage to see the usages. Data type of (xxxyyy) is string.--$ message @@ -93,9 +100,8 @@ print newline ; } def -/. {expand} def +/. { expand } def -/, { } def /false 0 def @@ -122,13 +128,7 @@ % v1 v2 join /join { /arg2 set /arg1 set - [/v1 /v2] pushVariables - /v1 arg1 def /v2 arg2 def - [ - [v1 aload pop v2 aload pop] /arg1 set - ] pop - popVariables - arg1 + [(Kjoin) arg1 arg2] extension } def /n.map 0 def /i.map 0 def /ar.map 0 def /res.map 0 def %% declare variables