- Pharo-dev - lists.pharo.org

[Pharo-project] keymapping
by Tudor Girba Dec. 11, 2011

Dec. 11, 2011

Hi Guille, We recently added Keymapping to the Moose distribution (actually part of Glamour), but it seems that it breaks the image in subtle ways: - Ctrl+v and Cmd+v lead to different behaviour - pasting a piece of code leaves the cursor at the beginning of the pasted text Do you happen to have time to look into these? Cheers, Doru -- www.tudorgirba.com "Next time you see your life passing by, say 'hi' and get to know her."

2 3

[Pharo-project] problem installing seaside in pharo
by sergio_101 Dec. 11, 2011

Dec. 11, 2011

i am getting the following error when trying to install seaside in pharo using: Gofer new squeaksource: 'MetacelloRepository'; package: 'ConfigurationOfSeaside30'; load. ((Smalltalk at: #ConfigurationOfSeaside30) project latestVersion) load. and i am getting the following error: GoferRepositoryError(Object)>>doesNotUnderstand: #asSortedCollection anyone have any ideas? -- ---- peace, sergio photographer, journalist, visionary http://www.ThoseOptimizeGuys.com http://www.CodingForHire.com http://www.coffee-black.com http://www.painlessfrugality.com http://www.twitter.com/sergio_101 http://www.facebook.com/sergio101

2 3

[Pharo-project] [update 1.4] #14255
by Marcus Denker Dec. 10, 2011

Dec. 10, 2011

14255 ----- Issue 5080: Remove BitmapStreamTests http://code.google.com/p/pharo/issues/detail?id=5080 Issue 5079: Small cleanup methods unsent sending unexisting messages http://code.google.com/p/pharo/issues/detail?id=5079 Issue 5076: veryDeepCopyUsing: is not used http://code.google.com/p/pharo/issues/detail?id=5076 Issue 5082: remove GZipSurrogateStream http://code.google.com/p/pharo/issues/detail?id=5082 -- Marcus Denker -- http://marcusdenker.de

1 0

[Pharo-project] SMTPClient uses local address
by Sean P. DeNigris Dec. 10, 2011

Dec. 10, 2011

SMTPClient>>initiateSession ... self sendCommand: ... NetNameResolver localHostName. ... This results in the local address (e.g. 10.0.0.5) being used, which sometimes gets kicked back by the mail server with: 550-"JunkMail rejected - ool-182daabe.dyn.optonline.net (10.0.0.5) -- View this message in context: http://forum.world.st/SMTPClient-uses-local-address-tp4178445p4178445.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

3 4

[Pharo-project] How to resurrect an unrepsonsive image?
by Norbert Hartl Dec. 10, 2011

Dec. 10, 2011

I have a headless image that was running for a couple of days. Now it is not responding anymore. The image was running still but the sockets for http and vnc were closed and restarting the image just brings it up without any sockets opened. Injecting something via script does not work either. I copied the image to my desktop and tried a few things but no success. What would be a good way to get a glimpse of what is causing problems? I had Scheduler running that saved the image every hour. And the image itself issues http request to the outside world every 10 minutes. thanks, Norbert

10 29

[Pharo-project] GZipWriteStream crashing my VM when serializing ?
by Mariano Martinez Peck Dec. 10, 2011

Dec. 10, 2011

Hi guys. We are doing some experiments with Fuel and GZip streams... Now I have a beatiful test like this: testMethodContextThisContext | materializedContext context | context := thisContext copy. materializedContext := self resultOfSerializeAndMaterialize: context. and it crashes like crazy. From the VM crash stack, I can see: Smalltalk stack dump: 0xbff66ba4 M GZipWriteStream(DeflateStream)>deflateBlock 447551436: a(n) GZipWriteStream 0xbff66bc8 M GZipWriteStream(DeflateStream)>nextPutAll: 447551436: a(n) GZipWriteStream 0xbff66be4 M GZipWriteStream(DeflateStream)>next:putAll:startingAt: 447551436: a(n) GZipWriteStream 0xbff66c08 M FLBufferedWriteStream>flushBuffer 448048664: a(n) FLBufferedWriteStream 0xbff66c20 M FLBufferedWriteStream>nextBytesPutAll: 448048664: a(n) FLBufferedWriteStream 0xbff66c40 M FLBufferedWriteStream>nextStringPut: 448048664: a(n) FLBufferedWriteStream 0xbff66c5c M FLByteStringCluster>serialize:on: 448054196: a(n) FLByteStringCluster 0xbff66c7c M FLByteStringCluster(FLPrimitiveCluster)>serializeInstance:with: 448054196: a(n) FLByteStringCluster 0xbff66ca0 M [] in FLByteStringCluster(FLIteratingCluster)>serializeInstances: 448054196: a(n) FLByteStringCluster 0xbff66cc8 M IdentitySet(Set)>do: 451711680: a(n) IdentitySet 0xbff66ce4 M FLByteStringCluster(FLIteratingCluster)>serializeInstances: 448054196: a(n) FLByteStringCluster 0xbff66d00 M FLByteStringCluster(FLIteratingCluster)>serializeInstancesStepWith: 448054196: a(n) FLByteStringCluster 0xbff66d1c M FLSerialization>clusterInstancesStepOf: 448053428: a(n) FLSerialization 0xbff66d38 M [] in FLSerialization>instancesStep 448053428: a(n) FLSerialization 0xbff66d58 M OrderedCollection>do: 449989736: a(n) OrderedCollection 0xbff66d74 M FLSerialization>instancesStep 448053428: a(n) FLSerialization 0xbff66d8c M FLSerialization>run 448053428: a(n) FLSerialization 0xbff66db0 I [] in FLSerializer>defaultSerialization 447550464: a(n) FLSerializer 0xbff66dd8 M [] in FLSerializer>serialize:on: 447550464: a(n) FLSerializer 0xbff66df8 M BlockClosure>ensure: 448052884: a(n) BlockClosure 0xbff66e18 M FLSerializer>serialize:on: 447550464: a(n) FLSerializer 0xbff66e3c M [] in FLMethodContextSerializationTest(FLSerializationTest)>serialize: 447235380: a(n) FLMethodContextSerializationTest 0xbff66e60 M [] in GZipWriteStream class(PositionableStream class)>on:do: 419845144: a(n) GZipWriteStream class 0xbff66e80 M BlockClosure>ensure: 448048616: a(n) BlockClosure 0xbff66ea0 M GZipWriteStream class(PositionableStream class)>on:do: 419845144: a(n) GZipWriteStream class 0xbff66ec4 M [] in FLGZipStrategy>writeStreamDo: 447550896: a(n) FLGZipStrategy 0xbff66ee0 M FLByteArrayStreamStrategy>writeStreamDo: 447550884: a(n) FLByteArrayStreamStrategy 0xbff66efc M FLGZipStrategy>writeStreamDo: 447550896: a(n) FLGZipStrategy 0xbff66f18 M FLMethodContextSerializationTest(FLSerializationTest)>serialize: 447235380: a(n) FLMethodContextSerializationTest 0xbff66f34 M FLMethodContextSerializationTest(FLSerializationTest)>resultOfSerializeAndMaterialize: 447235380: a(n) FLMethodContextSerializationTest 0xbff66f58 M FLMethodContextSerializationTest>testMethodContextThisContext 447235380: a(n) FLMethodContextSerializationTest any idea of where I should start to look at? Thanks -- Mariano http://marianopeck.wordpress.com

2 2

[Pharo-project] [COTDC] 95 - GZipReadStream
by sean＠clipperadams.com Dec. 10, 2011

Dec. 10, 2011

95 classes done 801 classes remaining Continuing in Compression... Today: GZipReadStream 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

[Pharo-project] COTDC Suggestions
by Sean P. DeNigris Dec. 10, 2011

Dec. 10, 2011

This week, we'll try out a previous suggestion (don't remember OP, sorry) to explore a single package, in the hopes that as we learn various classes, our knowledge will be magnified for related classes. Also, if anyone has a particular package or class that they'd really like to see commented, let me know. -- View this message in context: http://forum.world.st/COTDC-Suggestions-tp4115605p4115605.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

3 2

[Pharo-project] Command Line AWS S3 Upload/Download Tool using Pharo Smalltalk
by Sven Van Caekenberghe Dec. 10, 2011

Dec. 10, 2011

Command Line AWS S3 Upload/Download Tool using Pharo Smalltalk This is a little story about a tool that I needed and that I finally implemented in Pharo Smalltalk. I think it is quite nice and elegant and might be useful to others too. Also, I think it is important to share little hacks like this to show that what you can do is almost unlimited (as many others have shown in all kinds of projects). This is a bit long, so if you're not interested, please ignore. Amazon S3 is a web service interface to store and retrieve any data from anywhere that is highly scalable, reliable, secure, fast, inexpensive. [ http://aws.amazon.com/s3/ ] [ http://en.wikipedia.org/wiki/Amazon_S3 ] I needed a client to interface with S3 from Linux to store and retrieve archives and backups up to 100s of Mb large. Although I had already written a client for this web service in Pharo some time ago, I thought it would not be good enough for these amounts of data. Furthermore, it had no command line interface. So I Googled and found s3cmd. This installed easily and quickly in Ubuntu. Uploading/downloading some small test files went OK. However, uploading large files gave all kinds of strange errors, even though I was doing this from EC2 directly on the Amazon network. I don't know Python so I was not capable of debugging the tool. But I do know Smalltalk and had the basic code already. [ Zinc-AWS in http://www.squeaksource.com/ZincHTTPComponents ] What was missing was a solution to do streaming uploads and downloads so that these huge files would not be taken into memory all at once and a command line interface. Turns out both were quite easy and elegant to implement. I added the following methods to ZnAWSS3Client: downloadFile: filename fromBucket: bucket "Do a streaming download of the key filename from bucket, creating it as a file with that name in the current directory." | streaming response | streaming := self httpClient streaming. self httpClient streaming: true. response := self at: bucket -> filename. self httpClient streaming: streaming. response isSuccess ifFalse: [ ^ ZnHttpUnsuccessful signal ]. FileStream fileNamed: filename do: [ :stream | response entity writeOn: stream ]. ^ response The #streaming option of the underlying ZnClient is toggled on for this request and reset later to its previous value after the request. The #at: does the actual request, returning a ZnStreamingEntity that is then written to a file. When a streaming entity writes itself to another stream it will actually do a streaming copy (one buffer at a time in a loop) for an efficient download. uploadFile: filename withMd5: md5 inBucket: bucket "Do a streaming upload of the file filename to bucket. When md5 is notNil, use it to validate the ETag of the response." | entry size mimeType fileStream entity response | entry := FileDirectory root directoryEntryFor: filename. size := entry fileSize. mimeType := ZnMimeType forFilenameExtension: (FileDirectory extensionFor: filename). fileStream := FileDirectory root readOnlyFileNamed: filename. mimeType isBinary ifTrue: [ fileStream binary ]. (entity := ZnStreamingEntity type: mimeType length: size) stream: fileStream. self at: bucket -> entry name put: entity. (md5 notNil and: [ (md5 sameAs: self eTag) not ]) ifTrue: [ self error: 'Uploaded ETag does not equal supplied MD5' ]. ^ self httpClient response Here the streaming entity is created based on an existing file, the mime type coming from the extension. Then, #at:put: is used to do the upload. Again, when the streaming entity writes itself to the socket stream it will actually do a streaming copy (one buffer at a time in a loop), for an efficient upload. Amazon S3 delivers MD5 hashes (ETags) that can be used to check the integrity of uploads/downloads. ZnAWSS3Client uses these when its #checkIntegrity option is true using MD5>>#hashMessage:, though not using the streaming option of HashFunction. Since it would be a lot of work to make that possible, I opted for externally supplied MD5 hashes using Linux's md5sum utility. Next, I took a clean Pharo 1.3 image and the standard Pharo built CogVM and loaded the following to create a server image: Gofer new squeaksource: 'XMLSupport'; package: 'ConfigurationOfXMLSupport'; load. (Smalltalk at: #ConfigurationOfXMLSupport) perform: #loadDefault. Gofer new squeaksource: 'ZincHTTPComponents'; package: 'Zinc-HTTP'; package: 'Zinc-AWS'; load. Gofer new squeaksource: 'ADayAtTheBeach'; package: 'NonInteractiveTranscript'; load. The glue code for each tool consists of a Linux shell script and a Smalltalk startup script. This is a tool for personal use, error handling could be a bit better regarding wrong invocations. #!/bin/bash echo S3 Download $* script_home=$(dirname $0) script_home=$(cd $script_home && pwd) image=$script_home/pharo-t3.image script=$script_home/s3-download.st bucket=$1 file=$2 vm=$script_home/bin/CogVM options="-vm-display-null -vm-sound-null" echo $vm $options $image $script $bucket $file $vm $options $image $script $bucket $file NonInteractiveTranscript stdout install. [ | args bucket filename | args := Smalltalk commandLine arguments. bucket := args first. filename := args second. (ZnAWSS3Client new) accessKeyId: 'AAAAXXYYZZ5HGQZ77EQ'; secretAccessKey: 'AAAA+D9n7gabcdefghSfevY/mH6KWsvMAcsjzzzz'; checkIntegrity: false; downloadFile: filename fromBucket: bucket; close. Transcript show: 'OK'; cr; endEntry. ] on: Error do: [ :exception | Smalltalk logError: exception description inContext: exception signalerContext. Transcript show: 'FAILED'; cr; endEntry. ]. SmalltalkImage current quitPrimitive. #!/bin/bash echo S3 Upload $* script_home=$(dirname $0) script_home=$(cd $script_home && pwd) image=$script_home/pharo-t3.image script=$script_home/s3-upload.st bucket=$1 file=$2 file_dir=$(dirname $file) file_name=$(basename $file) file=$(cd $file_dir && pwd)/$file_name vm=$script_home/bin/CogVM options="-vm-display-null -vm-sound-null" compute_md5="md5sum $file" md5=`$compute_md5` echo $vm $options $image $script $bucket $file $md5 $vm $options $image $script $bucket $file $md5 NonInteractiveTranscript stdout install. [ | args bucket filename md5 | args := Smalltalk commandLine arguments. bucket := args first. filename := args second. md5 := args third. (ZnAWSS3Client new) accessKeyId: 'AAAAXXYYZZ5HGQZ77EQ'; secretAccessKey: 'AAAA+D9n7gabcdefghSfevY/mH6KWsvMAcsjzzzz'; checkIntegrity: false; uploadFile: filename withMd5: md5 inBucket: bucket; close. Transcript show: 'OK'; cr; endEntry. ] on: Error do: [ :exception | Smalltalk logError: exception description inContext: exception signalerContext. Transcript show: 'FAILED'; cr; endEntry. ] SmalltalkImage current quitPrimitive. Both tools are very similar: the shell scripts uses the VM to start the right image after massaging some of the arguments. The Smalltalk script retrieves arguments, instanciates and invokes the tool to do its job. NonInteractiveTranscript is used with the #stdout option to write OK or FAILED. In the case of failure a PharoDebug.log is written. #quitPrimitive is used for a fast exit (not marking the changes file). Since then I learned from Igor that #quitPrimitive accepts an exit value so it would be possible to do away with the OK/FAILED writing to stdout and just rely on the exit value for an even better integration with *nix. Uploading/downloading files of 100s of Mb went flawless and was more than fast enough (network IO bound anyway). Repeatably starting/stopping a VM with a 20Mb image is totally acceptable and fast as well. A big thanks to everybody who is working on all the little details all the time to make things like this possible ! Sven

2 1

[Pharo-project] [ANN] Magma 1.3
by Chris Muller Dec. 9, 2011

Dec. 9, 2011

I am very pleased to announce the immediate availability of Magma 1.3. The following detail the major improvements to 1.3 over 1.2: Serializer Upgrade ==== BlockClosures (Contexts and CompiledMethods too, of course), can now be stored in the database, even with references to inst-vars, self, temps or globals. Split-Ordered Lists ==== Tom Rushworth developed a fantastic Split-Ordered list implementation for Squeak. Working closely with Tom, this package has been extended in Magma to support very large SOL collections, implemented as a MagmaSolHashTable. Thank you Tom! The MagmaSolHashTable is actually a fairly primitive collection, and was used as the basis for two new collections: A MagmaHashTable and a completely new implementation of MagmaDictionary which is much faster than the old one (almost as fast as a preallocated dictionary). Full Monticello Model ==== When using Magma as a Monticello repository the package versions are not zipped but stored directly in the repository as native instances of MCVersions, MCPackages, MCInfos, MCDefinitions, etc. All of these original MC object instances are canonicalized so there is only ONE copy of that MCMethodDefinition from 2002 which is shared rather than copied in every version since. MCPackages are also canonicalized, as is all ancestry! For packages stored in a Magma repository, two new menu options appear on the methods menu and classes menu: browse mc versions browse mc origin The first shows all versions of a particular method or class-definition across all MC versions saved to that repository, in chronological order (no latency). The second opens the MC-Version Inspector in which that version of the method was saved, to see the version notes. This is very useful for quickly knowing WHY changes were made. Note: Currently only Squeak has its IDE tools updated to support this. WriteBarrier Resurrection ==== After two years dormancy, Avi Bryant's original WriteBarrier has been resurrected for use in closure/Cog images. Its original dependency on NewCompiler has been removed. With both the WriteBarrier and Cog, the MagmaBenchmarker reports a new record maximum commit rate -- 456 commits per second !! The WriteBarrier is now on by default, so nothing needs to be done to enjoy the speed up. Proxy Transparency ==== A new extension to the WriteBarrier should now alleviate the need to send #yourself to primitive arguments! Primitives which require arguments are now overridden in the anonymous subclass so that the arguments will automatically be ensured to be fully-reified for the super call. Immutability ==== For performance, TimeSpans, Durations, DateAndTimes, Points, Intervals, Colors are now immutable. Strings are also immutable by default, but now a custom ImmutabilityStrategy may be specified, providing fine control over immutability in case mutable Strings are needed (or if other objects can be made immutable). Platform Independence ==== Magma 1.3 runs on Squeak 4.3 and Pharo 1.3. All of the packages have been renamed in accordance with contemporary package naming conventions employed by most other active Squeak and Pharo projects. Platform-specific behaviors are now in platform-specific packages (named with "-Squeak" or "-Pharo"). The package hierarchy is documented at http://wiki.squeak.org/squeak/6178. More ==== Many minor cleanups, fixes, and usability improvements. This is, by far, the best Magma ever. Please enjoy the new version. - Chris

2 1