Packages July 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

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.685.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

1 0

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

04 Jul '12

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: Kernel-cmm.701.mcz
by commits＠source.squeak.org 04 Jul '12

04 Jul '12

1 0

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

04 Jul '12

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

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

04 Jul '12

1 0

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

04 Jul '12

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2012