July 2012 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] can someone explain me this method?

by Camillo Bruni

Cool thanks everyone for the references :D We will pu that into the sources On 2012-07-13, at 19:47, Nicolas Cellier wrote: > The first numbers are quite easy to guess without reading any reference : if you have a major in astronomy, sure :P > - 400 years span 146097 days in gregorian calendar. > - 100 years span 36524 days, except every 400 years. > - 4 years span 1461 days, except every 100 years. > - 1 year span 365 days, except every four years well indeed, not that hard :P, but when you're in midst of a mind-boggling refactoring you don't waste time to understand these details :P > For months and days, the tricks are less trivial... > > Nicolas > > > 2012/7/13 Sven Van Caekenberghe <sven(a)beta9.be>: >> Yeah, but sometimes a clever algorithm comes from a book, so to speak. >> >> Giving the variables long names, or the constants names, would not make that much difference, it would still be pretty hard to understand. >> >> ZTimestamp class>>withJdn: jdn dayMonthYearDo: block >> "Return the value of executing block with the Gregorian Calender day, month and year as arguments, >> as computed from my Julian Day Number, jdn. >> See http://en.wikipedia.org/wiki/Julian_date#Gregorian_calendar_from_Julian_day…" >> >> | j g dg c dc b db a da y m d | >> j := jdn + 32044. >> g := j // 146097. >> dg := j \\ 146097. >> c := ((dg // 36524) + 1) * 3 // 4. >> dc := dg - (c * 36524). >> b := dc // 1461. >> db := dc \\ 1461. >> a := ((db // 365) + 1) * 3 // 4. >> da := db - (a * 365). >> y := (g * 400) + (c * 100) + (b * 4) + a. >> m := ((((da * 5) + 308)) // 153) - 2. >> d := da - ((m + 4) * 153 // 5) + 122. >> ^ block >> value: d + 1 >> value: ((m + 2) \\ 12) + 1 >> value: (y - 4800 + ((m * 2) // 12)) >> >> On 13 Jul 2012, at 17:53, Camillo Bruni wrote: >> >>> comments? decent variable names? no magic numbers? >>> NOW you can find NONE of that in dayMonthYearDo! >>> >>> >>> ================================================================== >>> dayMonthYearDo: aBlock >>> "Evaluation the block with three arguments: day month, year." >>> >>> | l n i j dd mm yyyy | >>> l := jdn + 68569. >>> n := 4 * l // 146097. >>> l := l - (146097 * n + 3 // 4). >>> i := 4000 * (l + 1) // 1461001. >>> l := l - (1461 * i // 4) + 31. >>> j := 80 * l // 2447. >>> dd := l - (2447 * j // 80). >>> l := j // 11. >>> mm := j + 2 - (12 * l). >>> yyyy := 100 * (n - 49) + i + l. >>> >>> ^ aBlock >>> value: dd >>> value: mm >>> value: yyyy. >>> >>> ================================================================== >>> >>> so can anyone explain me the magic numbers here?? >>> >> >> >

July 13, 2012

Re: [Pharo-project] can someone explain me this method?

by Nicolas Cellier

The first numbers are quite easy to guess without reading any reference : - 400 years span 146097 days in gregorian calendar. - 100 years span 36524 days, except every 400 years. - 4 years span 1461 days, except every 100 years. - 1 year span 365 days, except every four years For months and days, the tricks are less trivial... Nicolas 2012/7/13 Sven Van Caekenberghe <sven(a)beta9.be>: > Yeah, but sometimes a clever algorithm comes from a book, so to speak. > > Giving the variables long names, or the constants names, would not make that much difference, it would still be pretty hard to understand. > > ZTimestamp class>>withJdn: jdn dayMonthYearDo: block > "Return the value of executing block with the Gregorian Calender day, month and year as arguments, > as computed from my Julian Day Number, jdn. > See http://en.wikipedia.org/wiki/Julian_date#Gregorian_calendar_from_Julian_day…" > > | j g dg c dc b db a da y m d | > j := jdn + 32044. > g := j // 146097. > dg := j \\ 146097. > c := ((dg // 36524) + 1) * 3 // 4. > dc := dg - (c * 36524). > b := dc // 1461. > db := dc \\ 1461. > a := ((db // 365) + 1) * 3 // 4. > da := db - (a * 365). > y := (g * 400) + (c * 100) + (b * 4) + a. > m := ((((da * 5) + 308)) // 153) - 2. > d := da - ((m + 4) * 153 // 5) + 122. > ^ block > value: d + 1 > value: ((m + 2) \\ 12) + 1 > value: (y - 4800 + ((m * 2) // 12)) > > On 13 Jul 2012, at 17:53, Camillo Bruni wrote: > >> comments? decent variable names? no magic numbers? >> NOW you can find NONE of that in dayMonthYearDo! >> >> >> ================================================================== >> dayMonthYearDo: aBlock >> "Evaluation the block with three arguments: day month, year." >> >> | l n i j dd mm yyyy | >> l := jdn + 68569. >> n := 4 * l // 146097. >> l := l - (146097 * n + 3 // 4). >> i := 4000 * (l + 1) // 1461001. >> l := l - (1461 * i // 4) + 31. >> j := 80 * l // 2447. >> dd := l - (2447 * j // 80). >> l := j // 11. >> mm := j + 2 - (12 * l). >> yyyy := 100 * (n - 49) + i + l. >> >> ^ aBlock >> value: dd >> value: mm >> value: yyyy. >> >> ================================================================== >> >> so can anyone explain me the magic numbers here?? >> > >

