Diff for /gforth/wf.fs between versions 1.60 and 1.61

version 1.60, 2008/10/29 20:45:33 version 1.61, 2010/02/13 17:01:44
Line 554  true Value toc-image Line 554  true Value toc-image
     indentlevel @ over      indentlevel @ over
     indentlevel !      indentlevel !
     2dup < IF swap DO  -env   LOOP  EXIT THEN      2dup < IF swap DO  -env   LOOP  EXIT THEN
     2dup > IF      DO   s" div" >env  LOOP EXIT THEN      2dup > IF      DO   indent= s" div" >env  LOOP EXIT THEN
     2dup = IF drop IF  -env  s" div" >env  THEN THEN      2dup = IF drop IF  -env  indent= s" div" >env  THEN THEN
 ;  
 : +indent ( -- )  
     indentlevel @ IF  -env indent= s" div" >env  THEN  
 ;  ;
   
 wordlist constant longtags  wordlist constant longtags
Line 568  Variable divs Line 565  Variable divs
 longtags set-current  longtags set-current
   
 : --- 0 indent cr s" hr" tag/ cr ;  : --- 0 indent cr s" hr" tag/ cr ;
 : *   1 indent +indent s" h1" dclass= s" h1" par s" " dclass= ;  : *   1 indent s" h1" dclass= s" h1" par s" " dclass= ;
 : **  1 indent +indent s" h2" dclass= s" h2" par s" " dclass= ;  : **  1 indent s" h2" dclass= s" h2" par s" " dclass= ;
 : *** 2 indent +indent s" h3" dclass= s" h3" par s" " dclass= ;  : *** 2 indent s" h3" dclass= s" h3" par s" " dclass= ;
 : --  0 indent cr print-toc ;  : --  0 indent cr print-toc ;
 : &&  0 parse id= ;  : &&  0 parse id= ;
 : -   s" ul" env s" li" par ;  : -   s" ul" env s" li" par ;

Removed from v.1.60  
changed lines
  Added in v.1.61


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