[gforth] / gforth / httpd.fs  

gforth: gforth/httpd.fs

Diff for /gforth/httpd.fs between version 1.15 and 1.16

version 1.15, Sat Apr 10 00:16:55 2004 UTC version 1.16, Sun May 16 21:16:36 2004 UTC
Line 112 
Line 112 
 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?

Generate output suitable for use with a patch program
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help