- Pharo-users - lists.pharo.org

Re: STON little question

by sean＠clipperadams.com

Can you use [SortFunctions](https://github.com/pharo-open-documentation/pharo-wiki/blob/… "SortFunctions") instead of blocks with the SortedCollections? This is what I finally figured out to do with Fuel most of the time after lots of pain

Nov. 11, 2022

Re: mapping CamelCase to <custom-tag-name>

by Richard O'Keefe

But there IS a #cutCamelCase method in Pharo. It comes from Roassal2. Here it is, copied from Pharo 9.0.0: cutCamelCase "Breaks apart words written in camel case. It's not simply using piecesCutWhere: because we want to also deal with abbreviations and thus we need to decide based on three characters, not just on two: ('FOOBar') piecesCutWhereCamelCase asArray = #('FOO' 'Bar'). ('FOOBar12AndSomething') piecesCutWhereCamelCase asArray = #('FOO' 'Bar' '12' 'And' 'Something') " | start previous current next pieces | self isEmpty ifTrue: [^self]. start := 1. pieces := OrderedCollection new. 3 to: self size do: [ :index | previous := self at: index - 2. current := self at: index - 1. next := self at: index. ((previous isLowercase and: [current isUppercase]) or: [ (previous isUppercase and: [current isUppercase and: [next isLowercase ]]) or: [ (previous isDigit not and: [current isDigit]) or: [ previous isDigit and: [current isDigit not] ]]]) ifTrue: [ pieces add: (self copyFrom: start to: index - 2). start := index - 1]. ]. pieces addAll: ((self copyFrom: start to: self size) piecesCutWhere: [:a :b | (a isDigit and: [b isDigit not]) or: [a isDigit not and: [b isDigit ]]]). ^pieces On Wed, 26 Oct 2022 at 23:37, Kasper Osterbye <kasper.osterbye(a)gmail.com> wrote: > > What's wrong with > > $- join: (s cutCamelCase collect: [ :each | each asLowercase]) > > > There is no method called cutCamelCase in Pharo. If there was, this was > exactly the right solution to use something existing. > > Best, > > Kasper > > >

Nov. 6, 2022

Re: mapping CamelCase to <custom-tag-name>

by Siemen Baader

Hi Richard, On Wed, Oct 26, 2022 at 11:42 AM Richard O'Keefe <raoknz(a)gmail.com> wrote: > What's wrong with > > $- join: (s cutCamelCase collect: [ :each | each asLowercase]) > > where s is the string you want to transform? > I'm sure you're aware of the proverb: > You have a problem and you decide to solve it with > a regular expression. Now you have TWO problems. > I was not, but I like it :) > > MYWeirdName and MyWeirdName both map to my-weird-name, > but perhaps you are happy with that. > Indeed - that is not a problem in my situation. cheers Siemen > > On Sat, 22 Oct 2022 at 21:57, Siemen Baader <siemenbaader(a)gmail.com> > wrote: > >> Hi, >> >> I'm looking for an elegant way to convert class names with optional >> namespace prefixes to names for custom html elements. >> >> MYCustomElement and CustomElement >> >> to >> <my-custom-element> and <custom-element> >> >> There must be an elegant way to do it with regex or inject, but I'm >> embarrassed to say I can't get my head around it. I can get it to match the >> regex '((:isUppercase:+)*)((:isUppercase::isLowercase:+)*)', (if I recall >> correctly) but can't get a collection of the individual elements 'MY' >> 'Custom" 'Element' to lowercase and join. >> >> Thanks for any hints! >> >> cheers >> Siemen >> >

Nov. 5, 2022

Re: STON little question

by stephane ducasse

I found stonProcessSubObjects: block "Execute block to (potentially) change each of my subObjects. In general, all instance and indexable variables are processed. Overwrite when necessary. Not used when #stonContainSubObjects returns false." 1 to: self class instSize do: [ :each | self instVarAt: each put: (block value: (self instVarAt: each)) ]. (self class isVariable and: [ self class isBytes not ]) ifTrue: [ 1 to: self basicSize do: [ :each | self basicAt: each put: (block value: (self basicAt: each)) ] ] but I could not really get how to use it and if it was at the moment of writing. So I will patch my model but to me it defeats the purpose of serialization. Either we can serialize everything or we can transform to that we can fall back on the stable part. Forcing clients to prepare the objects to serialize is always possible but less satisfactory. Because I will have to do it twice. to save from sorted to ordered save from ordered to sorted and on load from ordered to sorted. S

Nov. 4, 2022

Re: STON little question

by stephane ducasse

