[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.6 and 1.8

version 1.6, 2004/09/10 13:20:23 version 1.8, 2004/09/17 00:47:09
Line 1 
Line 1 
 %% $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.7 2004/09/16 23:53:44 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 13 
Line 13 
 /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 {
Line 72 
Line 76 
 /?  /?
 {  {
    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
Line 95 
Line 100 
    print  newline ;     print  newline ;
 } def  } def
   
 /. {expand} def  /. { expand } def
   
   
 /false 0 def  /false 0 def

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.8

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>