Packages April 2016

packages@lists.squeakfoundation.org

3 participants
23176 discussions

The Trunk: Kernel-ul.1011.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1011.mcz ==================== Summary ==================== Name: Kernel-ul.1011 Author: ul Time: 2 April 2016, 9:22:40.391347 pm UUID: 924b2c29-5e11-4abb-aeb5-355380a4e56a Ancestors: Kernel-ul.1010 Normalize the created LargePositiveInteger in Random >> #nextLargeInt:. =============== Diff against Kernel-ul.1010 =============== Item was changed: ----- Method: Random>>nextLargeInt: (in category 'accessing') ----- nextLargeInt: anInteger "Answer a random integer value from the interval [1, anInteger]. This method works for arbitrarily large integers." | byteCount bigRandom result firstDigit | byteCount := anInteger digitLength + 4. "Extend the space with at least 32 bits for a fairer distribution." bigRandom := LargePositiveInteger new: byteCount. self nextBytes: byteCount into: bigRandom startingAt: 1. + bigRandom := bigRandom normalize. "Make sure that there are no leading zero bytes." result := anInteger * bigRandom bitShift: -8 * byteCount. "Avoid using LargeInteger arithmetic for +1 in most cases." result isLarge ifFalse: [ ^result + 1 ]. (firstDigit := result digitAt: 1) = 255 ifTrue: [ ^result + 1 ]. result digitAt: 1 put: firstDigit + 1. ^result !

1 0

The Trunk: Network-ul.176.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.176.mcz ==================== Summary ==================== Name: Network-ul.176 Author: ul Time: 2 April 2016, 9:06:31.957661 pm UUID: 1b580a49-2663-4d5d-a659-606ba1c698de Ancestors: Network-ul.175 Use primitiveMakeUUID when it's available in UUID >> #makeUUID. This should keep things snappier when UUIDPlugin works, and it should decrease the possibility of a UUID collision due to our poor seed generation in Random. =============== Diff against Network-ul.175 =============== Item was changed: ----- Method: UUID>>makeUUID (in category 'as yet unclassified') ----- makeUUID + + self primMakeUUID ifNil: [ + UUIDGenerator default generateBytes: self forVersion: 4 ]! - UUIDGenerator default generateBytes: self forVersion: 4.!

1 0

The Trunk: Kernel-ul.1010.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1010.mcz ==================== Summary ==================== Name: Kernel-ul.1010 Author: ul Time: 2 April 2016, 8:59:33.195843 pm UUID: b583a3a1-3df9-468c-8c26-2388bd519d52 Ancestors: Kernel-mt.1009 Behavior changes: - when #flushCache is sent to a selector, then there's no need to send it to the corresponding method too. SmallInteger changes: - #decimalDigitLength shouldn't perform LargeInteger comparisons on 32-bit VMs - do fewer computations in #printOn:base:length:padded: - removed #destinationBuffer: which has no sender =============== Diff against Kernel-mt.1009 =============== Item was changed: ----- Method: Behavior>>basicAddSelector:withMethod: (in category 'adding/removing methods') ----- basicAddSelector: selector withMethod: compiledMethod "Add the message selector with the corresponding compiled method to the receiver's method dictionary. Do this without sending system change notifications" - | oldMethodOrNil | - oldMethodOrNil := self lookupSelector: selector. self methodDict at: selector put: compiledMethod. + compiledMethod + methodClass: self; + selector: selector. - compiledMethod methodClass: self. - compiledMethod selector: selector. + "Now flush Squeak's method cache for this selector" + selector flushCache! - "Now flush Squeak's method cache, either by selector or by method" - oldMethodOrNil == nil ifFalse: [oldMethodOrNil flushCache]. - selector flushCache.! Item was changed: ----- Method: Behavior>>basicRemoveSelector: (in category 'adding/removing methods') ----- basicRemoveSelector: selector "Assuming that the argument, selector (a Symbol), is a message selector in my method dictionary, remove it and its method. Returns the old method if found, nil otherwise." | oldMethod | oldMethod := self methodDict at: selector ifAbsent: [^ nil]. self methodDict removeKey: selector. + "Now flush Squeak's method cache for this selector" - "Now flush Squeak's method cache, either by selector or by method" - oldMethod flushCache. selector flushCache. ^oldMethod! Item was changed: ----- Method: SmallInteger>>decimalDigitLength (in category 'printing') ----- decimalDigitLength "Answer the number of digits printed out in base 10. + Note that this only works for positive SmallIntegers up to 63-bits." - Note that this only works for positive SmallIntegers up to 64-bits." + self <= 99999999 "8" ifTrue: [ + self <= 9999 "4" ifTrue: [ + self <= 99 "2" ifTrue: [ + self <= 9 "1" ifTrue: [ ^1]. + ^2 ]. + self <= 999 "3" ifTrue: [ ^3]. + ^4 ]. + self <= 999999 "6" ifTrue: [ + self <= 99999 "5" ifTrue: [ ^5 ]. - self < 10000 ifTrue: [ - self < 100 ifTrue: [ - self < 10 ifTrue: [ ^1]. - ^2 ]. - self < 1000 ifTrue: [ ^3 ]. - ^4 ]. - self < 100000000 ifTrue: [ - self < 1000000 ifTrue: [ - self < 100000 ifTrue: [ ^5]. ^6 ]. + self <= 9999999 "7" ifTrue: [ ^7 ]. - self < 10000000 ifTrue: [ ^7 ]. ^8 ]. + self <= 1073741823 "10" ifTrue: [ "This is here only to avoid LargeInteger comparisons in 32-bit VMs" + self <= 999999999 "9" ifTrue: [ ^9 ]. + ^10 ]. + self <= 999999999999999 "15" ifTrue: [ + self <= 9999999999999 "13" ifTrue: [ + self <= 99999999999 "11" ifTrue: [ + self <= 9999999999 "10" ifTrue: [ ^10 ]. + ^11 ]. + self <= 999999999999 "12" ifTrue: [ ^12 ]. + ^13 ]. + self <= 99999999999999 "14" ifTrue: [ ^14 ]. + ^15 ]. + self <= 99999999999999999 "17" ifTrue: [ + self <= 9999999999999999 "16" ifTrue: [ ^16 ]. + ^17 ]. + self <= 999999999999999999 "18" ifTrue: [ ^18 ]. + ^19 "(1 << 60 - 1) asString size"! - self < 1000000000000 ifTrue: [ - self < 10000000000 ifTrue: [ - self < 1000000000 ifTrue: [ ^9 ]. - ^10 ]. - self < 100000000000 ifTrue: [ ^11 ]. - ^12 ]. - self < 10000000000000000 ifTrue: [ - self < 100000000000000 ifTrue: [ - self < 10000000000000 ifTrue: [ ^13 ]. - ^14 ]. - self < 1000000000000000 ifTrue: [ ^15 ]. - ^16 ]. - self < 1000000000000000000 ifTrue: [ - self < 100000000000000000 ifTrue: [ ^17 ]. - ^18 ]. - self < 10000000000000000000 ifTrue: [ ^19 ]. - ^20! Item was removed: - ----- Method: SmallInteger>>destinationBuffer: (in category 'printing') ----- - destinationBuffer:digitLength - ^ LargePositiveInteger new: digitLength.! Item was changed: ----- Method: SmallInteger>>printOn:base:length:padded: (in category 'printing') ----- printOn: stream base: base length: minimumLength padded: padWithZeroes | n numberOfDigits totalLength divisor | self < 0 ifTrue: [ n := self negated. totalLength := 1 ] ifFalse: [ n := self. totalLength := 0 ]. numberOfDigits := n numberOfDigitsInBase: base. totalLength := totalLength + numberOfDigits. padWithZeroes ifFalse: [ [ totalLength < minimumLength ] whileTrue: [ stream space. totalLength := totalLength + 1 ] ]. self < 0 ifTrue: [ stream nextPut: $- ]. padWithZeroes ifTrue: [ [ totalLength < minimumLength ] whileTrue: [ stream nextPut: $0. totalLength := totalLength + 1 ] ]. + numberOfDigits > 1 ifTrue: [ + divisor := base = 10 + ifTrue: [ #(1 10 100 1000 10000 100000 1000000 10000000 100000000 1000000000 10000000000 100000000000 1000000000000 10000000000000 100000000000000 1000000000000000 10000000000000000 100000000000000000 1000000000000000000) at: numberOfDigits ] + ifFalse: [ base raisedToInteger: numberOfDigits - 1 ]. + [ divisor > 1 ] whileTrue: [ + | digit | + digit := n // divisor. + stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: digit + 1). + n := n - (digit * divisor). + divisor := divisor // base ] ]. + ^stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: n + 1)! - divisor := base = 10 - ifTrue: [ #(1 10 100 1000 10000 100000 1000000 10000000 100000000 1000000000 10000000000 100000000000 1000000000000 10000000000000 100000000000000 1000000000000000 10000000000000000 100000000000000000 1000000000000000000) at: numberOfDigits ] - ifFalse: [ base raisedToInteger: numberOfDigits - 1 ]. - [ divisor > 0 ] whileTrue: [ - | digit | - digit := n // divisor. - stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: digit + 1). - n := n - (digit * divisor). - divisor := divisor // base ]!

