version 1.21, 2003/11/23 23:14:28
|
version 1.22, 2003/12/07 23:05:30
|
Line 366 Create nav-buf 0 c,
|
Line 366 Create nav-buf 0 c,
|
: new-toc toc-link off ; |
: new-toc toc-link off ; |
|
|
Variable toc-name |
Variable toc-name |
|
Variable toc-index |
|
6 Value /toc-line |
|
|
: .toc-entry ( toc flag -- ) |
: .toc-entry ( toc flag -- ) |
swap cell+ dup @ swap cell+ dup cell+ $@ 2dup href= s" a" tag |
swap cell+ dup @ swap cell+ dup cell+ $@ 2dup href= s" a" tag |
Line 386 Variable toc-name
|
Line 388 Variable toc-name
|
3 of s" v]|-icons/arrow_down.jpg" .img endof |
3 of s" v]|-icons/arrow_down.jpg" .img endof |
endcase |
endcase |
THEN |
THEN |
s" a" /tag rdrop |
s" a" /tag rdrop ." <!--" cr ." -->" |
; |
1 toc-index +! toc-index @ /toc-line mod 0= |
: print-toc ( -- ) cr s" menu" id= s" div" tag cr 0 parse |
IF s" br" tag/ THEN ; |
|
|
|
: print-toc ( -- ) toc-index off cr s" menu" id= s" div" >env cr |
|
0 parse |
dup 0= IF toc-name $! 0 ELSE |
dup 0= IF toc-name $! 0 ELSE |
toc-name $! toc-name $@ id= s" " s" a" tagged 2 |
toc-name $! toc-name $@ id= s" " s" a" tagged 2 |
THEN >r |
THEN >r |
toc-link BEGIN @ dup WHILE |
toc-link BEGIN @ dup WHILE |
dup cell+ @ 3 = r@ 0= and IF rdrop 1 >r ( s" br" tag/ cr ) THEN |
dup cell+ @ 3 = r@ 0= and IF rdrop 1 >r ( s" br" tag/ cr ) THEN |
dup cell+ @ r@ >= IF dup r@ 2 = .toc-entry THEN |
dup cell+ @ r@ >= IF dup r@ 2 = .toc-entry THEN |
dup cell+ @ 2 = r@ 2 = and IF s" br" tag/ cr THEN |
dup cell+ @ 2 = r@ 2 = and IF s" br" tag/ toc-index off THEN |
REPEAT drop rdrop cr s" div" /tag cr ; |
REPEAT drop rdrop -env cr ; |
|
|
\ handle global tags |
\ handle global tags |
|
|
: indent ( n -- ) |
: indent ( n -- ) |
\ indentlevel @ over |
indentlevel @ over |
indentlevel ! |
indentlevel ! |
\ 2dup < IF swap DO -env -env LOOP EXIT THEN |
2dup < IF swap DO -env -env LOOP EXIT THEN |
\ 2dup > IF DO s" dl" >env s" dt" >env LOOP EXIT THEN |
2dup > IF DO s" dl" >env s" dt" >env LOOP EXIT THEN |
\ 2dup = IF drop IF -env s" dt" >env THEN THEN |
2dup = IF drop IF -env s" dt" >env THEN THEN |
; |
; |
: +indent ( -- ) |
: +indent ( -- ) |
\ indentlevel @ IF -env s" dd" >env THEN |
indentlevel @ IF -env s" dd" >env THEN |
; |
; |
|
|
wordlist constant longtags |
wordlist constant longtags |