Squeak-dev November 2013

squeak-dev@lists.squeakfoundation.org

43 participants
223 discussions

Re: [squeak-dev] The Trunk: Kernel-cmm.819.mcz
by Frank Shearar 07 Nov '13

07 Nov '13

On 6 November 2013 21:43, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-cmm.819.mcz > > ==================== Summary ==================== > > Name: Kernel-cmm.819 > Author: cmm > Time: 6 November 2013, 3:42:56.929 pm > UUID: df349ca4-09ec-4a78-b10b-bc2ca823d8cd > Ancestors: Kernel-nice.818 > > - Fix #numArgs for MessageSend's whose arguments have not yet been set. > > =============== Diff against Kernel-nice.818 =============== > > Item was changed: > ----- Method: MessageSend>>numArgs (in category 'accessing') ----- > numArgs > + ^ selector numArgs! > - "Answer the number of arguments in this message" > - > - ^arguments size! Under what conditions would we have a MessageSend without arguments? We have three proper constructors that create fully initialised MessageSends, so I'd rather hope (quite possibly in vain) that noone creates MessageSends through #new directly. It doesn't look like the base image does so. frank

2 4

trunk down again
by Chris Muller 07 Nov '13

07 Nov '13

Trunk stopped responding again. box2 might need to be rebooted again.

1 0

Daily Commit Log
by commits＠source.squeak.org 07 Nov '13

07 Nov '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-November/006599.h… Name: GraphicsTests-fbs.36 Ancestors: GraphicsTests-nice.35 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006600.h… Name: HelpSystem-Tests-fbs.15 Ancestors: HelpSystem-Tests-ul.14 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006601.h… Name: MorphicTests-fbs.23 Ancestors: MorphicTests-fbs.22 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006602.h… Name: MultilingualTests-fbs.18 Ancestors: MultilingualTests-nice.17 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006603.h… Name: NetworkTests-fbs.37 Ancestors: NetworkTests-fbs.36 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006604.h… Name: SUnit-fbs.96 Ancestors: SUnit-fbs.95 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006605.h… Name: SystemChangeNotification-Tests-fbs.22 Ancestors: SystemChangeNotification-Tests-fbs.21 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006606.h… Name: ToolsTests-fbs.67 Ancestors: ToolsTests-fbs.66 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006607.h… Name: TraitsTests-fbs.12 Ancestors: TraitsTests-fbs.11 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006608.h… Name: VersionNumberTests-fbs.4 Ancestors: VersionNumberTests-nice.3 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006609.h… Name: XML-Parser-fbs.36 Ancestors: XML-Parser-ael.35 More #shouldnt:raise: Error fixes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006610.h… Name: Tests-fbs.263 Ancestors: Tests-fbs.262 Minor error reporting improvements. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006611.h… Name: Installer-Core-cmm.381 Ancestors: Installer-Core-cmm.380 - Ability to override default repositories when using the new #merge: function. - #merge: optimization. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006612.h… Name: Installer-Core-cmm.382 Ancestors: Installer-Core-cmm.381 - Removed unused method. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006613.h… Name: Kernel-cmm.819 Ancestors: Kernel-nice.818 - Fix #numArgs for MessageSend's whose arguments have not yet been set. =============================================

1 0

The Trunk: Kernel-cmm.819.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.819.mcz ==================== Summary ==================== Name: Kernel-cmm.819 Author: cmm Time: 6 November 2013, 3:42:56.929 pm UUID: df349ca4-09ec-4a78-b10b-bc2ca823d8cd Ancestors: Kernel-nice.818 - Fix #numArgs for MessageSend's whose arguments have not yet been set. =============== Diff against Kernel-nice.818 =============== Item was changed: ----- Method: MessageSend>>numArgs (in category 'accessing') ----- numArgs + ^ selector numArgs! - "Answer the number of arguments in this message" - - ^arguments size!

1 0

The Trunk: Installer-Core-cmm.382.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.382.mcz ==================== Summary ==================== Name: Installer-Core-cmm.382 Author: cmm Time: 6 November 2013, 2:31:17.181 pm UUID: e024ea85-7531-4278-a3d7-8a18625e7f7f Ancestors: Installer-Core-cmm.381 - Removed unused method. =============== Diff against Installer-Core-cmm.381 =============== Item was removed: - ----- Method: Installer>>setRepository: (in category 'private') ----- - setRepository: aMCRepository - currentRepository := aMCRepository!

1 0

The Trunk: Installer-Core-cmm.381.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.381.mcz ==================== Summary ==================== Name: Installer-Core-cmm.381 Author: cmm Time: 30 October 2013, 10:17:57.435 pm UUID: 1005ce43-3cce-4cf7-ab8c-001c497f17cb Ancestors: Installer-Core-cmm.380 - Ability to override default repositories when using the new #merge: function. - #merge: optimization. =============== Diff against Installer-Core-cmm.380 =============== Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel currentRepository' + classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered Repositories SkipLoadingTests ValidationBlock' - classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'! !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer useFileIn - flag to load source.st rather than using Monticello! Item was added: + ----- Method: Installer class>>airplaneMode (in category 'repository-overrides') ----- + airplaneMode + "Override all remote repositories with the package cache." + self overrideRemoteRepostoriesWith: MCCacheRepository default! Item was added: + ----- Method: Installer class>>clearOverrides (in category 'repository-overrides') ----- + clearOverrides + "Remove all repository overrides and load everthing from the specified default repositories when using #merge:." + Repositories := Dictionary new! Item was added: + ----- Method: Installer class>>defaultRepositoryFor: (in category 'private') ----- + defaultRepositoryFor: anAssociation + "private -- answer the MC repository specified by anAssociation." + ^ (self perform: anAssociation key) + project: anAssociation value ; + mc! Item was changed: ----- Method: Installer class>>doesNotUnderstand: (in category 'custom names') ----- doesNotUnderstand: aMessage + self isThisEverCalled: 'What is this?'. - ^ self remembered at: aMessage selector ifAbsent: [ super doesNotUnderstand: aMessage ]! Item was added: + ----- Method: Installer class>>overrideRemoteRepostoriesWith: (in category 'repository-overrides') ----- + overrideRemoteRepostoriesWith: aMCRepositoryOrGroup + self remoteRepositories do: + [ : each | self + overrideRepository: each + with: aMCRepositoryOrGroup ]! Item was added: + ----- Method: Installer class>>overrideRepository:with: (in category 'repository-overrides') ----- + overrideRepository: scope with: anMCRepository + "When configuring the image with #merge:, override the standard repository specified by scope with anMCRepository." + "Installer + override: #ss3->'htmlcssparser' + with: (MCDirectoryRepository directory: (FileDirectory default / 'mc'))." + "Installer + override: #ss + with: #ssMirror." + self repositories + at: scope + put: anMCRepository! Item was added: + ----- Method: Installer class>>packageCache (in category 'repositories') ----- + packageCache + ^ MCCacheRepository default! Item was changed: ----- Method: Installer class>>remembered (in category 'custom names') ----- remembered + self isThisEverCalled: 'clean the var too.'. - ^ Remembered ifNil: [ Remembered := IdentityDictionary new ]! Item was added: + ----- Method: Installer class>>remoteRepositories (in category 'repository-overrides') ----- + remoteRepositories + ^ #(#ss #ss3 #cobalt #gemsource #goran #gs #impara #keith #krestianstvo #lukas #saltypickle #sophie #squeak #squeakfoundation #squeaksource #squeaksource3 #ss #ss3 #swa #swasource #wiresong )! Item was added: + ----- Method: Installer class>>removeOverride: (in category 'repository-overrides') ----- + removeOverride: scope + "Remove override specified by scope and return to using the default repository for packages within that scope." + ^ self repositories + removeKey: scope + ifAbsent: [ ]! Item was changed: + ----- Method: Installer class>>repositories (in category 'accessing') ----- - ----- Method: Installer class>>repositories (in category 'instanciation') ----- repositories + ^ Repositories ifNil: [ Repositories := Dictionary new ]! - - ^ self class organization listAtCategoryNamed: 'repositories'. - ! Item was added: + ----- Method: Installer class>>repositoryFor: (in category 'private') ----- + repositoryFor: anAssociation + "private -- anAssociation key is the repository selector Symbol understood by Intsaller class. It's value is the project name within that HTTP repository." + | rep | + rep := self repositories + at: anAssociation "<-- check for #rep->project overrides first" + ifAbsent: + [ self repositories + at: anAssociation key "<-- override an entire repository." + ifAbsent: [ ^ self defaultRepositoryFor: anAssociation ] ]. + ^ rep isSymbol + ifTrue: [ self defaultRepositoryFor: rep -> anAssociation value ] + ifFalse: [ rep ]! Item was added: + ----- Method: Installer class>>ssMirror (in category 'repositories') ----- + ssMirror + "The Chilean mirror for the original SqueakSource." + ^ self monticello http: 'http://dsal.cl/squeaksource/'! Item was changed: ----- Method: Installer>>bindingOf: (in category 'script bindings') ----- bindingOf: aString + self isThisEverCalled: 'Want to get rid of this and the class-var'. - InstallerBindings isNil ifTrue: [ InstallerBindings := Dictionary new]. (InstallerBindings includesKey: aString) ifFalse: [InstallerBindings at: aString put: nil]. ^ InstallerBindings associationAt: aString.! Item was changed: ----- Method: Installer>>merge: (in category 'public interface') ----- merge: structureOrSymbol + | toUncache | + toUncache := Set new. structureOrSymbol isSymbol ifTrue: [ self merge: (self perform: structureOrSymbol) ] ifFalse: [ self depthFirstOf: structureOrSymbol do: [ : each | each isVariableBinding + ifTrue: + [ currentRepository := self class repositoryFor: each. + currentRepository cacheAllFilenames. + toUncache add: currentRepository ] - ifTrue: [ self setRepository: each ] ifFalse: [ each isString ifTrue: [ self primMerge: each ] + ifFalse: [ self error: 'invalid specification' ] ] ] ]. + toUncache do: + [ : each | each flushAllFilenames ]! - ifFalse: [ self error: 'invalid specification' ] ] ] ]! Item was changed: ----- Method: Installer>>rememberAs: (in category 'custom names') ----- rememberAs: symbol + self isThisEverCalled. - self class remembered at: symbol asSymbol put: self! Item was changed: ----- Method: Installer>>setRepository: (in category 'private') ----- + setRepository: aMCRepository + currentRepository := aMCRepository! - setRepository: anAssociation - currentRepository := (self class perform: anAssociation key) - project: anAssociation value ; - mc! Item was changed: ----- Method: InstallerMonticello>>project: (in category 'accessing') ----- project: name project := name. packages := nil. (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ]. + (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root / name ]. - (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ]. ^self copy.!

1 0

The Trunk: Tests-fbs.263.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.263.mcz ==================== Summary ==================== Name: Tests-fbs.263 Author: fbs Time: 6 November 2013, 6:55:51.218 pm UUID: 53675649-a96b-914d-b418-d4f50908b946 Ancestors: Tests-fbs.262 Minor error reporting improvements. =============== Diff against Tests-fbs.262 =============== Item was changed: ----- Method: MCMethodDefinitionTest>>testRevertOverrideMethod (in category 'testing') ----- testRevertOverrideMethod | definition | self class compile: 'override ^ 2' classified: '*foobarbaz-override'. definition := (MethodReference class: self class selector: #override) asMethodDefinition. + self assert: definition isOverrideMethod description: 'Method not marked as an override'. + self assert: 2 equals: self override description: 'Method not overridden'. - self assert: definition isOverrideMethod. - self assert: self override = 2. definition unload. + self assert: 1 equals: self override description: 'Unload didn''t revert method'. + self assert: 'mocks' equals: (MethodReference class: self class selector: #override) category description: 'Unload didn''t revert. method classification'. - self assert: self override = 1. - self assert: (MethodReference class: self class selector: #override) category = 'mocks'. !

1 0

Re: [squeak-dev] The Trunk: XML-Parser-fbs.36.mcz
by Frank Shearar 06 Nov '13

06 Nov '13

On 6 November 2013 18:43, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of XML-Parser to project The Trunk: > http://source.squeak.org/trunk/XML-Parser-fbs.36.mcz > > ==================== Summary ==================== > > Name: XML-Parser-fbs.36 > Author: fbs > Time: 6 November 2013, 6:44:04.952 pm > UUID: a2d9791a-c341-564b-9b57-a0fe9f42b66f > Ancestors: XML-Parser-ael.35 > > More #shouldnt:raise: Error fixes. > > =============== Diff against XML-Parser-ael.35 =============== There should now be no senders of #shouldnt:raise: that take an Error as parameter. Finally. I blame Nicolas for his nagging :) frank

1 0

The Trunk: XML-Parser-fbs.36.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of XML-Parser to project The Trunk: http://source.squeak.org/trunk/XML-Parser-fbs.36.mcz ==================== Summary ==================== Name: XML-Parser-fbs.36 Author: fbs Time: 6 November 2013, 6:44:04.952 pm UUID: a2d9791a-c341-564b-9b57-a0fe9f42b66f Ancestors: XML-Parser-ael.35 More #shouldnt:raise: Error fixes. =============== Diff against XML-Parser-ael.35 =============== Item was changed: ----- Method: XMLParserTest>>testExampleAddressBook (in category 'tests') ----- testExampleAddressBook | tokenizer | "self debug: #testExampleAddressBook" tokenizer := XMLTokenizer on: self addressBookXML readStream. "We enumerate the first characters of the addressbook example. The file being parsed begins with <addressbook" self assert: tokenizer next = $<. self assert: tokenizer next = $a. self assert: tokenizer next = $d. self assert: tokenizer next = $d. self assert: tokenizer next = $r. + "This should not raise an exception." + [tokenizer next notNil] whileTrue: [].! - self shouldnt: ([tokenizer next notNil] whileTrue: []) raise: Error. ! Item was changed: ----- Method: XMLParserTest>>testExampleAddressBookWithDTD (in category 'tests') ----- testExampleAddressBookWithDTD | tokenizer | "XMLTokenizer exampleAddressBookWithDTD" tokenizer := XMLTokenizer on: self addressBookXMLWithDTD readStream. + + "This should not raise an exception." + [tokenizer next notNil] whileTrue: [].! - self shouldnt: ([tokenizer next notNil] whileTrue: []) raise: Error!

1 0

The Trunk: VersionNumberTests-fbs.4.mcz
by commits＠source.squeak.org 06 Nov '13

06 Nov '13

Frank Shearar uploaded a new version of VersionNumberTests to project The Trunk: http://source.squeak.org/trunk/VersionNumberTests-fbs.4.mcz ==================== Summary ==================== Name: VersionNumberTests-fbs.4 Author: fbs Time: 6 November 2013, 6:43:26.326 pm UUID: 953a944c-9648-dd4b-898e-9e10e0507b91 Ancestors: VersionNumberTests-nice.3 More #shouldnt:raise: Error fixes. =============== Diff against VersionNumberTests-nice.3 =============== Item was changed: ----- Method: VersionNumberTest>>testAsVersion (in category 'Tests') ----- testAsVersion "note: a version number string '3 2 1' will only consider the first number as a version, ignoring the trailing '2 1'. Whether it is a desired feature or not should be determined." | numbers | numbers := { '' -> #(). '1 '-> #(1). '1.2' -> #(1 2). '3.4.5' -> #(3 4 5). '6.7.890' -> #(6 7 890). '9 8' -> #(9). '98 7 6' -> #(98). '54.3 2 1' -> #(54 3) }. numbers do: [:item | | version | version := (item key) asVersion. self assert: (VersionNumber = version class). self assert: ((item value) = version numbers). ]. + self assert: 9999999999999999999 equals: '9999999999999999999' asVersion numbers first. - self shouldnt: ['9999999999999999999' asVersion] raise: TestResult error. self should: ['-1' asVersion] raise: TestResult error. self should: [' 1' asVersion] raise: TestResult error. "notice leading space!!" self should: ['version' asVersion] raise: TestResult error. self should: ['1.2.10.20.-1.4' asVersion] raise: TestResult error. + self should: ['1.2.10.20.R4' asVersion] raise: TestResult error.! - self should: ['1.2.10.20.R4' asVersion] raise: TestResult error. - ! Item was changed: ----- Method: VersionNumberTest>>testFromCollection (in category 'Tests') ----- testFromCollection | numbers | numbers := #(#(1) #(1 2) #(3 4 5) #(6 7 890)). numbers do: [:item | | version | version := VersionNumber fromCollection: item. self assert: (VersionNumber = version class). self assert: (item = version numbers). ]. + self assert: #() equals: (VersionNumber fromCollection: #()) numbers. + self assert: #(9999999999999999999) equals: (VersionNumber fromCollection: #(9999999999999999999)) numbers. - self shouldnt: [VersionNumber fromCollection: #()] raise: TestResult error. - self shouldnt: [VersionNumber fromCollection: #(9999999999999999999)] raise: TestResult error. self should: [VersionNumber fromCollection: #(0)] raise: TestResult error. self should: [VersionNumber fromCollection: #(-1)] raise: TestResult error. self should: [VersionNumber fromCollection: #(1 2 10 20 -1 4)] raise: TestResult error. self should: [VersionNumber fromCollection: #(1 2 10 20 '1' 4)] raise: TestResult error. self should: [VersionNumber fromCollection: #('version')] raise: TestResult error. ! Item was changed: ----- Method: VersionNumberTest>>testFromString (in category 'Tests') ----- testFromString "note: a version number string '3 2 1' will only consider the first number as a version, ignoring the trailing '2 1'. Whether it is a desired feature or not should be determined." | numbers | numbers := { '' -> #(). '1 '-> #(1). '1.2' -> #(1 2). '3.4.5' -> #(3 4 5). '6.7.890' -> #(6 7 890). '9 8' -> #(9). '98 7 6' -> #(98). '54.3 2 1' -> #(54 3) }. numbers do: [:item | | version | version := VersionNumber fromString: (item key). self assert: (VersionNumber = version class). self assert: ((item value) = version numbers). ]. + self assert: #(9999999999999999999) equals: (VersionNumber fromString: '9999999999999999999') numbers. - self shouldnt: [VersionNumber fromString: '9999999999999999999'] raise: TestResult error. self should: [VersionNumber fromString: '-1'] raise: TestResult error. self should: [VersionNumber fromString: ' 1'] raise: TestResult error. "notice leading space!!" self should: [VersionNumber fromString: 'version'] raise: TestResult error. self should: [VersionNumber fromString: '1.2.10.20.-1.4'] raise: TestResult error. self should: [VersionNumber fromString: '1.2.10.20.R4'] raise: TestResult error. ! Item was changed: ----- Method: VersionNumberTest>>testInitializeNumbers (in category 'Tests') ----- testInitializeNumbers | numbers | numbers := #(#(1) #(1 2) #(3 4 5) #(6 7 890)). numbers do: [:item | | version | version := VersionNumber new initializeNumbers: item. self assert: (VersionNumber = version class). self assert: (item = version numbers). ]. + self assert: #() equals: (VersionNumber new initializeNumbers: #()) numbers. + self assert: #(9999999999999999999) equals: (VersionNumber new initializeNumbers: #(9999999999999999999)) numbers. - self shouldnt: [VersionNumber new initializeNumbers: #()] raise: TestResult error. - self shouldnt: [VersionNumber new initializeNumbers: #(9999999999999999999)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(0)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(-1)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(1 2 10 20 -1 4)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #(1 2 10 20 '1' 4)] raise: TestResult error. self should: [VersionNumber new initializeNumbers: #('version')] raise: TestResult error. !

1 0

← Newer
1
...
14
15
16
17
18
19
20
...
23
Older →

Jump to page: