version 1.56, 2008/08/24 12:28:11
|
version 1.59, 2008/10/12 13:15:23
|
Line 272 Defer parse-line
|
Line 272 Defer parse-line
|
|
|
: get-icon ( addr u -- ) iconpath @ IF 2drop EXIT THEN |
: get-icon ( addr u -- ) iconpath @ IF 2drop EXIT THEN |
link-suffix $! s" .*" link-suffix $+! |
link-suffix $! s" .*" link-suffix $+! |
icon-prefix $@ open-dir throw >r |
icon-prefix $@ open-dir IF drop EXIT THEN >r |
BEGIN |
BEGIN |
pad $100 r@ read-dir throw WHILE |
pad $100 r@ read-dir throw WHILE |
pad swap 2dup link-suffix $@ filename-match |
pad swap 2dup link-suffix $@ filename-match |
Line 380 Create do-words $100 0 [DO] ' .text , [
|
Line 380 Create do-words $100 0 [DO] ' .text , [
|
: >tag '\ parse type '\ parse tag ; |
: >tag '\ parse type '\ parse tag ; |
|
|
char>tag * b |
char>tag * b |
|
char>tag / i |
char>tag _ em |
char>tag _ em |
char>tag # code |
char>tag # code |
:noname '~ parse .type '~ parse .type ; '~ cells do-words + ! |
:noname '~ parse .type '~ parse .type ; '~ cells do-words + ! |
Line 462 Create nav-buf 0 c,
|
Line 463 Create nav-buf 0 c,
|
ELSE dup 'a 'z 1+ within IF nav+ |
ELSE dup 'a 'z 1+ within IF nav+ |
ELSE dup '0 '9 1+ within IF nav+ |
ELSE dup '0 '9 1+ within IF nav+ |
ELSE dup bl = over '- = or IF '- nav+ |
ELSE dup bl = over '- = or IF '- nav+ |
ELSE nav+ |
ELSE drop |
THEN THEN THEN THEN |
THEN THEN THEN THEN |
LOOP ; |
LOOP ; |
: >nav ( addr u -- addr' u' ) |
: >nav ( addr u -- addr' u' ) |
Line 740 Variable orig-date
|
Line 741 Variable orig-date
|
'< sword -trailing mail-name $! '> sword mail $! ; |
'< sword -trailing mail-name $! '> sword mail $! ; |
: pgp-key ( -- ) |
: pgp-key ( -- ) |
bl sword -trailing public-key $! ; |
bl sword -trailing public-key $! ; |
: charset ( -- ) s" text/xhtml; charset=" content $! |
: charset ( -- ) s" application/xhtml+xml; charset=" content $! |
bl sword -trailing 2dup content $+! _charset $! ; |
bl sword -trailing 2dup content $+! _charset $! ; |
|
|
charset iso-8859-1 |
charset iso-8859-1 |