Squeak-dev July 2010

squeak-dev@lists.squeakfoundation.org

75 participants
234 discussions

The Trunk: Network-ar.75.mcz
by commits＠source.squeak.org 25 Jul '10

25 Jul '10

Andreas Raab uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ar.75.mcz ==================== Summary ==================== Name: Network-ar.75 Author: ar Time: 24 July 2010, 3:08:56.964 pm UUID: 41c4e3ec-04fd-4949-b38e-7fa37e9a4874 Ancestors: Network-ar.74 Some SocketStream simplifications: Avoid duplication between #receiveData; #receiveDataIfAvailable; and #receiveAvailableData; they are just minor variants of each other. Also bottleneck all socket reads and writes in two SocketStream methods #receiveDataInto:startingAt: and #sendData:count: so that subclasses can do additional operations on them (encryption, statistics etc). =============== Diff against Network-ar.74 =============== Item was added: + ----- Method: SocketStream>>receiveDataInto:startingAt: (in category 'private-socket') ----- + receiveDataInto: buffer startingAt: index. + "Read data from the underlying socket. This method may be overridden by subclasses wanting to control incoming traffic for other purposes like encryption or statistics." + + ^socket receiveAvailableDataInto: buffer startingAt: index.! Item was added: + ----- Method: SocketStream>>sendData:count: (in category 'private-socket') ----- + sendData: buffer count: n + "Sends outgoing data directly on the underlying socket." + + ^socket sendData: buffer count: n! Item was changed: ----- Method: SocketStream>>receiveDataIfAvailable (in category 'private-socket') ----- receiveDataIfAvailable + "Deprecated. Use #receiveAvailableData instead" - "Only used to check that there really is data to read - from the socket after it signals dataAvailable. - It has been known to signal true and then still - not have anything to read. See also isDataAvailable. - Return the position in the buffer where the - new data starts, regardless if anything - was read, see #adjustInBuffer." + ^self receiveAvailableData! - recentlyRead := socket receiveSomeDataInto: inBuffer startingAt: inNextToWrite. - ^self adjustInBuffer: recentlyRead! Item was changed: ----- Method: SocketStream>>receiveData (in category 'private-socket') ----- receiveData + "Receive data. Signal exceptions and timeouts depending on #shouldSignal and #shouldTimeout. Return the position in the buffer where the new data starts, regardless if anything was read." + + socket + waitForDataFor: self timeout + ifClosed: [self shouldSignal + ifTrue:[ConnectionClosed signal: 'Connection closed while waiting for data.']] + ifTimedOut: [self shouldTimeout + ifTrue:[ConnectionTimedOut signal: 'Data receive timed out.']]. + ^self receiveAvailableData! - "Receive data with timeout if it has been set. - If shouldSignal is false we use the Socket methods - that swallow those Exceptions, if it is true the - caller will have to handle those Exceptions. - Return the position in the buffer where the - new data starts, regardless if anything - was read, see #adjustInBuffer." - - recentlyRead := shouldSignal ifTrue: [ - self shouldTimeout ifTrue: [ - socket receiveDataSignallingTimeout: timeout - into: inBuffer startingAt: inNextToWrite] - ifFalse: [ - socket receiveDataSignallingClosedInto: inBuffer - startingAt: inNextToWrite]] - ifFalse: [ - self shouldTimeout ifTrue: [ - "This case is tricky, if it times out and is swallowed - how does other methods calling this method repeatedly - get to know that? And what should they do?" - socket receiveDataTimeout: timeout - into: inBuffer startingAt: inNextToWrite] - ifFalse: [ - socket receiveDataInto: inBuffer - startingAt: inNextToWrite]]. - ^self adjustInBuffer: recentlyRead! Item was changed: ----- Method: SocketStream>>nextPutAllFlush: (in category 'stream out') ----- nextPutAllFlush: aCollection "Put a String or a ByteArray onto the stream. You can use this if you have very large data - it avoids copying into the buffer (and avoids buffer growing) and also flushes any other pending data first." | toPut | toPut := binary ifTrue: [aCollection asByteArray] ifFalse: [aCollection asString]. self flush. "first flush pending stuff, then directly send" socket isOtherEndClosed ifFalse: [ + [self sendData: toPut count: toPut size] - [socket sendData: toPut count: toPut size] on: ConnectionTimedOut do: [:ex | shouldSignal ifFalse: ["swallow"]]]! Item was changed: ----- Method: SocketStream>>flush (in category 'control') ----- flush "If the other end is connected and we have something to send, then we send it and reset the outBuffer." ((outNextToWrite > 1) and: [socket isOtherEndClosed not]) ifTrue: [ + [self sendData: outBuffer count: outNextToWrite - 1] - [socket sendData: outBuffer count: outNextToWrite - 1] on: ConnectionTimedOut do: [:ex | shouldSignal ifFalse: ["swallow"]]. outNextToWrite := 1]! Item was changed: ----- Method: SocketStream>>isDataAvailable (in category 'testing') ----- isDataAvailable + "Answer if more data can be read. It the inbuffer is empty, we check the socket for data. If it claims to have data available to read, we try to read some once and recursively call this method again. If something really was available it is now in the inBuffer. This is because there has been spurious dataAvailable when there really is no data to get. + + Note: Some subclasses (such as SecureSocketStream) rely on the behavior here since even though data may be available in the underlying socket, it may not result in any output (yet)." - "It the inbuffer is empty, we check the socket for data. - If it claims to have data available to read, we try to read - some once and recursively call this method again. - If something really was available it is now in the inBuffer. - This is because there has been spurious - dataAvailable when there really is no data to get." self isInBufferEmpty ifFalse: [^true]. ^socket dataAvailable ifFalse: [false] + ifTrue: [self receiveAvailableData; isDataAvailable]! - ifTrue: [self receiveDataIfAvailable; isDataAvailable]! Item was changed: ----- Method: SocketStream>>receiveAvailableData (in category 'private-socket') ----- receiveAvailableData + "Receive available data (as much as fits in the inBuffer) but not waiting for more to arrive. Return the position in the buffer where the new data starts, regardless if anything was read, see #adjustInBuffer." - "Receive available data (as much as fits in the inBuffer) - but not waiting for more to arrive. - Return the position in the buffer where the - new data starts, regardless if anything - was read, see #adjustInBuffer." + recentlyRead := self receiveDataInto: inBuffer startingAt: inNextToWrite. - recentlyRead := socket receiveAvailableDataInto: inBuffer startingAt: inNextToWrite. ^self adjustInBuffer: recentlyRead!

