Squeak-dev July 2012

squeak-dev@lists.squeakfoundation.org

55 participants
189 discussions

Re: [squeak-dev] The Trunk: Kernel-bf.702.mcz
by Chris Muller 05 Jul '12

05 Jul '12

Those failing tests were never updated because they need to be deleted instead, along with TimeStamp. http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-September/15339… http://www.mail-archive.com/pharo-project@lists.gforge.inria.fr/msg25308.ht… We're going on two years now -- if there are no objections I will finally do the work to remove TimeStamp from the image. Thankfully, it looks like it has no meaningful behaviors over DateAndTime.. - Chris On Tue, Jul 3, 2012 at 5:10 PM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-bf.702.mcz > > ==================== Summary ==================== > > Name: Kernel-bf.702 > Author: bf > Time: 4 July 2012, 12:10:20.238 am > UUID: a349f289-2b28-4e98-abfc-5b4d199aa8f1 > Ancestors: Kernel-bf.701 > > Make 7 more Date/Time tests pass. To make the remaining 3 tests pass we need to decide if unspecified timezones should be taken as local time (as per ISO 8601) or as UTC (as per changes by cmm). Currently there is a mix if the two. > > =============== Diff against Kernel-bf.701 =============== > > Item was changed: > ----- Method: DateAndTime class>>date:time: (in category 'squeak protocol') ----- > date: aDate time: aTime > > ^ self > year: aDate year > day: aDate dayOfYear > hour: aTime hour > minute: aTime minute > + second: aTime second > + offset: aDate start offset! > - second: aTime second! > >

1 0

Re: [squeak-dev] The Trunk: Kernel-ul.704.mcz
by Chris Muller 05 Jul '12

05 Jul '12

Hm, strange. The whole purpose of my 701 was to be the latest merged head -- I thought my repository list was refreshed I guess it wasn't.. On Thu, Jul 5, 2012 at 9:28 AM, <commits(a)source.squeak.org> wrote: > Levente Uzonyi uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-ul.704.mcz > > ==================== Summary ==================== > > Name: Kernel-ul.704 > Author: ul > Time: 5 July 2012, 11:22:10.913 am > UUID: 224efcec-9920-7b4f-9fad-46ae9554a560 > Ancestors: Kernel-eem.703, Kernel-cmm.701 > > Merged. Every package should have one head version in the Trunk. > > =============== Diff against Kernel-eem.703 =============== > > Item was changed: > ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- > + nowWithOffset: aDuration > - nowWithOffset: aDuration > | nanoTicks msm | > - > nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. > + "The following usually only executes at system startup." > + ^ LastTick < nanoTicks > + ifTrue: > + [ LastTick := nanoTicks. > + self waitForOffsets. > + self basicNew > + setJdn: DaysSinceEpoch > + seconds: msm // 1000 > + nano: msm \\ 1000 * 1000000 > + offset: aDuration ] > + ifFalse: > + [ LastTickSemaphore critical: > + [ LastTick := LastTick + 1. > + self waitForOffsets. > + self basicNew > + setJdn: DaysSinceEpoch > + seconds: LastTick // 1000000000 > + nano: LastTick \\ 1000000000 > + offset: aDuration ] ] > - > - (LastTick < nanoTicks) ifTrue: [ > - LastTick := nanoTicks. > - ^ self todayAtMilliSeconds: msm offset: aDuration]. > - > - LastTickSemaphore critical: [ > - LastTick := LastTick + 1. > - ^ self todayAtNanoSeconds: LastTick offset: aDuration] > - > " > [ 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 removed: > - ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- > - todayAtMilliSeconds: milliSecondsSinceMidnight > - self deprecated: 'Use todayAtMilliSeconds:offset:.'. > - ^ self > - todayAtMilliSeconds: milliSecondsSinceMidnight > - offset: self localOffset! > > Item was removed: > - ----- Method: DateAndTime class>>todayAtMilliSeconds:offset: (in category 'squeak protocol') ----- > - todayAtMilliSeconds: milliSecondsSinceMidnight offset: aDuration > - > - "This is usually only during system startup..." > - self waitForOffsets. > - > - ^ self basicNew > - setJdn: DaysSinceEpoch > - seconds: (milliSecondsSinceMidnight // 1000) > - nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) > - offset: aDuration > - > - " > - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. > - "! > > Item was removed: > - ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- > - todayAtNanoSeconds: nanoSecondsSinceMidnight > - self deprecated: 'Use todayAtNanoSeconds:offset:.'. > - self > - todayAtNanoSeconds: nanoSecondsSinceMidnight > - offset: self localOffset! > > Item was removed: > - ----- Method: DateAndTime class>>todayAtNanoSeconds:offset: (in category 'squeak protocol') ----- > - todayAtNanoSeconds: nanoSecondsSinceMidnight offset: aDuration > - > - "This is usually only during system startup..." > - self waitForOffsets. > - > - ^ self basicNew > - setJdn: DaysSinceEpoch > - seconds: (nanoSecondsSinceMidnight // 1000000000) > - nano: (nanoSecondsSinceMidnight \\ 1000000000 ) > - offset: aDuration > - ! > > Item was changed: > ----- Method: Integer>>asStringWithCommas (in category 'printing') ----- > asStringWithCommas > "123456789 asStringWithCommas" > "-123456789 asStringWithCommas" > + ^ self asStringWithCommasSigned: false! > - | digits | > - digits := self abs printString. > - ^ String streamContents: > - [:strm | > - self sign = -1 ifTrue: [strm nextPut: $-]. > - 1 to: digits size do: > - [:i | strm nextPut: (digits at: i). > - (i < digits size and: [(i - digits size) \\ 3 = 0]) > - ifTrue: [strm nextPut: $,]]]! > > Item was changed: > ----- Method: Integer>>asStringWithCommasSigned (in category 'printing') ----- > asStringWithCommasSigned > "123456789 asStringWithCommasSigned" > "-123456789 asStringWithCommasSigned" > | digits | > + self deprecated: 'Use #asStringWithCommasSigned:'. > digits := self abs printString. > ^ String streamContents: > [:strm | > self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+]. > 1 to: digits size do: > [:i | strm nextPut: (digits at: i). > (i < digits size and: [(i - digits size) \\ 3 = 0]) > ifTrue: [strm nextPut: $,]]]! > > Item was added: > + ----- Method: Integer>>asStringWithCommasSigned: (in category 'printing') ----- > + asStringWithCommasSigned: aBoolean > + "123456789 asStringWithCommasSigned: true" > + "-123456789 asStringWithCommasSigned: false" > + | digits | > + digits := self abs printString. > + ^ String streamContents: > + [:strm | > + self sign = -1 ifTrue: [strm nextPut: $-] ifFalse: [aBoolean ifTrue: [strm nextPut: $+]]. > + 1 to: digits size do: > + [:i | strm nextPut: (digits at: i). > + (i < digits size and: [(i - digits size) \\ 3 = 0]) > + ifTrue: [strm nextPut: $,]]]! > >

