Diff for /gforth/wf.fs between versions 1.21 and 1.22

version 1.21, 2003/11/23 23:14:28 version 1.22, 2003/12/07 23:05:30
Line 366  Create nav-buf 0 c, Line 366  Create nav-buf 0 c,
 : new-toc  toc-link off ;  : new-toc  toc-link off ;
   
 Variable toc-name  Variable toc-name
   Variable toc-index
   6 Value /toc-line
   
 : .toc-entry ( toc flag -- )  : .toc-entry ( toc flag -- )
     swap cell+ dup @ swap cell+ dup cell+ $@ 2dup href= s" a" tag      swap cell+ dup @ swap cell+ dup cell+ $@ 2dup href= s" a" tag
Line 386  Variable toc-name Line 388  Variable toc-name
             3 of  s" v]|-icons/arrow_down.jpg" .img  endof              3 of  s" v]|-icons/arrow_down.jpg" .img  endof
         endcase          endcase
     THEN      THEN
     s" a" /tag rdrop      s" a" /tag rdrop ." <!--" cr ." -->"
     ;      1 toc-index +! toc-index @ /toc-line mod 0=
 : print-toc ( -- ) cr s" menu" id= s" div" tag cr 0 parse      IF  s" br" tag/ THEN ;
   
   : print-toc ( -- ) toc-index off cr s" menu" id= s" div" >env cr
       0 parse
     dup 0= IF  toc-name $! 0  ELSE      dup 0= IF  toc-name $! 0  ELSE
         toc-name $! toc-name $@ id= s" " s" a" tagged  2          toc-name $! toc-name $@ id= s" " s" a" tagged  2
     THEN  >r      THEN  >r
     toc-link  BEGIN  @ dup  WHILE      toc-link  BEGIN  @ dup  WHILE
         dup cell+ @ 3 = r@ 0= and IF  rdrop 1 >r ( s" br" tag/ cr )  THEN          dup cell+ @ 3 = r@ 0= and IF  rdrop 1 >r ( s" br" tag/ cr )  THEN
         dup cell+ @ r@ >= IF  dup r@ 2 = .toc-entry  THEN          dup cell+ @ r@ >= IF  dup r@ 2 = .toc-entry  THEN
         dup cell+ @ 2 = r@ 2 = and IF  s" br" tag/ cr  THEN          dup cell+ @ 2 = r@ 2 = and IF  s" br" tag/ toc-index off THEN
     REPEAT  drop rdrop  cr s" div" /tag cr ;      REPEAT  drop rdrop -env cr ;
   
 \ handle global tags  \ handle global tags
   
 : indent ( n -- )  : indent ( n -- )
 \    indentlevel @ over      indentlevel @ over
     indentlevel !      indentlevel !
 \    2dup < IF swap DO  -env -env  LOOP  EXIT THEN      2dup < IF swap DO  -env -env  LOOP  EXIT THEN
 \    2dup > IF      DO  s" dl" >env s" dt" >env  LOOP EXIT THEN      2dup > IF      DO  s" dl" >env s" dt" >env  LOOP EXIT THEN
 \    2dup = IF drop IF  -env  s" dt" >env  THEN THEN      2dup = IF drop IF  -env  s" dt" >env  THEN THEN
 ;  ;
 : +indent ( -- )  : +indent ( -- )
 \    indentlevel @ IF  -env s" dd" >env  THEN      indentlevel @ IF  -env s" dd" >env  THEN
 ;  ;
   
 wordlist constant longtags  wordlist constant longtags

Removed from v.1.21  
changed lines
  Added in v.1.22


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