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 ; |