--- a/ExtStream.st Sat Dec 23 19:57:33 1995 +0100
+++ b/ExtStream.st Sat Dec 23 20:05:00 1995 +0100
@@ -12,10 +12,10 @@
ReadWriteStream subclass:#ExternalStream
instanceVariableNames:'filePointer mode buffered binary useCRLF hitEOF didWrite
- lastErrorNumber'
- classVariableNames:'Lobby LastErrorNumber ReadErrorSignal WriteErrorSignal
- InvalidReadSignal InvalidWriteSignal InvalidModeSignal
- OpenErrorSignal StreamNotOpenSignal'
+ lastErrorNumber'
+ classVariableNames:'Lobby LastErrorNumber
+ InvalidReadSignal InvalidWriteSignal InvalidModeSignal
+ OpenErrorSignal StreamNotOpenSignal'
poolDictionaries:''
category:'Streams-External'
!
@@ -137,8 +137,6 @@
Lobby <Registry> keeps track of used ext-streams (to free up FILE*'s)
StreamErrorSignal <Signal> parent of all stream errors (see Stream class)
- ReadErrorSignal <Signal> raised on read errors
- WriteErrorSignal <Signal> raised on write errors
InvalidReadSignal <Signal> raised on read from writeonly stream
InvalidWriteSignal <Signal> raised on write to readonly stream
InvalidModeSignal <Signal> raised on text I/O with binary-stream
@@ -184,14 +182,6 @@
OpenErrorSignal nameClass:self message:#openErrorSignal.
OpenErrorSignal notifierString:'open error'.
- ReadErrorSignal := StreamErrorSignal newSignalMayProceed:false.
- ReadErrorSignal nameClass:self message:#readErrorSignal.
- ReadErrorSignal notifierString:'read error'.
-
- WriteErrorSignal := StreamErrorSignal newSignalMayProceed:false.
- WriteErrorSignal nameClass:self message:#writeErrorSignal.
- WriteErrorSignal notifierString:'write error'.
-
InvalidReadSignal := ReadErrorSignal newSignalMayProceed:false.
InvalidReadSignal nameClass:self message:#invalidReadSignal.
InvalidReadSignal notifierString:'read error'.
@@ -270,22 +260,10 @@
^ OpenErrorSignal
!
-readErrorSignal
- "return the signal raised on read errors"
-
- ^ ReadErrorSignal
-!
-
streamNotOpenSignal
"return the signal raised on I/O with closed streams"
^ StreamNotOpenSignal
-!
-
-writeErrorSignal
- "return the signal raised on write errors"
-
- ^ WriteErrorSignal
! !
!ExternalStream class methodsFor:'error handling'!
@@ -3453,6 +3431,6 @@
!ExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.80 1995-12-19 19:15:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExtStream.st,v 1.81 1995-12-23 19:05:00 cg Exp $'
! !
ExternalStream initialize!