Packages May 2011

packages@lists.squeakfoundation.org

1 participants
291 discussions

The Trunk: Multilingual-ul.148.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.148.mcz ==================== Summary ==================== Name: Multilingual-ul.148 Author: ul Time: 22 May 2011, 1:39:13.937 pm UUID: 6b3af2f6-9f85-c844-9af3-66cf37524525 Ancestors: Multilingual-ul.147 - fixed UTF16 line end conversions - initialize instance variables of UTF16TextConverter =============== Diff against Multilingual-ul.147 =============== Item was added: + ----- Method: UTF16TextConverter>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + useLittleEndian := useByteOrderMark := byteOrderMarkDone := false. + ! Item was changed: ----- Method: UTF16TextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream + | charCode | + aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. + (useByteOrderMark == true and: [ byteOrderMarkDone isNil ]) ifTrue: [ + self next16BitValue: 16rFEFF toStream: aStream. + byteOrderMarkDone := true ]. + (charCode := aCharacter charCode) < 256 + ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ self next16BitValue: charCode toStream: aStream ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ] + ifFalse: [ + charCode <= 16rFFFF + ifTrue: [ self next16BitValue: charCode toStream: aStream ] + ifFalse: [ + | low high | + charCode := charCode - 16r10000. + low := (charCode \\ 16r400) + 16rDC00. + high := (charCode // 16r400) + 16rD800. + self + next16BitValue: high toStream: aStream; + next16BitValue: low toStream: aStream ] ]. + ^aCharacter! - | v low high | - aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. - (self useByteOrderMark and: [byteOrderMarkDone isNil]) ifTrue: [ - self next16BitValue: (16rFEFF) toStream: aStream. - byteOrderMarkDone := true. - ]. - - v := aCharacter charCode. - v > 16rFFFF ifFalse: [ - self next16BitValue: v toStream: aStream. - ] ifTrue: [ - v := v - 16r10000. - low := (v \\ 16r400) + 16rDC00. - high := (v // 16r400) + 16rD800. - self next16BitValue: high toStream: aStream. - self next16BitValue: low toStream: aStream. - ]. - ^aCharacter. - !

1 0

The Trunk: Multilingual-ul.147.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.147.mcz ==================== Summary ==================== Name: Multilingual-ul.147 Author: ul Time: 22 May 2011, 12:41:28.944 pm UUID: 51908887-9b47-2747-902e-72449694b653 Ancestors: Multilingual-ul.146 - added migration code to the preamble to avoid errors during updates caused by uninitialized wantsLineEndConversion =============== Diff against Multilingual-ul.146 =============== Item was added: + (PackageInfo named: 'Multilingual') preamble: '"Initialize the value of wantsLineEndConversion in all MultiByteFileStreams" + MultiByteFileStream allSubInstancesDo: [ :each | + (each instVarNamed: #wantsLineEndConversion) ifNil: [ + each instVarNamed: #wantsLineEndConversion put: false ] ]'!

1 0

The Trunk: Multilingual-ul.147.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Multilingual-ul.147.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Multilingual-ul.146.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.146.mcz ==================== Summary ==================== Name: Multilingual-ul.146 Author: ul Time: 17 May 2011, 5:31:08.561 pm UUID: 8c0359ba-6c47-a946-9707-cc7c37dc8d44 Ancestors: Multilingual-ul.145 MultiByteFileStream changes: - assume that wantsLineEndConversion is properly initialized - removed the line end conversion code from #nextPut: =============== Diff against Multilingual-ul.145 =============== Item was changed: ----- Method: MultiByteFileStream>>detectLineEndConvention (in category 'crlf private') ----- detectLineEndConvention "Detect the line end convention used in this stream. The result may be either #cr, #lf or #crlf." | char numRead state | self isBinary ifTrue: [^ self error: 'Line end conventions are not used on binary streams']. + wantsLineEndConversion ifFalse: [self lineEndConvention: nil. - wantsLineEndConversion == true ifFalse: [self lineEndConvention: nil. ^lineEndConvention]. self closed ifTrue: [self lineEndConvention: LineEndDefault. ^lineEndConvention]. "Default if nothing else found" numRead := 0. state := converter saveStateOf: self. lineEndConvention := nil. [super atEnd not and: [numRead < LookAheadCount]] whileTrue: [char := self next. char = Lf ifTrue: [converter restoreStateOf: self with: state. self lineEndConvention: #lf. ^lineEndConvention]. char = Cr ifTrue: [self peek = Lf ifTrue: [self lineEndConvention: #crlf] ifFalse: [self lineEndConvention: #cr]. converter restoreStateOf: self with: state. ^ lineEndConvention]. numRead := numRead + 1]. converter restoreStateOf: self with: state. self lineEndConvention: LineEndDefault. ^ lineEndConvention! Item was changed: ----- Method: MultiByteFileStream>>doConversion (in category 'crlf private') ----- doConversion + ^wantsLineEndConversion and: [ lineEndConvention notNil ]! - ^wantsLineEndConversion == true and: [ lineEndConvention notNil ]! Item was changed: ----- Method: MultiByteFileStream>>installLineEndConventionInConverter (in category 'private') ----- installLineEndConventionInConverter converter ifNotNil: [ converter installLineEndConvention: ( + (wantsLineEndConversion and: [ lineEndConvention notNil ]) "#doConversion is inlined here" - (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here" ifTrue: [ LineEndStrings at: lineEndConvention ] ifFalse: [ nil ]) ]! Item was changed: ----- Method: MultiByteFileStream>>next (in category 'public') ----- next | char | char := converter nextFromStream: self. "#doConversion is inlined here" + (wantsLineEndConversion and: [ lineEndConvention notNil ]) ifTrue: [ - (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) ifTrue: [ char == Cr ifTrue: [ | state | state := converter saveStateOf: self. (converter nextFromStream: self) ifNotNil: [ :secondChar | secondChar == Lf ifFalse: [ converter restoreStateOf: self with: state ] ]. ^Cr ]. char == Lf ifTrue: [ ^Cr ] ]. ^char. ! Item was changed: ----- Method: MultiByteFileStream>>next: (in category 'public') ----- next: anInteger | multiString | self isBinary ifTrue: [^ super next: anInteger]. multiString := String new: anInteger. 1 to: anInteger do: [:index | | character | (character := self next) ifNotNil: [ multiString at: index put: character ] ifNil: [ multiString := multiString copyFrom: 1 to: index - 1. + (wantsLineEndConversion and: [ lineEndConvention notNil ]) "#doConversion is inlined here" - (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here" ifFalse: [ ^multiString ]. ^self next: anInteger innerFor: multiString ] ]. + (wantsLineEndConversion and: [ lineEndConvention notNil ]) "#doConversion is inlined here" - (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here" ifFalse: [ ^multiString ]. multiString := self next: anInteger innerFor: multiString. (multiString size = anInteger or: [self atEnd]) ifTrue: [ ^ multiString]. ^ multiString, (self next: anInteger - multiString size). ! Item was changed: ----- Method: MultiByteFileStream>>nextPut: (in category 'public') ----- nextPut: aCharacter aCharacter isInteger ifTrue: [ ^super nextPut: aCharacter ]. + ^converter nextPut: aCharacter toStream: self! - (wantsLineEndConversion == true and: [ lineEndConvention notNil ]) "#doConversion is inlined here" - ifTrue: [ - aCharacter == Cr - ifTrue: [ - converter - nextPutAll: (LineEndStrings at: lineEndConvention) - toStream: self ] - ifFalse: [ - converter nextPut: aCharacter toStream: self ]. - ^aCharacter ]. - converter nextPut: aCharacter toStream: self. - ^aCharacter! Item was changed: ----- Method: MultiByteFileStream>>wantsLineEndConversion (in category 'crlf private') ----- wantsLineEndConversion + ^wantsLineEndConversion! - ^wantsLineEndConversion == true - !

1 0

The Trunk: Multilingual-ul.146.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Multilingual-ul.146.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Files-ul.110.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.110.mcz ==================== Summary ==================== Name: Files-ul.110 Author: ul Time: 17 May 2011, 5:35:51.697 pm UUID: fbfddcfb-4462-7748-9a58-246ae4135b3c Ancestors: Files-nice.109 Send #initialize to new FileStream sub instances. =============== Diff against Files-nice.109 =============== Item was changed: + ----- Method: FileStream class>>new (in category 'stdio') ----- - ----- Method: FileStream class>>new (in category 'instance creation') ----- new + + ^self basicNew initialize! - ^ self basicNew!

1 0

The Trunk: Files-ul.110.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Files-ul.110.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
30
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2011