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

Added &i/o-read, &i/o-write, and &i/o conditions to read/write 

errors.
This commit is contained in:
Abdulaziz Ghuloum 2008-04-05 05:15:30 -04:00
parent 8d8f6d39f7
commit afd7592ae1
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
scheme/ikarus.io.ss
View File

@ -1197,7 +1197,7 @@
#| 22 |# "broken pipe (e.g., writing to a closed process or socket)"
#| 23 |# "connection refused"))
(define (io-error who id err)
(define (io-error who id err . other-conditions)
(let ([err (fxnot err)])
(let ([msg
(cond
@ -1205,14 +1205,16 @@
(vector-ref io-errors-vec err)]
[else "unknown error"])])
(raise
(condition
(apply condition
(make-who-condition who)
(make-i/o-error)
(case err
[(6 9 18) (make-i/o-file-protection-error)]
[(19) (make-i/o-file-already-exists-error id)]
[else (condition)])
(make-message-condition msg)
(make-i/o-filename-error id))))))
(make-i/o-filename-error id)
other-conditions)))))
;(define block-size 4096)
;(define block-size (* 4 4096))
@ -1247,7 +1249,9 @@
(add-io-event fd k 'r)
(process-events)))
(refill bv idx cnt)]
[else (io-error 'read id bytes)])))])
[else
(io-error 'read id bytes
(make-i/o-write-error))])))])
refill)
#f ;;; write!
#f ;;; get-position
@ -1286,7 +1290,9 @@
(add-io-event fd k 'w)
(process-events)))
(refill bv idx cnt)]
[else (io-error 'write id bytes)])))])
[else
(io-error 'write id bytes
(make-i/o-write-error))])))])
refill)
#f ;;; get-position
#f ;;; set-position!

2
scheme/last-revision
View File

@ -1 +1 @@
1434
1435