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

[ANN] DBXTalk site and mailing list little news
by Guillermo Polito Jan. 13, 2012

Jan. 13, 2012

The dbxtalk mailing list is now availiable from Nabble :) http://forum.world.st/DBXTalk-f3718169.html Thank you very much Geert!! Also, the site is up again, hehe http://dbxtalk.smallworks.com.ar Thanks Diogenes! xD cheers, the DBXTalk team

1 0

Hosting a two days conference on Pharo
by StÃ©phane Ducasse Jan. 13, 2012

Jan. 13, 2012

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

4 3

compression example?
by Larry White Jan. 13, 2012

Jan. 13, 2012

Hi, I'm trying to read the files in a given directory, add them to a ZipArchive, and write that ZipArchive out to another directory. My code looks like this: zip := ZipArchive new. zipArchive addDirectory: '/Users/data/files/arabic' as: 'arabic'. fileName := 'Users/data/downloads/foo.zip'. zip writeToFileNamed: fileName. I'm getting an archive file with the correct name written out, but I can't access the contents of folder 'arabic'. Do I have to add each of the files in 'arabic' explicitly to the zipArchive? Does anyone know of some example code for this they could point me to? Thanks much and happy new year. Larry

3 4

[ANN] [Release] Neptuno, the DBXBrowser
by Guillermo Polito Jan. 11, 2012

Jan. 11, 2012

Hi! We are glad to announce the first stable release of the DBXBrowser, named Neptuno, the last piece in the DBXTalk tools project sponsored by ESUG. *What is this browser?* It is a Glamour based browser which works as a GUI to work with OpenDBX connections. * How does it look like?* I attach a screenshot with a brief look :) *Which databases does it work with?* It is currently working with OpenDBX connectors for: - mysql - postgresql - oracle - sqlite * How should I download it?* I'd like to link to the site here, but it's currently down (and we are working for your happiness :D ), so: Gofer it squeaksource: 'MetacelloRepository'; package: 'ConfigurationOfDBXBrowser'; load. (((Smalltalk at: #ConfigurationOfDBXTools) perform: #project) perform: #version: with: #stable) load: 'Neptuno' *How should I contact the DBXTalk team for feedback, bug reports, questions, or whatever?* The project's mailing list: dbxtalk(a)googlegroups.com The project's issue tracker: http://code.google.com/p/dbxtalk/issues The (currently down) site, with docs and stuff: http://dbxtalk.smallworks.com.ar/ Thanks! The DBXTalk team

2 1

[COTDC] 104 - ZLibWriteStream
by sean＠clipperadams.com Jan. 11, 2012

Jan. 11, 2012

103 classes done 793 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?!

1 0

[COTDC] 103 - ZLibWriteStream
by sean＠clipperadams.com Jan. 10, 2012

Jan. 10, 2012

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?!

1 0

another confusing result
by Larry White Jan. 9, 2012

Jan. 9, 2012

This may just be me misunderstanding the way it's supposed to work, but I was exploring the method combinations: kk atATimeDo: aBlock defined in SequenceableCollection 'abcde' combinations: 2 atATimeDo: [:each | Transcript cr; show: each printString]. produces the expected result: #($a $b) #($a $c) #($a $d) #($a $e) #($b $c) #($b $d) #($b $e) #($c $d) #($c $e) #($d $e) but, if you add :each to a collection instead of printing, you get something different. The following code: res := OrderedCollection new. 'abcde' combinations: 2 atATimeDo: [:each | res add: each]. Transcript show: res. produces: an OrderedCollection(#($e $e) #($e $e) #($e $e) #($e $e) #($e $e) #($e $e) #($e $e) #($e $e) #($e $e) #($e $e)) Thanks again.

3 3

strange behavior in workspace
by Larry White Jan. 8, 2012

Jan. 8, 2012

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.]] ] ].

1 1

[COTDC] 102 - ZLibReadStream
by sean＠clipperadams.com Jan. 8, 2012

Jan. 8, 2012

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?!

1 0

compressing multiple files in Pharo
by Larry White Jan. 8, 2012

Jan. 8, 2012

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.

1 0