version 1.54, 2008/04/08 09:04:21
|
version 1.57, 2008/10/06 19:31:36
|
Line 1
|
Line 1
|
\ wiki forth |
\ wiki forth |
|
|
\ Copyright (C) 2003,2004,2005,2006,2007 Free Software Foundation, Inc. |
\ Copyright (C) 2003,2004,2005,2006,2007,2008 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
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 531 true Value toc-image
|
Line 532 true Value toc-image
|
IF -env cr s" p" >env THEN ; |
IF -env cr s" p" >env THEN ; |
|
|
: print-toc ( -- ) toc-index off cr |
: print-toc ( -- ) toc-index off cr |
toc-image IF s" img-menu" ELSE s" menu" THEN id= |
toc-image IF s" img-menu" ELSE s" menu" THEN class= |
s" div" >env cr s" p" >env |
s" div" >env cr s" p" >env |
0 parse |
0 parse |
dup 0= IF toc-name $! 0 ELSE |
dup 0= IF toc-name $! 0 ELSE |
Line 579 longtags set-current
|
Line 580 longtags set-current
|
: p<< s" p" >env ; |
: p<< s" p" >env ; |
: << +env ; |
: << +env ; |
: <* s" center" class= ; |
: <* s" center" class= ; |
: <red s" p" >env s" #ff0000" s" color" opt s" font" >env parse-par ; |
: <red s" red" class= s" p" >env parse-par ; |
: red> -env -env ; |
: red> -env ; |
: >> -env ; |
: >> -env ; |
: *> ; |
: *> ; |
: :: interpret ; |
: :: interpret ; |