[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.50 and 1.51

version 1.50, Sun Dec 31 13:39:14 2006 UTC version 1.51, Thu Jul 19 13:28:18 2007 UTC
Line 354 
Line 354 
   
 \ line handling  \ line handling
   
 : char? ( -- c )  >in @ char swap >in ! ;  : char? ( -- c )  >in @ char swap >in ! $FF umin ;
   
 : parse-tag ( addr u char -- )  : parse-tag ( addr u char -- )
     >r r@ parse .type      >r r@ parse .type
Line 457 
Line 457 
         I c@  dup 'A 'Z 1+ within IF  bl + nav+          I c@  dup 'A 'Z 1+ within IF  bl + nav+
         ELSE  dup 'a 'z 1+ within IF  nav+          ELSE  dup 'a 'z 1+ within IF  nav+
         ELSE  dup '0 '9 1+ within IF  nav+          ELSE  dup '0 '9 1+ within IF  nav+
         ELSE  dup  bl = swap '- = or IF  '- nav+                  ELSE  dup  bl = over '- = or IF  '- nav+
                       ELSE  nav+
         THEN  THEN  THEN  THEN          THEN  THEN  THEN  THEN
     LOOP ;      LOOP ;
 : >nav ( addr u -- addr' u' )  : >nav ( addr u -- addr' u' )
Line 519 
Line 520 
                 3  OF  s" down" class=  ENDOF                  3  OF  s" down" class=  ENDOF
             ENDCASE              ENDCASE
         THEN          THEN
         s" a" tag parse-string s" a" /tag          s" a" tag parse-string s" a" /tag ." <!--" cr ." -->"
     THEN      THEN
     rdrop      rdrop
     1 toc-index +! toc-index @ /toc-line mod 0=      1 toc-index +! toc-index @ /toc-line mod 0=

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help