1 0

The Trunk: Kernel-ul.1010.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

1 0

The Trunk: KernelTests-ul.309.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.309.mcz ==================== Summary ==================== Name: KernelTests-ul.309 Author: ul Time: 2 April 2016, 9:23:24.449569 pm UUID: c82a8276-ad4f-4219-9205-826357bcf0b7 Ancestors: KernelTests-cmm.308 Extracted #testDecimalDigitLength from SmallIntegerTest >> #testPrintString, and added a few extra cases to it. =============== Diff against KernelTests-cmm.308 =============== Item was added: + ----- Method: SmallIntegerTest>>testDecimalDigitLength (in category 'testing - printing') ----- + testDecimalDigitLength + + | x length random | + "Test edge cases" + x := 1. + length := 1. + [ x <= SmallInteger maxVal ] whileTrue: [ + self + assert: length equals: x decimalDigitLength; + assert: (length - 1 max: 1) equals: (x - 1) decimalDigitLength. + x := x * 10. + length := length + 1 ]. + "A few values by hand" + #( + 0 1 + 4 1 + 12 2 + 123 3 + 1234 4 + 56789 5 + 657483 6 + 6571483 7 + 65174383 8 + 625744831 9 + 1000001111 10 + ), { + SmallInteger maxVal. Smalltalk wordSize = 8 ifTrue: [ 19 ] ifFalse: [ 10 ] + } groupsDo: [ :input :expectedOutput | + self assert: expectedOutput equals: input decimalDigitLength ]. + "Pseudorandom tests." + random := Random seed: 36rSqueak. + 10000 timesRepeat: [ + x := SmallInteger maxVal atRandom: random. + self assert: x asString size equals: x decimalDigitLength ]! Item was changed: ----- Method: SmallIntegerTest>>testPrintString (in category 'testing - printing') ----- testPrintString + self assert: 1 printString = '1'. self assert: -1 printString = '-1'. self assert: SmallInteger minVal printString = (Smalltalk wordSize = 8 ifTrue: [ '-1152921504606846976'] ifFalse: ['-1073741824']). self assert: SmallInteger maxVal printString = (Smalltalk wordSize = 8 ifTrue: [ '1152921504606846975'] ifFalse: ['1073741823']). self assert: 12345 printString = '12345'. + self assert: -54321 printString = '-54321'! - self assert: -54321 printString = '-54321'. - - self assert: 0 decimalDigitLength = 1. - self assert: 4 decimalDigitLength = 1. - self assert: 12 decimalDigitLength = 2. - self assert: 123 decimalDigitLength = 3. - self assert: 1234 decimalDigitLength = 4. - self assert: 56789 decimalDigitLength = 5. - self assert: 657483 decimalDigitLength = 6. - self assert: 6571483 decimalDigitLength = 7. - self assert: 65174383 decimalDigitLength = 8. - self assert: 625744831 decimalDigitLength = 9. - self assert: 1000001111 decimalDigitLength = 10. - self assert: SmallInteger maxVal decimalDigitLength = (Smalltalk wordSize = 8 ifTrue: [19] ifFalse: [10]).!

