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

version 1.42, 2006/01/31 17:08:07 version 1.43, 2006/02/25 14:01:19
Line 654  definitions Line 654  definitions
 \ 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  Variable _favicon Line 663  Variable _favicon
 : .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  Variable _favicon Line 675  Variable _favicon
     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  Variable style$ Line 744  Variable style$
 : 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

Removed from v.1.42  
changed lines
  Added in v.1.43


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