Packages November 2010

packages@lists.squeakfoundation.org

1 participants
285 discussions

The Trunk: Kernel-ul.513.mcz
by commits＠source.squeak.org 07 Nov '10

07 Nov '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.513.mcz ==================== Summary ==================== Name: Kernel-ul.513 Author: ul Time: 7 November 2010, 12:08:10.875 am UUID: 887f4907-c347-2e45-8d2e-dd7814ac4248 Ancestors: Kernel-ul.512 - DateAndTime startup enhancement from Cuis part 2 =============== Diff against Kernel-ul.512 =============== Item was changed: ----- Method: DateAndTime class>>initializeOffsets (in category 'initialize-release') ----- + initializeOffsets + | durationSinceEpoch secondsSinceMidnight nowSecs | + LastTick := 0. + nowSecs := self clock secondsWhenClockTicks. + LastMilliSeconds := self millisecondClockValue. + durationSinceEpoch := Duration + days: SqueakEpoch + hours: 0 + minutes: 0 + seconds: nowSecs. + DaysSinceEpoch := durationSinceEpoch days. + secondsSinceMidnight := (durationSinceEpoch - + (Duration + days: DaysSinceEpoch + hours: 0 + minutes: 0 + seconds: 0)) asSeconds. + MilliSecondOffset := secondsSinceMidnight * 1000 - LastMilliSeconds! - initializeOffsets - - | epochianSeconds secondsSinceMidnight nowSecs | - - LastTick := 0. - - nowSecs := self clock secondsWhenClockTicks. - LastMilliSeconds := self millisecondClockValue. - - epochianSeconds := Duration days: SqueakEpoch hours: 0 minutes: 0 seconds: nowSecs. - - DaysSinceEpoch := epochianSeconds days. - - secondsSinceMidnight := (epochianSeconds - (Duration days: DaysSinceEpoch hours: 0 minutes: 0 seconds: 0)) asSeconds. - - MilliSecondOffset := (secondsSinceMidnight * 1000 - LastMilliSeconds) - ! Item was changed: ----- Method: DateAndTime class>>milliSecondsSinceMidnight (in category 'squeak protocol') ----- milliSecondsSinceMidnight - | msm msClock | - - msClock := self millisecondClockValue. + "This is usually only during system startup..." + self waitForOffsets. - ( - msClock < LastMilliSeconds) - ifTrue:[ "rolled over" MilliSecondOffset := MilliSecondOffset + (SmallInteger maxVal // 2) + 1 ]. + msClock := self millisecondClockValue. + msClock < LastMilliSeconds ifTrue: [ "rolled over" + MilliSecondOffset := MilliSecondOffset + (SmallInteger maxVal // 2) + 1 ]. LastMilliSeconds := msClock. + [ + msm := msClock + MilliSecondOffset. + msm >= 86400000 ] whileTrue: [ + "next day" + LastTick := -1. + DaysSinceEpoch := DaysSinceEpoch + 1. + MilliSecondOffset := MilliSecondOffset - 86400000 ]. - - [ msm := msClock + MilliSecondOffset. - (msm >= 86400000) ] - whileTrue: [ "next day" - LastTick := -1. - DaysSinceEpoch := DaysSinceEpoch + 1. - MilliSecondOffset := MilliSecondOffset - 86400000 ]. - "day rolled over sanity check" + (LastTick = -1 and: [ + (Duration + days: SqueakEpoch + hours: 0 + minutes: 0 + seconds: self clock totalSeconds) days ~= DaysSinceEpoch ]) ifTrue: [ + self initializeOffsets. + ^ self milliSecondsSinceMidnight ]. + ^ msm.! - ((LastTick = -1) and: [ - (Duration days: SqueakEpoch hours: 0 minutes: 0 seconds: (self clock totalSeconds)) days ~= DaysSinceEpoch ]) - ifTrue: - [ self initializeOffsets. - ^ self milliSecondsSinceMidnight ]. - - ^msm - - - - ! Item was changed: ----- Method: DateAndTime class>>now (in category 'ansi protocol') ----- now | nanoTicks msm | nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. (LastTick < nanoTicks) ifTrue: [ LastTick := nanoTicks. ^ self todayAtMilliSeconds: msm]. + LastTickSemaphore critical: [ - LastTickSemaphore critical: [ LastTick := LastTick + 1. ^ self todayAtNanoSeconds: LastTick] " [ 10000 timesRepeat: [ self now. ] ] timeToRun / 10000.0 . If calls to DateAndTime-c-#now are within a single millisecond the semaphore code to ensure that (self now <= self now) slows things down considerably by a factor of about 20. The actual speed of a single call to DateAndTime-now in milliseconds is demonstrated by the unguarded method below. [ 100000 timesRepeat: [ self todayAtMilliSeconds: (self milliSecondsSinceMidnight) ] ] timeToRun / 100000.0 . 0.00494 0.00481 0.00492 0.00495 "! Item was changed: ----- Method: DateAndTime class>>startUp: (in category 'initialize-release') ----- + startUp: resuming + resuming ifFalse: [ ^ self ]. + OffsetsAreValid := false. + [ + self initializeOffsets. + OffsetsAreValid := true + ] forkAt: Processor userInterruptPriority.! - startUp: resuming - - resuming ifFalse: [^ self]. - - [ self initializeOffsets ] fork. - - ! Item was changed: ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- todayAtMilliSeconds: milliSecondsSinceMidnight + "This is usually only during system startup..." + self waitForOffsets. + ^ self basicNew setJdn: DaysSinceEpoch seconds: (milliSecondsSinceMidnight // 1000) nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) offset: self localOffset " + [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. "! Item was changed: ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- todayAtNanoSeconds: nanoSecondsSinceMidnight + "This is usually only during system startup..." + self waitForOffsets. + ^ self basicNew setJdn: DaysSinceEpoch seconds: (nanoSecondsSinceMidnight // 1000000000) nano: (nanoSecondsSinceMidnight \\ 1000000000 ) offset: self localOffset ! Item was added: + ----- Method: DateAndTime class>>waitForOffsets (in category 'initialize-release') ----- + waitForOffsets + OffsetsAreValid ifFalse: [ + [ + (Delay forSeconds: 1) wait. + OffsetsAreValid + ] whileFalse + ]!