July 13, 2012

Re: [Pharo-project] [ENH]: Zinc - Streaming Download Progress

by Sean P. DeNigris

On Jul 13, 2012, at 12:48 PM, "Sven Van Caekenberghe [via Smalltalk]" <ml-node+s1294792n4639882h30(a)n4.nabble.com> wrote: > Did you load Zinc-HTTP-SvenVanCaekenberghe.285 ? Ah, that's what happened. I loaded the latest version from sqs, which seems to be 284 -- View this message in context: http://forum.world.st/ENH-Zinc-Streaming-Download-Progress-tp4639686p463988… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

July 13, 2012

Re: [Pharo-project] [ENH]: Zinc - Streaming Download Progress

by Sven Van Caekenberghe

Did you load Zinc-HTTP-SvenVanCaekenberghe.285 ? On 13 Jul 2012, at 18:22, Sean P. DeNigris wrote: > > Sven Van Caekenberghe wrote >> >> You should now be able to do something like... >> > > That didn't seem to work in my Pharo 1.4 image with 284 loaded. Does it > require something else? I noticed the only method in my image that seems to > set the progress total for downloading is > HTTPSocket>>getRestOfBuffer:totalLength:, which has no senders in my image. > > Thanks! > Sean > > -- > View this message in context: http://forum.world.st/ENH-Zinc-Streaming-Download-Progress-tp4639686p463988… > Sent from the Pharo Smalltalk mailing list archive at Nabble.com. >

July 13, 2012

Re: [Pharo-project] [ENH]: Zinc - Streaming Download Progress

by Sean P. DeNigris

Sven Van Caekenberghe wrote > > You should now be able to do something like... > That didn't seem to work in my Pharo 1.4 image with 284 loaded. Does it require something else? I noticed the only method in my image that seems to set the progress total for downloading is HTTPSocket>>getRestOfBuffer:totalLength:, which has no senders in my image. Thanks! Sean -- View this message in context: http://forum.world.st/ENH-Zinc-Streaming-Download-Progress-tp4639686p463988… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

July 13, 2012

Re: [Pharo-project] can someone explain me this method?

by Sven Van Caekenberghe

Yeah, but sometimes a clever algorithm comes from a book, so to speak. Giving the variables long names, or the constants names, would not make that much difference, it would still be pretty hard to understand. ZTimestamp class>>withJdn: jdn dayMonthYearDo: block "Return the value of executing block with the Gregorian Calender day, month and year as arguments, as computed from my Julian Day Number, jdn. See http://en.wikipedia.org/wiki/Julian_date#Gregorian_calendar_from_Julian_day…" | j g dg c dc b db a da y m d | j := jdn + 32044. g := j // 146097. dg := j \\ 146097. c := ((dg // 36524) + 1) * 3 // 4. dc := dg - (c * 36524). b := dc // 1461. db := dc \\ 1461. a := ((db // 365) + 1) * 3 // 4. da := db - (a * 365). y := (g * 400) + (c * 100) + (b * 4) + a. m := ((((da * 5) + 308)) // 153) - 2. d := da - ((m + 4) * 153 // 5) + 122. ^ block value: d + 1 value: ((m + 2) \\ 12) + 1 value: (y - 4800 + ((m * 2) // 12)) On 13 Jul 2012, at 17:53, Camillo Bruni wrote: > comments? decent variable names? no magic numbers? > NOW you can find NONE of that in dayMonthYearDo! > > > ================================================================== > dayMonthYearDo: aBlock > "Evaluation the block with three arguments: day month, year." > > | l n i j dd mm yyyy | > l := jdn + 68569. > n := 4 * l // 146097. > l := l - (146097 * n + 3 // 4). > i := 4000 * (l + 1) // 1461001. > l := l - (1461 * i // 4) + 31. > j := 80 * l // 2447. > dd := l - (2447 * j // 80). > l := j // 11. > mm := j + 2 - (12 * l). > yyyy := 100 * (n - 49) + i + l. > > ^ aBlock > value: dd > value: mm > value: yyyy. > > ================================================================== > > so can anyone explain me the magic numbers here?? >

July 13, 2012

Re: [Pharo-project] can someone explain me this method?

by Frank Shearar

http://www.hermetic.ch/cal_stud/jdn.htm <-- "9. Conversion Algorithms" describes the algorithm, if not the magic numbers. frank On 13 July 2012 16:53, Camillo Bruni <camillobruni(a)gmail.com> wrote: > comments? decent variable names? no magic numbers? > NOW you can find NONE of that in dayMonthYearDo! > > > ================================================================== > dayMonthYearDo: aBlock > "Evaluation the block with three arguments: day month, year." > > | l n i j dd mm yyyy | > l := jdn + 68569. > n := 4 * l // 146097. > l := l - (146097 * n + 3 // 4). > i := 4000 * (l + 1) // 1461001. > l := l - (1461 * i // 4) + 31. > j := 80 * l // 2447. > dd := l - (2447 * j // 80). > l := j // 11. > mm := j + 2 - (12 * l). > yyyy := 100 * (n - 49) + i + l. > > ^ aBlock > value: dd > value: mm > value: yyyy. > > ================================================================== > > so can anyone explain me the magic numbers here?? >

July 13, 2012

[Pharo-project] [update 2.0] #20211

by Marcus Denker

20211 ----- Issue 6343: move Windows on screen should take in account the task bar http://code.google.com/p/pharo/issues/detail?id=6343 Issue 6341: ClassDescription>>#organization send #recoverFromMDFaultWithTrace http://code.google.com/p/pharo/issues/detail?id=6341 Issue 5131: Error accepting Trait method referencing undefined class http://code.google.com/p/pharo/issues/detail?id=5131 -- Marcus Denker -- http://marcusdenker.de

July 13, 2012

[Pharo-project] can someone explain me this method?

by Camillo Bruni

comments? decent variable names? no magic numbers? NOW you can find NONE of that in dayMonthYearDo! ================================================================== dayMonthYearDo: aBlock "Evaluation the block with three arguments: day month, year." | l n i j dd mm yyyy | l := jdn + 68569. n := 4 * l // 146097. l := l - (146097 * n + 3 // 4). i := 4000 * (l + 1) // 1461001. l := l - (1461 * i // 4) + 31. j := 80 * l // 2447. dd := l - (2447 * j // 80). l := j // 11. mm := j + 2 - (12 * l). yyyy := 100 * (n - 49) + i + l. ^ aBlock value: dd value: mm value: yyyy. ================================================================== so can anyone explain me the magic numbers here??

July 13, 2012

Re: [Pharo-project] Question on 2.0 : shortcuts for menu items

by Goubier Thierry

Ok, done. If anybody is missing the format (Ctrl+r) command in Nautilus, here it is done. Now you can write code to the kilometer, and press Ctrl+r, Ctrl+s. Et voilÃ , nicely formatted smalltalk code. Issue 6363: Format command (linked to Ctrl+r) Slice uploaded to Pharo Inbox. Thierry Le 13/07/2012 15:57, Goubier Thierry a Ã©crit : > Le 13/07/2012 15:45, Benjamin a Ã©crit : >> in a workspace evaluate >> KMLog setDebug >> >> Open a Transcript, and it will tell what ctrl+r is used for :) > > It only tells you [Ctrl+r] :-( > > Just noticed that my changes to NautilusUI were not taken in account > anyway. > > Thierry > >> Ben >> >> On Jul 13, 2012, at 3:44 PM, Goubier Thierry wrote: >> >>> Le 13/07/2012 15:36, Benjamin a Ã©crit : >>>> command r is already used (to rename stuff) >>> >>> But it triggers on Alt+r, not Ctrl+r. >>> >>> Ctrl+r is caught, but I don't know by what. >>> >>> I'll try to change the key (or the rename key). >>> >>> Trying to follow the KM areas, but lost in a maze of small classes, >>> all identical. How do you guys manage that ? >>> >>> Thierry >>> >>>> try a key not used like h >>>> >>>> Ben >>>> >>>> On Jul 13, 2012, at 3:32 PM, Goubier Thierry wrote: >>>> >>>>> Le 13/07/2012 14:42, Benjamin a Ã©crit : >>>>>> (aBuilder shortcut: #Foo) >>>>>> category: #NautilusSourceCodeShortcuts >>>>>> default: $r command >>>>>> do: [:target | self formatTextFor: target sourceTextArea ] >>>>>> description: 'Format the text of a text morph'. >>>>>> >>>>>> Defined on class side of the class you want :) >>>>> >>>>> Found that, yes. >>>>> >>>>> Doesn't work... >>>>> >>>>> Cmd+r result in a tab (well, if Ctrl+r is really Cmd+r in Linux). >>>>> >>>>> Thierry >>>>> -- >>>>> Thierry Goubier >>>>> CEA list >>>>> Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s >>>>> 91191 Gif sur Yvette Cedex >>>>> France >>>>> Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95 >>>>> >>>>> >>>>> >>>> >>>> >>>> >>>> >>> >>> >>> -- >>> Thierry Goubier >>> CEA list >>> Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s >>> 91191 Gif sur Yvette Cedex >>> France >>> Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95 >>> >>> >>> >> >> >> >> > > -- Thierry Goubier CEA list Laboratoire des Fondations des SystÃ¨mes Temps RÃ©el EmbarquÃ©s 91191 Gif sur Yvette Cedex France Phone/Fax: +33 (0) 1 69 08 32 92 / 83 95

July 13, 2012