Packages May 2013

packages@lists.squeakfoundation.org

1 participants
357 discussions

The Trunk: System-nice.539.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.539.mcz ==================== Summary ==================== Name: System-nice.539 Author: nice Time: 31 May 2013, 12:54:45.518 am UUID: 54f88b1d-e023-472f-924e-cec4ca5fb3d8 Ancestors: System-fbs.538 Now that .mcz/snapshot/source.st are encoded in UTF8, Let MczInstaller decode UTF8. Previously, snapshot/source.st was encoded in latin-1 (iso-8859-L1) for ByteString and UTF-32BE for WideString. And would always be decoded in MacRoman by MczInstaller (or UTF-8 if there were a BOM, but there weren't) Note that .mcz do not use a BOM for compatibility with legacy code. Thus compatibility is handled by catching InvalidUTF8 exception. The rationale is that previous interpretation of snapshot/source.st was completely broken and presumably not used. So adding a bit of complexity with a BOM compatibility is not really worth. =============== Diff against System-fbs.538 =============== Item was changed: ----- Method: MczInstaller>>installMember: (in category 'installation') ----- installMember: member self useNewChangeSetDuring: + [ | str | + str := member contentStream text readStream contents. + str := [str utf8ToSqueak] on: InvalidUTF8 do: [:exc | + "Case of legacy encoding, presumably it is latin-1 and we do not need to do anything + But if contents starts with a null character, it might be a case of WideString encoded in UTF-32BE" + exc return: (((str beginsWith: Character null asString) and: [ str size \\ 4 = 0 ]) + ifTrue: [WideString fromByteArray: str asByteArray] + ifFalse: [str])]. + str readStream fileInAnnouncing: 'loading ', member fileName ]! - [ | str |str := member contentStream text. - str setConverterForCode. - str fileInAnnouncing: 'loading ', member fileName]!

1 0

The Trunk: System-nice.539.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

1 0

The Trunk: System-nice.539.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

1 0

The Trunk: Monticello-nice.546.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.546.mcz ==================== Summary ==================== Name: Monticello-nice.546 Author: nice Time: 31 May 2013, 12:47:59.453 am UUID: ff2975ee-c296-4d65-8b8a-9b512607a2be Ancestors: Monticello-kb.545 Let's encode .mcz/snapshot/source.st in UTF8 Let's decode UTF8 in MCStReader. Previously, it was encoded in latin-1 (iso-8859-L1) for ByteString and UTF-32BE for WideString. And would always be decoded in latin-1 by MCStReader. Note that compatibility with legacy code is handled by catching InvalidUTF8 exception. An alternative would be to use a BOM in new snapshot. However, since the snapshot/source.st is not used by Squeak tools, it's not really worth. =============== Diff against Monticello-kb.545 =============== Item was changed: ----- Method: MCMczWriter>>serializeDefinitions: (in category 'serializing') ----- serializeDefinitions: aCollection + ^(String streamContents: [:aStream | + | writer | + writer := self snapshotWriterClass on: aStream. + writer writeDefinitions: aCollection]) + squeakToUtf8! - | writer s | - s := RWBinaryOrTextStream on: String new. - writer := self snapshotWriterClass on: s. - writer writeDefinitions: aCollection. - ^ s contents! Item was changed: ----- Method: MCStReader>>readStream (in category 'evaluating') ----- readStream + | contents | + contents := stream contents. + contents := [contents utf8ToSqueak] on: InvalidUTF8 do: [:exc | + "Case of legacy encoding, presumably it is latin-1 and we do not need to do anything + But if contents starts with a null character, it might be a case of WideString encoded in UTF-32BE" + exc return: (((contents beginsWith: Character null asString) and: [ contents size \\ 4 = 0 ]) + ifTrue: [WideString fromByteArray: contents asByteArray] + ifFalse: [contents])]. ^ ('!!!! + ', contents) readStream! - ', stream contents) readStream!

1 0

The Trunk: Monticello-nice.546.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

1 0

The Trunk: Monticello-nice.546.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

