steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix file-responder directory listing problem

darcs
slava 2006-02-06 19:31:54 +00:00
parent e2adf93b62
commit a0b10e42fa
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/httpd/file-responder.factor
View File

@ -36,7 +36,7 @@ parser sequences strings ;
] if ; ] if ;
: serve-directory ( filename -- ) : serve-directory ( filename -- )
"/" over tail? [ dup "/" tail? [
dup "index.html" append dup exists? [ dup "index.html" append dup exists? [
nip serve-file nip serve-file
] [ ] [

3
library/io/files.factor
View File

@ -6,7 +6,8 @@ styles ;
! Words for accessing filesystem meta-data. ! Words for accessing filesystem meta-data.
: path+ ( path path -- path ) "/" swap append3 ; : path+ ( path path -- path )
over "/" tail? [ append ] [ "/" swap append3 ] if ;
: exists? ( file -- ? ) stat >boolean ; : exists? ( file -- ? ) stat >boolean ;