--- a/ExternalStream.st Thu Mar 14 00:23:26 2019 +0100
+++ b/ExternalStream.st Thu Mar 14 00:23:40 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -1897,30 +1895,6 @@
!ExternalStream class methodsFor:'defaults'!
-bufferSizeForBulkCopy
- "return the size of buffer used when copying big files/bulk data
- from one stream to another.
- Due to a bug on older Windows systems, the default used
- is chosen very conservatively, as the copy used to fail with big buffers.
- However, modern Windows systems seem to not suffer from that bug,
- and bigger buffer sizes will dramatically increase the performance of
- copies to/from network drives.
- Setting DefaultCopyBufferSize allows for fine tuning,
- in case you run into performance problems, or network buffer failures.
- When nil, a somewhat conservative compromise is used."
-
- DefaultCopyBufferSize notNil ifTrue:[^ DefaultCopyBufferSize].
-
- (OperatingSystem isMSWINDOWSlike and:[OperatingSystem isWin7Like not]) ifTrue:[
- "/ mhmh - NT hangs, when copying bigger blocks to a network drive - why ?
- ^ 1 * 1024.
- ].
- ^ 64 * 1024.
-
- "Created: / 13-03-2019 / 16:49:17 / Stefan Vogel"
- "Modified: / 13-03-2019 / 23:19:43 / Stefan Vogel"
-!
-
defaultCopyBufferSize:anInteger
"allows changing the size of buffer used when copying big
files/buld data from one stream to another.
@@ -2465,6 +2439,32 @@
"
! !
+!ExternalStream methodsFor:'defaults'!
+
+bufferSizeForBulkCopy
+ "return the size of buffer used when copying big files/bulk data
+ from one stream to another.
+ Due to a bug on older Windows systems, the default used
+ is chosen very conservatively, as the copy used to fail with big buffers.
+ However, modern Windows systems seem to not suffer from that bug,
+ and bigger buffer sizes will dramatically increase the performance of
+ copies to/from network drives.
+ Setting DefaultCopyBufferSize allows for fine tuning,
+ in case you run into performance problems, or network buffer failures.
+ When nil, a somewhat conservative compromise is used."
+
+ DefaultCopyBufferSize notNil ifTrue:[^ DefaultCopyBufferSize].
+
+ (OperatingSystem isMSWINDOWSlike and:[OperatingSystem isWin7Like not]) ifTrue:[
+ "/ mhmh - NT hangs, when copying bigger blocks to a network drive - why ?
+ ^ 1 * 1024.
+ ].
+ ^ 64 * 1024.
+
+ "Created: / 13-03-2019 / 16:49:17 / Stefan Vogel"
+ "Modified: / 13-03-2019 / 23:19:43 / Stefan Vogel"
+! !
+
!ExternalStream methodsFor:'error handling'!
argumentMustBeCharacter
@@ -4866,7 +4866,7 @@
"
(FileStream newTemporary
nextPutUtf16:$B;
- nextPutUtf16:$Ä;
+ nextPutUtf16:$Ä;
nextPutUtf16:(Character codePoint:16r10CCCC);
reset;
binary;
@@ -6827,7 +6827,7 @@
].
"
- 'Bönnigheim' asUnicode16String errorPrintCR
+ 'Bönnigheim' asUnicode16String errorPrintCR
"
!