Merge pull request SeasideSt#144 from marschall/GRPharoZnCodecStream-nextPutAll

Johan Brichau · web-flow · commit 51eb6fae5c71 · 2022-09-01T21:21:41.000+02:00
Avoid copies in GRPharoZnCodecStream
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st
@@ -1,3 +1,3 @@
 accessing
 greaseNext: anInteger putAll: aCollection startingAt: startIndex
-	self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1)
+	encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream 
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st
@@ -1,3 +1,5 @@
 streaming
 nextPutAll: aString
-	aString asString do:[ :each | self nextPut: each ]
+	| string |
+	string := aString asString.
+	encoder next: string size putAll: string startingAt: 1 toStream: stream 
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st
@@ -1,3 +1,3 @@
 accessing
 greaseNext: anInteger putAll: aCollection startingAt: startIndex
-	self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1)
+	encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream 
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st
@@ -1,3 +1,5 @@
 streaming
 nextPutAll: aString
-	aString asString do:[ :each | self nextPut: each ]
+	| string |
+	string := aString asString.
+	encoder next: string size putAll: string startingAt: 1 toStream: stream 
