--- a/NonPositionableExternalStream.st Tue Apr 24 10:00:07 2018 +0200
+++ b/NonPositionableExternalStream.st Tue Apr 24 10:29:43 2018 +0200
@@ -586,9 +586,9 @@
!
initializeForStderr
- "{ Pragma: +optSpace }"
+ "setup for writing to stderr"
- "setup for writing to stderr"
+ "{ Pragma: +optSpace }"
mode := #writeonly. "since stderr may be redirected to a pipe, reading is forbidden"
binary := false.
@@ -600,9 +600,15 @@
self initializeEOLMode.
OperatingSystem isMSWINDOWSlike ifTrue:[
eolMode := #crlf
- ]
+ ].
+ "This will possibly never be finalized, but keep in in Lobby
+ to make #openStreams work"
+ self registerForFinalization.
+ "#registerForFinalization sets #preventTenueOf:, but I live forever..."
+ ObjectMemory allowTenureOf:self.
"Modified: / 25-04-2017 / 02:13:56 / cg"
+ "Modified (comment): / 24-04-2018 / 10:28:50 / stefan"
!
initializeForStdin
@@ -619,8 +625,14 @@
handle := self handleForStdin.
hitEOF := false.
self initializeEOLMode.
+ "This will possibly never be finalized, but keep in in Lobby
+ to make #openStreams work"
+ self registerForFinalization.
+ "#registerForFinalization sets #preventTenueOf:, but I live forever..."
+ ObjectMemory allowTenureOf:self.
"Modified: / 25-04-2017 / 02:14:22 / cg"
+ "Modified (comment): / 24-04-2018 / 10:28:43 / stefan"
!
initializeForStdout
@@ -638,9 +650,16 @@
hitEOF := false.
OperatingSystem isMSWINDOWSlike ifTrue:[
eolMode := #crlf
- ]
+ ].
+
+ "This will possibly never be finalized, but keep in in Lobby
+ to make #openStreams work"
+ self registerForFinalization.
+ "#registerForFinalization sets #preventTenueOf:, but I live forever..."
+ ObjectMemory allowTenureOf:self.
"Modified: / 25-04-2017 / 02:14:27 / cg"
+ "Modified (comment): / 24-04-2018 / 10:28:38 / stefan"
!
reOpen