Diff for /gforth/wf.fs between versions 1.46 and 1.52

version 1.46, 2006/03/20 00:14:56 version 1.52, 2007/12/31 17:34:58
Line 1 Line 1
 \ wiki forth  \ wiki forth
   
 \ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc.  \ Copyright (C) 2003,2004,2005,2006,2007 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 43  require string.fs Line 43  require string.fs
         case          case
             '& of  ." &"  endof              '& of  ." &"  endof
             '< of  ." &lt;"   endof              '< of  ." &lt;"   endof
 \           ' of  ." &euro;" endof  \           &164 of  ." &euro;" endof
             dup emit              dup emit
         endcase          endcase
     LOOP ;      LOOP ;
Line 354  Variable expand-postfix Line 354  Variable expand-postfix
   
 \ 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 456  Create nav-buf 0 c, Line 456  Create nav-buf 0 c,
     bounds ?DO      bounds ?DO
         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+
         THEN  THEN  THEN  THEN                      ELSE  nav+
                       THEN  THEN  THEN  THEN
     LOOP ;      LOOP ;
 : >nav ( addr u -- addr' u' )  : >nav ( addr u -- addr' u' )
     nav-name $!  create-navs @ 0=      nav-name $!  create-navs @ 0=
Line 519  true Value toc-image Line 520  true Value toc-image
                 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=

Removed from v.1.46  
changed lines
  Added in v.1.52


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