1 0

The Trunk: KernelTests-nice.156.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.156.mcz ==================== Summary ==================== Name: KernelTests-nice.156 Author: nice Time: 24 July 2010, 7:07:59.415 pm UUID: 0ac92d18-cfbc-4c5e-b95e-9b8694f43844 Ancestors: KernelTests-ar.155 Remove potential sends of /- Now that $- is allowed in binary messages at any place, this potentially is ambiguous. =============== Diff against KernelTests-ar.155 =============== Item was changed: ----- Method: FractionTest>>testFractionPrinting (in category 'tests - printing') ----- testFractionPrinting self assert: (353/359) printString = '(353/359)'. self assert: ((2/3) printStringBase: 2) = '(10/11)'. self assert: ((2/3) storeStringBase: 2) = '(2r10/2r11)'. self assert: ((5/7) printStringBase: 3) = '(12/21)'. self assert: ((5/7) storeStringBase: 3) = '(3r12/3r21)'. self assert: ((11/13) printStringBase: 4) = '(23/31)'. self assert: ((11/13) storeStringBase: 4) = '(4r23/4r31)'. self assert: ((17/19) printStringBase: 5) = '(32/34)'. self assert: ((17/19) storeStringBase: 5) = '(5r32/5r34)'. self assert: ((23/29) printStringBase: 6) = '(35/45)'. self assert: ((23/29) storeStringBase: 6) = '(6r35/6r45)'. self assert: ((31/37) printStringBase: 7) = '(43/52)'. self assert: ((31/37) storeStringBase: 7) = '(7r43/7r52)'. self assert: ((41/43) printStringBase: 8) = '(51/53)'. self assert: ((41/43) storeStringBase: 8) = '(8r51/8r53)'. self assert: ((47/53) printStringBase: 9) = '(52/58)'. self assert: ((47/53) storeStringBase: 9) = '(9r52/9r58)'. self assert: ((59/61) printStringBase: 10) = '(59/61)'. self assert: ((59/61) storeStringBase: 10) = '(59/61)'. self assert: ((67/71) printStringBase: 11) = '(61/65)'. self assert: ((67/71) storeStringBase: 11) = '(11r61/11r65)'. self assert: ((73/79) printStringBase: 12) = '(61/67)'. self assert: ((73/79) storeStringBase: 12) = '(12r61/12r67)'. self assert: ((83/89) printStringBase: 13) = '(65/6B)'. self assert: ((83/89) storeStringBase: 13) = '(13r65/13r6B)'. self assert: ((97/101) printStringBase: 14) = '(6D/73)'. self assert: ((97/101) storeStringBase: 14) = '(14r6D/14r73)'. self assert: ((103/107) printStringBase: 15) = '(6D/72)'. self assert: ((103/107) storeStringBase: 15) = '(15r6D/15r72)'. self assert: ((109/113) printStringBase: 16) = '(6D/71)'. self assert: ((109/113) storeStringBase: 16) = '(16r6D/16r71)'. self assert: ((127/131) printStringBase: 17) = '(78/7C)'. self assert: ((127/131) storeStringBase: 17) = '(17r78/17r7C)'. self assert: ((137/139) printStringBase: 18) = '(7B/7D)'. self assert: ((137/139) storeStringBase: 18) = '(18r7B/18r7D)'. self assert: ((149/151) printStringBase: 19) = '(7G/7I)'. self assert: ((149/151) storeStringBase: 19) = '(19r7G/19r7I)'. self assert: ((157/163) printStringBase: 20) = '(7H/83)'. self assert: ((157/163) storeStringBase: 20) = '(20r7H/20r83)'. self assert: ((167/173) printStringBase: 21) = '(7K/85)'. self assert: ((167/173) storeStringBase: 21) = '(21r7K/21r85)'. self assert: ((179/181) printStringBase: 22) = '(83/85)'. self assert: ((179/181) storeStringBase: 22) = '(22r83/22r85)'. self assert: ((191/193) printStringBase: 23) = '(87/89)'. self assert: ((191/193) storeStringBase: 23) = '(23r87/23r89)'. self assert: ((197/199) printStringBase: 24) = '(85/87)'. self assert: ((197/199) storeStringBase: 24) = '(24r85/24r87)'. self assert: ((211/223) printStringBase: 25) = '(8B/8N)'. self assert: ((211/223) storeStringBase: 25) = '(25r8B/25r8N)'. self assert: ((227/229) printStringBase: 26) = '(8J/8L)'. self assert: ((227/229) storeStringBase: 26) = '(26r8J/26r8L)'. self assert: ((233/239) printStringBase: 27) = '(8H/8N)'. self assert: ((233/239) storeStringBase: 27) = '(27r8H/27r8N)'. self assert: ((241/251) printStringBase: 28) = '(8H/8R)'. self assert: ((241/251) storeStringBase: 28) = '(28r8H/28r8R)'. self assert: ((257/263) printStringBase: 29) = '(8P/92)'. self assert: ((257/263) storeStringBase: 29) = '(29r8P/29r92)'. self assert: ((269/271) printStringBase: 30) = '(8T/91)'. self assert: ((269/271) storeStringBase: 30) = '(30r8T/30r91)'. self assert: ((277/281) printStringBase: 31) = '(8T/92)'. self assert: ((277/281) storeStringBase: 31) = '(31r8T/31r92)'. self assert: ((283/293) printStringBase: 32) = '(8R/95)'. self assert: ((283/293) storeStringBase: 32) = '(32r8R/32r95)'. self assert: ((307/311) printStringBase: 33) = '(9A/9E)'. self assert: ((307/311) storeStringBase: 33) = '(33r9A/33r9E)'. self assert: ((313/317) printStringBase: 34) = '(97/9B)'. self assert: ((313/317) storeStringBase: 34) = '(34r97/34r9B)'. self assert: ((331/337) printStringBase: 35) = '(9G/9M)'. self assert: ((331/337) storeStringBase: 35) = '(35r9G/35r9M)'. self assert: ((347/349) printStringBase: 36) = '(9N/9P)'. self assert: ((347/349) storeStringBase: 36) = '(36r9N/36r9P)'. self assert: ((-2/3) printStringBase: 2) = '(-10/11)'. self assert: ((-2/3) storeStringBase: 2) = '(-2r10/2r11)'. + self assert: ((5 / -7) printStringBase: 3) = '(-12/21)'. + self assert: ((5 / -7) storeStringBase: 3) = '(-3r12/3r21)'. - self assert: ((5/-7) printStringBase: 3) = '(-12/21)'. - self assert: ((5/-7) storeStringBase: 3) = '(-3r12/3r21)'. !

