- Pharo-dev - lists.pharo.org

Re: [Pharo-project] [Metacello] Re: Issue with gofer/metacello

by Dale Henrichs

Dec. 27, 2009

Re: [Pharo-project] Collection>>select: aBlock ifNoneTakeAsDefault: aDefaultValue

by Nicolas Cellier

2009/12/27 Lukas Renggli <renggli(a)gmail.com>: >> Julian: we (stef and I) have something we don't understand. The >> implementation of ifEmpty: is like this in Pharo: >> >> Collection >> ifEmpty: aBlock >> Â Â Â "Evaluate the block if I'm empty" >> >> Â Â Â self isEmpty ifTrue: [ ^aBlock value ] > > In Pharo 1.0rc1 it looks like this: > > Collection>>ifEmpty: aBlock > Â Â Â Â "Evaluate the block if I'm empty" > > Â Â Â Â ^ self isEmpty ifTrue: aBlock > > Lukas > It sounds stupid to return nil if not empty. Should the change in 1.1 be backported ? Nicolas > -- > Lukas Renggli > http://www.lukas-renggli.ch > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Dec. 27, 2009

Re: [Pharo-project] moose collection extensions

by Adrian Kuhn

StÃ©phane Ducasse <stephane.ducasse@...> writes: > here are the collection extensions we use in Moose. I copied them to > PharoTaskForces so that we can discuss and tweak the code if wanted. Just missed #collectAsSet: and #groupedBy: yesterday :) Given that I have written all of these extensions (except #copyEmpty: and #groupedBy: which are provided by VW as far I recall) I am of course baised, but also pleased to see them being used and possibly included in Pharo. There is also a #trasitiveClosure: extensions, which was ported by Oscar already, see http://www.squeaksource.com/CodePhoo but with different semantics than in the original Codefoo. An (incomplete) documentation of Codefoo can be found here http://scg.unibe.ch/staff/adriankuhn/codefoo NB: #shuffle: does not produce all permutations with the same likelihood! It should be changed. I can provide the correct implementation. Also then, #shuffle: times should be removed. That is nonsense, a broken shuffle does no get better the longer you shuffle :) cheers, AA

Dec. 27, 2009

Re: [Pharo-project] Issue with gofer/metacello

by Ramiro Diaz Trepat

I get problems trying to load Seaside30 using [Gofer new squeaksource: 'Seaside30'; package: 'LoadOrderTests'; load] valueSupplyingAnswers: { {'Load Seaside'. true}. {'SqueakSource User Name'. ''}. {'SqueakSource Password'. ''}. {'Run tests'. false}}. The problems seem to be related to _ used in some tests instead of := For the same reason I seem to be unable to load Magma now. Is there a script to migrate underscore assignment to := ? Cheers On Sun, Dec 27, 2009 at 5:35 PM, Tudor Girba <tudor.girba(a)gmail.com> wrote: > Hi, > > The problem is that Metacello is not quite working with the latest > Gofer. > > Cheers, > Doru > > > On 27 Dec 2009, at 17:39, Alexandre Bergel wrote: > > > Hi Lukas, > > > > In a fresh 10502 I evaluated: > > -=-=-=-=-=-=-=-=-= > > [ Gofer gofer load ] > > on: Error > > do: [ :err | err retry ]. > > Gofer gofer recompile. > > Gofer new > > squeaksource: 'Mondrian'; > > addPackage: 'ConfigurationOfMondrian'; > > load. > > (Smalltalk at: #ConfigurationOfMondrian) perform: #loadLastStable. > > -=-=-=-=-=-=-=-=-= > > > > I have the same error. > > The error comes from: > > > > -=-=-=-=-=-=-=-=-= > > MetacelloMCProject>>updateProject > > "load the latest version of the configuration package" > > > > | mcLoader | > > (mcLoader := self loader) == nil > > ifTrue: [ mcLoader := self project > loaderClass on: nil ]. > > mcLoader doingLoads: [ > > | gofer | > > gofer := Gofer new. > > MCWorkingCopy > > managersForClass: self configuration class > > do: [:mgr | > > gofer add: (GoferPackageReference name: mgr > packageName > > repository: mgr repositoryGroup) versionReference. > > Transcript cr; show: 'Loading -> ', mgr > packageName, ' <-' ]. > > gofer load ]. > > ^true > > -=-=-=-=-=-=-=-=-= > > > > Cheers, > > Alexandre > > > > On 27 Dec 2009, at 17:27, Lukas Renggli wrote: > > > >>> After proceeding these warnings, I have a rollback: MNU > >>> GoferPackageReference class>>name:repository: > >> > >> Can you evaluate > >> > >> [ Gofer gofer load ] > >> on: Error > >> do: [ :err | err retry ]. > >> Gofer gofer recompile. > >> > >> ? I don't have any senders of #name:repository: to > >> GoferPackageReference. > >> > >> Lukas > >> > >> -- > >> Lukas Renggli > >> http://www.lukas-renggli.ch > >> > >> _______________________________________________ > >> Pharo-project mailing list > >> Pharo-project(a)lists.gforge.inria.fr > >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project > >> > > > > -- > > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > > Alexandre Bergel http://www.bergel.eu > > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > > > > > > > > > > _______________________________________________ > > Pharo-project mailing list > > Pharo-project(a)lists.gforge.inria.fr > > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project > > -- > www.tudorgirba.com > > "From an abstract enough point of view, any two things are similar." > > > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Dec. 27, 2009

[Pharo-project] [update 1.1] #11118

by StÃ©phane Ducasse

11118 ----- - Issue 1701: ArchiveViewer now works on Pharo - Issue 1679: InputEventSensor refers to defunct class InputSensor - Issue 1703: Closing last windows raise error - Issue 1698: Enhancement: trunk #collect:as: is a must

Dec. 27, 2009

Re: [Pharo-project] Collection>>select: aBlock ifNoneTakeAsDefault: aDefaultValue

by Lukas Renggli

> Julian: we (stef and I) have something we don't understand. The > implementation of ifEmpty: is like this in Pharo: > > Collection >> ifEmpty: aBlock > Â Â Â "Evaluate the block if I'm empty" > > Â Â Â self isEmpty ifTrue: [ ^aBlock value ] In Pharo 1.0rc1 it looks like this: Collection>>ifEmpty: aBlock "Evaluate the block if I'm empty" ^ self isEmpty ifTrue: aBlock Lukas -- Lukas Renggli http://www.lukas-renggli.ch

Dec. 27, 2009

Re: [Pharo-project] moose collection extensions

by csrabak＠bol.com.br

I find a lot of them awesome. However I would like to point out that in order these additions to make a difference they'll need to be spread the information as early as we can, so even in PBE we need to have a corner to address these "extensions/additions", otherwise they'll become curiosity for a lot of Pharoers. . . my 0.0199999... -- Cesar Rabak Em 27/12/2009 14:26, StÃ©phane Ducasse < stephane.ducasse(a)inria.fr > escreveu: hi here are the collection extensions we use in Moose. I copied them to PharoTaskForces so that we can discuss and tweak the code if wanted. My favorite is flatCollect:/flatCollectAsSet: groupedBy: There are really useful. Stef [snipped]

Dec. 27, 2009

Re: [Pharo-project] Issue with gofer/metacello

by Tudor Girba

Hi, The problem is that Metacello is not quite working with the latest Gofer. Cheers, Doru On 27 Dec 2009, at 17:39, Alexandre Bergel wrote: > Hi Lukas, > > In a fresh 10502 I evaluated: > -=-=-=-=-=-=-=-=-= > [ Gofer gofer load ] > on: Error > do: [ :err | err retry ]. > Gofer gofer recompile. > Gofer new > squeaksource: 'Mondrian'; > addPackage: 'ConfigurationOfMondrian'; > load. > (Smalltalk at: #ConfigurationOfMondrian) perform: #loadLastStable. > -=-=-=-=-=-=-=-=-= > > I have the same error. > The error comes from: > > -=-=-=-=-=-=-=-=-= > MetacelloMCProject>>updateProject > "load the latest version of the configuration package" > > | mcLoader | > (mcLoader := self loader) == nil > ifTrue: [ mcLoader := self project loaderClass on: nil ]. > mcLoader doingLoads: [ > | gofer | > gofer := Gofer new. > MCWorkingCopy > managersForClass: self configuration class > do: [:mgr | > gofer add: (GoferPackageReference name: mgr packageName > repository: mgr repositoryGroup) versionReference. > Transcript cr; show: 'Loading -> ', mgr packageName, ' <-' ]. > gofer load ]. > ^true > -=-=-=-=-=-=-=-=-= > > Cheers, > Alexandre > > On 27 Dec 2009, at 17:27, Lukas Renggli wrote: > >>> After proceeding these warnings, I have a rollback: MNU >>> GoferPackageReference class>>name:repository: >> >> Can you evaluate >> >> [ Gofer gofer load ] >> on: Error >> do: [ :err | err retry ]. >> Gofer gofer recompile. >> >> ? I don't have any senders of #name:repository: to >> GoferPackageReference. >> >> Lukas >> >> -- >> Lukas Renggli >> http://www.lukas-renggli.ch >> >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >> > > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project -- www.tudorgirba.com "From an abstract enough point of view, any two things are similar."

Dec. 27, 2009

Re: [Pharo-project] moose collection extensions

by StÃ©phane Ducasse

take a deep breath :) lol This is for tests :) In moose we will up with ugly expression ;D Stef On Dec 27, 2009, at 5:29 PM, Lukas Renggli wrote: > Iiik, that uses > > [ :each ] = [ :each | each ] > > everywhere. > > Lukas > > 2009/12/27 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: >> hi >> >> here are the collection extensions we use in Moose. >> I copied them to PharoTaskForces so that we can discuss and tweak the code if wanted. >> >> My favorite is >> flatCollect:/flatCollectAsSet: >> groupedBy: >> >> There are really useful. >> >> Stef >> >> >> testFlatCollectArray >> "self debug: #testFlatCollectArray" >> >> self assert: ((#((1 2) (3 4) (5 3)) flatCollect: [ :each ]) = #(1 2 3 4 5 3)). >> self assert: ((#((1 2) (2 3) (1 3 4)) flatCollect: [:each]) = #(1 2 2 3 1 3 4)). >> >> self assert: ((#((1 2) (2 3) () ()) flatCollect: [:each]) = #(1 2 2 3)). >> >> self assert: ((#((1 2) (2 3) (1 3 4)) flatCollect: [:each| Array with: each]) >> = #(#(1 2) #(2 3) #(1 3 4))). >> >> self assert: ((#((1 2) (2 3) (1 3 4)) flatCollect: [:each| Set with: each]) >> = #(#(1 2) #(2 3) #(1 3 4))). >> >> >> testFlatCollectSet >> "self debug: #testFlatCollectSet" >> >> self assert: ((#((1 2) (1 2) (1 3 4)) asSet flatCollect: [:each]) = #(1 1 2 3 4) asSet). >> self assert: ((#() asSet flatCollect: [:each]) = #() asSet). >> >> self assert: ((#((1 2) () (1 3 4)) asSet flatCollect: [:each]) = #(1 1 2 3 4) asSet). >> self assert: ((#((1 2) #((99)) (1 3 4)) asSet flatCollect: [:each]) >> = #(1 1 2 3 4 (99)) asSet). >> self assert: ((#((1 2) #(()) (1 3 4)) asSet flatCollect: [:each]) >> = #(1 1 2 3 4 ()) asSet). >> >> testCollectAsSet >> "self debug: #testCollectAsSet" >> >> self assert: ((#() collectAsSet: [:each | each odd]) = Set new). >> self assert: (#(1 2 3 4 5 6) collectAsSet: [:each | each odd]) >> = (Set with: true with: false). >> self assert: (#(1 3 5 7 9 11) collectAsSet: [:each | each odd]) >> = (Set with: true). >> >> self assert: (#(1 2 3 4 5 4 3 2 1) collectAsSet: [:each | each]) = (1 to: 5) asSet. >> >> >> testGroupedByArray >> "self debug: #testGroupedByArray" >> >> | res | >> res := #(1 2 3 4 5) groupedBy: [:each | each odd]. >> self assert: (res at: true) = #(1 3 5). >> self assert: (res at: false) = #(2 4) >> >> >> >> Set>>flatCollect: aBlock >> >> >> ^self flatCollectAsSet: aBlock >> >> >> Symbol>>value >> "Allow this object to act as a ValueHolder on itself." >> >> ^self >> >> OrderedCollection>>removeAtIndex: anIndex >> "Remove the element of the collection at position anIndex. Answer the object removed." >> >> | obj | >> obj := self at: anIndex. >> self removeIndex: anIndex + firstIndex - 1. >> ^obj >> >> Collection >> ============================== >> >> collectAsSet: aBlock >> "Evaluates aBlock for each element of the receiver and collects >> the resulting values into a Set." >> >> "This is an efficient shorthand for [ (self collect: aBlock) asSet ]." >> "originally developed by a. kuhn and released under MIT." >> >> ^self inject: Set new into: [ :set :each | >> set add: (aBlock value: each); yourself ]. >> >> >> copyEmpty: aSize >> "Answer a copy of the receiver that contains no elements. >> >> This method should be redefined in subclasses that add >> instance variables, so that the state of those variables >> is preserved" >> >> ^self class new: aSize >> >> >> flatCollect: aBlock >> "Evaluate aBlock for each of the receiver's elements and answer the >> list of all resulting values flatten one level. Assumes that aBlock returns some kind >> of collection for each element. Equivalent to the lisp's mapcan" >> "original written by a. Kuhn and released under MIT" >> >> | stream | >> self isEmpty ifTrue: [ ^ self copy ]. >> stream := (self species new: 0) nsWriteStream. >> self do: [ :each | stream nextPutAll: (aBlock value: each) ]. >> ^ stream contents >> >> flatCollectAsSet: aBlock >> "Evaluate aBlock for each of the receiver's elements and answer the >> list of all resulting values flatten one level. Assumes that aBlock returns some kind >> of collection for each element. Equivalent to the lisp's mapcan" >> >> "original written by a. Kuhn and released under MIT" >> >> | set | >> self isEmpty ifTrue: [^self copy ]. >> set := Set new. >> self do: [ :each | >> set addAll: (aBlock value: each) ]. >> ^set >> >> >> flatten >> "Recursively collect each non-collection element of the receiver and its descendant >> collections. Please note, this implementation assumes that strings are to be treated >> as objects rather than as collection." >> >> ^self gather: [ :each ] >> >> groupedBy: aBlock >> "Return a dictionary whose keys are the result of evaluating aBlock for all elements in >> the collection, and the value for each key is the collection of elements that evaluated >> to that key. e.g. >> #(1 2 3 4 5) groupedBy: [:each | each odd] >> a Dictionary >> true ---> #( 1 3 5) >> false --> #(2 4) >> originally developed by a. kuhn and released under MIT." >> >> | result | >> result := Dictionary new. >> self do: >> [:each | | key collection | >> key := aBlock value: each. >> collection := result at: key ifAbsentPut: [OrderedCollection new]. >> collection add: each]. >> self species ~~ OrderedCollection ifTrue: >> ["Convert the result collections to be the right type. >> Note that it should be safe to modify the dictionary >> while iterating because we only replace values for existing keys" >> result keysAndValuesDo: >> [:key :value | result at: key put: (self species withAll: value)]]. >> >> ^result >> >> includesAll: aCollection >> "Answer true if the receiver includes all elements of aCollection with at >> least as many occurrences as in aCollection. For a less strict comparison >> please refer to supersetOf: and its inverse subsetOf:." >> >> >> ^(aCollection isCollection) and: [ >> aCollection size <= self size and: [ >> aCollection allSatisfy: [ :each | >> (aCollection occurrencesOf: each) <= (self occurrencesOf: each) ]]] >> >> nilSafeGroupedBy: aBlock >> ^ self groupedBy: [ :each | >> | value | >> value := aBlock value: each. >> value ifNil: [ UndefinedObject ]. >> ] >> >> selectAsSet: aBlock >> "Evaluate aBlock with each of the receiver's elements as the argument. >> Collect into a new set, only those elements for which >> aBlock evaluates to true. Answer the new collection." >> >> | newSet | >> newSet := Set new. >> self do: [:each | (aBlock value: each) ifTrue: [newSet add: each]]. >> ^newSet >> >> shuffle >> "Swaps the receiver's elements at random." >> >> self shuffle: (self size * self size log) asInteger >> >> sum: aSymbolOrBlock >> >> ^self >> inject: 0 >> into: [:sum :each | sum + (aSymbolOrBlock value: each)] >> >> shuffle: times >> "Swaps random elements of the receiver." >> >> | size random | >> size := self size. >> random := Random new. >> times timesRepeat: [ >> self swap: (random next * size) floor + 1 with: (random next * size) floor + 1 >> ]. >> >> >> >> >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >> > > > > -- > Lukas Renggli > http://www.lukas-renggli.ch > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Dec. 27, 2009

Re: [Pharo-project] [update 1.1] #11117

by StÃ©phane Ducasse

Wait because mike just told me that 1700 was premature so I'm checking with him if I should rollback. Stef > 11117 > ----- > > - Issue 1694: New tests to ProtoObjectTest > - Issue 1695: prune search in MCFilteredVersionSorter > - Issue 1696: Add tests for Week class methods indexOfDay:, nameOfDay: and dayNames. > Thanks mariano :) > > - Issue 1700: Mac menus should be cleaned > HostMenus... initialize > - Issue 1701: Don t fork the menu event handler > Mike I merged your fixes because there were some Preferences left. > Now let us know if this is also for 1.0 > > Stef > > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Dec. 27, 2009