1 0

The Trunk: Monticello-bf.516.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.516.mcz ==================== Summary ==================== Name: Monticello-bf.516 Author: bf Time: 5 July 2012, 5:07:51.433 pm UUID: 42f8b4e0-b227-46ec-bcfa-a0426a152467 Ancestors: Monticello-bf.515 Fix a problem with very short MCVersionNames (e.g. 'MC1' as used by the test suite) =============== Diff against Monticello-bf.515 =============== Item was changed: ----- Method: MCVersionName>>versionName (in category 'accessing') ----- versionName "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes." | end | self isEmpty ifTrue: [^ String empty]. end := self indexOf: $( ifAbsent: [ + (self size > 4 and: [(self copyFrom: self size - 3 to: self size - 1) = '.mc']) - ('.mc#' startingAt: 1 match: self startingAt: self size - 3) ifTrue: [self size - 3] ifFalse: [self size + 1]]. ^self first: end - 1!

1 0

The Trunk: Kernel-ul.704.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.704.mcz ==================== Summary ==================== Name: Kernel-ul.704 Author: ul Time: 5 July 2012, 11:22:10.913 am UUID: 224efcec-9920-7b4f-9fad-46ae9554a560 Ancestors: Kernel-eem.703, Kernel-cmm.701 Merged. Every package should have one head version in the Trunk. =============== Diff against Kernel-eem.703 =============== Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration - nowWithOffset: aDuration | nanoTicks msm | - nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. + "The following usually only executes at system startup." + ^ LastTick < nanoTicks + ifTrue: + [ LastTick := nanoTicks. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: msm // 1000 + nano: msm \\ 1000 * 1000000 + offset: aDuration ] + ifFalse: + [ LastTickSemaphore critical: + [ LastTick := LastTick + 1. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: LastTick // 1000000000 + nano: LastTick \\ 1000000000 + offset: aDuration ] ] - - (LastTick < nanoTicks) ifTrue: [ - LastTick := nanoTicks. - ^ self todayAtMilliSeconds: msm offset: aDuration]. - - LastTickSemaphore critical: [ - LastTick := LastTick + 1. - ^ self todayAtNanoSeconds: LastTick offset: aDuration] - " [ 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 removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight - self deprecated: 'Use todayAtMilliSeconds:offset:.'. - ^ self - todayAtMilliSeconds: milliSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds:offset: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (milliSecondsSinceMidnight // 1000) - nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) - offset: aDuration - - " - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. - "! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight - self deprecated: 'Use todayAtNanoSeconds:offset:.'. - self - todayAtNanoSeconds: nanoSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds:offset: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (nanoSecondsSinceMidnight // 1000000000) - nano: (nanoSecondsSinceMidnight \\ 1000000000 ) - offset: aDuration - ! Item was changed: ----- Method: Integer>>asStringWithCommas (in category 'printing') ----- asStringWithCommas "123456789 asStringWithCommas" "-123456789 asStringWithCommas" + ^ self asStringWithCommasSigned: false! - | digits | - digits := self abs printString. - ^ String streamContents: - [:strm | - self sign = -1 ifTrue: [strm nextPut: $-]. - 1 to: digits size do: - [:i | strm nextPut: (digits at: i). - (i < digits size and: [(i - digits size) \\ 3 = 0]) - ifTrue: [strm nextPut: $,]]]! Item was changed: ----- Method: Integer>>asStringWithCommasSigned (in category 'printing') ----- asStringWithCommasSigned "123456789 asStringWithCommasSigned" "-123456789 asStringWithCommasSigned" | digits | + self deprecated: 'Use #asStringWithCommasSigned:'. digits := self abs printString. ^ String streamContents: [:strm | self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+]. 1 to: digits size do: [:i | strm nextPut: (digits at: i). (i < digits size and: [(i - digits size) \\ 3 = 0]) ifTrue: [strm nextPut: $,]]]! Item was added: + ----- Method: Integer>>asStringWithCommasSigned: (in category 'printing') ----- + asStringWithCommasSigned: aBoolean + "123456789 asStringWithCommasSigned: true" + "-123456789 asStringWithCommasSigned: false" + | digits | + digits := self abs printString. + ^ String streamContents: + [:strm | + self sign = -1 ifTrue: [strm nextPut: $-] ifFalse: [aBoolean ifTrue: [strm nextPut: $+]]. + 1 to: digits size do: + [:i | strm nextPut: (digits at: i). + (i < digits size and: [(i - digits size) \\ 3 = 0]) + ifTrue: [strm nextPut: $,]]]!

1 0

The Trunk: MonticelloConfigurations-bf.105.mcz
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Bert Freudenberg uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-bf.105.mcz ==================== Summary ==================== Name: MonticelloConfigurations-bf.105 Author: bf Time: 5 July 2012, 3:07:18.328 pm UUID: 5cfbc597-c2d8-45e7-966e-cd8465385785 Ancestors: MonticelloConfigurations-bf.104 Ignore errors when asking server for fast diffs. =============== Diff against MonticelloConfigurations-bf.104 =============== Item was changed: ----- Method: MCConfiguration>>versionNamed:for:from: (in category 'private') ----- versionNamed: aMCVersionName for: aDependency from: repo | baseName fileName ver | (repo filterFileNames: repo cachedFileNames forVersionNamed: aMCVersionName) ifNotEmptyDo: [:cachedNames | fileName := cachedNames anyOne. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Using cached ', fileName]. ver := repo versionNamed: fileName]. ver ifNil: [ baseName := self diffBaseFor: aDependency. (baseName notNil and: [baseName ~= aMCVersionName and: [repo includesVersionNamed: baseName]]) ifTrue: [ fileName := (MCDiffyVersion nameForVer: aMCVersionName base: baseName), '.mcd'. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Downloading ', fileName]. + ver := [repo versionNamed: fileName] ifError: []]]. - ver := repo versionNamed: fileName]]. ver ifNil: [ fileName := aMCVersionName versionName, '.mcz'. self class extraProgressInfo ifTrue:[ProgressNotification signal: '' extra: 'Downloading ', fileName]. ver := repo versionNamed: fileName]. ^ver!