1 0

The Trunk: CollectionsTests-nice.204.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.204.mcz ==================== Summary ==================== Name: CollectionsTests-nice.204 Author: nice Time: 31 May 2013, 12:25:28.929 am UUID: 671234fb-c454-4951-8b74-7ffff3a8a5bb Ancestors: CollectionsTests-fbs.203 Don't let Character null fail =============== Diff against CollectionsTests-fbs.203 =============== Item was changed: ----- Method: CharacterTest>>testPrintString (in category 'testing-printing') ----- testPrintString self assert: $a printString = '$a'. self assert: $5 printString = '$5'. self assert: $@ printString = '$@'. self assert: Character cr printString = 'Character cr'. self assert: Character lf printString = 'Character lf'. self assert: Character space printString = 'Character space'. + self assert: Character null printString = 'Character null'. - self assert: (Character value: 0) printString = 'Character value: 0'. self assert: (Character value: 17) printString = 'Character value: 17'.! Item was changed: ----- Method: CharacterTest>>testStoreString (in category 'testing-printing') ----- testStoreString self assert: $a storeString = '$a'. self assert: $5 storeString = '$5'. self assert: $@ storeString = '$@'. self assert: Character cr storeString = 'Character cr'. self assert: Character lf storeString = 'Character lf'. self assert: Character space storeString = 'Character space'. + self assert: Character null storeString = 'Character null'. - self assert: (Character value: 0) storeString = '(Character value: 0)'. self assert: (Character value: 17) storeString = '(Character value: 17)'.!

1 0

The Trunk: CollectionsTests-nice.204.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

1 0

The Trunk: CollectionsTests-nice.204.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

1 0

The Trunk: Collections-nice.520.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.520.mcz ==================== Summary ==================== Name: Collections-nice.520 Author: nice Time: 31 May 2013, 12:23:43.567 am UUID: 6ef25398-faee-45ff-a409-52d3f36d98c8 Ancestors: Collections-fbs.519 Introduce Character null =============== Diff against Collections-fbs.519 =============== Item was changed: ----- Method: Character class>>constantNames (in category 'private') ----- constantNames + ^ #( backspace cr delete escape lf null newPage space tab ).! - ^ #( backspace cr delete escape lf newPage space tab ).! Item was added: + ----- Method: Character class>>null (in category 'accessing untypeable characters') ----- + null + ^ self value: 0! Item was changed: ----- Method: NullStream>>element (in category 'accessing') ----- element "The element returned by the stream" + ^binary ifTrue:[0] ifFalse:[Character null]! - ^binary ifTrue:[0] ifFalse:[Character value: 0]! Item was changed: ----- Method: String>>compressWithTable: (in category 'converting') ----- compressWithTable: tokens "Return a string with all substrings that occur in tokens replaced by a character with ascii code = 127 + token index. This will work best if tokens are sorted by size. Assumes this string contains no characters > 127, or that they are intentionally there and will not interfere with this process." | str null finalSize result ri c | + null := Character null. - null := Character value: 0. str := self copyFrom: 1 to: self size. "Working string will get altered" finalSize := str size. tokens doWithIndex: [:token :tIndex | | start ts | start := 1. [(start := str findString: token startingAt: start) > 0] whileTrue: [ts := token size. ((start + ts) <= str size and: [(str at: start + ts) = $ and: [tIndex*2 <= 128]]) ifTrue: [ts := token size + 1. "include training blank" str at: start put: (Character value: tIndex*2 + 127)] ifFalse: [str at: start put: (Character value: tIndex + 127)]. str at: start put: (Character value: tIndex + 127). 1 to: ts-1 do: [:i | str at: start+i put: null]. finalSize := finalSize - (ts - 1). start := start + ts]]. result := String new: finalSize. ri := 0. 1 to: str size do: [:i | (c := str at: i) = null ifFalse: [result at: (ri := ri+1) put: c]]. ^ result!

1 0

← Newer
1
2
3
4
5
6
7
...
36
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 2013