Diff for /gforth/wf.fs between versions 1.12 and 1.13

version 1.12, 2001/08/25 21:12:24 version 1.13, 2001/09/06 18:37:23
Line 60  Variable table-start Line 60  Variable table-start
   
 : >align ( c -- )  : >align ( c -- )
     CASE      CASE
           'l OF  s" left"      align=  ENDOF
           'r OF  s" right"     align=  ENDOF
           'c OF  s" center"    align=  ENDOF
           '< OF  s" left"      align=  ENDOF
           '> OF  s" right"     align=  ENDOF
           '= OF  s" center"    align=  ENDOF
           '~ OF  s" absmiddle" align=  ENDOF
       ENDCASE ;
   
   : >talign ( c -- )
       CASE
         'l OF  s" left"   align=  ENDOF          'l OF  s" left"   align=  ENDOF
         'r OF  s" right"  align=  ENDOF          'r OF  s" right"  align=  ENDOF
         'c OF  s" center" align=  ENDOF          'c OF  s" center" align=  ENDOF
Line 367  definitions Line 378  definitions
           
 \ Table  \ Table
   
 : |tag  table-format $@ table# @ /string drop c@ >align  : |tag  table-format $@ table# @ /string drop c@ >talign
     >env  1 table# +! ;      >env  1 table# +! ;
 : |d  table# @ table-start @ > IF  -env  THEN  s" td" |tag ;  : |d  table# @ table-start @ > IF  -env  THEN  s" td" |tag ;
 : |h  table# @ table-start @ > IF  -env  THEN  s" th" |tag ;  : |h  table# @ table-start @ > IF  -env  THEN  s" th" |tag ;

Removed from v.1.12  
changed lines
  Added in v.1.13


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