--- a/FileStream.st Wed Sep 01 16:39:12 2004 +0200
+++ b/FileStream.st Wed Sep 01 16:45:23 2004 +0200
@@ -271,13 +271,7 @@
|newStream|
newStream := self new pathName:filename.
- newStream openForAppending isNil ifTrue:[^nil].
-"
- this is not a good idea; I might like to read the written stuff ...
-
- newStream readLimit:(newStream size).
-"
- ^ newStream
+ ^ newStream openForAppending.
"
FileStream appendingOldFileNamed:'adasdasasd'
@@ -291,13 +285,7 @@
|newStream|
newStream := self new pathName:filename in:aDirectory.
- newStream openForAppending isNil ifTrue:[^nil].
-"
- this is not a good idea; I might like to read the written stuff ...
-
- newStream readLimit:(newStream size).
-"
- ^ newStream
+ ^ newStream openForAppending.
!
fileNamed:filename
@@ -331,8 +319,7 @@
|newStream|
newStream := self new pathName:filename.
- newStream createForWriting isNil ifTrue:[^nil].
- ^ newStream
+ ^ newStream createForWriting.
!
newFileForWritingNamed:filename in:aDirectory
@@ -343,8 +330,7 @@
|newStream|
newStream := self new pathName:filename in:aDirectory.
- newStream createForWriting isNil ifTrue:[^nil].
- ^ newStream
+ ^ newStream createForWriting.
!
newFileNamed:filename
@@ -354,8 +340,7 @@
|newStream|
newStream := self new pathName:filename.
- newStream createForReadWrite isNil ifTrue:[^nil].
- ^ newStream
+ ^ newStream createForReadWrite.
"Modified: / 28.10.1997 / 14:28:08 / cg"
!
@@ -368,8 +353,7 @@
|newStream|
newStream := self new pathName:filename in:aDirectory.
- newStream createForReadWrite isNil ifTrue:[^nil].
- ^ newStream
+ ^ newStream createForReadWrite.
!
oldFileNamed:filename
@@ -384,13 +368,7 @@
newStream := self new pathName:filename.
newStream readwrite.
- newStream openForReadWrite isNil ifTrue:[^nil].
-"
- this is not a good idea; someone else might be appending ...
-
- newStream readLimit:(newStream size).
-"
- ^ newStream
+ ^ newStream openForReadWrite.
"
FileStream oldFileNamed:'/dAsGiBtEsNiChT'
@@ -405,13 +383,7 @@
|newStream|
newStream := self new pathName:filename in:aDirectory.
- newStream openForReadWrite isNil ifTrue:[^nil].
-"
- this is not a good idea; someone else might be appending ...
-
- newStream readLimit:(newStream size).
-"
- ^ newStream
+ ^ newStream openForReadWrite.
"
FileStream oldFileNamed:'dAsGiBtEsNiChT' in:'/'
@@ -428,13 +400,7 @@
"/ (OperatingSystem isReadable:filename) ifFalse:[^ self new openError].
newStream := self new pathName:filename.
- newStream openForReading isNil ifTrue:[^nil].
-"
- this is not a good idea; someone else might be appending ...
-
- newStream readLimit:(newStream size).
-"
- ^ newStream
+ ^ newStream openForReading.
"
FileStream readonlyFileNamed:'dAsGiBtEsNiChT'
@@ -448,13 +414,7 @@
|newStream|
newStream := self new pathName:filename in:aDirectory.
- newStream openForReading isNil ifTrue:[^nil].
-"
- this is not a good idea; someone else might be appending ...
-
- newStream readLimit:(newStream size).
-"
- ^ newStream
+ ^ newStream openForReading.
"
FileStream readonlyFileNamed:'dAsGiBtEsNiChT' in:'/'
@@ -1459,7 +1419,7 @@
!FileStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.110 2004-08-12 15:48:55 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/FileStream.st,v 1.111 2004-09-01 14:45:23 stefan Exp $'
! !
FileStream initialize!