1 0

Daily Commit Log
by commits＠source.squeak.org 05 Jul '12

05 Jul '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-July/005406.html Name: Monticello-abc.513 Ancestors: Monticello-eem.512 Be more strict when parsing file suffixes and version numbers. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005407.html Name: Monticello-bf.514 Ancestors: Monticello-abc.513 Be a little less strict again about parsing version numbers. And use my real initials, not 'abc', which was left set by the broken MC test suite. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005408.html Name: Monticello-bf.515 Ancestors: Monticello-bf.514 This shouldn't ever happen, but it did, so better do something sensible. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005409.html Name: Collections-bf.479 Ancestors: Collections-eem.478 String>>withUnixLineEndings should not modify the string in-place. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005410.html Name: Kernel-cmm.701 Ancestors: Kernel-eem.700, Kernel-cmm.685 Merged. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005411.html Name: Kernel-cmm.685 Ancestors: Kernel-eem.684 - Inline and then remove DateAndTime class>>#todayAtMilliseconds: and #todayAtNanoSeconds: into #nowWithOffset:. - Eliminate duplicate code in Integer printing methods and deprecate one of the methods. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005412.html Name: Kernel-eem.703 Ancestors: Kernel-bf.702 Fix copying of the AdditionalMethodState on CompiledMethod copy. Fix setting copied pragmas' methods to the copied method for both CompiledMethod>>copyWithTrailerBytes: and CompiledMethod>>copy. =============================================