> On 4 Nov 2022, at 17:56, stephane ducasse <stephane.ducasse(a)inria.fr> wrote: > > Hi Sven > > I was using STON in P7 and Iâm now migrating to P10. > In the past I had no problem with a SortedCollection and now I have because of the block serialisation (of course). > So I cannot really ignore or skip my sorted collection because it has what I want. > I could go over all my collections and transform them into OrderedCollection for the saving. > But may be there is a hook for that. > > In fact I do not care to save the sortedCollection as soon as when I reload I restore it. > > > S I read writeObject: anObject | instanceVariableNames | (instanceVariableNames := anObject class stonAllInstVarNames) isEmpty ifTrue: [ self writeObject: anObject do: [ self encodeMap: #() ] ] ifFalse: [ self writeObject: anObject streamMap: [ :dictionary | instanceVariableNames do: [ :each | (anObject instVarNamed: each) ifNotNil: [ :value | dictionary at: each asSymbol put: value ] ifNil: [ anObject stonShouldWriteNilInstVars ifTrue: [ dictionary at: each asSymbol put: nil ] ] ] ] ] It would be nice if we could say MyClass >> transformedInstances { #series -> [:each | each asOrderedCollection ] . } Or something like that. I was considering to hack my own version of STON to avoid to that in my model. Or serializing nicely SortedCollection. May be I missed something obvious. S

Nov. 4, 2022

STON little question

by stephane ducasse

Hi Sven I was using STON in P7 and Iâm now migrating to P10. In the past I had no problem with a SortedCollection and now I have because of the block serialisation (of course). So I cannot really ignore or skip my sorted collection because it has what I want. I could go over all my collections and transform them into OrderedCollection for the saving. But may be there is a hook for that. In fact I do not care to save the sortedCollection as soon as when I reload I restore it. S

Nov. 4, 2022

Re: Smalltalk Meetup in Zurich - 11 November 2022

by Noury Bouraqadi

Nice initiative Peter! I can't make it to this one. I hope there will be other ones I can join. Noury On Nov 1 2022, at 9:50 am, Sabine Manaa <manaa.sabine(a)gmail.com> wrote: > nice! I will join. Thank you for the organization, Peter > Sabine Manaa > > > Am Mo., 31. Okt. 2022 um 17:31 Uhr schrieb Peter Ursprung <peter(a)ursprung.ch (mailto:peter@ursprung.ch)>: > > Hi all, > > > > At ESUG in Novi Sad we talked about organizing a Smalltalk Meetup in > > Zurich, Switzerland. > > > > In the meantime we have found a date: Friday, November 11, 2022, > > starting at 18:00. > > > > We will meet in a meeting room where we will have 2 short Smalltalk > > talks, afterwards we will go to a brasserie nearby. > > > > If you are interested, please let me know until Sunday, November 6, I > > will send you the details including the precise location. > > > > Regards, > > Peter > > > > -- > > Ursprung Software > > Loren-Allee 18 â¢ 8610 Uster > > Telefon 044 450 72 72 â¢ info(a)ursprung.ch (mailto:info@ursprung.ch) > >

Nov. 1, 2022

Re: Smalltalk Meetup in Zurich - 11 November 2022

by Sabine Manaa

nice! I will join. Thank you for the organization, Peter Sabine Manaa Am Mo., 31. Okt. 2022 um 17:31 Uhr schrieb Peter Ursprung <peter(a)ursprung.ch >: > Hi all, > > At ESUG in Novi Sad we talked about organizing a Smalltalk Meetup in > Zurich, Switzerland. > > In the meantime we have found a date: Friday, November 11, 2022, > starting at 18:00. > > We will meet in a meeting room where we will have 2 short Smalltalk > talks, afterwards we will go to a brasserie nearby. > > If you are interested, please let me know until Sunday, November 6, I > will send you the details including the precise location. > > Regards, > Peter > > -- > Ursprung Software > Loren-Allee 18 â¢ 8610 Uster > Telefon 044 450 72 72 â¢ info(a)ursprung.ch >

Nov. 1, 2022

Smalltalk Meetup in Zurich - 11 November 2022

by Peter Ursprung

Hi all, At ESUG in Novi Sad we talked about organizing a Smalltalk Meetup in Zurich, Switzerland. In the meantime we have found a date: Friday, November 11, 2022, starting at 18:00. We will meet in a meeting room where we will have 2 short Smalltalk talks, afterwards we will go to a brasserie nearby. If you are interested, please let me know until Sunday, November 6, I will send you the details including the precise location. Regards, Peter -- Ursprung Software Loren-Allee 18 â¢ 8610 Uster Telefon 044 450 72 72 â¢ info(a)ursprung.ch

Oct. 31, 2022

Re: Recovering old images in mac

by Arturo Zambrano

Thank you for all the pointers! And, not a minor point, during a Sunday :D All the best Arturo On Sun, Oct 30, 2022 at 3:20 PM Noury Bouraqadi <bouraqadi(a)gmail.com> wrote: > Insead of loading an image, try dropping the .change file on an another > running image. > This will open the change browser that allow explore/load the code. > > Noury > On Oct 30 2022, at 2:15 pm, Pierre Misse Chanabier < > pierre.misse-chanabier(a)inria.fr> wrote: > > Carolina use to be able to do this during her PhD. > Always assumed it was with Espell, but I have never tried. > > https://github.com/carolahp/espell2 > > Pierre > > On 10/30/2022 11:30 AM, Steffen MÃ¤rcker wrote: > > > Is there a way to save / convert such an image to 64 Bit? > > > > Best, Steffen > > [image: Sent from Mailspring] -- Arturo Zambrano LinkedIn: https://www.linkedin.com/in/arturozambrano/

Oct. 30, 2022