1 0

The Trunk: Kernel-ul.512.mcz
by commits＠source.squeak.org 07 Nov '10

07 Nov '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.512.mcz ==================== Summary ==================== Name: Kernel-ul.512 Author: ul Time: 7 November 2010, 12:05:13.149 am UUID: f35cd221-68a5-f04b-b6bc-d07df326b3d3 Ancestors: Kernel-nice.511 - DateAndTime startup enhancement from Cuis part 1 =============== Diff against Kernel-nice.511 =============== Item was changed: Magnitude subclass: #DateAndTime instanceVariableNames: 'seconds offset jdn nanos' + classVariableNames: 'ClockProvider DaysSinceEpoch LastMilliSeconds LastTick LastTickSemaphore LocalTimeZone MilliSecondOffset OffsetsAreValid' - classVariableNames: 'ClockProvider DaysSinceEpoch LastMilliSeconds LastTick LastTickSemaphore LocalTimeZone MilliSecondOffset' poolDictionaries: 'ChronologyConstants' category: 'Kernel-Chronology'! !DateAndTime commentStamp: 'brp 5/13/2003 08:07' prior: 0! I represent a point in UTC time as defined by ISO 8601. I have zero duration. My implementation uses three SmallIntegers and a Duration: jdn - julian day number. seconds - number of seconds since midnight. nanos - the number of nanoseconds since the second. offset - duration from UTC. The nanosecond attribute is almost always zero but it defined for full ISO compliance and is suitable for timestamping. ! Item was added: + (PackageInfo named: 'Kernel') postscript: 'DateAndTime classPool at: #OffsetsAreValid put: true'!

1 0

The Trunk: Kernel-ul.512.mcz
by commits＠source.squeak.org 07 Nov '10

07 Nov '10

1 0

The Trunk: Kernel-ul.512.mcz
by commits＠source.squeak.org 07 Nov '10

07 Nov '10

1 0