1 0

The Trunk: KernelTests-ul.309.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

1 0

The Trunk: Kernel-mt.1009.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1009.mcz ==================== Summary ==================== Name: Kernel-mt.1009 Author: mt Time: 2 April 2016, 12:23:20.21041 pm UUID: bd1b45d5-cb4d-41b0-890b-c8f70de70b1c Ancestors: Kernel-ul.1008 Recent CogVMs do not yield preempted processes. Fixes the behavior where "[ [] repeat] fork" could not be interrupted anymore via CMD+. and hence locked the image. =============== Diff against Kernel-ul.1008 =============== Item was changed: ----- Method: ProcessorScheduler>>preemptedProcess (in category 'accessing') ----- preemptedProcess "Return the process that the currently active process just preempted." + + self activeProcess priority to: 1 by: -1 do: [:priority | + (quiescentProcessLists at: priority) ifNotEmpty: [:list | + ^ Smalltalk processPreemptionYields + ifTrue: [list last] + ifFalse: [list first]]]. + ^ nil + - | list | - activeProcess priority to: 1 by: -1 do:[:priority| - list := quiescentProcessLists at: priority. - list isEmpty ifFalse:[^list last]. - ]. - ^nil - "Processor preemptedProcess"!

1 0

The Trunk: Kernel-mt.1009.mcz
by commits＠source.squeak.org 02 Apr '16

02 Apr '16

1 0

The Trunk: Morphic-mt.1098.mcz
by commits＠source.squeak.org 01 Apr '16

01 Apr '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1098.mcz ==================== Summary ==================== Name: Morphic-mt.1098 Author: mt Time: 1 April 2016, 11:28:33.972613 am UUID: 96501329-3432-4823-af23-a7a2f2ea330b Ancestors: Morphic-mt.1097 Adds possibility to specify pop-up position hint for balloon morphs. Use it to show some help programmatically like this: someWidget showBalloon: 'Now click here.' at: someWidget topCenter. =============== Diff against Morphic-mt.1097 =============== Item was added: + ----- Method: BalloonMorph>>popUpAt: (in category 'initialization') ----- + popUpAt: point + + self position: point. + self popUp.! Item was added: + ----- Method: Morph>>showBalloon:at: (in category 'halos and balloon help') ----- + showBalloon: msgString at: point + "Pop up a balloon containing the given string." + + self isInWorld ifFalse: [^ self]. + (msgString isNil or: [msgString isEmpty]) ifTrue: [^ self]. + + (self balloonMorphClass + string: msgString + for: self balloonHelpAligner) + popUpAt: point.! Item was added: + ----- Method: NewBalloonMorph>>popUpAt: (in category 'initialization') ----- + popUpAt: point + "Do not remove other balloon helps." + + | w h | + self balloonOwner ifNil: [^ self]. + self balloonOwner isInWorld ifFalse: [^ self]. + + w := self balloonOwner world. + h := w activeHand. + + #(bottomLeft topLeft bottomRight topRight) detect: [:nextOrientation | + | pointWithOffset | + self orientation: nextOrientation. + pointWithOffset := point + self tailOffset. + self move: pointWithOffset. + self bounds: (self bounds translatedToBeWithin: w bounds). + (self bounds perform: self orientation) = pointWithOffset] ifNone: ["Keep last try."]. + + w activeHand addBalloonHelp: self. + self openInWorld.!

1 0

The Trunk: Morphic-mt.1098.mcz
by commits＠source.squeak.org 01 Apr '16

01 Apr '16

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 April 2016