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 |