conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes bug 188159: delete-file not recognizing "file doesn't exist" 

error, and it's not using &i/o-filename
This commit is contained in:
Abdulaziz Ghuloum 2008-02-03 17:11:53 -05:00
parent 1a98773440
commit f3c92c9473
3 changed files with 32 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
scheme/ikarus.posix.ss
View File

@ -61,16 +61,19 @@
(cond
[(boolean? v) v]
[else
(die 'file-exists?
(case v
[(1) "the path contains a non-directory"]
[(2) "the path is too long"]
[(3) "the path is not accessible"]
[(4) "the path contains too many symbolic links"]
[(5) "internal access die while accessing"]
[(6) "IO die encountered while accessing"]
[else "Unknown die"])
x)]))))
(raise
(condition
(make-who-condition 'file-exists?)
(make-message-condition
(case v
[(1) "file path contains a non-directory"]
[(2) "file path is too long"]
[(3) "file path is not accessible"]
[(4) "file path contains too many symbolic links"]
[(5) "internal access error while accessing file"]
[(6) "IO error encountered while accessing file"]
[else "Unknown error while testing file"]))
(make-i/o-filename-error x)))]))))
(define delete-file
(lambda (x)
@ -81,20 +84,23 @@
(case v
[(0) (void)]
[else
(die 'delete-file
(case v
[(1) "the path contains a non-directory"]
[(2) "the path is too long"]
[(3) "the file does not exist"]
[(4) "the path is not accessible"]
[(5) "the path contains too many symbolic links"]
[(6) "you do not have permissions to delete file"]
[(7) "device is busy"]
[(8) "IO die encountered while deleting"]
[(9) "is in a read-only file system"]
[(10) "internal access die while deleting"]
[else "Unknown die while deleting"])
x)]))))
(raise
(condition
(make-who-condition 'delete-file)
(make-message-condition
(case v
[(1) "file path contains a non-directory"]
[(2) "file path is too long"]
[(3) "file does not exist"]
[(4) "file path is not accessible"]
[(5) "file path contains too many symbolic links"]
[(6) "you do not have permissions to delete file"]
[(7) "device is busy"]
[(8) "IO error encountered while deleting"]
[(9) "file is in a read-only file system"]
[(10) "internal access error while deleting"]
[else "Unknown error while deleting file"]))
(make-i/o-filename-error x)))]))))
(define ($getenv-bv key)
(foreign-call "ikrt_getenv" key))

2
scheme/last-revision
View File

@ -1 +1 @@
1370
1371

2
src/ikarus-runtime.c
View File

@ -657,7 +657,7 @@ ikrt_delete_file(ikptr filename){
if(err == 0){
return 0;
}
switch (err){
switch (errno){
case ENOTDIR: return fix(1);
case ENAMETOOLONG: return fix(2);
case ENOENT: return fix(3);