- Pharo-dev - lists.pharo.org

[Pharo-project] Just in case ...
by Torsten Bergmann May 20, 2011

May 20, 2011

Short mental exercise: What if ... diskpacks are burned and someone would come, give you enough time and resources to (re)implement the Pharo system and VM from scratch: Pharo Image/Sources - how would it look like - how would it differ from current design - what would be included - how would it be maintained - how would it be used/who would use it VM - how would it look like - how would it differ from current VM design - how would it be implemented/generated - how would it be maintained Even answers are welcome with ideas impossible to realize in the near future ... but it may help to find - possible next steps - features we havent thought about, yet Thx T. -- Empfehlen Sie GMX DSL Ihren Freunden und Bekannten und wir belohnen Sie mit bis zu 50,- Euro! https://freundschaftswerbung.gmx.de

2 1

[Pharo-project] Name spaces
by Noury Bouraqadi May 20, 2011

May 20, 2011

Hi, I'm wondering what is the status of the name spaces project developed last summer as part of GSoC. Noury http://car.mines-douai.fr/noury -- -6th National Conference on âControl Architecture of Robotsâ 24-25 may 2011, Grenoble area, France http://car2011.inrialpes.fr/ -19th ESUG International Smalltalk Conference 22-26 August 2011, Edinburgh, UK http://www.esug.org/Conferences/2011 -19Ã¨mes JournÃ©es Francophones sur les SystÃ¨mes Multi-Agents (JFSMAâ11) http://www.univ-valenciennes.fr/congres/jfsma2011/ 17-19 Octobre 2011, Valenciennes, France

5 6

Re: [Pharo-project] [Vm-dev] Re: out of memory - cog on windows
by Tudor Girba May 20, 2011

May 20, 2011

