[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

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

version 1.12, Sat Aug 25 21:12:24 2001 UTC version 1.13, Thu Sep 6 18:37:23 2001 UTC
Line 66 
Line 66 
         '< OF  s" left"   align=  ENDOF          '< OF  s" left"   align=  ENDOF
         '> OF  s" right"  align=  ENDOF          '> OF  s" right"  align=  ENDOF
         '= OF  s" center" align=  ENDOF          '= OF  s" center" align=  ENDOF
           '~ OF  s" absmiddle" align=  ENDOF
       ENDCASE ;
   
   : >talign ( c -- )
       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
         digit? IF  0 <# #S #> s" rowspan" opt          digit? IF  0 <# #S #> s" rowspan" opt
             table# @ 1+ table-start ! THEN 0              table# @ 1+ table-start ! THEN 0
     ENDCASE ;      ENDCASE ;
Line 367 
Line 378 
   
 \ 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 ;

Generate output suitable for use with a patch program
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help