Packages August 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: Files-ul.85.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.85.mcz ==================== Summary ==================== Name: Files-ul.85 Author: ul Time: 27 August 2010, 11:43:45.728 pm UUID: c02d6ffb-87c5-f649-90c8-99d5a4796548 Ancestors: Files-nice.84 - all VMs have finalization support, so there's no need to check for it anymore - StandardFileStream class >> #register: and #unregister: now returns the added/removed object =============== Diff against Files-nice.84 =============== Item was changed: ----- Method: StandardFileStream class>>registry (in category 'registry') ----- registry + + ^Registry ifNil: [ Registry := WeakRegistry new ]! - WeakArray isFinalizationSupported ifFalse:[^nil]. - ^Registry - ifNil: [ Registry := WeakRegistry new]! Item was changed: ----- Method: StandardFileStream class>>unregister: (in category 'registry') ----- unregister: anObject + + ^self registry remove: anObject ifAbsent: nil! - WeakArray isFinalizationSupported ifFalse:[^anObject]. - self registry remove: anObject ifAbsent:[]! Item was changed: ----- Method: StandardFileStream class>>register: (in category 'registry') ----- register: anObject + + ^self registry add: anObject! - WeakArray isFinalizationSupported ifFalse:[^anObject]. - self registry add: anObject!

1 0

The Trunk: Files-ul.85.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

1 0

The Trunk: Files-ul.85.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

1 0

The Trunk: Collections-ul.374.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.374.mcz ==================== Summary ==================== Name: Collections-ul.374 Author: ul Time: 27 August 2010, 11:46:39.683 pm UUID: ab565eba-f6e8-8240-8003-d4d62564e08b Ancestors: Collections-nice.372 - all VMs have finalization support, so there's no need to check for it anymore - refactored WeakArray class >> #addWeakDependent: =============== Diff against Collections-nice.372 =============== Item was changed: ----- Method: WeakArray class>>restartFinalizationProcess (in category 'private') ----- restartFinalizationProcess "kill any old process, just in case" FinalizationProcess ifNotNil: [FinalizationProcess terminate. FinalizationProcess := nil]. - "Check if Finalization is supported by this VM" - IsFinalizationSupported := nil. - self isFinalizationSupported - ifFalse: [^ self]. - FinalizationSemaphore := Smalltalk specialObjectsArray at: 42. FinalizationDependents ifNil: [FinalizationDependents := WeakArray new: 10]. FinalizationLock := Semaphore forMutualExclusion. FinalizationProcess := [self finalizationProcess] forkAt: Processor userInterruptPriority! Item was changed: ----- Method: WeakArray class>>isFinalizationSupported (in category 'accessing') ----- isFinalizationSupported + "This method is only here for backwards compatibility, all closure VMs support finalization" + + ^true! - "Check if this VM supports the finalization mechanism" - | tempObject | - IsFinalizationSupported ifNotNil:[^IsFinalizationSupported]. - tempObject := WeakArray new: 1. - "Check if the class format 4 is correctly understood by the VM. - If the weak class support is not installed then the VM will report - any weak class as containing 32bit words - not pointers" - (tempObject at: 1) = nil - ifFalse:[^IsFinalizationSupported :=false]. - "Check if objects are correctly freed" - self pvtCreateTemporaryObjectIn: tempObject. - Smalltalk garbageCollect. - ^IsFinalizationSupported := (tempObject at: 1) == nil! Item was changed: ----- Method: WeakArray class>>addWeakDependent: (in category 'accessing') ----- addWeakDependent: anObject + + FinalizationLock + critical: [ + | emptySlotIndex | + emptySlotIndex := FinalizationDependents + identityIndexOf: nil + ifAbsent: [ + | newIndex | + newIndex := FinalizationDependents size + 1. + "Grow linearly" + FinalizationDependents := FinalizationDependents grownBy: 10. + newIndex ]. + FinalizationDependents at: emptySlotIndex put: anObject ] + ifError: [ :msg :rcvr | rcvr error: msg ]! - self isFinalizationSupported ifFalse:[^self]. - FinalizationLock critical:[ - | finished index weakDependent | - finished := false. - index := 0. - [index := index + 1. - finished not and:[index <= FinalizationDependents size]] whileTrue:[ - weakDependent := FinalizationDependents at: index. - weakDependent isNil ifTrue:[ - FinalizationDependents at: index put: anObject. - finished := true. - ]. - ]. - finished ifFalse:[ - "Grow linearly" - FinalizationDependents := FinalizationDependents, (WeakArray new: 10). - FinalizationDependents at: index put: anObject. - ]. - ] ifError:[:msg :rcvr| rcvr error: msg].! Item was changed: Array weakSubclass: #WeakArray instanceVariableNames: '' + classVariableNames: 'FinalizationDependents FinalizationLock FinalizationProcess FinalizationSemaphore' - classVariableNames: 'FinalizationDependents FinalizationLock FinalizationProcess FinalizationSemaphore IsFinalizationSupported' poolDictionaries: '' category: 'Collections-Weak'! !WeakArray commentStamp: '<historical>' prior: 0! WeakArray is an array which holds only weakly on its elements. This means whenever an object is only referenced by instances of WeakArray it will be garbage collected.! Item was changed: ----- Method: WeakArray class>>removeWeakDependent: (in category 'accessing') ----- removeWeakDependent: anObject + - self isFinalizationSupported ifFalse:[^self]. FinalizationLock critical:[ 1 to: FinalizationDependents size do:[:i| ((FinalizationDependents at: i) == anObject) ifTrue:[ FinalizationDependents at: i put: nil. ]. ]. ] ifError:[:msg :rcvr| rcvr error: msg].!

1 0

The Trunk: Collections-ul.374.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

1 0

The Trunk: Collections-ul.374.mcz
by commits＠source.squeak.org 28 Aug '10

28 Aug '10

1 0

The Trunk: Protocols-nice.32.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

Nicolas Cellier uploaded a new version of Protocols to project The Trunk: http://source.squeak.org/trunk/Protocols-nice.32.mcz ==================== Summary ==================== Name: Protocols-nice.32 Author: nice Time: 27 August 2010, 10:32:16.708 pm UUID: 54ca194f-35cd-bf48-9216-6d167e293b58 Ancestors: Protocols-nice.31 #ifNil: simplification =============== Diff against Protocols-nice.31 =============== Item was changed: ----- Method: ObjectWithDocumentation>>editDescription (in category 'documentation') ----- editDescription "Allow the user to see and edit the documentation for this object" | reply helpMessage | + helpMessage := self documentation ifNil: [String new]. - helpMessage := self documentation isNil - ifTrue: [String new] - ifFalse: [self documentation]. reply := UIManager default multiLineRequest: 'Kindly edit the description' translated centerAt: Sensor cursorPoint initialAnswer: helpMessage answerHeight: 200. reply isEmptyOrNil ifFalse: [self documentation: reply]!

1 0

The Trunk: Protocols-nice.32.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

1 0

The Trunk: Protocols-nice.32.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

1 0

The Trunk: SUnit-nice.81.mcz
by commits＠source.squeak.org 27 Aug '10

27 Aug '10

Nicolas Cellier uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-nice.81.mcz ==================== Summary ==================== Name: SUnit-nice.81 Author: nice Time: 27 August 2010, 10:29:17.421 pm UUID: 65e5fc98-4b2d-6046-8856-a7fe327cf920 Ancestors: SUnit-ar.80 A few ifNil: simplifications inspired by Cuis. Note how ifNotNil: cheaply replace an ensure: Block =============== Diff against SUnit-ar.80 =============== Item was changed: ----- Method: SUnitExtensionsTest>>stream (in category 'accessing') ----- stream + ^stream ifNil: [stream := WriteStream on: String new]! - stream isNil ifTrue: [stream := WriteStream on: String new]. - ^stream! Item was changed: ----- Method: TestResource>>name (in category 'accessing') ----- name + ^name ifNil: [ self printString]! - name isNil - ifTrue: [^self printString]. - - ^name - ! Item was changed: + ----- Method: TestSuite>>tests (in category 'Accessing') ----- - ----- Method: TestSuite>>tests (in category 'accessing') ----- tests + ^ tests ifNil: [tests := OrderedCollection new] - tests isNil ifTrue: [tests := OrderedCollection new]. - ^tests ! Item was changed: ----- Method: TestResource class>>current (in category 'accessing') ----- current + ^ current ifNil: [ current := self new] - - current isNil - ifTrue: [current := self new]. - - ^current ! Item was changed: + ----- Method: TestResource class>>reset (in category 'Creation') ----- - ----- Method: TestResource class>>reset (in category 'creation') ----- reset + current ifNotNil: [:oldCurrent | + current := nil. + oldCurrent tearDown]! - - current notNil ifTrue: [ - [current tearDown] ensure: [ - current := nil]] - ! Item was changed: + ----- Method: TestSuite>>resources (in category 'Accessing') ----- - ----- Method: TestSuite>>resources (in category 'accessing') ----- resources + ^ resources ifNil: [resources := self defaultResources] - resources isNil ifTrue: [resources := self defaultResources]. - ^resources ! Item was changed: ----- Method: TestResource>>description (in category 'accessing') ----- description + ^description ifNil: [ '' ]! - description isNil - ifTrue: [^'']. - - ^description - !

1 0

← Newer
1
2
3
4
5
6
7
...
28
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 August 2010