[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.31 and 1.32

version 1.31, Tue Jan 4 22:09:04 2005 UTC version 1.32, Sun Jan 16 13:29:21 2005 UTC
Line 232 
Line 232 
   
 Variable do-size  Variable do-size
 Variable do-icon  Variable do-icon
   Variable do-expand
   
 Defer parse-line  Defer parse-line
   
Line 295 
Line 296 
     THEN ;      THEN ;
   
 : link-options ( addr u -- addr' u' )  : link-options ( addr u -- addr' u' )
     do-size off  do-icon on      do-size off  do-icon on  do-expand off
     over c@ '% = over 0> and IF  do-size on  1 /string  THEN      over c@ '% = over 0> and IF  do-size on  1 /string  THEN
     over c@ '\ = over 0> and IF  do-icon off 1 /string  THEN ;      over c@ '\ = over 0> and IF  do-icon off  1 /string  THEN
       over c@ '* = over 0> and IF  do-expand on 1 /string  THEN ;
   
 s" Gforth" environment? [IF] s" 0.5.0" str= [IF]  s" Gforth" environment? [IF] s" 0.5.0" str= [IF]
 : parse-string ( c-addr u -- ) \ core,block  : parse-string ( c-addr u -- ) \ core,block
Line 312 
Line 314 
     ['] parse-line catch pop-file throw ;      ['] parse-line catch pop-file throw ;
 [THEN] [THEN]  [THEN] [THEN]
   
   Variable expand-link
   Variable expand-prefix
   Variable expand-postfix
   
   : ?expand ( addr u -- )  expand-link $!
       do-expand @ IF
           expand-prefix $@ expand-link 0 $ins
           expand-postfix $@ expand-link $+!  THEN
       expand-link $@ ;
   
 : .link ( addr u -- ) dup >r '| -$split  dup r> = IF  2swap  THEN  : .link ( addr u -- ) dup >r '| -$split  dup r> = IF  2swap  THEN
     link-options link $!      link-options link $!
     link $@len 0= IF  2dup link $! ( s" .html" link $+! ) THEN      link $@len 0= IF  2dup link $! ( s" .html" link $+! ) THEN
     link $@ href= s" a" tag link-icon?      link $@ ?expand
       href= s" a" tag link-icon?
     parse-string s" a" /tag link-size? link-sig? link-warn? ;      parse-string s" a" /tag link-size? link-sig? link-warn? ;
 : >link ( -- )  '[ parse type '] parse .link ;  : >link ( -- )  '[ parse type '] parse .link ;
   
Line 654 
Line 667 
     bl sword orig-date $! ;      bl sword orig-date $! ;
 : icons  : icons
     bl sword icon-prefix $! ;      bl sword icon-prefix $! ;
   : expands '# sword expand-prefix $! bl sword expand-postfix $! ;
   
 icons icons  icons icons
   
 Variable style$  Variable style$

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help