version 1.15, 2004/04/10 00:16:55
|
version 1.16, 2004/05/16 21:16:36
|
Line 112 Variable maxnum
|
Line 112 Variable maxnum
|
Variable htmldir |
Variable htmldir |
|
|
: rework-htmldir ( addr u -- addr' u' / ior ) |
: rework-htmldir ( addr u -- addr' u' / ior ) |
htmldir $! htmldir $@ compact.. htmldir $!len drop |
htmldir $! htmldir $@ compact-filename htmldir $!len drop |
htmldir $@ s" ../" string-prefix? |
htmldir $@ s" ../" string-prefix? |
IF -1 EXIT THEN \ can't access below current directory |
IF -1 EXIT THEN \ can't access below current directory |
htmldir $@ s" ~" string-prefix? |
htmldir $@ s" ~" string-prefix? |