[BACK]Return to smacro.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Kan

Diff for /OpenXM/src/kan96xx/Kan/smacro.sm1 between version 1.2 and 1.6

version 1.2, 2000/01/16 07:55:41 version 1.6, 2004/09/10 13:20:23
Line 1 
Line 1 
 %% $OpenXM$  %% $OpenXM: OpenXM/src/kan96xx/Kan/smacro.sm1,v 1.5 2004/09/09 03:14:46 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
Line 7 
Line 7 
 /@@@.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
Line 64 
Line 65 
      [$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
   
Line 95 
Line 97 
   
 /. {expand} def  /. {expand} def
   
 /, {   } def  
   
 /false 0 def  /false 0 def
   
Line 122 
Line 123 
 % 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
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.6
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>