The Trunk: Multilingual-cbc.201.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Multilingual-cbc.201.mcz

commits-2
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!