[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

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

version 1.30, Fri Dec 31 13:23:58 2004 UTC version 1.31, Tue Jan 4 22:09:04 2005 UTC
Line 34 
Line 34 
   
 \ 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 
Line 388 
 \ 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?

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help