The Trunk: System-ul.391.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.391.mcz ==================== Summary ==================== Name: System-ul.391 Author: ul Time: 6 November 2010, 4:15:03.804 am UUID: 4da8fee3-53d5-c045-abe8-c0ce5d6efa14 Ancestors: System-ul.390 - added MessageTally default size tweaks from Cuis - DiffElement is not string specific anymore (removed the isOctetString-asOctetStringText nonsense) - ClassDiffBuilder's diffs are now based on characters instead of words, because it's fast enough and usually gives better results =============== Diff against System-ul.390 =============== Item was changed: ----- Method: ClassDiffBuilder>>print:withAttributes:on: (in category 'private') ----- + print: aCharacter withAttributes: attributes on: stream - print: aString withAttributes: attributes on: stream stream currentAttributes: attributes; + nextPut: aCharacter! - nextPutAll: aString! Item was changed: ----- Method: ClassDiffBuilder>>split: (in category 'private') ----- split: aString + "Diff by characters." - "I return an array with aString splitted by Character >> #separators." + ^aString as: Array! - ^Array streamContents: [ :stream | - | input separators | - input := aString readStream. - separators := CharacterSet separators. - [ input atEnd ] whileFalse: [ - | word separator | - word := input - upToAnyOf: separators - do: [ :matchingSeparator | - separator := matchingSeparator ]. - stream nextPut: (separator - ifNil: [ word ] - ifNotNil: [ word, separator asString ]) ] ]! Item was changed: ----- Method: DiffElement>>string: (in category 'accessing') ----- string: aString string := aString. - string isOctetString ifTrue: [ "Make sure that #hash will return the same value if the strings are equal." - string := string asOctetString ]. hash := string hash! Item was changed: ----- Method: MessageTally class>>defaultMaxClassNameSize (in category 'defaults') ----- defaultMaxClassNameSize "Return the default maximum width of the class name alone" + ^50! - ^30! Item was changed: ----- Method: MessageTally class>>defaultMaxClassPlusSelectorSize (in category 'defaults') ----- defaultMaxClassPlusSelectorSize "Return the default maximum width of the class plus selector together (not counting the '>>')" + ^100! - ^60!

1 0

The Trunk: System-ul.391.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

1 0

The Trunk: System-ul.391.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

1 0

The Trunk: Monticello-ul.406.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

Levente Uzonyi uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ul.406.mcz ==================== Summary ==================== Name: Monticello-ul.406 Author: ul Time: 6 November 2010, 6:00:42.206 am UUID: 6fc058be-ae06-b742-950b-7ddeed597ed5 Ancestors: Monticello-nice.405 - show the class side definition in MCPatchBrowser - use ClassDiffBuilder in MCPatchBrowser for diffing classes =============== Diff against Monticello-nice.405 =============== Item was changed: ----- Method: MCClassDefinition>>definitionAndCommentString (in category 'printing') ----- definitionAndCommentString ^ String streamContents: [:stream | self printDefinitionOn: stream. stream cr; cr. + self printClassSideDefinitionOn: stream. + stream cr; cr. self printCommentOn: stream]! Item was added: + ----- Method: MCClassDefinition>>printClassSideDefinitionOn: (in category 'printing') ----- + printClassSideDefinitionOn: stream + + stream + nextPutAll: self className; + nextPutAll: ' class '; + cr; tab; + nextPutAll: 'instanceVariableNames: '; + store: self classInstanceVariablesString! Item was changed: ----- Method: MCPatchOperation>>sourceText (in category 'accessing') ----- sourceText + + ^(self isClassPatch + ifFalse: [ TextDiffBuilder ] + ifTrue: [ ClassDiffBuilder ]) + buildDisplayPatchFrom: self fromSource + to: self toSource + inClass: self targetClass + prettyDiffs: ( + Preferences diffsWithPrettyPrint and: [ + self targetClass notNil and: [ + self isClassPatch not ] ])! - | builder | - builder := (Preferences diffsWithPrettyPrint and: [ self targetClass notNil and: [ self isClassPatch not ] ]) - ifTrue: - [PrettyTextDiffBuilder - from: self fromSource - to: self toSource - inClass: self targetClass] - ifFalse: [TextDiffBuilder from: self fromSource to: self toSource]. - ^builder buildDisplayPatch.!

1 0

The Trunk: Monticello-ul.406.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

1 0

The Trunk: Monticello-ul.406.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

1 0

← Newer
1
...
21
22
23
24
25
26
27
28
29
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2010