#REFACTORING by exept
class: ExternalStream
changed: #errorReadOnly
class: ExternalStream class
changed:
#initialize
#openErrorSignal
--- a/ExternalStream.st Sun Jan 05 17:29:37 2020 +0100
+++ b/ExternalStream.st Sun Jan 05 17:35:06 2020 +0100
@@ -1577,42 +1577,19 @@
!
initialize
- OpenErrorSignal isNil ifTrue:[
- OpenErrorSignal := OpenError.
- OpenErrorSignal notifierString:'open error'.
-
- InvalidReadSignal := InvalidReadError.
- InvalidReadSignal notifierString:'stream does not support reading'.
-
- InvalidWriteSignal := InvalidWriteError.
- InvalidWriteSignal notifierString:'stream does not support writing'.
-
- InvalidModeSignal := InvalidModeError.
- InvalidModeSignal notifierString:'binary/text mode mismatch'.
-
- InvalidOperationSignal := InvalidOperationError.
- InvalidOperationSignal notifierString:'unsupported file operation'.
-
- StreamNotOpenSignal := StreamNotOpenError.
- StreamNotOpenSignal notifierString:'stream is not open'.
-
- StreamIOErrorSignal := StreamIOError.
- StreamIOErrorSignal notifierString:'I/O error'.
-
- "/ self patchByteOrderOptimizedMethods
- ].
+ "/ self patchByteOrderOptimizedMethods
Lobby isNil ifTrue:[
- Lobby := Registry new.
-
- "want to get informed when returning from snapshot"
- ObjectMemory addDependent:self
+ Lobby := Registry new.
+
+ "want to get informed when returning from snapshot"
+ ObjectMemory addDependent:self
].
DefaultEOLMode isNil ifTrue:[
- self initDefaultEOLMode.
+ self initDefaultEOLMode.
].
ReadMode isNil ifTrue:[
- self initModeStrings.
+ self initModeStrings.
].
"limit the amount of newspace to be used for non-tenurable executors to 5%"
@@ -1854,7 +1831,7 @@
openErrorSignal
"return the signal raised when a file open failed"
- ^ OpenErrorSignal
+ ^ OpenError
!
streamIOErrorSignal
@@ -2559,7 +2536,7 @@
"report an error, that the stream is a readOnly stream"
- ^ InvalidWriteSignal raiseRequestWith:self "/ in:thisContext sender
+ ^ InvalidWriteError raiseRequestWith:self "/ in:thisContext sender
"Modified: / 30.7.1999 / 17:08:19 / cg"
!