CharacterEncoder.st
branchjv
changeset 20727 fb8c5591428b
parent 20578 39641ba8d6e0
parent 20645 51353c4d390c
child 21242 19fabe339f8b
--- a/CharacterEncoder.st	Wed Oct 12 07:05:13 2016 +0200
+++ b/CharacterEncoder.st	Tue Oct 25 12:31:42 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2004 by eXept Software AG
               All Rights Reserved
@@ -1133,7 +1131,7 @@
     s := aFilename asFilename readStreamOrNil.
     s isNil ifTrue:[^ nil].
 
-    buffer := String new:64.
+    buffer := String new:512.
     n := s nextBytes:buffer size into:buffer.
     s close.
 
@@ -1158,7 +1156,10 @@
 
     |oldPosition buffer n|
 
-    buffer := String new:64.
+    "/ must be able to position back
+    aStream isPositionable ifFalse:[^ nil].
+    
+    buffer := String new:512.
 
     oldPosition := aStream position.
     n := aStream nextBytes:buffer size into:buffer.