1 0

The Trunk: GraphicsTests-nice.26.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-nice.26.mcz ==================== Summary ==================== Name: GraphicsTests-nice.26 Author: nice Time: 24 July 2010, 6:58:29.781 pm UUID: 8fa06e93-af69-4f78-b92b-86ca77fe39bf Ancestors: GraphicsTests-wiz.25 Remove potential sends of @- Now that $- is allowed in binary messages at any place, this potentially is ambiguous. =============== Diff against GraphicsTests-wiz.25 =============== Item was changed: ----- Method: PointTest>>testNormal (in category 'testing - testing') ----- testNormal + "quick check of results for #normal." + | samples rejects results | + samples := 0 asPoint eightNeighbors , (Array with: 0 asPoint) . - " quick check of results for #normal." + results := + { 0.0 @ 1.0 . + -0.707106781186547 @ 0.707106781186547 . + -1.0 @ 0.0 . + -0.707106781186547 @ -0.707106781186547 . + 0.0 @ -1.0 . + 0.707106781186547 @ -0.707106781186547 . + 1.0 @ 0.0 . + 0.707106781186547 @ 0.707106781186547 . + -1 @ 0} . - | samples rejects results | + rejects := (1 to: samples size ) reject: + [ :each | ((samples at: each) normal - (results at: each)) abs < 1e-15 asPoint ] . - samples := - 0 asPoint eightNeighbors - , (Array with: 0 asPoint) . + self assert: rejects isEmpty! - results := - { 0.0(a)1.0 - . -0.707106781186547(a)0.707106781186547 - . -1.0(a)0.0 - . -0.707106781186547(a)-0.707106781186547 - . 0.0(a)-1.0 - . 0.707106781186547(a)-0.707106781186547 - . 1.0(a)0.0 - . 0.707106781186547(a)0.707106781186547 - . -1@0} . - - - rejects := - (1 to: samples size ) reject: [ :each | ((samples at: each) normal - (results at: each)) abs < 1e-15 asPoint ] . - - self assert: ( rejects isEmpty ) . - - - - ! Item was changed: ----- Method: PNGReadWriterTest>>drawTransparentStuffOn: (in category 'helpers') ----- drawTransparentStuffOn: aForm "Draw stuff on aForm. Avoid any symmetry." | canvas | canvas := FormCanvas on: aForm. + canvas frameAndFillRectangle: (1 @ 1 corner: aForm extent - 15) fillColor: (Color red alpha: 0.25) borderWidth: 3 borderColor: (Color green alpha: 0.5). + canvas fillOval: (aForm boundingBox topRight - (15 @ -5) extent: 20 @ 20) color: (Color white alpha: 0.75) borderWidth: 1 borderColor: Color blue. - canvas frameAndFillRectangle: (1@1 corner: aForm extent - 15) fillColor: (Color red alpha: 0.25) borderWidth: 3 borderColor: (Color green alpha: 0.5). - canvas fillOval: (aForm boundingBox topRight - (15@-5) extent: 20@20) color: (Color white alpha: 0.75) borderWidth: 1 borderColor: Color blue. ^aForm + "(PNGReadWriterTest new drawStuffOn: (Form extent: 32 @ 32 depth: 16)) display"! - "(PNGReadWriterTest new drawStuffOn: (Form extent: 32@32 depth: 16)) display"! Item was changed: ----- Method: PointTest>>testNormal2 (in category 'testing - testing') ----- testNormal2 + "quick check of results for #normal. + differs from the other testNormal in the way that the difference is measured." - " quick check of results for #normal. - differs from the other testNormal in the way that the difference is measured." + | samples rejects results differences | + samples := 0 asPoint eightNeighbors , (Array with: 0 asPoint) . - | samples rejects results differences | + results := + { 0.0 @ 1.0 . + -0.707106781186547 @ 0.707106781186547 . + -1.0 @ 0.0 . + -0.707106781186547 @ -0.707106781186547 . + 0.0 @ -1.0 . + 0.707106781186547 @ -0.707106781186547 . + 1.0 @ 0.0 . + 0.707106781186547 @ 0.707106781186547 . + -1 @ 0} . + differences := samples with: results collect: [ :each :eachResult | + each normal - eachResult ] . - samples := - 0 asPoint eightNeighbors - , (Array with: 0 asPoint) . + rejects := differences reject: [ :each | + (each x closeTo: 0.0) and: [each y closeTo: 0.0] ] . - results := - { 0.0(a)1.0 - . -0.707106781186547(a)0.707106781186547 - . -1.0(a)0.0 - . -0.707106781186547(a)-0.707106781186547 - . 0.0(a)-1.0 - . 0.707106781186547(a)-0.707106781186547 - . 1.0(a)0.0 - . 0.707106781186547(a)0.707106781186547 - . -1@0} . + self assert: rejects isEmpty! - differences := - samples with: results collect: [ :each :eachResult | - each normal - eachResult ] . - - rejects := - differences reject: [ :each | - (each x closeTo: 0.0) and: [each y closeTo: 0.0] ] . - - self assert: ( rejects isEmpty ) . - - - - ! Item was changed: ----- Method: PointTest>>testBasicFourDirections (in category 'testing - testing') ----- testBasicFourDirections + "fourDirections returns the four rotation of the receiver in counter clockwise order with the receiver appearing last. " - " fourDirections returns the four rotation of the reciever in counter clockwise order with the reciever appearing last. " + | samples results rejects | + self assert: (0 asPoint fourDirections) = (Array new: 4 withAll: 0 asPoint) . + samples := 0 asPoint eightNeighbors . + results := { + { 0 @ -1 . -1 @ 0 . 0 @ 1 . 1 @ 0}. + { 1 @ -1 . -1 @ -1 . -1 @ 1 . 1 @ 1}. + { 1 @ 0 . 0 @ -1 . -1 @ 0 . 0 @ 1}. + { 1 @ 1 . 1 @ -1 . -1 @ -1 . -1 @ 1}. + { 0 @ 1 . 1 @ 0 . 0 @ -1 . -1 @ 0}. + {-1 @ 1 . 1 @ 1 . 1 @ -1 . -1 @ -1}. + {-1 @ 0 . 0 @ 1 . 1 @ 0 . 0 @ -1}. + {-1 @ -1 . -1 @ 1 . 1 @ 1 . 1 @ -1} } . - | samples results rejects | + rejects := (1 to: samples size ) reject: [ :each | - self assert: (0 asPoint fourDirections) = (Array new: 4 withAll: 0 asPoint) . - - - samples := - 0 asPoint eightNeighbors . - - results := - { {0@-1 . -1@0 . 0@1 . 1@0} - . {1@-1 . -1@-1 . -1@1 . 1@1} - . {1@0 . 0@-1 . -1@0 . 0@1} - . {1@1 . 1@-1 . -1@-1 . -1@1} - . {0@1 . 1@0 . 0@-1 . -1@0} - . {-1@1 . 1@1 . 1@-1 . -1@-1} - . {-1@0 . 0@1 . 1@0 . 0@-1} - . {-1@-1 . -1@1 . 1@1 . 1@-1} } . - - rejects := - (1 to: samples size ) reject: [ :each | (samples at: each) fourDirections = (results at: each) ] . + self assert: rejects isEmpty! - self assert: ( rejects isEmpty) . - - - ! Item was changed: ----- Method: PointTest>>testTheta (in category 'testing - testing') ----- testTheta | result dir tan x y | + self assert: ((0 @ 1) theta - 90.0 degreesToRadians) abs < 1e-15. + self assert: ((0 @ -1) theta - 270.0 degreesToRadians) abs < 1e-15. - self assert: ((0@1) theta - 90.0 degreesToRadians) abs < 1e-15. - self assert: ((0@-1) theta - 270.0 degreesToRadians) abs < 1e-15. " See code of old and new theta" x := 1.0 . y := -1.0. tan := y / x . dir := tan arcTan. result := 360.0 degreesToRadians + dir. + self assert: ((x @ y) theta - result) abs < 1e-15. + x := -1.0. "Don't reuse old results when you want numeric precision!!" - self assert: ((x@y) theta - result) abs < 1e-15. - x := -1.0. "Don't reuse old results whenyou want numeric precision!!" tan := y / x . dir := tan arcTan. result := 180.0 degreesToRadians + dir. + self assert: ((x @ y) theta - result) abs < 1e-15. - self assert: ((x@y) theta - result) abs < 1e-15. ! Item was changed: ----- Method: PointTest>>testBearingToPoint (in category 'tests - testing') ----- testBearingToPoint + self assert: (0 @ 0 bearingToPoint: 0 @ 0) = 0. + self assert: (0 @ 0 bearingToPoint: 0 @ -1) = 0. + self assert: (0 @ 0 bearingToPoint: 1 @ 0) = 90. + self assert: (0 @ 0 bearingToPoint: 0 @ 1) = 180. + self assert: (0 @ 0 bearingToPoint: -1 @ 0) = 270. + self assert: (0 @ 0 bearingToPoint: 1 @ 1) = 135. + self assert: (0 @ 0 bearingToPoint: 0.01 @ 0) = 90. + self assert: (0 @ 0 bearingToPoint: -2 @ -3) = 326. + self assert: (0 @ 0 bearingToPoint: -0 @ 0) = 0. - self assert: (0@0 bearingToPoint: 0@0) = 0. - self assert: (0@0 bearingToPoint: 0@-1) = 0. - self assert: (0@0 bearingToPoint: 1@0) = 90. - self assert: (0@0 bearingToPoint: 0@1) = 180. - self assert: (0@0 bearingToPoint: -1@0) = 270. - self assert: (0@0 bearingToPoint: 1@1) = 135. - self assert: (0@0 bearingToPoint: 0.01@0) = 90. - self assert: (0@0 bearingToPoint: -2@-3) = 326. - self assert: (0@0 bearingToPoint: -0@0) = 0. + self assert: (-2 @ -3 bearingToPoint: 0 @ 0) = 146.! - self assert: (-2@-3 bearingToPoint: 0@0) = 146.! Item was changed: ----- Method: PNGReadWriterTest>>drawStuffOn: (in category 'helpers') ----- drawStuffOn: aForm "Draw stuff on aForm. Avoid any symmetry." | canvas | canvas := FormCanvas on: aForm. + canvas frameAndFillRectangle: (1 @ 1 corner: aForm extent - 15) fillColor: Color red borderWidth: 3 borderColor: Color green. + canvas fillOval: (aForm boundingBox topRight - (15 @ -5) extent: 20 @ 20) color: Color blue borderWidth: 1 borderColor: Color white. - canvas frameAndFillRectangle: (1@1 corner: aForm extent - 15) fillColor: Color red borderWidth: 3 borderColor: Color green. - canvas fillOval: (aForm boundingBox topRight - (15@-5) extent: 20@20) color: Color blue borderWidth: 1 borderColor: Color white. ^aForm + "(PNGReadWriterTest new drawStuffOn: (Form extent: 32 @ 32 depth: 16)) display"! - "(PNGReadWriterTest new drawStuffOn: (Form extent: 32@32 depth: 16)) display"!

1 0

The Trunk: Compiler-nice.152.mcz
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.152.mcz ==================== Summary ==================== Name: Compiler-nice.152 Author: nice Time: 24 July 2010, 6:38:46.043 pm UUID: 11850e30-a071-425e-a01a-a52faffbddcd Ancestors: Compiler-jcg.147 Add the possibility in new code generation scheme to access shared variables by sending message #value to the variable binding instead of fetching second instance variable. This did already exist in old code generation scheme and is controlled by #isSpecialReadBinding. =============== Diff against Compiler-jcg.147 =============== Item was changed: ----- Method: LiteralVariableNode>>sizeCodeForValue: (in category 'code generation (new scheme)') ----- sizeCodeForValue: encoder self reserve: encoder. + (key isVariableBinding and: [key isSpecialReadBinding]) + ifFalse: + [^encoder sizePushLiteralVar: index]. + readNode := MessageNode new + receiver: (encoder encodeLiteral: key) + selector: (encoder encodeSelector: #value) + arguments: #() + precedence: #value precedence. + ^readNode sizeCodeForValue: encoder! - ^encoder sizePushLiteralVar: index! Item was changed: ----- Method: LiteralVariableNode>>emitCodeForValue:encoder: (in category 'code generation (new scheme)') ----- emitCodeForValue: stack encoder: encoder + ^readNode + ifNil: [stack push: 1. + encoder genPushLiteralVar: index] + ifNotNil: [readNode emitCodeForValue: stack encoder: encoder]! - stack push: 1. - ^encoder genPushLiteralVar: index!

1 0

Re: Fwd: RE: Where is Seaside download???
by Chris Cunnington 24 Jul '10

24 Jul '10

OK, I copied the links from the Documentation/Installation section to the Downloads section. That should do it. Chris

1 0

Re: Fwd: RE: Where is Seaside download???
by Chris Cunnington 24 Jul '10

24 Jul '10

That's done. If there's anything I've missed, please let me know. Chris

4 4

Smalltalks 2010 Research Track: Call for Papers
by Andres Valloud 24 Jul '10

24 Jul '10

** PLEASE EXCUSE US IF YOU RECEIVE MULTIPLE COPIES ** CALL FOR PAPERS SMALLTALKS 2010 4th Argentinian Smalltalk Conference Research Track: Call for Papers November 11th – 13th, 2010 Important dates: Submission (Hard Deadline): September 7th, 2010 (Argentinian time: UTC/GMT -3 hours). Notification of acceptance: October 6th, 2010. Camera Ready Submission: October 20th, 2010. --------------------------------------------------------------------------------- Conference Site: Universidad Tecnológica Nacional (UTN), Concepción del Uruguay (Entre Ríos, Argentina) In the past three years the Smalltalks series of conferences (www.fast.org.ar) have been a lively forum on Smalltalk-based software technologies that attracted over more than 200 people from both academia and industry for three days. During the first three conferences, the industrial partners showed the applicability of Smalltalk in business, while researches (both students and professors) showed their advances and didactic uses of Smalltalk. The presented approaches and methodologies concerned the language, its implementation technology, its programming tools as well as the software development culture it supports. This year the accepted papers not only will be available in the website but also the best ranked ones will be published in a special edition of Elsevier COMLAN Journal. Thus, we invite to submit papers in the research track on original scientific research conducted in and/or for Smalltalk in general. Topics of interest include, but are not restricted to: • Aspects, Aspect Languages and Applications. • Ambient Intelligence, Ubiquitous / Pervasive Computing and Embedded Systems. • Compilation Technology, Optimization, Virtual Machines. • Educational Material. • Language Engineering, Extensions. • Model Driven Engineering / Development. • Meta-Modeling, Reflection and Meta-programming. • Programming in the Large, Design, Architectures and Components. • Programming Environments, Browsers, User Interfaces, UI Frameworks. • Reasoning About Code (Analysis, Refactoring, Type Inference, Metrics). • Team Management. • Testing, Extreme Programming / Practices. • Web Services, Internet Applications, Event-driven Programming. • Experience Reports. Important dates: Submission (Hard Deadline): September 7th, 2010 (Argentinian time: UTC/GMT -3 hours). Notification of acceptance: October 6th, 2010. Camera Ready Submission: October 20th, 2010. Papers: Papers should be written in English, in pdf-format and not exceed 15 pages (including references and figures), using Elsevier journal format. Templates for LaTeX formats can be found at http://www.elsevier.com/wps/find/authorsview.authors/elsart Papers must be submitted through the EasyChair submission web site at http://www.easychair.org/conferences/?conf=smalltalks10 The accepted papers will be digitally available in the conference website. From accepted papers, selected ones will be published in a special edition of Elsevier COMLAN Journal. Papers submitted must not have been previously published and must not be under review for publication elsewhere. Papers must strictly adhere to submission guidelines. If you have questions, please send an e-mail to Marcus Denker and Gabriela Arévalo to smalltalks2010-chair(a)fast.org.ar using [Smalltalks2010-RT] as a tag in the e-mail subject. Program Committee -------------------------- • Alexandre Bergel (DCC, Universidad de Chile, Chile) • Noury Bouraqadi (Ecole des Mines, Douai, France) • Gilad Bracha (Ministry of Truth, USA) • Johan Brichau (Inceptive.be, Belgium) • Johan Fabry (DCC, Universidad de Chile, Chile) • Alejandro Fernandez (LIFIA - Facultad de Informática – UNLP, Argentina) • Tudor Girba (Sw-eng. Software Engineering GmbH, Switzerland) • Andy Kellens (SOFT, Vrije Universiteit Brussels, Belgium) • Michele Lanza (University of Lugano, Switzerland) • Adrian Lienhard (SCG, University of Bern, Switzerland) • Damien Pollet (INRIA / Université de Lille 1, France) • Lukas Renggli (SCG, University of Bern, Switzerland) • David Röthlisberger (SCG, University of Bern, Switzerland) • Tom Van Cutsem (SOFT, Vrije Universeit Brussels, Belgium) Program Chairs -------------------- • Marcus Denker (INRIA, Lille, France) • Gabriela Arévalo (Universidad Austral, Buenos Aires, Argentina) .

1 0

Daily Commit Log
by commits＠source.squeak.org 24 Jul '10

24 Jul '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-July/003563.html Name: System-eem.353 Ancestors: System-ar.352 Some Cog-specific VM attribute accessors for process preemption, flagging of interpreted methods and whether Process has a threadId inst var. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003564.html Name: Tests-ar.88 Ancestors: Tests-ar.87 Add a test documenting an bug in UIManager>>edit:label:accept: which would evaluate the accept block initially. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003565.html Name: ToolBuilder-Morphic-ar.66 Ancestors: ToolBuilder-Morphic-eem.65 Fix UIManager>>edit:label:accept: to not evaluate the accept block initially. =============================================

1 0

Problem resetting password for SqueakSource.com
by Jim Law 24 Jul '10

24 Jul '10

Hi all, I've tried twice in the last 3 days to reset the password for my account on SqueakSource. Each time the link that comes in email just lands me at the home page. Is this broken, or am I missing the trick somehow? Thanks, Jim

2 2

testToo
by Travis Griggs 24 Jul '10

24 Jul '10

-- Travis Griggs Objologist "Every institution finally perishes by an excess of its own first principle." - Lord Acton

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
24
Older →

Jump to page: