Packages November 2010

packages@lists.squeakfoundation.org

1 participants
285 discussions

The Trunk: System-ul.389.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.389.mcz ==================== Summary ==================== Name: System-ul.389 Author: ul Time: 2 November 2010, 10:06:25.693 pm UUID: 77647d29-a395-fe4e-a7d0-013850bdfae2 Ancestors: System-ul.388 - a bit faster ClassDiffBuilder >> #split: - TextDiffBuilder >> #buildDisplayPatch uses AttributedTextStream instead of TextStream, so it takes O(n) time to build a display patch, instead of O(n^2) =============== Diff against System-ul.388 =============== Item was changed: ----- Method: ClassDiffBuilder>>split: (in category 'private') ----- split: aString "I return an array with aString splitted by Character >> #separators." ^Array streamContents: [ :stream | + | input separators | + input := aString readStream. + separators := CharacterSet separators. + [ input atEnd ] whileFalse: [ + | word separator | + word := input + upToAnyOf: separators + do: [ :matchingSeparator | + separator := matchingSeparator ]. + stream nextPut: (separator + ifNil: [ word ] + ifNotNil: [ word, separator asString ]) ] ]! - | out | - out := aString copy writeStream. - aString do: [ :c | - out nextPut: c. - c isSeparator ifTrue:[ - stream nextPut: out contents. - out reset ] ]. - out position = 0 ifFalse: [ - stream nextPut: out contents ] ]! Item was changed: ----- Method: TextDiffBuilder>>buildDisplayPatch (in category 'creating patches') ----- buildDisplayPatch + | stream | + stream := AttributedTextStream new. + self + patchSequenceDoIfMatch: [ :string | + self print: string withAttributes: NormalTextAttributes on: stream ] + ifInsert: [ :string | + self print: string withAttributes: InsertTextAttributes on: stream ] + ifRemove: [ :string | + self print: string withAttributes: RemoveTextAttributes on: stream ]. + ^stream contents! - ^Text streamContents: [ :stream | - self - patchSequenceDoIfMatch: [ :string | - self print: string withAttributes: NormalTextAttributes on: stream ] - ifInsert: [ :string | - self print: string withAttributes: InsertTextAttributes on: stream ] - ifRemove: [ :string | - self print: string withAttributes: RemoveTextAttributes on: stream ] ]!

1 0

The Trunk: System-ul.389.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

1 0