Hi, On 18 May 2011, at 16:30, Levente Uzonyi wrote: > On Wed, 18 May 2011, Tudor Girba wrote: > >> >> Hi, >> >> Is there a possibility to have any sort of answer on this topic? >> >> It looks to me like this bug is critical given that it prevents us to work with images larger than some 200M. > > IMHO it's a problem on the image side. Change the behavior of #lowSpaceWatcher to fix the problem. How would you do it? :) And if it is an image problem, why does it only appear on Windows? Cheers, Doru > > Levente > >> >> Cheers, >> Tudor >> >> >> >> On 16 May 2011, at 11:06, Tudor Girba wrote: >> >>> Hi Igor, >>> >>> Thanks a lot for looking into this. For us (around Moose), this is a critical issue because we play with our models in memory and regularly have images of several hundred megabytes. While most of us work on Mac without a problem, some other people work on Windows and this is a bottleneck. >>> >>> Unfortunately, I do not have enough know-how to dive into the VM, but I would be gladly help in any way I can. >>> >>> Cheers, >>> Doru >>> >>> >>> On 16 May 2011, at 10:50, Igor Stasenko wrote: >>> >>>> On 10 May 2011 09:34, Tudor Girba <tudor.girba(a)gmail.com> wrote: >>>>> Hi, >>>>> >>>>> I am back with some more input on the matter. We played with it, and found that basically any image that goes beyond something like 200MB limit (or maybe it's the number of objects), will not open on Windows. >>>>> >>>>> I would need some help on this. Has nobody else hit this wall, or is it that I am doing something wrong? >>>>> >>>>> One scenario that we used to reproduce the problem looks like this: >>>>> 1. Take a Moose image: >>>>> http://hudson.moosetechnology.org/job/moose-latest-dev/lastSuccessfulBuild/… >>>>> 2. Run: >>>>> 1 to: 3 do: [ :i | MooseScripts createModelForConfigurationOfMoose ] >>>>> This will basically create some 850000 objects and will get the image to some 400+MB >>>>> 3. Save and quit the image >>>>> 4. Reopen it >>>>> >>>>> A ready-made image with the result of this can be found here: >>>>> http://dl.dropbox.com/u/18323746/Tmp/moose-case-study-windows-problem.zip >>>>> >>>>> This works well on Mac, but on Windows when you reopen the image, you get the out of memory message. >>>>> >>>>> Cheers, >>>>> Doru >>>>> >>>>> >>>> >>>> I using latest VMs built by cmake on windows, and everytime i run this image, >>>> it opens a 'Space is low' dialog and then image not reacting on anything. >>>> VM not crashing however and responds to windows events.. But because >>>> UI process is broken >>>> an image simply not reacts to anything. >>>> >>>> >>>> I think that the problem is that this dialog are shown at early image >>>> startup time, >>>> before everything is properly initialized, and because of that UI >>>> stalls somewhere. >>>> >>>> >>>> Next things which i tried is to increase a virtual memory limit in >>>> sqWin32Alloc.h >>>> >>>> #ifndef MAX_VIRTUAL_MEMORY >>>> #define MAX_VIRTUAL_MEMORY 512*1024*1024 >>>> #endif >>>> >>>> first i raised it to 768 Mbytes.. same behavior. >>>> then i raised it to 1Gb and again same behavior.. >>>> >>>> So, either this constant is overridden somewhere or it actually >>>> doesn't affecting the low-space detection mechanism as i would expect. >>>> Any suggestions? >>>> >>>> >>>> I will continue looking , what happens on VM side, >>>> but in addition to that, i think we should do something on image side as well: >>>> - a low space watcher should not pop up before passing image startup, >>>> because if preempted process is UI process (and in 99.99% cases it is), >>>> then it means that low space watcher blocks UI process and as a consequence, >>>> your image stops handling events. >>>> >>>> >>>> Also, i thinking about different approach for signaling a low space condition. >>>> Instead of signaling a low space semaphore, what VM could do is to >>>> fail an allocation primitive >>>> and set the error code to "low memory warning" >>>> then a primitive failure code could actually throw an exception, which >>>> then could be handled as usual... >>>> so you could write a code, like: >>>> >>>> [ self allocateSomethingReallyHuge ] on: LowMemoryWarning do: [:err | >>>> self shouldWeReallyCare ifFalse: [ self tellVMThatItsOk. err resume ] >>>> ifTrue: [ err pass ] >>>> ] >>>> >>>> Because by preempting a currently active process, which "possibly" >>>> causing a memory problems is not a solution, >>>> as you can see, if it happens during startup phase, then you it just >>>> stucks and image hangs. >>>> But if we could use exceptions, we could just ignore this warning (or >>>> do something else) during image startup, >>>> instead of blocking UI process , showing a useless popup message and >>>> letting image hang like that. >>>> >>>> -- >>>> Best regards, >>>> Igor Stasenko AKA sig. >>> >>> -- >>> www.tudorgirba.com >>> >>> "If you interrupt the barber while he is cutting your hair, >>> you will end up with a messy haircut." >>> >> >> -- >> www.tudorgirba.com >> >> "Obvious things are difficult to teach." >> >> >> >> -- www.tudorgirba.com "Next time you see your life passing by, say 'hi' and get to know her."

4 6

[Pharo-project] [update 1.3] #13206
by Marcus Denker May 20, 2011

May 20, 2011

13206 ----- Issue 4235: Selection update Issue 4243: ZnUserAgentTest>>testCookieAt fails on Win32 -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

1 0

[Pharo-project] paragraph replacement?
by Tudor Girba May 20, 2011

May 20, 2011

Hi, Another class we used in EyeSee (besides Circle) is Paragraph. I see that this class is now deprecated and empty. What should we use instead of it? Cheers, Doru -- www.tudorgirba.com "We are all great at making mistakes."

1 0

[Pharo-project] Set with nil
by Torsten Bergmann May 20, 2011

May 20, 2011

nil means "not in list" Maybe we should change to "nis" (not in set) ;) -- NEU: FreePhone - kostenlos mobil telefonieren! Jetzt informieren: http://www.gmx.net/de/go/freephone

1 0

[Pharo-project] Circle is gone
by Torsten Bergmann May 20, 2011

May 20, 2011

FYI: This also breaks EyeSee examples (see http://astares.blogspot.com/2011/05/eyesee.html) in the moose suite... Thx T. -- NEU: FreePhone - kostenlos mobil telefonieren! Jetzt informieren: http://www.gmx.net/de/go/freephone

2 1

[Pharo-project] [update 1.3] #13205
by Marcus Denker May 20, 2011

May 20, 2011

13205 ----- Issue 4249: ProcessBrowser Browsers classvar is dormant Issue 4247: Remove MenuIcons from startUpList Issue 4250: ImageSegment - remove from startup list Issue 4251: DateAndTime - remove from startup list Issue 4246: Avoid harcoding menu in MCWorkingCopyMenu -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

1 0

[Pharo-project] Subscript out of bounds: 1 on latest (hudson) Pharo 1.3
by Guillermo Polito May 20, 2011

May 20, 2011

Hi! I want to load a 6 month old slice (SLICE-Issue-1907-SetWithNilTests-GuillermoPolito.2) from pharo inbox in latest 1.3(13204) from hudson using cog, and It opens a pre-debugger because of a Subscript out of bounds: 1. If I clic on it to debug, It throws me again the same error :(. It happens if there is the sources file or not. But the most strange is that if I download latest 1.3 from the bottom of the page: http://www.pharo-project.org/pharo-download It actually loads the Slice, but throws me a DNU if I dont have the sources file in the same folder: 19 May 2011 9:02:38 pm VM: unix - i686 - linux-gnu - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.47] Image: Pharo1.3a [Latest update: #13201] UndefinedObject(Object)>>doesNotUnderstand: #keywords Receiver: nil Arguments and temporary variables: <<error during printing> Receiver's instance variables: nil CompiledMethod>>getSourceReplacingSelectorWith: Receiver: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)") Arguments and temporary variables: newSelector: #testPrintElementsOn oldKeywords: nil newKeywords: nil args: nil newSelectorWithArgs: nil source: '' oldSelector: nil s: nil Receiver's instance variables: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)") DictionaryTest class(Behavior)>>addTraitSelector:withMethod: Receiver: DictionaryTest Arguments and temporary variables: aSymbol: #testPrintElementsOn aCompiledMethod: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)...etc... source: nil methodAndNode: nil Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil [:methodDescription | | effectiveMethod selector | selector := methodDescription selector. (self includesLocalSelector: selector) ifFalse: [methodDescription isEmpty ifTrue: [self removeTraitSelector: selector. modifiedSelectors add: selector] ifFalse: [effectiveMethod := methodDescription effectiveMethod. self addTraitSelector: selector withMethod: effectiveMethod. modifiedSelectors add: selector]]] in DictionaryTest class(Behavior)>>updateMethodDictionarySelector: Receiver: DictionaryTest Arguments and temporary variables: modifiedSelectors: a TraitMethodDescription methodDescription: an IdentitySet() effectiveMethod: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)...etc... selector: #testPrintElementsOn Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil OrderedCollection>>do: Receiver: an OrderedCollection(a TraitMethodDescription) Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(a TraitMethodDescription) firstIndex: 1 lastIndex: 1 DictionaryTest class(Behavior)>>updateMethodDictionarySelector: Receiver: DictionaryTest Arguments and temporary variables: aSymbol: #testPrintElementsOn modifiedSelectors: an IdentitySet() descriptions: an OrderedCollection(a TraitMethodDescription) Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil [:t3 | t2 addAll: (self updateMethodDictionarySelector: t3)] in DictionaryTest class(Behavior)>>noteChangedSelectors: Receiver: DictionaryTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil Array(SequenceableCollection)>>do: Receiver: #(#testPrintElementsOn) Arguments and temporary variables: <<error during printing> Receiver's instance variables: #(#testPrintElementsOn) DictionaryTest class(Behavior)>>noteChangedSelectors: Receiver: DictionaryTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil [:t2 | t2 noteChangedSelectors: t1] in Trait(TraitDescription)>>notifyUsersOfChangedSelectors: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' [:each | each ifNotNil: [aBlock value: each]] in IdentitySet(Set)>>do: Receiver: an IdentitySet(DictionaryTest) Arguments and temporary variables: aBlock: DictionaryTest each: [:t2 | t2 noteChangedSelectors: t1] Receiver's instance variables: tally: 1 array: {nil. nil. nil. nil. DictionaryTest. nil. nil} Array(SequenceableCollection)>>do: Receiver: {nil. nil. nil. nil. DictionaryTest. nil. nil} Arguments and temporary variables: <<error during printing> Receiver's instance variables: {nil. nil. nil. nil. DictionaryTest. nil. nil} IdentitySet(Set)>>do: Receiver: an IdentitySet(DictionaryTest) Arguments and temporary variables: aBlock: [:t2 | t2 noteChangedSelectors: t1] Receiver's instance variables: tally: 1 array: {nil. nil. nil. nil. DictionaryTest. nil. nil} Trait(TraitDescription)>>notifyUsersOfChangedSelectors: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' Trait(TraitBehavior)>>notifyUsersOfChangedSelector: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' Trait(TraitBehavior)>>addSelectorSilently:withMethod: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' Trait(TraitDescription)>>addSelectorSilently:withMethod: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' MethodAddition>>installMethod Receiver: a MethodAddition Arguments and temporary variables: <<error during printing> Receiver's instance variables: text: 'testPrintElementsOn | str | str := String new writeStream. self nonEm...etc... category: #'test - printing' changeStamp: 'PeterHugossonMiller 9/3/2009 11:33' requestor: nil logSource: true myClass: TDictionaryPrintingTest methodAndNode: a CompiledMethodWithNode selector: #testPrintElementsOn compiledMethod: (TDictionaryPrintingTest>>#testPrintElementsOn "a CompiledMetho...etc... priorMethodOrNil: (TDictionaryPrintingTest>>#testPrintElementsOn "a CompiledMet...etc... I'll open a ticket :)

1 2

[Pharo-project] SIXX problem for ScaledDecimal
by Dario Trussardi May 19, 2011

May 19, 2011

Hi, i found some problem into Gemstone relative to SIXX support for manage ScaledDecimal instances. I do some test into Pharo and i found error when i read the sixx declaration relative to ScaledDecimal : <sixx.object sixx.id="0" sixx.type="ScaledDecimal" >123.456s3</sixx.object> For solve this error i define the ScaledDecimal : readSixxContentStringFrom: aStream | numerator scale | numerator := aStream upTo: $s . scale := aStream upToEnd. ^ self newFromNumber: numerator asNumber scale: scale asNumber Now my doubt is relative to string size and performance. A) If i write <sixx.object sixx.id="0" sixx.type="ScaledDecimal" >123.456s3</sixx.object> i have small string in sixx declartion but when create a ScaledDecimal from sixx the system execute the: newFromNumber: aNumber scale: anInteger | aFraction | aFraction := aNumber asFraction. ^aFraction isFraction ifTrue: [self new setNumerator: aFraction numerator denominator: aFraction denominator scale: anInteger] ifFalse: [self new setNumerator: aFraction denominator: 1 scale: anInteger] What is the performance relative to : aFraction := aFloat asFraction. ???? B) The alternative is to write a sixx declaration with: <sixx.object sixx.id="0" sixx.type="ScaledDecimal" >(8687443681197687/70368744177664s3)</sixx.object> in this case the sixx string is big but the ScaledDecimal instance creation is direct: readSixxContentStringFromA: aStream " with numerator and denominator " | numerator denominator scale | aStream next. "skip $(" numerator := aStream upTo: $/ . denominator := aStream upTo: $s. scale := aStream upTo: $). ^ self new setNumerator: numerator asNumber denominator: denominator asNumber scale: scale asNumber Any pointers would be greatly appreciated ! Thanks, Dario

4 3