version 1.30, 2004/12/31 13:23:58
|
version 1.31, 2005/01/04 22:09:04
|
Line 34 require string.fs
|
Line 34 require string.fs
|
|
|
\ character recoding |
\ character recoding |
|
|
[IFDEF] 8-bit-io 8-bit-io [THEN] |
[IFDEF] maxascii $100 to maxascii 8-bit-io [THEN] |
\ UTF-8 IO fails with .type: |
\ UTF-8 IO fails with .type: |
|
|
: .type ( addr u -- ) |
: .type ( addr u -- ) |
Line 388 wordlist Constant autoreplacements
|
Line 388 wordlist Constant autoreplacements
|
\ paragraph handling |
\ paragraph handling |
|
|
: parse-par ( -- ) |
: parse-par ( -- ) |
BEGIN parse-line+ cr refill WHILE |
BEGIN |
|
parse-line+ cr refill WHILE |
source nip 0= UNTIL THEN ; |
source nip 0= UNTIL THEN ; |
|
|
: par ( addr u -- ) env? |
: par ( addr u -- ) env? |
Line 599 definitions
|
Line 600 definitions
|
ELSE source nip IF >in off s" p" par THEN THEN ; |
ELSE source nip IF >in off s" p" par THEN THEN ; |
: parse-section ( -- ) end-sec off |
: parse-section ( -- ) end-sec off |
BEGIN refill WHILE |
BEGIN refill WHILE |
section-par end-sec @ UNTIL THEN ; |
section-par end-sec @ UNTIL THEN ; |
|
|
\ HTML head |
\ HTML head |
|
|