1 0

The Trunk: Kernel-eem.703.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.703.mcz ==================== Summary ==================== Name: Kernel-eem.703 Author: eem Time: 4 July 2012, 1:52:09.978 pm UUID: 072b8788-6194-499e-99f3-877f353d3f8e Ancestors: Kernel-bf.702 Fix copying of the AdditionalMethodState on CompiledMethod copy. Fix setting copied pragmas' methods to the copied method for both CompiledMethod>>copyWithTrailerBytes: and CompiledMethod>>copy. =============== Diff against Kernel-bf.702 =============== Item was changed: + ----- Method: CompiledMethod>>copyWithTrailerBytes: (in category 'copying') ----- - ----- Method: CompiledMethod>>copyWithTrailerBytes: (in category 'initialize-release') ----- copyWithTrailerBytes: trailer "Testing: (CompiledMethod compiledMethodAt: #copyWithTrailerBytes:) tempNamesPut: 'copy end ' " | copy end start penultimateLiteral | start := self initialPC. end := self endPC. copy := trailer createMethod: end - start + 1 class: self class header: self header. 1 to: self numLiterals do: [:i | copy literalAt: i put: (self literalAt: i)]. (penultimateLiteral := self penultimateLiteral) isMethodProperties ifTrue: [copy penultimateLiteral: (penultimateLiteral copy setMethod: copy; + yourself). + self pragmas do: + [:p| p setMethod: self]]. - yourself)]. start to: end do: [:i | copy at: i put: (self at: i)]. ^copy! Item was added: + ----- Method: CompiledMethod>>postCopy (in category 'copying') ----- + postCopy + | penultimateLiteral | + (penultimateLiteral := self penultimateLiteral) isMethodProperties ifTrue: + [self penultimateLiteral: (penultimateLiteral copy + setMethod: self; + yourself). + self pragmas do: + [:p| p setMethod: self]]! Item was removed: - ----- Method: CompiledMethodTrailer>>createMethod:header: (in category 'creating a method') ----- - createMethod: numberOfBytesForAllButTrailer header: headerWord - | meth | - - encodedData ifNil: [ self encode ]. - - "without >>self compiledMethodClass<<, subclassing CompiledMethod is duplicating code" - meth := self compiledMethodClass newMethod: numberOfBytesForAllButTrailer + size header: headerWord. - - "copy the encoded trailer data" - - 1 to: size do: - [:i | meth at: meth size - size + i put: (encodedData at: i)]. - - ^ meth!

1 0

The Trunk: Kernel-cmm.685.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.685.mcz ==================== Summary ==================== Name: Kernel-cmm.685 Author: cmm Time: 4 July 2012, 1:47:58.748 pm UUID: 42e3ebd5-8ae7-4231-a98d-c2e676009dc8 Ancestors: Kernel-eem.684 - Inline and then remove DateAndTime class>>#todayAtMilliseconds: and #todayAtNanoSeconds: into #nowWithOffset:. - Eliminate duplicate code in Integer printing methods and deprecate one of the methods. =============== Diff against Kernel-eem.684 =============== Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration - nowWithOffset: aDuration | nanoTicks msm | - nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. + "The following usually only executes at system startup." + ^ LastTick < nanoTicks + ifTrue: + [ LastTick := nanoTicks. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: msm // 1000 + nano: msm \\ 1000 * 1000000 + offset: aDuration ] + ifFalse: + [ LastTickSemaphore critical: + [ LastTick := LastTick + 1. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: LastTick // 1000000000 + nano: LastTick \\ 1000000000 + offset: aDuration ] ] - - (LastTick < nanoTicks) ifTrue: [ - LastTick := nanoTicks. - ^ self todayAtMilliSeconds: msm offset: aDuration]. - - LastTickSemaphore critical: [ - LastTick := LastTick + 1. - ^ self todayAtNanoSeconds: LastTick offset: aDuration] - " [ 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 removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight - self deprecated: 'Use todayAtMilliSeconds:offset:.'. - ^ self - todayAtMilliSeconds: milliSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds:offset: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (milliSecondsSinceMidnight // 1000) - nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) - offset: aDuration - - " - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. - "! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight - self deprecated: 'Use todayAtNanoSeconds:offset:.'. - self - todayAtNanoSeconds: nanoSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds:offset: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (nanoSecondsSinceMidnight // 1000000000) - nano: (nanoSecondsSinceMidnight \\ 1000000000 ) - offset: self localOffset - ! Item was changed: ----- Method: Integer>>asStringWithCommas (in category 'printing') ----- asStringWithCommas "123456789 asStringWithCommas" "-123456789 asStringWithCommas" + ^ self asStringWithCommasSigned: false! - | digits | - digits := self abs printString. - ^ String streamContents: - [:strm | - self sign = -1 ifTrue: [strm nextPut: $-]. - 1 to: digits size do: - [:i | strm nextPut: (digits at: i). - (i < digits size and: [(i - digits size) \\ 3 = 0]) - ifTrue: [strm nextPut: $,]]]! Item was changed: ----- Method: Integer>>asStringWithCommasSigned (in category 'printing') ----- asStringWithCommasSigned "123456789 asStringWithCommasSigned" "-123456789 asStringWithCommasSigned" | digits | + self deprecated: 'Use #asStringWithCommasSigned:'. digits := self abs printString. ^ String streamContents: [:strm | self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+]. 1 to: digits size do: [:i | strm nextPut: (digits at: i). (i < digits size and: [(i - digits size) \\ 3 = 0]) ifTrue: [strm nextPut: $,]]]! Item was added: + ----- Method: Integer>>asStringWithCommasSigned: (in category 'printing') ----- + asStringWithCommasSigned: aBoolean + "123456789 asStringWithCommasSigned: true" + "-123456789 asStringWithCommasSigned: false" + | digits | + digits := self abs printString. + ^ String streamContents: + [:strm | + self sign = -1 ifTrue: [strm nextPut: $-] ifFalse: [aBoolean ifTrue: [strm nextPut: $+]]. + 1 to: digits size do: + [:i | strm nextPut: (digits at: i). + (i < digits size and: [(i - digits size) \\ 3 = 0]) + ifTrue: [strm nextPut: $,]]]!

1 0

