version 1.38, 2005/06/28 15:22:45
|
version 1.40, 2005/11/27 22:47:18
|
Line 42 require string.fs
|
Line 42 require string.fs
|
case |
case |
'& of ." &" endof |
'& of ." &" endof |
'< of ." <" endof |
'< of ." <" endof |
'¤ of ." €" endof |
\ '¤ of ." €" endof |
dup emit |
dup emit |
endcase |
endcase |
LOOP ; |
LOOP ; |
Line 193 Create jfif $FF c, $D8 c, $FF c, $E0 c
|
Line 193 Create jfif $FF c, $D8 c, $FF c, $E0 c
|
dup IF '. emit THEN type ; |
dup IF '. emit THEN type ; |
|
|
12.9e FConstant pixels |
12.9e FConstant pixels |
|
FVariable factor 1e factor f! |
|
|
: size-does> ( -- ) DOES> ( -- ) |
: size-does> ( -- ) DOES> ( -- ) |
." img." dup body> >name .name |
." img." dup body> >name .name |
Line 216 Create jfif $FF c, $D8 c, $FF c, $E0 c
|
Line 217 Create jfif $FF c, $D8 c, $FF c, $E0 c
|
2dup img-sizes search-wordlist IF drop 2drop |
2dup img-sizes search-wordlist IF drop 2drop |
ELSE |
ELSE |
get-current >r img-sizes set-current |
get-current >r img-sizes set-current |
nextname Create 2dup , , size-does> |
nextname Create 2dup |
|
s>d d>f factor f@ f* f>d d>s , |
|
s>d d>f factor f@ f* f>d d>s , |
|
size-does> |
r> set-current |
r> set-current |
THEN ; |
THEN ; |
|
|
Line 651 definitions
|
Line 655 definitions
|
|
|
Variable css-file |
Variable css-file |
Variable content |
Variable content |
Variable lang |
Variable _lang |
|
Variable _favicon |
|
|
: lang@ ( -- addr u ) |
: lang@ ( -- addr u ) |
lang @ IF lang $@ ELSE s" en" THEN ; |
_lang @ IF _lang $@ ELSE s" en" THEN ; |
: .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 |
Line 671 Variable lang
|
Line 676 Variable lang
|
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 |
|
_favicon @ IF |
|
s" shortcut icon" s" rel" opt |
|
_favicon $@ href= |
|
s" image/x-icon" s" type" opt |
|
s" link" tag/ cr THEN |
s" title" tagged cr |
s" title" tagged cr |
-env ; |
-env ; |
|
|
Line 714 charset iso-8859-1
|
Line 724 charset iso-8859-1
|
: icons |
: icons |
bl sword icon-prefix $! ; |
bl sword icon-prefix $! ; |
: lang |
: lang |
bl sword lang $! ; |
bl sword _lang $! ; |
|
: favicon |
|
bl sword _favicon $! ; |
: expands '# sword expand-prefix $! bl sword expand-postfix $! ; |
: expands '# sword expand-prefix $! bl sword expand-postfix $! ; |
|
|
icons icons |
icons icons |