[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.34 and 1.35

version 1.34, Wed Mar 30 21:57:12 2005 UTC version 1.35, Sun May 1 19:10:52 2005 UTC
Line 52 
Line 52 
 Variable indentlevel  Variable indentlevel
 Variable tag-option  Variable tag-option
 Variable tag-class  Variable tag-class
   Variable default-class
 s" " tag-option $!  s" " tag-option $!
 s" " tag-class $!  s" " tag-class $!
   s" " default-class $!
   
 : tag ( addr u -- ) '< emit type  : tag ( addr u -- ) '< emit type
     tag-class $@len IF  .\"  class=\"" tag-class $@ type '" emit  THEN      tag-class $@len IF  .\"  class=\"" tag-class $@ type '" emit  THEN
     tag-option $@ type      tag-option $@ type
     '> emit      '> emit
     s" " tag-option $! s" " tag-class $! ;      s" " tag-option $! default-class $@ tag-class $! ;
 : tag/ ( addr u -- )  s"  /" tag-option $+! tag ;  : tag/ ( addr u -- )  s"  /" tag-option $+! tag ;
 : /tag ( addr u -- ) '< emit '/ emit type '> emit ;  : /tag ( addr u -- ) '< emit '/ emit type '> emit ;
 : tagged ( addr1 u1 addr2 u2 -- )  2dup 2>r tag .type 2r> /tag ;  : tagged ( addr1 u1 addr2 u2 -- )  2dup 2>r tag .type 2r> /tag ;
Line 80 
Line 82 
 : class= ( addr u -- )  : class= ( addr u -- )
     tag-class $@len IF  s"  " tag-class $+!  THEN      tag-class $@len IF  s"  " tag-class $+!  THEN
     tag-class $+! ;      tag-class $+! ;
   : dclass= ( addr u -- )  2dup class=
       default-class $! ;
 : indent= ( -- )  : indent= ( -- )
     indentlevel @ 0 <# #S 'p hold #> class= ;      indentlevel @ 0 <# #S 'p hold #> class= ;
 : mailto: ( addr u -- ) s'  href="mailto:' tag-option $+!  : mailto: ( addr u -- ) s'  href="mailto:' tag-option $+!
Line 522 
Line 526 
 longtags set-current  longtags set-current
   
 : --- 0 indent cr s" hr" tag/ cr ;  : --- 0 indent cr s" hr" tag/ cr ;
 : *   1 indent s" h1" par +indent ;  : *   1 indent s" h1" dclass= s" h1" par +indent s" " dclass= ;
 : **  1 indent s" h2" par +indent ;  : **  1 indent s" h2" dclass= s" h2" par +indent s" " dclass= ;
 : *** 2 indent s" h3" par +indent ;  : *** 2 indent s" h3" dclass= s" h3" par +indent 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 ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help