version 1.4, 2001/07/17 14:21:21
|
version 1.5, 2001/07/17 15:50:43
|
Line 155 Variable table#
|
Line 155 Variable table#
|
: |line s" tr" >env table# off ; |
: |line s" tr" >env table# off ; |
: line| -env -env cr ; |
: line| -env -env cr ; |
|
|
|
: next-char ( -- char ) source drop >in @ + c@ ; |
|
|
longtags set-current |
longtags set-current |
|
|
: <| s" table" >env bl sword table-format $! ; |
: <| s" table" >env bl sword table-format $! ; |
: |> -env ; |
: |> -env ; |
: +| |line |
: +| |line |
BEGIN |
BEGIN |
|h '| parse-to char? '+ = UNTIL line| ; |
|h '| parse-to next-char '+ = UNTIL line| ; |
: -| |line |
: -| |line |
BEGIN |
BEGIN |
|d '| parse-to char? '- = UNTIL line| ; |
|d '| parse-to next-char '- = UNTIL line| ; |
|
|
definitions |
definitions |
|
|