Packages January 2013

packages@lists.squeakfoundation.org

1 participants
219 discussions

The Trunk: Kernel-nice.730.mcz
by commits＠source.squeak.org 17 Jan '13

17 Jan '13

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.730.mcz ==================== Summary ==================== Name: Kernel-nice.730 Author: nice Time: 9 January 2013, 3:13:24.184 am UUID: a5bc2c5c-0e3e-428c-8fc4-b0cd633be9f4 Ancestors: Kernel-nice.729 1) connect primitive 20 for large integer modulo (in range 31 to 64 bits) 2) simplify #digitDiv:neg: senders since it can cope with a negative SmallInteger as first parameter WARNING: do not use with COG 2662 because primitive 20 (rem) is broken for negative case. This will have to wait a few days in the inbox... NOTE: the fallback code for Euclidean division #digitDiv:neg: is awfully dated with its nibbles... our (positive) SmallInteger range is 30bits. =============== Diff against Kernel-nice.729 =============== Item was changed: ----- Method: Integer>>/ (in category 'arithmetic') ----- / aNumber "Refer to the comment in Number / " | quoRem | aNumber isInteger ifTrue: + [quoRem := self digitDiv: aNumber neg: self negative ~~ aNumber negative. - [quoRem := self digitDiv: aNumber abs "*****I've added abs here*****" - neg: self negative ~~ aNumber negative. (quoRem at: 2) = 0 ifTrue: [^ (quoRem at: 1) normalize] ifFalse: [^ (Fraction numerator: self denominator: aNumber) reduced]]. ^ aNumber adaptToInteger: self andSend: #/! Item was changed: ----- Method: Integer>>quo: (in category 'arithmetic') ----- quo: aNumber "Refer to the comment in Number quo: " | ng quo | aNumber isInteger ifTrue: [ng := self negative == aNumber negative == false. + quo := (self digitDiv: aNumber neg: ng) at: 1. - quo := (self digitDiv: - (aNumber class == SmallInteger - ifTrue: [aNumber abs] - ifFalse: [aNumber]) - neg: ng) at: 1. ^ quo normalize]. ^ aNumber adaptToInteger: self andSend: #quo:! Item was changed: ----- Method: LargePositiveInteger>>\\ (in category 'arithmetic') ----- \\ aNumber "Primitive. Take the receiver modulo the argument. The result is the remainder rounded towards negative infinity, of the receiver divided by the argument. Fail if the argument is 0. Fail if either the argument or the result is not a SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See Object documentation whatIsAPrimitive." <primitive: 31> aNumber isInteger ifTrue: [| neg qr q r | neg := self negative == aNumber negative == false. + qr := self digitDiv: aNumber neg: neg. - qr := (self digitDiv: - (aNumber class == SmallInteger - ifTrue: [aNumber abs] - ifFalse: [aNumber]) - neg: neg). q := qr first normalize. r := qr last normalize. ^(q negative ifTrue: [r isZero not] ifFalse: [q isZero and: [neg]]) ifTrue: [r + aNumber] ifFalse: [r]]. ^super \\ aNumber ! Item was removed: - ----- Method: LargePositiveInteger>>primitiveQuo: (in category 'private') ----- - primitiveQuo: anInteger - "Primitive. Divide the receiver by the argument and return the result. - Round the result down towards zero to make it a whole integer. Fail if - the argument is 0. Fail if either the argument or the result is not a - SmallInteger or a LargePositiveInteger less than 2-to-the-30th (1073741824). Optional. See - Object documentation whatIsAPrimitive." - - <primitive: 33> - ^nil! Item was changed: ----- Method: LargePositiveInteger>>rem: (in category 'arithmetic') ----- rem: aNumber "Remainder defined in terms of quo:. See super rem:. + This is defined only to speed up case of large integers." - This is defined only to speed up case of very large integers." + <primitive: 20> - (self primitiveQuo: aNumber) - ifNotNil: [:quo | ^self - (quo * aNumber)]. aNumber isInteger ifTrue: [| ng rem | ng := self negative == aNumber negative == false. + rem := (self digitDiv: aNumber neg: ng) at: 2. - rem := (self digitDiv: - (aNumber class == SmallInteger - ifTrue: [aNumber abs] - ifFalse: [aNumber]) - neg: ng) at: 2. ^ rem normalize]. ^super rem: aNumber!

1 0

The Trunk: Kernel-nice.730.mcz
by commits＠source.squeak.org 17 Jan '13

17 Jan '13

1 0

The Trunk: Kernel-nice.730.mcz
by commits＠source.squeak.org 17 Jan '13

17 Jan '13

1 0

The Trunk: System-fbs.511.mcz
by commits＠source.squeak.org 17 Jan '13