The Trunk: Collections-ul.402.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.402.mcz ==================== Summary ==================== Name: Collections-ul.402 Author: ul Time: 2 November 2010, 10:03:54.289 pm UUID: c07fdead-7f3a-544f-82dd-4bfe4ef28365 Ancestors: Collections-ul.401 - enhanced AttributedTextStream so it can be used as a TextStream in some cases. - recategorized a few methods, fixed some comments =============== Diff against Collections-ul.401 =============== Item was changed: + ----- Method: AttributedTextStream>>contents (in category 'accessing') ----- - ----- Method: AttributedTextStream>>contents (in category 'retrieving the text') ----- contents | ans | currentRun > 0 ifTrue:[ attributeValues nextPut: currentAttributes. attributeRuns nextPut: currentRun. currentRun := 0]. ans := Text string: characters contents runs: (RunArray runs: attributeRuns contents values: attributeValues contents). ^ans! Item was added: + ----- Method: AttributedTextStream>>cr (in category 'character writing') ----- + cr + "Append a carriage return character to the receiver." + + self nextPut: Character cr! Item was added: + ----- Method: AttributedTextStream>>crlf (in category 'character writing') ----- + crlf + "Append a carriage return and a line feed to the receiver." + + self nextPut: Character cr; nextPut: Character lf! Item was changed: + ----- Method: AttributedTextStream>>currentAttributes (in category 'accessing') ----- - ----- Method: AttributedTextStream>>currentAttributes (in category 'access') ----- currentAttributes "return the current attributes" ^currentAttributes! Item was changed: + ----- Method: AttributedTextStream>>currentAttributes: (in category 'accessing') ----- - ----- Method: AttributedTextStream>>currentAttributes: (in category 'access') ----- currentAttributes: newAttributes "set the current attributes" (currentRun > 0 and:[currentAttributes ~= newAttributes]) ifTrue:[ attributeRuns nextPut: currentRun. attributeValues nextPut: currentAttributes. currentRun := 0. ]. currentAttributes := newAttributes. ! Item was changed: + ----- Method: AttributedTextStream>>initialize (in category 'initialize-release') ----- - ----- Method: AttributedTextStream>>initialize (in category 'private-initialization') ----- initialize + + characters := String new writeStream. + currentAttributes := #(). - characters := WriteStream on: String new. - currentAttributes := OrderedCollection new. currentRun := 0. + attributeValues := (Array new: 50) writeStream. + attributeRuns := (Array new: 50) writeStream! - attributeValues := WriteStream on: (Array new: 50). - attributeRuns := WriteStream on: (Array new: 50). ! Item was added: + ----- Method: AttributedTextStream>>lf (in category 'character writing') ----- + lf + "Append a line feed character to the receiver." + + self nextPut: Character lf! Item was changed: + ----- Method: AttributedTextStream>>nextPut: (in category 'accessing') ----- - ----- Method: AttributedTextStream>>nextPut: (in category 'stream protocol') ----- nextPut: aChar currentRun := currentRun + 1. ^characters nextPut: aChar! Item was changed: + ----- Method: AttributedTextStream>>nextPutAll: (in category 'accessing') ----- - ----- Method: AttributedTextStream>>nextPutAll: (in category 'stream protocol') ----- nextPutAll: aString "add an entire string with the same attributes" currentRun := currentRun + aString size. ^characters nextPutAll: aString.! Item was changed: + ----- Method: AttributedTextStream>>size (in category 'accessing') ----- - ----- Method: AttributedTextStream>>size (in category 'access') ----- size "number of characters in the stream so far" ^characters size! Item was added: + ----- Method: AttributedTextStream>>withAttribute:do: (in category 'accessing') ----- + withAttribute: attribute do: aBlock + + ^self withAttributes: { attribute } do: aBlock! Item was added: + ----- Method: AttributedTextStream>>withAttributes:do: (in category 'accessing') ----- + withAttributes: attributes do: aBlock + + | previousAttributes | + previousAttributes := currentAttributes. + [ + self currentAttributes: attributes. + aBlock value ] + ensure: [ self currentAttributes: previousAttributes ]! Item was changed: + ----- Method: Stream>>printOn: (in category 'printing') ----- - ----- Method: Stream>>printOn: (in category 'accessing') ----- printOn: stream super printOn: stream. stream space. self contents printOn: stream. ! Item was changed: ----- Method: WriteStream>>cr (in category 'character writing') ----- cr + "Append a carriage return character to the receiver." - "Append a return character to the receiver." self nextPut: Character cr! Item was changed: ----- Method: WriteStream>>crlf (in category 'character writing') ----- crlf + "Append a carriage return and a line feed to the receiver." - "Append a line feed character to the receiver." self nextPut: Character cr; nextPut: Character lf!

1 0

The Trunk: Collections-ul.402.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

1 0

The Trunk: Collections-ul.402.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

1 0

The Trunk: CollectionsTests-ul.174.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.174.mcz ==================== Summary ==================== Name: CollectionsTests-ul.174 Author: ul Time: 2 November 2010, 6:31:29.485 pm UUID: 3c5e057a-fe6f-e847-9595-4e45e1135ed8 Ancestors: CollectionsTests-ar.173 - mark WeakFinalizersTest >> #testNewFinalizationSupported as expectedFailure if the VM doesn't support the new finalization scheme =============== Diff against CollectionsTests-ar.173 =============== Item was added: + ----- Method: WeakFinalizersTest>>expectedFailures (in category 'as yet unclassified') ----- + expectedFailures + + ^WeakFinalizationList hasNewFinalization + ifTrue: [ #() ] + ifFalse: [ #(testNewFinalizationSupported) ]!

1 0

The Trunk: CollectionsTests-ul.174.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

1 0

The Trunk: CollectionsTests-ul.174.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

1 0

The Trunk: Collections-ul.401.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.401.mcz ==================== Summary ==================== Name: Collections-ul.401 Author: ul Time: 2 November 2010, 6:27:15.942 pm UUID: 0a1c53c0-73df-d84f-ab48-5d976d110df2 Ancestors: Collections-ul.400 - added Symbol >> #cull:, so unary symbols can be used instead of monadic blocks where #cull: is sent to them (e.g. #ifNotNil:) =============== Diff against Collections-ul.400 =============== Item was added: + ----- Method: Symbol>>cull: (in category 'evaluating') ----- + cull: anObject + + ^anObject perform: self!

1 0

The Trunk: Collections-ul.401.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2010