- Pharo-users - lists.pharo.org

Re: [Pharo-users] [Pharo-dev] STON materialization corrupts a dictionary if the keys are references

by Sven Van Caekenberghe

> On 05 Apr 2016, at 11:50, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > > This is > Pharo #50666 > Moose 6.0 build #1437 > STON-Core-SvenVanCaekenberghe.67 > > (I also loaded STON-Core-SvenVanCaekenberghe.70 but the result is the same). > > One thing to note: it doesn't fail alwaysâ¦ for me it seems that about every ten or so attempts it succeeds. Like I said, it is a hashing issue, sometimes it will be correct by accident. I hope you did not have to much trouble with this bug, I guess it must have been hard to chase. Is it urgent ? I probably can give you a quick fix, but I would like to think a bit more about this, since rehashing each materialised dictionary seems expensive. > Peter > > On Tue, Apr 5, 2016 at 11:41 AM, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > Hi Peter, > > Strange indeed. It did not fail for me in 5.0 with the standard STON version, but it does fail in 4.0 with the latest STON. Asking the bogus dictionary to #rehash seems to fix the problem. I will investigate and turn you example into a unit test. > > Sven > > > On 05 Apr 2016, at 11:14, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > > > > Hi, > > > > I ran into a problem with STON that seems to corrupt on materialization. > > > > Consider the following script: > > > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > c := OrderedCollection with: UUID new. > > d := Dictionary with: c first -> nil. > > o := { c . d }. > > > > s := STON toStringPretty: o. > > > > o2 := STON reader > > allowComplexMapKeys: true; > > on: s readStream; > > next. > > > > o2 second keys. "an Array(an UUID('571bbfb7-78b9-430c-9aad-3e0088a25f4c'))" > > o2 second printString. "KeyNotFound: key an UUID(''571bbfb7-78b9-430c-9aad-3e0088a25f4c'') not found in Dictionary" > > o2 second at: o2 second keys first. "the same error" > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > > > So even though it contains the key it fails to access it. > > > > Interestingly enough if I serialize and materialize the "broken" dictionary again it suddenly works again. > > > > Thanks, > > Peter > > > > > > > > >

April 5, 2016

Re: [Pharo-users] [Pharo-dev] STON materialization corrupts a dictionary if the keys are references

by Peter UhnÃ¡k

This is Pharo #50666 Moose 6.0 build #1437 STON-Core-SvenVanCaekenberghe.67 (I also loaded STON-Core-SvenVanCaekenberghe.70 but the result is the same). One thing to note: it doesn't fail alwaysâ¦ for me it seems that about every ten or so attempts it succeeds. Peter On Tue, Apr 5, 2016 at 11:41 AM, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > Hi Peter, > > Strange indeed. It did not fail for me in 5.0 with the standard STON > version, but it does fail in 4.0 with the latest STON. Asking the bogus > dictionary to #rehash seems to fix the problem. I will investigate and turn > you example into a unit test. > > Sven > > > On 05 Apr 2016, at 11:14, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > > > > Hi, > > > > I ran into a problem with STON that seems to corrupt on materialization. > > > > Consider the following script: > > > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > c := OrderedCollection with: UUID new. > > d := Dictionary with: c first -> nil. > > o := { c . d }. > > > > s := STON toStringPretty: o. > > > > o2 := STON reader > > allowComplexMapKeys: true; > > on: s readStream; > > next. > > > > o2 second keys. "an Array(an > UUID('571bbfb7-78b9-430c-9aad-3e0088a25f4c'))" > > o2 second printString. "KeyNotFound: key an > UUID(''571bbfb7-78b9-430c-9aad-3e0088a25f4c'') not found in Dictionary" > > o2 second at: o2 second keys first. "the same error" > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > > > So even though it contains the key it fails to access it. > > > > Interestingly enough if I serialize and materialize the "broken" > dictionary again it suddenly works again. > > > > Thanks, > > Peter > > > > > > > > >

April 5, 2016

Re: [Pharo-users] STON materialization corrupts a dictionary if the keys are references

by Sven Van Caekenberghe

Hi Peter, Strange indeed. It did not fail for me in 5.0 with the standard STON version, but it does fail in 4.0 with the latest STON. Asking the bogus dictionary to #rehash seems to fix the problem. I will investigate and turn you example into a unit test. Sven > On 05 Apr 2016, at 11:14, Peter UhnÃ¡k <i.uhnak(a)gmail.com> wrote: > > Hi, > > I ran into a problem with STON that seems to corrupt on materialization. > > Consider the following script: > > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > c := OrderedCollection with: UUID new. > d := Dictionary with: c first -> nil. > o := { c . d }. > > s := STON toStringPretty: o. > > o2 := STON reader > allowComplexMapKeys: true; > on: s readStream; > next. > > o2 second keys. "an Array(an UUID('571bbfb7-78b9-430c-9aad-3e0088a25f4c'))" > o2 second printString. "KeyNotFound: key an UUID(''571bbfb7-78b9-430c-9aad-3e0088a25f4c'') not found in Dictionary" > o2 second at: o2 second keys first. "the same error" > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > > So even though it contains the key it fails to access it. > > Interestingly enough if I serialize and materialize the "broken" dictionary again it suddenly works again. > > Thanks, > Peter > > >

April 5, 2016

Re: [Pharo-users] Slack invitation

by Damien Cassou

Damien Cassou <damien.cassou(a)inria.fr> writes: > can someone please invite me to pharoproject on slack? I got one. There was a dedicated section in http://pharo.org/community. -- Damien Cassou http://damiencassou.seasidehosting.st "Success is the ability to go from one failure to another without losing enthusiasm." --Winston Churchill

April 5, 2016

Slack invitation

by Damien Cassou

Hi, can someone please invite me to pharoproject on slack? Thanks -- Damien Cassou http://damiencassou.seasidehosting.st "Success is the ability to go from one failure to another without losing enthusiasm." --Winston Churchill

April 5, 2016

STON materialization corrupts a dictionary if the keys are references

by Peter UhnÃ¡k

Hi, I ran into a problem with STON that seems to corrupt on materialization. Consider the following script: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ c := OrderedCollection with: UUID new. d := Dictionary with: c first -> nil. o := { c . d }. s := STON toStringPretty: o. o2 := STON reader allowComplexMapKeys: true; on: s readStream; next. o2 second keys. "an Array(an UUID('571bbfb7-78b9-430c-9aad-3e0088a25f4c'))" o2 second printString. "KeyNotFound: key an UUID(''571bbfb7-78b9-430c-9aad-3e0088a25f4c'') not found in Dictionary" o2 second at: o2 second keys first. "the same error" ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ So even though it contains the key it fails to access it. Interestingly enough if I serialize and materialize the "broken" dictionary again it suddenly works again. Thanks, Peter

April 5, 2016

From vwnc interesting..

by S Krish

| x y | x := 2.0. [x > 0] whileTrue: [x := x / 2]. y := -2.0. [y < 0] whileTrue: [y := y / 2]. (x = 0.0) -> (x = y) -> ((x basicAt: 1) = (y basicAt: 1)) printIt returns true->true->false and: x = 0.0 and y = -0.0 the negative 0.0 https://en.wikipedia.org/wiki/Signed_zero <https://urldefense.proofpoint.com/v2/url?u=https-3A__en.wikipedia.org_wiki_…>

April 4, 2016

Re: [Pharo-users] Detecting a class is abstract

by Henrik Nergaard

One could extend ClassWidget>>#buildTabbedNameOf: to include this functionality. Quick hack: ClassWidget>>#isAbstract: aClass ^(aClass whichSelectorsReferTo: #subclassResponsibility) isNotEmpty or: [ (aClass respondsTo: #isAbstract) and: [ aClass isAbstract ] ] Last part of #buildTabbedNameOf: ^ self model selectedPackage ifNil: [result, anElement name] ifNotNil: [:package | | mrph | mrph := (package includesClass: anElement) ifTrue: [ (result, anElement name) asStringMorph ] ifFalse: [ (result , anElement name)asStringMorph color: self model extensionColor;yourself]. (self isAbstract: anElement) ifTrue: [ mrph emphasis: 3; color: Color orange ]. mrph. ] Best regards, Henrik -----Original Message----- From: Pharo-users [mailto:pharo-users-bounces@lists.pharo.org] On Behalf Of Hilaire Sent: Monday, April 4, 2016 11:49 AM To: pharo-users(a)lists.pharo.org Subject: [Pharo-users] Detecting a class is abstract Hi, Can Nautilius indicate when a class is abstract (i.e. at least one method in the class, then its hierarchy is definted respond subclassResponsability?) I did not find it in the Analyze menu. Thanks Hilaire -- Dr. Geo http://drgeo.eu

April 4, 2016

Re: [Pharo-users] Detecting a class is abstract

by Hilaire

Thanks Peter. So I guess, Nautilus does not offer this functionnality. Hilaire -- Dr. Geo http://drgeo.eu

April 4, 2016

Re: [Pharo-users] Detecting a class is abstract

by Peter UhnÃ¡k

1. To tell whether a class is abstract: isAbstract := [ :aClass | (aClass whichSelectorsReferTo: #subclassResponsibility) isNotEmpty or: [ (aClass respondsTo: #isAbstract) and: [ aClass isAbstract ] ] ] Just be aware that some classes are "abstract", but you can actually instantiate them, because in #new they return something else. isAbstract value: String "true" 2. To change an icon for a single class (and it's children), add a method to class-side named "systemIcon" 3. To conditionally change an icon for all classes 3.a.) override Object>>systemIcon and make a test based on the isAbstract in 1) 3.b.) or do the same, but in AbstractNautilusUI>>#classIconFor: , this is where test icons are added for example Peter On Mon, Apr 4, 2016 at 11:49 AM, Hilaire <hilaire(a)drgeo.eu> wrote: > Hi, > > Can Nautilius indicate when a class is abstract (i.e. at least one > method in the class, then its hierarchy is definted respond > subclassResponsability?) > > I did not find it in the Analyze menu. > > > Thanks > > Hilaire > > -- > Dr. Geo > http://drgeo.eu > > >

April 4, 2016