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

version 1.42, 2006/01/31 17:08:07 version 1.45, 2006/03/19 23:27:38
Line 31  require string.fs Line 31  require string.fs
 : 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 655  definitions Line 656  definitions
   
 Variable css-file  Variable css-file
 Variable print-file  Variable print-file
   Variable ie-css-file
 Variable content  Variable content
   Variable _charset
 Variable _lang  Variable _lang
 Variable _favicon  Variable _favicon
   
Line 666  Variable _favicon Line 669  Variable _favicon
             s" StyleSheet" s" rel" opt              s" StyleSheet" s" rel" opt
             css-file $@ href= s" screen" s" media" opt              css-file $@ href= s" screen" 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
       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 ( -- )
     print-file @ IF  print-file $@len IF      print-file @ IF  print-file $@len IF
             s" StyleSheet" s" rel" opt             s" StyleSheet" s" rel" opt
             print-file $@ href= s" print" s" media" 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
       _charset $@ s" utf-8" str= 0=
       IF  .' <?xml version="1.0" encoding="' _charset $@ .upcase .' "?>' cr  THEN
     .' <!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 722  Variable orig-date Line 732  Variable orig-date
 : 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 752  Variable style$ Line 762  Variable style$
 : marginheight ( -- ) parse" s" marginheight" style ;  : marginheight ( -- ) parse" s" marginheight" style ;
 : css ( -- ) parse" css-file $! ;  : css ( -- ) parse" css-file $! ;
 : print-css ( -- ) parse" print-file $! ;  : print-css ( -- ) parse" print-file $! ;
   : ie-css ( -- ) parse" ie-css-file $! ;
   
 : wf ( -- )  : wf ( -- )
     outfile-id >r      outfile-id >r

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


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