[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

Diff for /gforth/wf.fs between version 1.42 and 1.43

version 1.42, Tue Jan 31 17:08:07 2006 UTC version 1.43, Sat Feb 25 14:01:19 2006 UTC
Line 654 
Line 654 
 \ HTML head  \ HTML head
   
 Variable css-file  Variable css-file
 Variable print-file  
 Variable content  Variable content
 Variable _lang  Variable _lang
 Variable _favicon  Variable _favicon
Line 664 
Line 663 
 : .css ( -- )  : .css ( -- )
     css-file @ IF  css-file $@len IF      css-file @ IF  css-file $@len IF
             s" StyleSheet" s" rel" opt              s" StyleSheet" s" rel" opt
             css-file $@ href= s" screen" s" media" opt              css-file $@ href=
             s" text/css" s" type" opt s" link" tag/ cr  
         THEN  THEN ;  
 : .print ( -- )  
     print-file @ IF  print-file $@len IF  
             s" StyleSheet" s" rel" opt  
             print-file $@ href= s" print" s" media" opt  
             s" text/css" s" type" opt s" link" tag/ cr              s" text/css" s" type" opt s" link" tag/ cr
         THEN  THEN ;          THEN  THEN ;
 : .title ( addr u -- )  1 envs ! oldenv off  : .title ( addr u -- )  1 envs ! oldenv off
Line 682 
Line 675 
     s" html" >env cr s" head" >env cr      s" html" >env cr s" head" >env cr
     s" Content-Type" s" http-equiv" opt      s" Content-Type" s" http-equiv" opt
     content $@ s" content" opt      content $@ s" content" opt
     s" meta" tag/ cr .css .print      s" meta" tag/ cr .css
     _favicon @ IF      _favicon @ IF
         s" shortcut icon" s" rel" opt          s" shortcut icon" s" rel" opt
         _favicon $@ href=          _favicon $@ href=
Line 751 
Line 744 
 : vlink ( -- ) parse" s" vlink" style ;  : vlink ( -- ) parse" s" vlink" style ;
 : marginheight ( -- ) parse" s" marginheight" style ;  : marginheight ( -- ) parse" s" marginheight" style ;
 : css ( -- ) parse" css-file $! ;  : css ( -- ) parse" css-file $! ;
 : print-css ( -- ) parse" print-file $! ;  
   
 : wf ( -- )  : wf ( -- )
     outfile-id >r      outfile-id >r

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help