[gforth] / gforth / wf.fs  

gforth: gforth/wf.fs

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

version 1.43, Sat Feb 25 14:01:19 2006 UTC version 1.44, Sun Mar 19 23:24:57 2006 UTC
Line 31 
Line 31 
 : parse" ( -- addr u ) '" parse 2drop '" parse ;  : parse" ( -- addr u ) '" parse 2drop '" parse ;
 : .' '' parse postpone SLiteral postpone type ; immediate  : .' '' parse postpone SLiteral postpone type ; immediate
 : s' '' parse postpone SLiteral ; immediate  : s' '' parse postpone SLiteral ; immediate
   : .upcase ( addr u -- )  bounds ?DO  I c@ toupper emit  LOOP ;
   
 \ character recoding  \ character recoding
   
Line 654 
Line 655 
 \ HTML head  \ HTML head
   
 Variable css-file  Variable css-file
   Variable print-file
   Variable ie-css-file
 Variable content  Variable content
   Variable _charset
 Variable _lang  Variable _lang
 Variable _favicon  Variable _favicon
   
Line 663 
Line 667 
 : .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=              css-file $@ href= s" screen" s" media" opt
               s" text/css" s" type" opt s" link" tag/ cr
           THEN  THEN
       ie-css-file @ IF
           ." <!--[if lt IE 7.0]>" cr
           .'    <style type="text/css">@import url(' ie-css-file $@ type ." );</style>" cr
           ." <![endif]-->" cr
       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
       .' <?xml version="1.0" encoding="' _charset $@ .upcase .' "?>' cr
     .' <!DOCTYPE html' cr      .' <!DOCTYPE html' cr
     .'   PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' cr      .'   PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"' cr
     .'   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' cr      .'   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">' cr
Line 675 
Line 691 
     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      s" meta" tag/ cr .css .print
     _favicon @ IF      _favicon @ IF
         s" shortcut icon" s" rel" opt          s" shortcut icon" s" rel" opt
         _favicon $@ href=          _favicon $@ href=
Line 715 
Line 731 
 : pgp-key ( -- )  : pgp-key ( -- )
     bl sword -trailing public-key $! ;      bl sword -trailing public-key $! ;
 : charset ( -- )  s" text/xhtml; charset=" content $!  : charset ( -- )  s" text/xhtml; charset=" content $!
     bl sword -trailing content $+! ;      bl sword -trailing 2dup content $+! _charset $! ;
   
 charset iso-8859-1  charset iso-8859-1
   
Line 744 
Line 760 
 : 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 $! ;
   : ie-css ( -- ) parse" ie-css-file $! ;
   
 : wf ( -- )  : wf ( -- )
     outfile-id >r      outfile-id >r

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help