17 Jan '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.511.mcz ==================== Summary ==================== Name: System-fbs.511 Author: fbs Time: 17 January 2013, 1:41:03.986 pm UUID: 2880b77e-7f21-473e-b249-1159f33f640a Ancestors: System-bf.510 Filenames like "3+4.st" are perfectly valid, but need to be URL encoded. I would be happy to see a simpler implementation. =============== Diff against System-bf.510 =============== Item was changed: ----- Method: ProjectLauncher>>startUpAfterLogin (in category 'running') ----- startUpAfterLogin | scriptName loader isUrl | self setupFlaps. Preferences readDocumentAtStartup ifTrue: [ HTTPClient isRunningInBrowser ifTrue:[ self setupFromParameters. scriptName := self parameterAt: 'src'. CodeLoader defaultBaseURL: (self parameterAt: 'Base'). ] ifFalse:[ scriptName := (Smalltalk documentPath) ifNil:['']. scriptName := scriptName convertFromSystemString. scriptName isEmpty ifFalse:[ "figure out if script name is a URL by itself" isUrl := (scriptName asLowercase beginsWith:'http://') or:[ (scriptName asLowercase beginsWith:'file://') or:[ (scriptName asLowercase beginsWith:'ftp://')]]. + isUrl ifFalse:[ | encodedPath pathTokens | - isUrl ifFalse:[ "Allow for ../dir/scriptName arguments" + pathTokens := scriptName splitBy: FileDirectory slash. + pathTokens := pathTokens collect: [:s | s encodeForHTTP]. + encodedPath := pathTokens reduce: [:acc :each | acc , FileDirectory slash , each]. scriptName := (FileDirectory default uri + resolveRelativeURI: encodedPath) asString]]. - resolveRelativeURI: scriptName) asString]]. ]. ] ifFalse: [ scriptName := '' ]. scriptName isEmptyOrNil ifTrue:[^Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]]. loader := CodeLoader new. loader loadSourceFiles: (Array with: scriptName). (scriptName asLowercase endsWith: '.pr') ifTrue:[self installProjectFrom: loader] ifFalse:[loader installSourceFiles]. !

1 0

The Trunk: System-fbs.511.mcz
by commits＠source.squeak.org 17 Jan '13

17 Jan '13

1 0

The Trunk: System-fbs.511.mcz
by commits＠source.squeak.org 17 Jan '13

17 Jan '13

1 0

The Trunk: Tests-fbs.185.mcz
by commits＠source.squeak.org 15 Jan '13

15 Jan '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.185.mcz ==================== Summary ==================== Name: Tests-fbs.185 Author: fbs Time: 15 January 2013, 4:12:33.425 pm UUID: 5581e85e-42bf-4e0c-8ddc-34de14b8bb6b Ancestors: Tests-fbs.184 #assert:equals: (and even more so #assert:equals:description:) is just so much nicer than a bare #assert:. =============== Diff against Tests-fbs.184 =============== Item was changed: ----- Method: ExceptionTests>>testHandlerFromAction (in category 'testing-outer') ----- testHandlerFromAction "A test ensuring that nested exceptions work as expected." | result | result := [ [ [self error: 'trigger error'] on: ZeroDivide do: [ :ex | 'inner' ] ] on: Error do: [ :ex | 3 / 0 ] ] on: ZeroDivide do: [ :ex | 'outer' ]. + self assert: 'outer' equals: result description: 'Incorrect handler'. - self assert: result = 'outer'. !

1 0

The Trunk: Tests-fbs.185.mcz
by commits＠source.squeak.org 15 Jan '13

15 Jan '13

1 0

The Trunk: Tests-fbs.185.mcz
by commits＠source.squeak.org 15 Jan '13

15 Jan '13

1 0

The Trunk: Tests-fbs.184.mcz
by commits＠source.squeak.org 15 Jan '13

15 Jan '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.184.mcz ==================== Summary ==================== Name: Tests-fbs.184 Author: fbs Time: 15 January 2013, 2:48:38.12 pm UUID: b2ea6148-89a3-441c-8845-5df449cdeaa6 Ancestors: Tests-fbs.183 OrderedCollection's printString is inadequate for logging this error: rather, manually join the offending unbound globals with a comma. =============== Diff against Tests-fbs.183 =============== Item was changed: ----- Method: ReleaseTest>>testMethodsWithUnboundGlobals (in category 'testing') ----- testMethodsWithUnboundGlobals + | unbound | + unbound := SystemNavigation default methodsWithUnboundGlobals. - Smalltalk cleanOutUndeclared. + self assert: unbound isEmpty description: ('Unbound: ', (unbound reduce: [:acc :each | acc, ', ', each]))! - self assert: OrderedCollection new equals: SystemNavigation default methodsWithUnboundGlobals. - !

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
22
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 January 2013