Diff for /gforth/wf.fs between versions 1.30 and 1.31

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
   

Removed from v.1.30  
changed lines
  Added in v.1.31


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