October 2011 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] Getting and loading each version of a package? (Gofer?)

by Lukas Renggli

Way easier is to ask the Gofer instance setup with repositories for #allReferences. You then get objects with each reachable version, and can access things like version number, package name, branch name, author name, ... using the accessors. To load the version you simply call #load. Lukas On 6 October 2011 15:28, Schwab,Wilhelm K <bschwab(a)anest.ufl.edu> wrote: > Mariano, > > Below is something that was getting yanked from or with ScriptLoader, so I included it in Migrate. Â The enumerating of versions could be of interest to you. > > Bill > > > loadLatestPackage: aString fromRepository: aRepository > Â Â Â Â "1-10 - too useful to be without really, I created another. Â Shamelessly > Â Â Â Â stolen from ScriptLoader." > > Â Â Â Â | versionsBlock versions tries version | > > Â Â Â Â versionsBlock := [ (aRepository allVersionNames select: [ :each | > Â Â Â Â Â Â Â Â each beginsWith: aString ]) > Â Â Â Â Â Â Â Â asSortedCollection: [ :a :b | > Â Â Â Â Â Â Â Â Â Â Â Â (a copyAfterLast: $.) asNumber <= (b copyAfterLast: $.) asNumber]]. > Â Â Â Â versions := versionsBlock value. > Â Â Â Â tries := 0. > Â Â Â Â [ versions isEmpty and: [ tries < 3 ] ] whileTrue: [ > Â Â Â Â Â Â Â Â versions := versionsBlock value. > Â Â Â Â Â Â Â Â tries := tries + 1 ]. > Â Â Â Â versions isEmpty ifTrue: [ self error: 'problems when accessing repository' ]. > > Â Â Â Â aRepository versionReaderForFileNamed: (versions last , '.mcz') do: [:reader | > Â Â Â Â Â Â Â Â version := reader version. > Â Â Â Â Â Â Â Â version load. > Â Â Â Â Â Â Â Â version workingCopy repositoryGroup addRepository: aRepository]. > > > ________________________________________ > From: pharo-project-bounces(a)lists.gforge.inria.fr [pharo-project-bounces(a)lists.gforge.inria.fr] On Behalf Of Mariano Martinez Peck [marianopeck(a)gmail.com] > Sent: Thursday, October 06, 2011 9:23 AM > To: Pharo-project(a)lists.gforge.inria.fr > Subject: Re: [Pharo-project] Getting and loading each version of a package? Â Â (Gofer?) > > I need help with only one thing....get the list of version of a package. I can manage the rest... > So I would like tp get all the versions of the package Fuel of the squeaksource Fuel repo... > > thanks in advance, > > > On Thu, Oct 6, 2011 at 11:51 AM, Mariano Martinez Peck <marianopeck(a)gmail.com<mailto:marianopeck@gmail.com>> wrote: > > > On Thu, Oct 6, 2011 at 11:50 AM, HwaJong Oh <daliot.oh(a)gmail.com<mailto:daliot.oh@gmail.com>> wrote: > Mariano, > > For metacello or monticello? > > Monticello. > > > > HwaJong Oh > > -- > View this message in context: http://forum.world.st/Getting-and-loading-each-version-of-a-package-Gofer-t… > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. > > > > > -- > Mariano > http://marianopeck.wordpress.com > > > > > -- > Mariano > http://marianopeck.wordpress.com > > > -- Lukas Renggli www.lukas-renggli.ch

Oct. 6, 2011

Re: [Pharo-project] Getting and loading each version of a package? (Gofer?)

by Schwab,Wilhelm K

Mariano, Below is something that was getting yanked from or with ScriptLoader, so I included it in Migrate. The enumerating of versions could be of interest to you. Bill loadLatestPackage: aString fromRepository: aRepository "1-10 - too useful to be without really, I created another. Shamelessly stolen from ScriptLoader." | versionsBlock versions tries version | versionsBlock := [ (aRepository allVersionNames select: [ :each | each beginsWith: aString ]) asSortedCollection: [ :a :b | (a copyAfterLast: $.) asNumber <= (b copyAfterLast: $.) asNumber]]. versions := versionsBlock value. tries := 0. [ versions isEmpty and: [ tries < 3 ] ] whileTrue: [ versions := versionsBlock value. tries := tries + 1 ]. versions isEmpty ifTrue: [ self error: 'problems when accessing repository' ]. aRepository versionReaderForFileNamed: (versions last , '.mcz') do: [:reader | version := reader version. version load. version workingCopy repositoryGroup addRepository: aRepository]. ________________________________________ From: pharo-project-bounces(a)lists.gforge.inria.fr [pharo-project-bounces(a)lists.gforge.inria.fr] On Behalf Of Mariano Martinez Peck [marianopeck(a)gmail.com] Sent: Thursday, October 06, 2011 9:23 AM To: Pharo-project(a)lists.gforge.inria.fr Subject: Re: [Pharo-project] Getting and loading each version of a package? (Gofer?) I need help with only one thing....get the list of version of a package. I can manage the rest... So I would like tp get all the versions of the package Fuel of the squeaksource Fuel repo... thanks in advance, On Thu, Oct 6, 2011 at 11:51 AM, Mariano Martinez Peck <marianopeck(a)gmail.com<mailto:marianopeck@gmail.com>> wrote: On Thu, Oct 6, 2011 at 11:50 AM, HwaJong Oh <daliot.oh(a)gmail.com<mailto:daliot.oh@gmail.com>> wrote: Mariano, For metacello or monticello? Monticello. HwaJong Oh -- View this message in context: http://forum.world.st/Getting-and-loading-each-version-of-a-package-Gofer-t… Sent from the Pharo Smalltalk mailing list archive at Nabble.com. -- Mariano http://marianopeck.wordpress.com -- Mariano http://marianopeck.wordpress.com

Oct. 6, 2011

Re: [Pharo-project] Getting and loading each version of a package? (Gofer?)

by Mariano Martinez Peck

I need help with only one thing....get the list of version of a package. I can manage the rest... So I would like tp get all the versions of the package Fuel of the squeaksource Fuel repo... thanks in advance, On Thu, Oct 6, 2011 at 11:51 AM, Mariano Martinez Peck < marianopeck(a)gmail.com> wrote: > > > On Thu, Oct 6, 2011 at 11:50 AM, HwaJong Oh <daliot.oh(a)gmail.com> wrote: > >> Mariano, >> >> For metacello or monticello? >> > > Monticello. > > > >> >> HwaJong Oh >> >> -- >> View this message in context: >> http://forum.world.st/Getting-and-loading-each-version-of-a-package-Gofer-t… >> Sent from the Pharo Smalltalk mailing list archive at Nabble.com. >> >> > > > -- > Mariano > http://marianopeck.wordpress.com > > -- Mariano http://marianopeck.wordpress.com

Oct. 6, 2011

[Pharo-project] Renaming "Announcement" into "Event"?

by Alexandre Bergel

Hi! What about moving our rebelness and energy into innovation rather than giving strange name? :-) Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Oct. 6, 2011

Re: [Pharo-project] One Liners to Impress Your Friends

by Marcus Denker

On Oct 6, 2011, at 2:42 PM, Sven Van Caekenberghe wrote: > I didn't see that post, but he's implementing the same examples ;-) > > I think it would be cool to come up with a nice list and put that on the Pharo website. > Yes! And we need to fix "--- 9. Parallel Processing ---" ;-) Marcus -- Marcus Denker -- http://marcusdenker.de

Oct. 6, 2011

Re: [Pharo-project] One Liners to Impress Your Friends

by Sven Van Caekenberghe

I didn't see that post, but he's implementing the same examples ;-) I think it would be cool to come up with a nice list and put that on the Pharo website. On 06 Oct 2011, at 14:28, Noury Bouraqadi wrote: > I like the idea. > > Note that Davide Varvello did a post on his blog about Smalltalk one liners last june. > http://varvello.blogspot.com/2011/06/test.html > > Noury > -- > http://twitter.com/#!/NouryBouraqadi > > > On 6 oct. 2011, at 11:59, Sven Van Caekenberghe wrote: > >> After reading these two post >> >> 10 CoffeeScript One Liners to Impress Your Friends >> >> http://ricardo.cc/2011/06/02/10-CoffeeScript-One-Liners-to-Impress-Your-Fri… >> >> 10 Scala One Liners to Impress Your Friends >> >> http://solog.co/scala/10-scala-one-liners-to-impress-your-friends.html >> >> I could not help but think why people get so excited about new languages while Smalltalk can and has been doing this for decades. So here are Smalltalk versions of their code (not that the examples are all that impressive): >> >> "--- 1. Multiple Each Item in a List by 2 ---" >> >> (1 to: 10) collect: [ :each | each * 2 ] >> >> "--- 2. Sum a List of Numbers ---" >> >> (1 to: 1000) inject: 0 into: [ :sum :each | sum + each ] >> >> (1 to: 1000) fold: [ :x :y | x + y ] >> >> (1 to: 1000) reduce: [ :x :y | x + y ] >> >> (1 to: 1000) sum >> >> "--- 3. Verify if Exists in a String ---" >> >> | wordList tweet | >> wordList := #( 'Smalltalk' 'Object-Oriented' 'REST' 'TDD' 'Play Framework' ). >> tweet := 'This is an example tweet talking about Smalltalk and TDD'. >> wordList anySatisfy: [ :each | tweet includesSubString: each ] >> >> "--- 4. Read in a File ---" >> >> (FileStream fileNamed: 'data.txt') contentsOfEntireFile >> >> "--- 5. Happy Birthday ---" >> >> 1 to: 4 do: [ :each | Transcript crShow: 'Happy Birthday ', (each = 3 ifTrue: [ 'dear Mr. President' ] ifFalse: [ 'to You' ]) ] >> >> "--- 6. Filter list of numbers ---" >> >> | passed failed | >> passed := OrderedCollection new. >> failed := OrderedCollection new. >> #(49 58 76 82 88 90) do: [ :each | (each > 60 ifTrue: [ passed ] ifFalse: [ failed ] ) add: each ]. >> { passed. failed } >> >> #(49 58 76 82 88 90) groupedBy: [ :each | each > 60 ] >> >> "--- 7. Fetch and Parse an XML or JSON web service ---" >> >> XMLDOMParser parse: (ZnNeoClient new get: 'http://search.twitter.com/search.atom?&q=pharoproject') >> >> JSJsonParser parse: (ZnNeoClient new get: 'http://search.twitter.com/search.json?&q=pharoproject') >> >> "--- 8. Find minimum (or maximum) in a List ---" >> >> #(14 35 -7 46 98) fold: [ :x :y | x min: y ] >> >> #(14 35 -7 46 98) min >> >> #(14 35 -7 46 98) fold: [ :x :y | x max: y ] >> >> #(14 35 -7 46 98) max >> >> "--- 9. Parallel Processing ---" >> >> "No such standard support, but multithreading is of course available" >> >> "--- 10. Sieve of Eratosthenes ---" >> >> "Unreadable code is not a good idea, this is longer but readable" >> >> | primes | >> primes := Array new: 100 withAll: true. >> primes at: 1 put: false. >> 2 to: primes size sqrt ceiling do: [ :each | >> (primes at: each) ifTrue: [ >> each * 2 to: primes size by: each do: [ :eachMultiple | >> primes at: eachMultiple put: false ] ] ]. >> OrderedCollection streamContents: [ :stream | >> primes doWithIndex: [ :each :index | >> each ifTrue: [ stream nextPut: index ] ] ] >> >> >> Maybe we could turn this into a blog post after some discussion ? >> >> To really show off Smalltalk, we might need a couple more impressive examples. >> >> Sven >> >> > > > >

Oct. 6, 2011

Re: [Pharo-project] One Liners to Impress Your Friends

by Noury Bouraqadi

I like the idea. Note that Davide Varvello did a post on his blog about Smalltalk one liners last june. http://varvello.blogspot.com/2011/06/test.html Noury -- http://twitter.com/#!/NouryBouraqadi On 6 oct. 2011, at 11:59, Sven Van Caekenberghe wrote: > After reading these two post > > 10 CoffeeScript One Liners to Impress Your Friends > > http://ricardo.cc/2011/06/02/10-CoffeeScript-One-Liners-to-Impress-Your-Fri… > > 10 Scala One Liners to Impress Your Friends > > http://solog.co/scala/10-scala-one-liners-to-impress-your-friends.html > > I could not help but think why people get so excited about new languages while Smalltalk can and has been doing this for decades. So here are Smalltalk versions of their code (not that the examples are all that impressive): > > "--- 1. Multiple Each Item in a List by 2 ---" > > (1 to: 10) collect: [ :each | each * 2 ] > > "--- 2. Sum a List of Numbers ---" > > (1 to: 1000) inject: 0 into: [ :sum :each | sum + each ] > > (1 to: 1000) fold: [ :x :y | x + y ] > > (1 to: 1000) reduce: [ :x :y | x + y ] > > (1 to: 1000) sum > > "--- 3. Verify if Exists in a String ---" > > | wordList tweet | > wordList := #( 'Smalltalk' 'Object-Oriented' 'REST' 'TDD' 'Play Framework' ). > tweet := 'This is an example tweet talking about Smalltalk and TDD'. > wordList anySatisfy: [ :each | tweet includesSubString: each ] > > "--- 4. Read in a File ---" > > (FileStream fileNamed: 'data.txt') contentsOfEntireFile > > "--- 5. Happy Birthday ---" > > 1 to: 4 do: [ :each | Transcript crShow: 'Happy Birthday ', (each = 3 ifTrue: [ 'dear Mr. President' ] ifFalse: [ 'to You' ]) ] > > "--- 6. Filter list of numbers ---" > > | passed failed | > passed := OrderedCollection new. > failed := OrderedCollection new. > #(49 58 76 82 88 90) do: [ :each | (each > 60 ifTrue: [ passed ] ifFalse: [ failed ] ) add: each ]. > { passed. failed } > > #(49 58 76 82 88 90) groupedBy: [ :each | each > 60 ] > > "--- 7. Fetch and Parse an XML or JSON web service ---" > > XMLDOMParser parse: (ZnNeoClient new get: 'http://search.twitter.com/search.atom?&q=pharoproject') > > JSJsonParser parse: (ZnNeoClient new get: 'http://search.twitter.com/search.json?&q=pharoproject') > > "--- 8. Find minimum (or maximum) in a List ---" > > #(14 35 -7 46 98) fold: [ :x :y | x min: y ] > > #(14 35 -7 46 98) min > > #(14 35 -7 46 98) fold: [ :x :y | x max: y ] > > #(14 35 -7 46 98) max > > "--- 9. Parallel Processing ---" > > "No such standard support, but multithreading is of course available" > > "--- 10. Sieve of Eratosthenes ---" > > "Unreadable code is not a good idea, this is longer but readable" > > | primes | > primes := Array new: 100 withAll: true. > primes at: 1 put: false. > 2 to: primes size sqrt ceiling do: [ :each | > (primes at: each) ifTrue: [ > each * 2 to: primes size by: each do: [ :eachMultiple | > primes at: eachMultiple put: false ] ] ]. > OrderedCollection streamContents: [ :stream | > primes doWithIndex: [ :each :index | > each ifTrue: [ stream nextPut: index ] ] ] > > > Maybe we could turn this into a blog post after some discussion ? > > To really show off Smalltalk, we might need a couple more impressive examples. > > Sven > >

Oct. 6, 2011

[Pharo-project] One Liners to Impress Your Friends

by Sven Van Caekenberghe

After reading these two post 10 CoffeeScript One Liners to Impress Your Friends http://ricardo.cc/2011/06/02/10-CoffeeScript-One-Liners-to-Impress-Your-Fri… 10 Scala One Liners to Impress Your Friends http://solog.co/scala/10-scala-one-liners-to-impress-your-friends.html I could not help but think why people get so excited about new languages while Smalltalk can and has been doing this for decades. So here are Smalltalk versions of their code (not that the examples are all that impressive): "--- 1. Multiple Each Item in a List by 2 ---" (1 to: 10) collect: [ :each | each * 2 ] "--- 2. Sum a List of Numbers ---" (1 to: 1000) inject: 0 into: [ :sum :each | sum + each ] (1 to: 1000) fold: [ :x :y | x + y ] (1 to: 1000) reduce: [ :x :y | x + y ] (1 to: 1000) sum "--- 3. Verify if Exists in a String ---" | wordList tweet | wordList := #( 'Smalltalk' 'Object-Oriented' 'REST' 'TDD' 'Play Framework' ). tweet := 'This is an example tweet talking about Smalltalk and TDD'. wordList anySatisfy: [ :each | tweet includesSubString: each ] "--- 4. Read in a File ---" (FileStream fileNamed: 'data.txt') contentsOfEntireFile "--- 5. Happy Birthday ---" 1 to: 4 do: [ :each | Transcript crShow: 'Happy Birthday ', (each = 3 ifTrue: [ 'dear Mr. President' ] ifFalse: [ 'to You' ]) ] "--- 6. Filter list of numbers ---" | passed failed | passed := OrderedCollection new. failed := OrderedCollection new. #(49 58 76 82 88 90) do: [ :each | (each > 60 ifTrue: [ passed ] ifFalse: [ failed ] ) add: each ]. { passed. failed } #(49 58 76 82 88 90) groupedBy: [ :each | each > 60 ] "--- 7. Fetch and Parse an XML or JSON web service ---" XMLDOMParser parse: (ZnNeoClient new get: 'http://search.twitter.com/search.atom?&q=pharoproject') JSJsonParser parse: (ZnNeoClient new get: 'http://search.twitter.com/search.json?&q=pharoproject') "--- 8. Find minimum (or maximum) in a List ---" #(14 35 -7 46 98) fold: [ :x :y | x min: y ] #(14 35 -7 46 98) min #(14 35 -7 46 98) fold: [ :x :y | x max: y ] #(14 35 -7 46 98) max "--- 9. Parallel Processing ---" "No such standard support, but multithreading is of course available" "--- 10. Sieve of Eratosthenes ---" "Unreadable code is not a good idea, this is longer but readable" | primes | primes := Array new: 100 withAll: true. primes at: 1 put: false. 2 to: primes size sqrt ceiling do: [ :each | (primes at: each) ifTrue: [ each * 2 to: primes size by: each do: [ :eachMultiple | primes at: eachMultiple put: false ] ] ]. OrderedCollection streamContents: [ :stream | primes doWithIndex: [ :each :index | each ifTrue: [ stream nextPut: index ] ] ] Maybe we could turn this into a blog post after some discussion ? To really show off Smalltalk, we might need a couple more impressive examples. Sven

Oct. 6, 2011

Re: [Pharo-project] Getting and loading each version of a package? (Gofer?)

by Mariano Martinez Peck

On Thu, Oct 6, 2011 at 11:50 AM, HwaJong Oh <daliot.oh(a)gmail.com> wrote: > Mariano, > > For metacello or monticello? > Monticello. > > HwaJong Oh > > -- > View this message in context: > http://forum.world.st/Getting-and-loading-each-version-of-a-package-Gofer-t… > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. > > -- Mariano http://marianopeck.wordpress.com

Oct. 6, 2011

Re: [Pharo-project] Getting and loading each version of a package? (Gofer?)

by HwaJong Oh

Mariano, For metacello or monticello? HwaJong Oh -- View this message in context: http://forum.world.st/Getting-and-loading-each-version-of-a-package-Gofer-t… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

Oct. 6, 2011