Squeak-dev October 2009

squeak-dev@lists.squeakfoundation.org

84 participants
353 discussions

The Trunk: Kernel-nice.282.mcz
by commits＠source.squeak.org 30 Oct '09

30 Oct '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.282.mcz ==================== Summary ==================== Name: Kernel-nice.282 Author: nice Time: 30 October 2009, 8:47:15 am UUID: 3b6a0c35-dcc6-4cf8-8490-38aa99e31307 Ancestors: Kernel-nice.281 Just a comment about #isSelfEvaluating =============== Diff against Kernel-nice.281 =============== Item was changed: ----- Method: Object>>isSelfEvaluating (in category 'self evaluating') ----- isSelfEvaluating + "Answer true if the receiver will print in a format evaluating to itself, that is + (Compiler evaluate: self printString) = self" + ^ self isLiteral!

1 0

The Trunk: Collections-nice.173.mcz
by commits＠source.squeak.org 30 Oct '09

30 Oct '09

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.173.mcz ==================== Summary ==================== Name: Collections-nice.173 Author: nice Time: 30 October 2009, 8:42:27 am UUID: 78f5d352-d818-4437-998e-c60239e5e305 Ancestors: Collections-ar.172 Correct some #isSelfEvaluating implementations that were a bit relax. Anyway, the implementation is still weak: Try ((0@1 extent: 1@1) -> 0) isSelfEvaluating Then try to evaluate ((0@1 extent: 1@1) -> 0) printString =============== Diff against Collections-ar.172 =============== Item was changed: ----- Method: RunArray>>isSelfEvaluating (in category 'self evaluating') ----- isSelfEvaluating + ^ self class == RunArray and: [values isSelfEvaluating]! - ^ self class == RunArray! Item was changed: ----- Method: Association>>isSelfEvaluating (in category 'self evaluating') ----- isSelfEvaluating + ^ self class == Association and: [self key isSelfEvaluating and: [self value isSelfEvaluating]]! - ^ self class == Association!

1 0

The Trunk: CollectionsTests-nice.105.mcz
by commits＠source.squeak.org 30 Oct '09

30 Oct '09

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.105.mcz ==================== Summary ==================== Name: CollectionsTests-nice.105 Author: nice Time: 30 October 2009, 8:37:29 am UUID: da5471af-f76d-4ca5-ae29-9a60cdaaee33 Ancestors: CollectionsTests-ar.104 Test #isSelfEvaluating a bit deeper =============== Diff against CollectionsTests-ar.104 =============== Item was changed: ----- Method: AssociationTest>>testIsSelfEvaluating (in category 'tests') ----- testIsSelfEvaluating + | anotherAssociation | self + assert: (a isSelfEvaluating). + anotherAssociation := Object new -> Object new. + anotherAssociation isSelfEvaluating ifTrue: [self + assert: (Compiler evaluate: anotherAssociation printString) = anotherAssociation + description: 'a self evaluating should evaluate as self'].! - assert: (a isSelfEvaluating) - ! Item was added: + ----- Method: RunArrayTest>>testIsSelfEvaluating (in category 'tests - instance creation') ----- + testIsSelfEvaluating + | array array2 | + array := RunArray new: 5 withAll: 2. + self assert: array isSelfEvaluating. + array2 := RunArray new: 5 withAll: Object new. + array2 isSelfEvaluating ifTrue: [self + assert: (Compiler evaluate: array2 printString) = array2 + description: 'a self evaluating should evaluate as self'].!

1 0

Re: [squeak-dev] The Trunk: Kernel-nice.277.mcz
by radoslav hodnicak 30 Oct '09

30 Oct '09

What's the motivation behind this change? I just traced this as the reason for my seaside image stopping serving its library files, since a method there gets a list of selectors and then tries to remove some of them (which doesn't work for an array). rado On Tue, 20 Oct 2009, commits(a)source.squeak.org wrote: > Nicolas Cellier uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-nice.277.mcz > > ==================== Summary ==================== > > Name: Kernel-nice.277 > Author: nice > Time: 20 October 2009, 11:28:51 am > UUID: d887faef-c132-4cfc-98e2-259162e0cd01 > Ancestors: Kernel-nice.276 > > remove #keys and let super return an Array rather than an IdentitySet > > =============== Diff against Kernel-nice.276 =============== > > Item was removed: > - ----- Method: MethodDictionary>>keys (in category 'accessing') ----- > - keys > - "Since method all method selectors are symbols it is more efficient > - to use an IdentitySet rather than a Set." > - | aSet | > - aSet := IdentitySet new: self size. > - self keysDo: [:key | aSet add: key]. > - ^ aSet! > >

4 5

GPGPU
by Casimiro de Almeida Barreto 30 Oct '09

30 Oct '09

Hello, I'm considering to build a package to allow the development of math using GPUs (NVIDIA). Would like to know about general interest in this topic and some guidelines to put it in squeak trunk. Best regards, CdAB

6 17

The Trunk: GraphicsTests-dtl.15.mcz
by commits＠source.squeak.org 30 Oct '09

30 Oct '09

David T. Lewis uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-dtl.15.mcz ==================== Summary ==================== Name: GraphicsTests-dtl.15 Author: dtl Time: 29 October 2009, 9:16:43 am UUID: 2aa5b047-b1fb-4712-8543-09ec8d2a04a0 Ancestors: GraphicsTests-ar.14 Add six new tests to BitBltTest provided by Juan Vuletich, reference Mantis 7407. These tests will fail until the necessary fixes have been applied to BitBltPlugin in the VM. Two existing tests in BitBltTest (#testAlphaCompositingSimulated and #testAlphaCompositing2Simulated) should be moved to the VMMaker package as per Juan's recommendation, but are left here until the VMaker changes have been made (follow-up required). =============== Diff against GraphicsTests-ar.14 =============== Item was added: + ----- Method: BitBltTest>>testAllAlphasRgbAdd (in category 'bugs') ----- + testAllAlphasRgbAdd + "self run: #testAllAlphasRgbAdd" + | sourceForm destForm blt correctAlphas | + correctAlphas := 0. + 0 to: 255 do: [:sourceAlpha | + sourceForm := Form extent: 1 @ 1 depth: 32. + sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. + 0 to: 255 do: [:destAlpha | + destForm := Form extent: 1 @ 1 depth: 32. + destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. + blt := BitBlt new. + blt sourceForm: sourceForm. + blt sourceOrigin: 0 @ 0. + blt setDestForm: destForm. + blt destOrigin: 0 @ 0. + blt combinationRule: 20. "rgbAdd" + blt copyBits. + correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = (destAlpha + sourceAlpha min: 255) + ifTrue: [1] + ifFalse: [0]) + ]]. + self assert: 65536 equals: correctAlphas! Item was added: + ----- Method: BitBltTest>>testAllAlphasRgbMul (in category 'bugs') ----- + testAllAlphasRgbMul + "self run: #testAllAlphasRgbMul" + | sourceForm destForm blt correctAlphas | + correctAlphas := 0. + 0 to: 255 do: [:sourceAlpha | + sourceForm := Form extent: 1 @ 1 depth: 32. + sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. + 0 to: 255 do: [:destAlpha | + destForm := Form extent: 1 @ 1 depth: 32. + destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. + blt := BitBlt new. + blt sourceForm: sourceForm. + blt sourceOrigin: 0 @ 0. + blt setDestForm: destForm. + blt destOrigin: 0 @ 0. + blt combinationRule: 37. "rgbMul" + blt copyBits. + correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = ((destAlpha+1) * (sourceAlpha+1)- 1 // 256) + ifTrue: [1] + ifFalse: [0]) + ]]. + self assert: 65536 equals: correctAlphas! Item was added: + ----- Method: BitBltTest>>testAllAlphasRgbSub (in category 'bugs') ----- + testAllAlphasRgbSub + "self run: #testAllAlphasRgbSub" + | sourceForm destForm blt correctAlphas | + correctAlphas := 0. + 0 to: 255 do: [:sourceAlpha | + sourceForm := Form extent: 1 @ 1 depth: 32. + sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. + 0 to: 255 do: [:destAlpha | + destForm := Form extent: 1 @ 1 depth: 32. + destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. + blt := BitBlt new. + blt sourceForm: sourceForm. + blt sourceOrigin: 0 @ 0. + blt setDestForm: destForm. + blt destOrigin: 0 @ 0. + blt combinationRule: 21. "rgbSub" + blt copyBits. + correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = (destAlpha - sourceAlpha) abs + ifTrue: [1] + ifFalse: [0]) + ]]. + self assert: 65536 equals: correctAlphas! Item was added: + ----- Method: BitBltTest>>testAllAlphasRgbMin (in category 'bugs') ----- + testAllAlphasRgbMin + "self run: #testAllAlphasRgbMin" + | sourceForm destForm blt correctAlphas | + correctAlphas := 0. + 0 to: 255 do: [:sourceAlpha | + sourceForm := Form extent: 1 @ 1 depth: 32. + sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. + 0 to: 255 do: [:destAlpha | + destForm := Form extent: 1 @ 1 depth: 32. + destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. + blt := BitBlt new. + blt sourceForm: sourceForm. + blt sourceOrigin: 0 @ 0. + blt setDestForm: destForm. + blt destOrigin: 0 @ 0. + blt combinationRule: 28. "rgbMin" + blt copyBits. + correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = (destAlpha min: sourceAlpha) + ifTrue: [1] + ifFalse: [0]) + ]]. + self assert: 65536 equals: correctAlphas! Item was added: + ----- Method: BitBltTest>>testAllAlphasRgbMax (in category 'bugs') ----- + testAllAlphasRgbMax + "self run: #testAllAlphasRgbMax" + | sourceForm destForm blt correctAlphas | + correctAlphas := 0. + 0 to: 255 do: [:sourceAlpha | + sourceForm := Form extent: 1 @ 1 depth: 32. + sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. + 0 to: 255 do: [:destAlpha | + destForm := Form extent: 1 @ 1 depth: 32. + destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. + blt := BitBlt new. + blt sourceForm: sourceForm. + blt sourceOrigin: 0 @ 0. + blt setDestForm: destForm. + blt destOrigin: 0 @ 0. + blt combinationRule: 27. "rgbMax" + blt copyBits. + correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = (destAlpha max: sourceAlpha) + ifTrue: [1] + ifFalse: [0]) + ]]. + self assert: 65536 equals: correctAlphas! Item was added: + ----- Method: BitBltTest>>testAllAlphasRgbMinInvert (in category 'bugs') ----- + testAllAlphasRgbMinInvert + "self run: #testAllAlphasRgbMinInvert" + | sourceForm destForm blt correctAlphas | + correctAlphas := 0. + 0 to: 255 do: [:sourceAlpha | + sourceForm := Form extent: 1 @ 1 depth: 32. + sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. + 0 to: 255 do: [:destAlpha | + destForm := Form extent: 1 @ 1 depth: 32. + destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. + blt := BitBlt new. + blt sourceForm: sourceForm. + blt sourceOrigin: 0 @ 0. + blt setDestForm: destForm. + blt destOrigin: 0 @ 0. + blt combinationRule: 29. "rgbMinInvert" + blt copyBits. + correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = (destAlpha min: 255-sourceAlpha) + ifTrue: [1] + ifFalse: [0]) + ]]. + self assert: 65536 equals: correctAlphas!

1 0

Daily Commit Log
by commits＠source.squeak.org 29 Oct '09

29 Oct '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-October/001690.ht… Name: Graphics-jdr.84 Ancestors: Graphics-jdr.83 correct reading of gray PNMs ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001691.ht… Name: Morphic-MarcoSchmidt.217 Ancestors: Morphic-ar.216 Remove the typo in TheWorldMenu>>setDisplayDepth see http://bugs.squeak.org/view.php?id=7408 ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-October/001692.ht… Name: Multilingual-ar.57 Ancestors: Multilingual-ar.56 Remove unnecessary convertFromSystemString: call. ==== ERROR === Error: subscript is out of bounds: 0 28 October 2009 3:35:18 am VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: nil hereChar: $ aheadChar: $ token: nil tokenType: nil currentComment: nil buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: nil hereType: nil hereMark: nil hereEnd: nil prevMark: nil prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: nil tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>scan: Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]} Previous message: [Pkg] The Trunk: Morphic-MarcoSchmidt.217.mcz Messages sorted by: [ date ] [ thread ] [ subject ] [ author ] More information about the Packages mailing list =============================================

1 0

source.squeak.org down?
by Michael Haupt 28 Oct '09

28 Oct '09

Hi, ... at least I cannot reach it. :-( Best, Michael

2 3

squeak.org down/inaccessible?
by Ross Boylan 28 Oct '09

28 Oct '09

For a couple of days I've gotten timeouts when trying to reach wiki.squeak.org. I can't reach squeak.org either just now, no can I get an IP for it. # dig squeak.org ; <<>> DiG 9.5.1-P3 <<>> squeak.org ;; global options: printcmd ;; connection timed out; no servers could be reached

1 0

Problem with Multilingual...
by Casimiro de Almeida Barreto 28 Oct '09

28 Oct '09

UTF8TextConverter(Object)>>does not understand: #convertFromSystemString installLineEndConvention: lineEndStringOrNil latin1Map := self class latin1Map. latin1Encodings := self class latin1Encodings. lineEndStringOrNil ifNotNil: [latin1Encodings := latin1Encodings copy. latin1Encodings at: Character cr asciiValue + 1 put: (self convertFromSystemString: lineEndStringOrNil). latin1Map := latin1Map copy. latin1Map at: Character cr asciiValue + 1 put: 1]

2 2

← Newer
1
2
3
4
5
6
7
8
9
...
36
Older →

Jump to page: