Squeak-dev May 2013

squeak-dev@lists.squeakfoundation.org

59 participants
334 discussions

The Trunk: Monticello-bf.540.mcz
by commits＠source.squeak.org 04 May '13

04 May '13

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.540.mcz ==================== Summary ==================== Name: Monticello-bf.540 Author: bf Time: 4 May 2013, 8:13:11.165 pm UUID: b8904753-a5e5-4061-a912-49480229e91a Ancestors: Monticello-fbs.539 Add MCReorganizationPreloader which can resolve moves between arbitrary packages. =============== Diff against Monticello-fbs.539 =============== Item was added: + Object subclass: #MCReorganizationPreloader + instanceVariableNames: 'preloads previousRemovals currentRemovals' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Loading'! Item was added: + ----- Method: MCReorganizationPreloader class>>preloadMovesBetween: (in category 'loading') ----- + preloadMovesBetween: versions + | loader | + loader := self new. + versions do: [ :version | + loader addVersion: version]. + ^ loader preload! Item was added: + ----- Method: MCReorganizationPreloader>>addDefinition: (in category 'patch ops') ----- + addDefinition: new + previousRemovals definitionLike: new + ifPresent: [ :old | preloads add: (MCModification of: old to: new) ] + ifAbsent: [ "ignore" ]. + ! Item was added: + ----- Method: MCReorganizationPreloader>>addVersion: (in category 'accessing') ----- + addVersion: aVersion + | patch | + previousRemovals addAll: currentRemovals definitions. + currentRemovals := MCDefinitionIndex new. + patch := aVersion canOptimizeLoading + ifTrue: [aVersion patch] + ifFalse: [aVersion snapshot patchRelativeToBase: aVersion package snapshot]. + patch applyTo: self. + + + ! Item was added: + ----- Method: MCReorganizationPreloader>>initialize (in category 'initialize-release') ----- + initialize + preloads := Set new. + previousRemovals := MCDefinitionIndex new. + currentRemovals := MCDefinitionIndex new. + ! Item was added: + ----- Method: MCReorganizationPreloader>>modifyDefinition:to: (in category 'patch ops') ----- + modifyDefinition: old to: new + "ignore"! Item was added: + ----- Method: MCReorganizationPreloader>>preload (in category 'loading') ----- + preload + | loader | + loader := MCPackageLoader new. + (MCPatch operations: preloads) applyTo: loader. + loader loadWithNameLike: 'mcPreload'. + ! Item was added: + ----- Method: MCReorganizationPreloader>>removeDefinition: (in category 'patch ops') ----- + removeDefinition: old + currentRemovals add: old. + !

1 0

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

04 May '13

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.518.mcz ==================== Summary ==================== Name: Collections-nice.518 Author: nice Time: 4 May 2013, 4:02:58.138 pm UUID: 1c11d0d8-8bb1-4eb0-b820-46a067ab4a43 Ancestors: Collections-fbs.517 What's the best collection type for holding characters? So, let $A to: $Z collect: as: String -> 'ABCD...' rather than Array -> #($A $B $C $D ...) =============== Diff against Collections-fbs.517 =============== Item was changed: ----- Method: Character>>to: (in category 'converting') ----- to: other "Answer with a collection in ascii order -- $a to: $z" + ^ (self asciiValue to: other asciiValue) + collect: [:ascii | Character value: ascii] + as: String! - ^ (self asciiValue to: other asciiValue) collect: - [:ascii | Character value: ascii]!

1 0

The Trunk: KernelTests-dtl.250.mcz
by commits＠source.squeak.org 04 May '13

04 May '13

David T. Lewis uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-dtl.250.mcz ==================== Summary ==================== Name: KernelTests-dtl.250 Author: dtl Time: 4 May 2013, 9:44:23.198 am UUID: 5bbd5f95-c99c-4ea9-a011-9975e197040b Ancestors: KernelTests-fbs.249 Remove AllocationTest>>isSafeVM and related protection for older Unix VMs (prior to 2010) that would crash when running tests. Reference Mantis http://bugs.squeak.org/view.php?id=7405 and VMMaker fixes in VMMaker-dtl.143. =============== Diff against KernelTests-fbs.249 =============== Item was removed: - ----- Method: AllocationTest>>expectedFailures (in category 'tests') ----- - expectedFailures - "should be fixed with latest VMs but unix is still pending" - self isSafeVM - ifTrue: [ ^#() ] - ifFalse: [ ^#(testOneGigAllocation testOutOfMemorySignal) ]! Item was removed: - ----- Method: AllocationTest>>isSafeVM (in category 'workarounds') ----- - isSafeVM - "False if the VM is a Unix VM that has not been updated to version 4. - Earlier versions may be subject to a bug that can crash the VM when - running AllocationTest." - - self flag: #toRemove. "April 2010 dtl - remove this about one year from now" - ^ Smalltalk platformName ~= 'unix' - or: [(((Smalltalk getSystemAttribute: 0) - findTokens: FileDirectory slash) - select: [:e | e beginsWith: '4.']) isEmpty not]! Item was changed: ----- Method: AllocationTest>>testOutOfMemorySignal (in category 'tests') ----- testOutOfMemorySignal "Ensure that OOM is signaled eventually" | sz | - self isSafeVM ifFalse: [ "avoid crashing" - ^self assert: false ]. sz := 512*1024*1024. "work around the 1GB alloc bug" self should:[(1 to: 2000) collect:[:i| Array new: sz]] raise: OutOfMemory. "Call me when this test fails, I want your machine" sz := 1024*1024*1024*1024. self should:[Array new: sz] raise: OutOfMemory. !

1 0

trunk process sustainability
by Chris Muller 04 May '13

04 May '13

We need to be able to develop unrestricted, whether its short and fast rapid-fire one-line commits or larger, slower, deliberated enhancements. We're not in trouble yet but eventually we'll need to address our trunk process implementation limitations. We've touched on it before; for the FileBasedRepository limitation, Levente had an idea about linking to an archive repository. Perhaps the recent changes to RepositoryGroup help facilitate this too. Also there is always GemStone-based SS3 which may not have issues with large scale thanks to being indexed in a DB. That leaves the ancestry issue, in the model where we have: aVersionInfo 'ancestry' -> anArray(aVersionInfo aVersionInfo) 1-> aVersionInfo 'ancestry' -> anArray(aVersionInfo) .... 2-> aVersionInfo ... all the way to the first version, including all comment history. mcz's still get bigger and bigger on disk but was thinking about a MCProxy (or maybe just MCVersionInfoStub), which could be used to proxify the tree in memory at least, and bringing it in on demand from its original repositoryGroup if necessary (e.g., during save and if history was requested).

5 5

Daily Commit Log
by commits＠source.squeak.org 04 May '13

04 May '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-May/005899.html Name: NetworkTests-fbs.36 Ancestors: NetworkTests-dtl.35 Verify that we accept an email address with a '+' in it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005900.html Name: ScriptLoader-fbs.336 Ancestors: ScriptLoader-eem.335 It's better to refer to one's own class through #class: it plays much nicer when someone subclasses you. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005901.html Name: ReleaseBuilder-fbs.96 Ancestors: ReleaseBuilder-fbs.95 Delete all obsolete ReleaseBuilders. Move the special-case builders - Nihongo, Squeakland - to 45Deprecated. (They're not deprecated as such, but they don't belong in trunk.) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005902.html Name: 45Deprecated-fbs.2 Ancestors: 45Deprecated-fbs.1 The special purpose ReleaseBuilders here. Move all apparently unused instance-side ReleaseBuilder methods here. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005903.html Name: ScriptLoader-fbs.337 Ancestors: ScriptLoader-fbs.336 Move ScriptLoader to 45Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005904.html Name: 45Deprecated-fbs.3 Ancestors: 45Deprecated-fbs.2 Move ScriptLoader to 45Deprecated. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005905.html Name: Tests-fbs.203 Ancestors: Tests-cwp.202 Update the dependency tests: strict removals of dependencies makes me happy. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005906.html Name: Kernel-cmm.757 Ancestors: Kernel-dtl.756 - Added convenience methods for creating DateAndTimes relative to now. - When materializing Floats via fromIEEE32Bit:, use the canonicalized 0.0. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005907.html Name: Kernel-cmm.758 Ancestors: Kernel-cmm.757 - Another ticky-tack commit because Monticello-bf.540 did not capture ALL package changes. The comment for the prior package is wrong, it did not include this change because I failed to: 1) Copy the change text to the clipboard 2) click "Cancel" 3) Find a MC browser. 4) Click "Save" 5) Re-paste the change text. Please see my immediate ancestor for what this change is about. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005908.html Name: KernelTests-fbs.249 Ancestors: KernelTests-fbs.248 Basic tests for #ago, #fromNow, compliments of M8R. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005909.html Name: Installer-Core-fbs.369 Ancestors: Installer-Core-fbs.368 Dale Henrich stubbed his toe on this: (Installer url: 'http://seaside.gemstone.com/ss/metacello') addPackage: 'ConfigurationOfMetacello-dhk.754.mcz'; install. results in the URL 'http://seaside.gemstone.com/ss/metacelloConfigurationOfMetacello-dhk.754.mcz' (note the missing / between 'metacello' and 'Configuration). So when someone leaves off the /, and _specifies a package_, just insert a /. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005910.html Name: Tests-fbs.204 Ancestors: Tests-fbs.203 Matching tests for the InstallerUrl fix. =============================================

1 0

The Inbox: MonticelloConfigurations-ul.112.mcz
by commits＠source.squeak.org 04 May '13

04 May '13

A new version of MonticelloConfigurations was added to project The Inbox: http://source.squeak.org/inbox/MonticelloConfigurations-ul.112.mcz ==================== Summary ==================== Name: MonticelloConfigurations-ul.112 Author: ul Time: 4 May 2013, 12:13:59.367 am UUID: 8a5b7d86-64e4-47aa-baa7-402c9167b39c Ancestors: MonticelloConfigurations-fbs.111 - allow using the cache for #allFileNames in MCMcmUpdater class >> #updateListFor: in order to speed it up (don't fetch it twice during a Trunk update) - don't use SortedCollection; use OrderedCollection and #sort instead, because it's faster in the same method =============== Diff against MonticelloConfigurations-fbs.111 =============== Item was changed: ----- Method: MCMcmUpdater class>>updateListFor: (in category 'private') ----- updateListFor: repo + | updateList allNames minVersion | + updateList := OrderedCollection new. - updateList := SortedCollection new. minVersion := LastUpdateMap at: repo description ifAbsent: [0]. "Find all the updates-author.version.mcm files" + allNames := 'Checking ', repo description - 'Checking ', repo description displayProgressFrom: 0 to: 1 during: [:bar| bar value: 0. + repo allFileNamesOrCache ]. - allNames := repo allFileNames]. allNames do: [:versionedName | | version base parts author type | parts := versionedName findTokens: '.-'. parts size = 4 ifTrue: [ base := parts at: 1. author := parts at: 2. version := [(parts at: 3) asNumber] on: Error do: [:ex | ex return: 0]. type := parts at: 4. ]. (base = 'update' and: [version >= minVersion and: [type = 'mcm']]) ifTrue: [updateList add: version -> versionedName]]. + ^updateList sort! - ^updateList!

1 0

The Inbox: Monticello-ul.540.mcz
by commits＠source.squeak.org 04 May '13

04 May '13

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-ul.540.mcz ==================== Summary ==================== Name: Monticello-ul.540 Author: ul Time: 4 May 2013, 12:38:19.766 am UUID: 680a6c25-2cf1-4b13-97fc-082a237109fc Ancestors: Monticello-fbs.539 Speed up updating the Trunk by: - caching #allVersionNames when #allFileNames is cached (so we just calculate them once instead of 134 times) - speeding up a method of MCVersionName a bit (there's lots of space for optimization in that class) Renamed the instance variable allFileNames of MCFileBasedRepository to allFileNamesCache, because it's just a cache. =============== Diff against Monticello-fbs.539 =============== Item was changed: MCRepository subclass: #MCFileBasedRepository + instanceVariableNames: 'cache allFileNamesCache allVersionNamesCache' - instanceVariableNames: 'cache allFileNames' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Repositories'! Item was changed: ----- Method: MCFileBasedRepository>>allFileNamesOrCache (in category 'private-files') ----- allFileNamesOrCache + + ^allFileNamesCache ifNil: [ self allFileNames ]! - ^ allFileNames ifNil: [self allFileNames]! Item was changed: ----- Method: MCFileBasedRepository>>allVersionNames (in category 'private-files') ----- allVersionNames + ^allVersionNamesCache ifNil: [ + self readableFileNames collect: [ :each | each versionName ] ]! - ^self readableFileNames collect: [ :each | each versionName ]! Item was changed: ----- Method: MCFileBasedRepository>>cacheAllFileNamesDuring: (in category 'private') ----- cacheAllFileNamesDuring: aBlock + "Cache the result of #allFileNames and #allVersionNames during aBlock" + + allFileNamesCache ifNotNil: [ ^aBlock value ]. + allFileNamesCache := self allFileNames. + allVersionNamesCache := self allVersionNames. + ^aBlock ensure: [ allFileNamesCache := allVersionNamesCache := nil ]! - allFileNames ifNotNil:[^aBlock value]. - allFileNames := self allFileNames. - ^ aBlock ensure: [allFileNames := nil]! Item was changed: ----- Method: MCFileBasedRepository>>flushCache (in category 'private') ----- flushCache + + cache := allFileNamesCache := allVersionNamesCache := nil! - cache := allFileNames := nil! Item was changed: ----- Method: MCFileBasedRepository>>includesVersionNamed: (in category 'versions') ----- includesVersionNamed: aString + | comparable | comparable := ((aString endsWith: '.mcz') and: [ aString size > 4 ]) + ifTrue: [ aString allButLast: 4 ] - ifTrue: - [ aString - copyFrom: 1 - to: aString size - 4 ] ifFalse: [ aString ]. ^ self allVersionNames includes: comparable! Item was changed: ----- Method: MCVersionName>>versionName (in category 'accessing') ----- versionName "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes." | end | self isEmpty ifTrue: [^ String empty]. end := self indexOf: $( ifAbsent: [ + (self size > 4 + and: [ (self at: self size - 3) == $. + and: [ (self at: self size - 2) == $m + and: [ (self at: self size - 1) == $c ] ] ]) + ifTrue: [self size - 3] + ifFalse: [self size + 1]]. - (self size > 4 and: [(self copyFrom: self size - 3 to: self size - 1) = '.mc']) - ifTrue: [self size - 3] - ifFalse: [self size + 1]]. ^self first: end - 1!

1 0

The Trunk: Tests-fbs.204.mcz
by commits＠source.squeak.org 04 May '13

04 May '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.204.mcz ==================== Summary ==================== Name: Tests-fbs.204 Author: fbs Time: 3 May 2013, 11:20:43.961 pm UUID: 69db58fe-ee6f-478a-a1cd-7923c5f6c92a Ancestors: Tests-fbs.203 Matching tests for the InstallerUrl fix. =============== Diff against Tests-fbs.203 =============== Item was added: + TestCase subclass: #InstallerUrlTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Installer-Core'! Item was added: + ----- Method: InstallerUrlTest>>testAddPackageShouldResultInCorrectUrl (in category 'as yet unclassified') ----- + testAddPackageShouldResultInCorrectUrl + | url | + url := (Installer url: 'http://seaside.gemstone.com/ss/metacello') + addPackage: 'ConfigurationOfMetacello-dkh.754.mcz'; + urlToDownload. + "Note the insertion of a / in the URL." + self + assert: 'http://seaside.gemstone.com/ss/metacello/ConfigurationOfMetacello-dkh.754.m…' + equals: url.!

1 0

The Trunk: Installer-Core-fbs.369.mcz
by commits＠source.squeak.org 04 May '13

04 May '13

Frank Shearar uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-fbs.369.mcz ==================== Summary ==================== Name: Installer-Core-fbs.369 Author: fbs Time: 3 May 2013, 11:19:53.159 pm UUID: 7956de6c-f92a-4830-bcc4-0cb2182ed4c5 Ancestors: Installer-Core-fbs.368 Dale Henrich stubbed his toe on this: (Installer url: 'http://seaside.gemstone.com/ss/metacello') addPackage: 'ConfigurationOfMetacello-dhk.754.mcz'; install. results in the URL 'http://seaside.gemstone.com/ss/metacelloConfigurationOfMetacello-dhk.754.mcz' (note the missing / between 'metacello' and 'Configuration). So when someone leaves off the /, and _specifies a package_, just insert a /. =============== Diff against Installer-Core-fbs.368 =============== Item was added: + ----- Method: InstallerUrl>>addPackage: (in category 'as yet unclassified') ----- + addPackage: aPackageName + super addPackage: aPackageName. + (self url endsWith: '/') ifFalse: [self url: self url, '/'].!

1 0

The Trunk: KernelTests-fbs.249.mcz
by commits＠source.squeak.org 03 May '13

03 May '13

Frank Shearar uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-fbs.249.mcz ==================== Summary ==================== Name: KernelTests-fbs.249 Author: fbs Time: 3 May 2013, 10:26:36.107 pm UUID: 3340f547-9195-45db-bb2a-9dbb2dee3a6a Ancestors: KernelTests-fbs.248 Basic tests for #ago, #fromNow, compliments of M8R. =============== Diff against KernelTests-fbs.248 =============== Item was added: + ----- Method: DurationTest>>testAgo (in category 'testing') ----- + testAgo + + self shouldnt: [10 hours ago] raise: Error. + self shouldnt: [0 seconds ago] raise: Error. + self shouldnt: [-5 days ago] raise: Error. + self assert: ((10 minutes ago) isMemberOf: DateAndTime). + self assert: ((10 weeks ago) < DateAndTime now). + self assert: ((-50 seconds ago) > DateAndTime now).! Item was added: + ----- Method: DurationTest>>testFromNow (in category 'testing') ----- + testFromNow + + self shouldnt: [10 seconds fromNow] raise: Error. + self shouldnt: [0 days fromNow] raise: Error. + self shouldnt: [-1 weeks fromNow] raise: Error. + self assert: ((1000 milliSeconds fromNow) isMemberOf: DateAndTime). + self assert: ((250 hours fromNow) > DateAndTime now). + self assert: ((-50 minutes fromNow) < DateAndTime now).!

1 0

← Newer
1
...
26
27
28
29
30
31
32
33
34
Older →

Jump to page: