January 2012 - Pharo-users - lists.pharo.org

Re: [Pharo-users] Hosting a two days conference on Pharo

by Hilaire Fernandes

Le 10/01/2012 20:38, StÃ©phane Ducasse a Ã©crit : > Hi guys > > I would like to organize a two days event around pharo in May @ lille. > We could get it over a friday and saturday so that people can join on their free time. > > What do you think? > > Possible dates are: > 11-12 (best dates for us). > 25-26 26-27-28 May are days off in several countries in Europe. Hilaire -- Dr. Geo -- http://www.drgeo.eu

Jan. 11, 2012

[COTDC] 103 - ZLibWriteStream

by sean＠clipperadams.com

102 classes done 794 classes remaining Continuing in Compression... Today: ZLibWriteStream Comment Of The Day Contest - One Day One Comment Rules: #1: Each day a not commented class is elected. Each day the best comment will be integrated with name of the author(s). #2: If you cannot comment it, deprecate it. Results: http://code.google.com/p/pharo/wiki/CommentOfTheDayContest p.s. this message was sent from a pharo image. Did you know you could easily do that?!

Jan. 10, 2012

Re: [Pharo-users] Hosting a two days conference on Pharo

by Benjamin

I'm in ;) Ben On Jan 10, 2012, at 8:38 PM, StÃ©phane Ducasse wrote: > Hi guys > > I would like to organize a two days event around pharo in May @ lille. > We could get it over a friday and saturday so that people can join on their free time. > > What do you think? > > Possible dates are: > 11-12 (best dates for us). > 25-26 > > Stef

Jan. 10, 2012

Hosting a two days conference on Pharo

by StÃ©phane Ducasse

Hi guys I would like to organize a two days event around pharo in May @ lille. We could get it over a friday and saturday so that people can join on their free time. What do you think? Possible dates are: 11-12 (best dates for us). 25-26 Stef

Jan. 10, 2012

Re: [Pharo-users] another confusing result

by Larry White

Thanks. I wonder if this method needs to stay the same for compatibility reasons or if it could be modified in Pharo to produce a less surprising result. In other words, is this a bug or a feature? On Mon, Jan 9, 2012 at 1:41 PM, Runar Jordahl <runar.jordahl(a)gmail.com>wrote: > Here is a copy of something I wrote about this earlier: > > In Pharo 1.3, SequenceableCollection>>combinations:atATimeDo: will, > for all combinations, send the same collection instance as argument > for the block. Therefore, if you use this collection itself, you will > be surprised: > > |answer| > answer := OrderedCollection new. > #(a b c) combinations: 2 atATimeDo: [:each | answer add: each]. > answer > > Here I expect to end up with a collection looking like this: > 1: #(#a #b) > 2: #(#a #c) > 3: #(#b #c) > > But I end up with: > 1: #(#c #c) > 2: #(#c #c) > 3: #(#c #c) > > One fix is to change the client code to copy the argument for the block: > |answer| > answer := OrderedCollection new. > #(a b c) combinations: 2 atATimeDo: [:each | answer add: each copy]. > answer > > Another solution is enhancing > SequenceableCollection>>combinationsAt:in:after:do: to copy the > collection: > nn + 1 to: self size do: [ :index | > aCollection at: jj put: (self at: index). > jj = aCollection size > ifTrue: [ aBlock value: aCollection copy ] > ifFalse: [ > self > combinationsAt: jj + 1 > in: aCollection > after: index > do: aBlock ] ] > > > > Kind regards > Runar Jordahl > >

Jan. 9, 2012

Re: [Pharo-users] another confusing result

by Runar Jordahl

Here is a copy of something I wrote about this earlier: In Pharo 1.3, SequenceableCollection>>combinations:atATimeDo: will, for all combinations, send the same collection instance as argument for the block. Therefore, if you use this collection itself, you will be surprised: |answer| answer := OrderedCollection new. #(a b c) combinations: 2 atATimeDo: [:each | answer add: each]. answer Here I expect to end up with a collection looking like this: 1: #(#a #b) 2: #(#a #c) 3: #(#b #c) But I end up with: 1: #(#c #c) 2: #(#c #c) 3: #(#c #c) One fix is to change the client code to copy the argument for the block: |answer| answer := OrderedCollection new. #(a b c) combinations: 2 atATimeDo: [:each | answer add: each copy]. answer Another solution is enhancing SequenceableCollection>>combinationsAt:in:after:do: to copy the collection: nn + 1 to: self size do: [ :index | aCollection at: jj put: (self at: index). jj = aCollection size ifTrue: [ aBlock value: aCollection copy ] ifFalse: [ self combinationsAt: jj + 1 in: aCollection after: index do: aBlock ] ] Kind regards Runar Jordahl

Jan. 9, 2012

Re: [Pharo-users] strange behavior in workspace

by Larry White

Ok. figured it out. whileTrue: only evaluates at the end of each block so it didn't evaluate. I guess ignorance is not bliss, after all. On Sun, Jan 8, 2012 at 10:05 AM, Larry White <ljw1001(a)gmail.com> wrote: > I'm messing about with Project Euler problems and have noticed some > behavior that I don't understand. This one happens to be very > self-contained so I though I'd as for assistance. > > This code (which doesn't solve the problem, btw) is buggy, but I can't see > the bug and I'm beginning to suspect something in the VM or the class > libraries. When I execute it, two odd things happen: > > First, in spite of the block test [sum < 100] whileTrue:[...] it > continues to run when sum > 100 (or a million for that matter). > > Second, the block in the line: > (sum isPrime) ifTrue: [ (seq size > bestSeq size) ifTrue: [ bestSeq := > seq copy.]] > executes even when sum is not a prime number. > > Any help is appreciated. > ------------------------------- > "Create a list of primes smaller than a million" > primes := OrderedCollection new. > 2 to: 999999 do: [ :n | n isPrime ifTrue: [ primes add: n]]. > > bestSeq := OrderedCollection new. > seq := OrderedCollection new. > sum := 0. > [sum < 100] whileTrue: [ > primes do: [:prime | > seq add: prime. > sum := seq sum. > (sum isPrime) ifTrue: [ (seq size > bestSeq size) ifTrue: [ bestSeq := seq > copy.]] > ] > ]. >

Jan. 8, 2012

[COTDC] 102 - ZLibReadStream

by sean＠clipperadams.com

101 classes done 795 classes remaining Continuing in Compression... Today: ZLibReadStream Comment Of The Day Contest - One Day One Comment Rules: #1: Each day a not commented class is elected. Each day the best comment will be integrated with name of the author(s). #2: If you cannot comment it, deprecate it. Results: http://code.google.com/p/pharo/wiki/CommentOfTheDayContest p.s. this message was sent from a pharo image. Did you know you could easily do that?!

Jan. 8, 2012

compressing multiple files in Pharo

by Larry White

Hi, I'm trying to help a friend with her non-profit website. She needs to be able to bundle files into a single file for easy downloading (and easy unpacking on the client). The files are pre-compressed sound files so further compression isn't really needed or useful. My first attempt used ZipArchive, which seemed to write ok, but I can't decompress it. (I tried to describe that problem in another email.) I'm now trying to compress more than one file to a GZipWriteStream. I copied and modified the code in the compressed method on FileStream to look like this: compressFiles "Write a new file that has the data in files compressed in GZip format." | zipped buffer file dir | dir := self directoryFor: 'hgo' language: 'arabic'. zipped := dir newFileNamed: ('foobar', FileDirectory dot, 'gz'). zipped binary; setFileTypeToObject. zipped := GZipWriteStream on: zipped. dir fileNames do: [:fName | file := FileStream fileNamed: fName. file readOnly; binary. buffer := ByteArray new: 50000. [file atEnd] whileFalse: [ zipped nextPutAll: (file nextInto: buffer)]. file close.]. zipped close. ^zipped It doesn't work. It seems to compress the first file ok, but the others aren't included. Is there a reliable way in Pharo to solve the underlying problem of packing multiple binaries into a single file? thanks much.

Jan. 8, 2012

Re: [Pharo-users] compression example?

by Larry White

Hi HernÃ¡n, Thank you for your help. Although the zips now seem to be getting created properly, I'm running into another problem. When I try to unzip them I get an error that says: "Archive Utility Unable to expand filename.zip into "Resources". (Error 1 - Operation not permitted.) " I'm running on OSX lion. The error persists regardless of what directory I write the archive to. Any ideas? thanks, larry On Thu, Jan 5, 2012 at 9:30 AM, HernÃ¡n Morales Durand < hernan.morales(a)gmail.com> wrote: > | zip fileName myInputDir | > myInputDir := #('Users' 'data' 'files' 'arabic') inject: '' into: > [:path :suffix | path, FileDirectory slash , suffix]. > zip := ZipArchive new. > zip addTree: ( FileDirectory default fullName , myInputDir ) match: [: > e | true ]. > fileName := 'foo.zip'. > zip writeToFileNamed: fileName. > > 2012/1/2 Larry White <ljw1001(a)gmail.com>: > > > > zip := ZipArchive new. > > zipArchive addDirectory: '/Users/data/files/arabic' as: 'arabic'. > > fileName := 'Users/data/downloads/foo.zip'. > > zip writeToFileNamed: fileName. > > > > -- > HernÃ¡n Morales > Information Technology Manager, > Institute of Veterinary Genetics. > National Scientific and Technical Research Council (CONICET). > La Plata (1900), Buenos Aires, Argentina. > Telephone: +54 (0221) 421-1799. > Internal: 422 > Fax: 425-7980 or 421-1799. > >

Jan. 8, 2012