version 1.41, 2005/12/31 15:46:10
|
version 1.46, 2006/03/20 00:14:56
|
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 67 s" " default-class $!
|
Line 68 s" " default-class $!
|
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ; |
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ; |
|
|
: opt ( addr u opt u -- ) s" " tag-option $+! |
: opt ( addr u opt u -- ) s" " tag-option $+! |
tag-option $+! s' ="' tag-option $+! tag-option $+! |
tag-option $+! s' ="' tag-option $+! |
|
\ BEGIN dup WHILE '& $split >r >r tag-option $+! r> r> |
|
\ dup IF s" %26" tag-option $+! THEN |
|
\ REPEAT 2drop |
|
tag-option $+! |
s' "' tag-option $+! ; |
s' "' tag-option $+! ; |
: n>string ( n -- addr u ) 0 <# #S #> ; |
: n>string ( n -- addr u ) 0 <# #S #> ; |
: xy>string ( x y -- ) swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ; |
: xy>string ( x y -- ) swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ; |
Line 654 definitions
|
Line 659 definitions
|
\ 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 Variable _favicon
|
Line 671 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= |
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-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 |
|
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 675 Variable _favicon
|
Line 696 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 |
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 Variable orig-date
|
Line 736 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 744 Variable style$
|
Line 765 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 $! ; |
|
: ie-css ( -- ) parse" ie-css-file $! ; |
|
|
: wf ( -- ) |
: wf ( -- ) |
outfile-id >r |
outfile-id >r |