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

[Pharo-project] Out of the box primitives for bit in ObjectHeader?
by Mariano Martinez Peck Dec. 14, 2011

Dec. 14, 2011

Hi guys. As you may notice, I always try to push in the direction of a VM where we can have both things: a) a really cooler super fast VM for production super critical applications and b) the most-flexible-possible VM for doing reasearh and experiment. Now I was thinking the following: we have one free bit in the ObjectHeader. Let's say you are experimenting with something and you would like to tag objects, such as, "traversed", "processes", "isProxy", etc. To do that small experiment you need to modify the VM, adapt the bit, code the primitives, build the VM, put the smalltalk side part etc etc. So I was thinking why not providing such small functionality out of the box? the idea would be not to give semantics to the bit since each user will do that. So we just provide the VM with 2 primtives, one to get the value (#getBitValue) and one to set it (#setBitTo:). Choose the names you want. Then we do not integrate nothing in our images that use such bit, there won't be colisions. Then each guy who wants to experiments with that, can use the primitives and do what he wants. Some people is doing something with its bit: Jean Batiptse is doing XXX, I am doing YYY, etc. Either in his work or mine, there are much more changes that just that bit, so in anyway, I will end up needing my own VM. Finally, I could help in providing the code if it is needed. So, what do you think? -- Mariano http://marianopeck.wordpress.com

1 0

[Pharo-project] hasPoolVarNamed: semantics :(
by StÃ©phane Ducasse Dec. 14, 2011

Dec. 14, 2011

Hi guys Class>>hasPoolVarNamed: aString "Return whether the receiver has a pool variable named: aString" self hasSharedPools ifTrue: [ self sharedPools do: [:each | (each usesClassVarNamed: aString) ifTrue: [ ^true ]]] ifFalse: [ ^false ]. ^false So this means to me that a subclass of a shared pools user does not inherit the fact that its superclass effectively use a sharedPool. I would prefer that this would be the inverse. self assert: (RootClassPoolUser hasPoolVarNamed: 'Author'). "a subclass " self assert: (SubclassPoolUser hasPoolVarNamed: 'Author'). What do you think? may be we should rename it hasLocalPoolvarNamed: especially since we have usesPoolVarNamed: which takes into account the hierarchy only when the class starts to use a shared pool (oh boy) and is bogus (I wrote probably that code of course without tests. Now I have them.). Class>>usesPoolVarNamed: aString "Return whether the receiver has a pool variable named: aString" self hasSharedPools ifTrue: [ self allSharedPools do: [:each | (each usesClassVarNamed: aString) ifTrue: [^true]]] ifFalse: [^false]. ^false I wrote it now with tests as follows: Class>>usesPoolVarNamed: aString "Return whether the receiver has a pool variable named: aString" self allSharedPools do: [:each | (each usesClassVarNamed: aString) ifTrue: [^true]]. ^ false Stef

7 8

[Pharo-project] New Stable version of Keymappings
by DÃ©bora Fortini Dec. 14, 2011

Dec. 14, 2011

Hi! With Guille we were working today on Keymapping to release a new stable version. Gofer it squeaksource: 'ShortWays'; package: 'ConfigurationOfKeymapping'; load. (ConfigurationOfKeymapping project version: #stable) load It includes the following things: - all the last work to support shortcuts per morph - fixes to the last bugs Doru reported - we fixed some tests - we tested it on Pharo 1.3 and 1.4 on MacOS and it's working fine What we did not do yet is to handle the OB interaction. You can look at the this packages for example configurations: packages := #( 'Editors' 'Monticello' 'Morphic' 'Tools' 'Debugger' ) collect: [ :sp | 'Keymapping-', sp ]. packages do: [ :package | spec package: package with: [ spec requires: #( 'configurations' ) ]. ]. packages. Cheers, Deby

3 2

[Pharo-project] OSS sound plugin.
by Lemuus Dec. 14, 2011

Dec. 14, 2011

Hi, is it possible to include the vm-sound-OSS sound plugin in the cog build on Hudson?. This is the only plugin that seems to work on linux. Thanks. Daniel Galdames G.

4 5

[Pharo-project] Old smalltalker is slightly lost
by Sean P. DeNigris Dec. 14, 2011

Dec. 14, 2011

>From KasperOsterbye: > > This post has NOT been accepted by the mailing list yet. > 15 years ago I did a lot in Smalltalk, and have done some recreational > meta programming along the way. However, I now wanted to do something > where I was in need of drawing a diagram with x and y axes on what I > presume might be called a Canvas. > > I lack a simple tutorial to get me started. I have looked at many, but > they seem to presume I want to draw on the world "openInWorld". I should > like not to scatter my world with line fragments and points, but keep it > inside a "normal" window with borders, a background color (i.e. not a see > through window). > I have gone dead in two approaches. > > First attempt is to use a SystemWindow, and then draw on the canvas I > presume is there somewhere. I have just not been able to figure out how to > find the canvas of that SystemWindow, nor what method presumeable does the > painting. > > Second attempt is to use a SystemWindow, and then add (addMorph:) line and > circle morphs for my diagram. But it seems something is missing in my > understanding there as well. > > While it is fun that I can open circles and other stuff in "world", it is > not what I need. > > Small hits or direct solutions more than welcome. > > -- Kasper > -- View this message in context: http://forum.world.st/Old-smalltalker-is-slightly-lost-tp4191432p4191432.ht… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

3 2

Re: [Pharo-project] [COTDC] 95 - GZipReadStream
by Sean P. DeNigris Dec. 14, 2011

Dec. 14, 2011

No love for the Compression package? -- View this message in context: http://forum.world.st/COTDC-95-GZipReadStream-tp4180360p4193551.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

1 0

[Pharo-project] Message cascades: can they be always transformed into a sequence?
by Stefan Marr Dec. 13, 2011

Dec. 13, 2011

Hi: I got a little problem with message cascades, and since I already missed a few details the first time, I wonder whether I am overlooking something now again. My question is, whether it is always possible to flatten a cascade into a surrounding sequence of statements (method/block). I am introducing temporary variables for that, and am wonder whether there could be anything I am overlooking with respect to the evaluation order. Thus, are there constructs where I would change evaluation order by pulling out normal sends and put the results into temporary variables? I obviously need to make sure that if I flatten them, that I order receivers and arguments correctly. Is there anything else that could hinder flattening? (Ah, and I am happy to ignore reflection, thisContext, or exceptions.) Here two examples: ---> original: testCascadedSends | assoc | assoc := Association key: #foo value: 0. assoc value: (1 + 2); value: assoc value + 2; value: assoc value + 5. self assert: 10 equals: assoc value. testCascadedNotInSequence | assoc | assoc := Association key: #foo value: 0. assoc value: (assoc value: 1; value: 2; yourself). self assert: assoc equals: assoc value. <--- ---> transformed: testCascadedSends | assoc t* | assoc := Association key: #foo value: 0. assoc value: (1 + 2). t1 := assoc value. assoc value: t1 + 2. t2 := assoc value. assoc value: t2 + 5. self assert: 10 equals: assoc value. testCascadedNotInSequence | assoc t* | assoc := Association key: #foo value: 0. assoc value: 1. assoc value: 2. t1 := yourself. assoc value: t1. self assert: assoc equals: assoc value. <--- Thanks Stefan -- Stefan Marr Software Languages Lab Vrije Universiteit Brussel Pleinlaan 2 / B-1050 Brussels / Belgium http://soft.vub.ac.be/~smarr Phone: +32 2 629 2974 Fax: +32 2 629 3525

3 2

Dec. 13, 2011

This is a pity that allSharedPools does not return an ordered unique collection. Class>>allSharedPools "Answer a Set of the pools the receiver shares, including those defined in the superclasses of the receiver." | aSet | ^self superclass == nil ifTrue: [self sharedPools copy] ifFalse: [aSet := self superclass allSharedPools. aSet addAll: self sharedPools. aSet] since sharedPools returns now an orderedCollection I doubt that the uniqueness will the guaranteed. Behavior>>allSharedPools "Answer a Set of the names of the pools (Dictionaries or SharedPool subclasses) that the receiver and the receiver's ancestors share." ^superclass allSharedPools Now on a metaclass we will climb up the inheritance chain for nothing so I would define allSharedPools as follows ClassDescription>>allSharedPools "Answer a Set of the pools the receiver shares, including those defined in the superclasses of the receiver." ^ OrderedCollection new Tell me what you think? Stef

3 2

[Pharo-project] Cleaning up SmartRefStream use
by Marcus Denker Dec. 13, 2011

Dec. 13, 2011

Hi, We should minimize the use of SmartRefStream... so we can remove it eventually. I already did a little bit (e.g. removing BitmapStreamTests). These are the next steps: Issue 5081: Remve Morph saving to file/loading http://code.google.com/p/pharo/issues/detail?id=5081 Anyone needs this? Issue 5084: Remove textStyle FileOut http://code.google.com/p/pharo/issues/detail?id=5084 Is this used? Strange corner of the system... lots of dead code. Issue 5083: remove unused methods from SmartRefStream http://code.google.com/p/pharo/issues/detail?id=5083 Towards removing it alltogether. -- Marcus Denker -- http://marcusdenker.de

7 14

Re: [Pharo-project] Help: Zodiac secure server.
by Sven Van Caekenberghe Dec. 13, 2011

Dec. 13, 2011

Hi Prasad, On 13 Dec 2011, at 04:35, Prasad Khurd wrote: > Hello Sven, > using the key-cert.pem didn't help... I used firefox as client. Attached is the walkback and the key-cert.pem. > > I used ZdcSecureSocketStreamTests>>testPlain to conclude SqueakSSL.so was not loading in Fedora 14(test failed) but did in Ubuntu 10.10(test passed). Is that sufficient a test? I will try your suggestion too next time. > > thanks and regards, > Prasad I implemented my own version of an HTTPS server called ZnSecureServer (in the package 'Zinc-Zodiac' in http://www.squeaksource.com/ZincHTTPComponents) and I got it working (more or less) on the latest Ubuntu with both Firefox and curl as clients (Google Chrome did not work) and your certificate. You have to accept the security exception for the self signed certificate in FF or use the -k option for curl. Error handling is not good yet, you might have to restart the server. There was indeed still an error in ZnSecureSocketStream>>#accept as I expected. So use the very latest versions. (ZnSecureServer on: 1443) certificate: '/home/sven/ssl/key-cert.pem'; logToTranscript; start; yourself. https://localhost:1443 Disclaimer: this is an experimental proof of concept. Let me know how it goes. Regards, Sven

1 0