[Pkg] The Trunk: Multilingual-cbc.201.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 14 09:05:32 UTC 2015


Tobias Pape uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-cbc.201.mcz

==================== Summary ====================

Name: Multilingual-cbc.201
Author: cbc
Time: 25 August 2014, 7:26:42.814 pm
UUID: ec7dc4af-4bd3-e348-a14c-b56327372ce3
Ancestors: Multilingual-ul.200

Modify #nextChunk to pass test
MultiByteFileStreamTest>>testLIneEndingChunk

=============== Diff against Multilingual-ul.200 ===============

Item was changed:
  ----- Method: MultiByteFileStream>>nextChunk (in category 'fileIn/Out') -----
  nextChunk
  	"Answer the contents of the receiver, up to the next terminator character. Doubled terminators indicate an embedded terminator character."
  
+ 	^(wantsLineEndConversion and: [ lineEndConvention notNil ])	
+ 		ifTrue: [converter nextChunkLineEndConvertingFromStream: self]
+ 		ifFalse: [converter nextChunkFromStream: self]!
- 	^converter nextChunkFromStream: self!

Item was added:
+ ----- Method: UTF8TextConverter>>nextChunkLineEndConvertingFromStream: (in category 'fileIn/Out') -----
+ nextChunkLineEndConvertingFromStream: input
+ 	"Answer the contents of input, up to the next terminator character. Doubled terminators indicate an embedded terminator character."
+ 	"Obey line end conversion."
+ 	
+ 	self skipSeparatorsFrom: input.
+ 	^self 
+ 		parseLangTagFor: (
+ 			self class decodeByteString: (
+ 				String new: 1000 streamContents: [ :stream |
+ 					[
+ 						stream nextPutAll: (input upTo: $!!).
+ 						input basicNext == $!! ]
+ 							whileTrue: [ 
+ 								stream nextPut: $!! ].
+ 					input atEnd ifFalse: [ input skip: -1 ] ]))
+ 		fromStream: input!



More information about the Packages mailing list