version 1.40, 2005/11/27 22:47:18
|
version 1.42, 2006/01/31 17:08:07
|
Line 1
|
Line 1
|
\ wiki forth |
\ wiki forth |
|
|
\ Copyright (C) 2003,2004 Free Software Foundation, Inc. |
\ Copyright (C) 2003,2004,2005 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 663 Variable _favicon
|
Line 664 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 |
|
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 675 Variable _favicon
|
Line 682 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 744 Variable style$
|
Line 751 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 |