The Trunk: Kernel-cmm.701.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.701.mcz ==================== Summary ==================== Name: Kernel-cmm.701 Author: cmm Time: 4 July 2012, 1:51:54.85 pm UUID: f0177e3d-73ed-4616-a772-83e7bf7d89f4 Ancestors: Kernel-eem.700, Kernel-cmm.685 Merged. =============== Diff against Kernel-eem.700 =============== Item was changed: ----- Method: DateAndTime class>>nowWithOffset: (in category 'squeak protocol') ----- + nowWithOffset: aDuration - nowWithOffset: aDuration | nanoTicks msm | - nanoTicks := (msm := self milliSecondsSinceMidnight) * 1000000. + "The following usually only executes at system startup." + ^ LastTick < nanoTicks + ifTrue: + [ LastTick := nanoTicks. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: msm // 1000 + nano: msm \\ 1000 * 1000000 + offset: aDuration ] + ifFalse: + [ LastTickSemaphore critical: + [ LastTick := LastTick + 1. + self waitForOffsets. + self basicNew + setJdn: DaysSinceEpoch + seconds: LastTick // 1000000000 + nano: LastTick \\ 1000000000 + offset: aDuration ] ] - - (LastTick < nanoTicks) ifTrue: [ - LastTick := nanoTicks. - ^ self todayAtMilliSeconds: msm offset: aDuration]. - - LastTickSemaphore critical: [ - LastTick := LastTick + 1. - ^ self todayAtNanoSeconds: LastTick offset: aDuration] - " [ 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 removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight - self deprecated: 'Use todayAtMilliSeconds:offset:.'. - ^ self - todayAtMilliSeconds: milliSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtMilliSeconds:offset: (in category 'squeak protocol') ----- - todayAtMilliSeconds: milliSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (milliSecondsSinceMidnight // 1000) - nano: (milliSecondsSinceMidnight \\ 1000 * 1000000 ) - offset: aDuration - - " - [ 100000 timesRepeat: [ self fromMilliSeconds: self milliSecondsSinceMidnight. ] ] timeToRun. - "! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight - self deprecated: 'Use todayAtNanoSeconds:offset:.'. - self - todayAtNanoSeconds: nanoSecondsSinceMidnight - offset: self localOffset! Item was removed: - ----- Method: DateAndTime class>>todayAtNanoSeconds:offset: (in category 'squeak protocol') ----- - todayAtNanoSeconds: nanoSecondsSinceMidnight offset: aDuration - - "This is usually only during system startup..." - self waitForOffsets. - - ^ self basicNew - setJdn: DaysSinceEpoch - seconds: (nanoSecondsSinceMidnight // 1000000000) - nano: (nanoSecondsSinceMidnight \\ 1000000000 ) - offset: self localOffset - ! Item was changed: ----- Method: Integer>>asStringWithCommas (in category 'printing') ----- asStringWithCommas "123456789 asStringWithCommas" "-123456789 asStringWithCommas" + ^ self asStringWithCommasSigned: false! - | digits | - digits := self abs printString. - ^ String streamContents: - [:strm | - self sign = -1 ifTrue: [strm nextPut: $-]. - 1 to: digits size do: - [:i | strm nextPut: (digits at: i). - (i < digits size and: [(i - digits size) \\ 3 = 0]) - ifTrue: [strm nextPut: $,]]]! Item was changed: ----- Method: Integer>>asStringWithCommasSigned (in category 'printing') ----- asStringWithCommasSigned "123456789 asStringWithCommasSigned" "-123456789 asStringWithCommasSigned" | digits | + self deprecated: 'Use #asStringWithCommasSigned:'. digits := self abs printString. ^ String streamContents: [:strm | self sign = -1 ifTrue: [strm nextPut: $-] ifFalse:[strm nextPut: $+]. 1 to: digits size do: [:i | strm nextPut: (digits at: i). (i < digits size and: [(i - digits size) \\ 3 = 0]) ifTrue: [strm nextPut: $,]]]! Item was added: + ----- Method: Integer>>asStringWithCommasSigned: (in category 'printing') ----- + asStringWithCommasSigned: aBoolean + "123456789 asStringWithCommasSigned: true" + "-123456789 asStringWithCommasSigned: false" + | digits | + digits := self abs printString. + ^ String streamContents: + [:strm | + self sign = -1 ifTrue: [strm nextPut: $-] ifFalse: [aBoolean ifTrue: [strm nextPut: $+]]. + 1 to: digits size do: + [:i | strm nextPut: (digits at: i). + (i < digits size and: [(i - digits size) \\ 3 = 0]) + ifTrue: [strm nextPut: $,]]]!

1 0

The Trunk: Collections-bf.479.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

Bert Freudenberg uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-bf.479.mcz ==================== Summary ==================== Name: Collections-bf.479 Author: bf Time: 4 July 2012, 5:37:06.028 pm UUID: 76a4f53b-5426-4640-9bb2-6449accdcef6 Ancestors: Collections-eem.478 String>>withUnixLineEndings should not modify the string in-place. =============== Diff against Collections-eem.478 =============== Item was changed: ----- Method: String>>withSqueakLineEndings (in category 'internet') ----- withSqueakLineEndings "Assume the string is textual, and that CR, LF, and CRLF are all valid line endings. Replace each occurence with a single CR." (self includes: Character lf) ifFalse: [ ^self ]. (self includes: Character cr) ifFalse: [ + ^self copy translateWith: String crLfExchangeTable ]. - ^self translateWith: String crLfExchangeTable ]. ^self withLineEndings: String cr! Item was changed: ----- Method: String>>withUnixLineEndings (in category 'internet') ----- withUnixLineEndings "Assume the string is textual, and that CR, LF, and CRLF are all valid line endings. Replace each occurence with a single LF." (self includes: Character cr) ifFalse: [ ^self ]. (self includes: Character lf) ifFalse: [ + ^self copy translateWith: String crLfExchangeTable ]. - ^self translateWith: String crLfExchangeTable ]. ^self withLineEndings: String lf!

1 0

Jump to page: