Packages July 2010

packages@lists.squeakfoundation.org

1 participants
240 discussions

The Trunk: Graphics-nice.145.mcz
by commits＠source.squeak.org 25 Jul '10

25 Jul '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.145.mcz ==================== Summary ==================== Name: Graphics-nice.145 Author: nice Time: 25 July 2010, 2:24:08.202 pm UUID: 81bcb012-b80d-4074-898f-4f9cb77a4534 Ancestors: Graphics-ar.144, Graphics-nice.139 Merge Graphics-nice.139: Change behaviour of empty Rectangle: - don't let an empty Rectangle #intersects: - let #flipBy:centerAt: and #rotateBy:centerAt: preserve a Rectangle emptyness =============== Diff against Graphics-ar.144 =============== Item was changed: ----- Method: Rectangle>>intersects: (in category 'testing') ----- intersects: aRectangle "Answer whether aRectangle intersects the receiver anywhere." "Optimized; old code answered: (origin max: aRectangle origin) < (corner min: aRectangle corner)" | rOrigin rCorner | rOrigin := aRectangle origin. rCorner := aRectangle corner. rCorner x <= origin x ifTrue: [^ false]. rCorner y <= origin y ifTrue: [^ false]. rOrigin x >= corner x ifTrue: [^ false]. rOrigin y >= corner y ifTrue: [^ false]. + "None of the two rectangle shall be empty" + corner x <= origin x ifTrue: [^ false]. + corner y <= origin y ifTrue: [^ false]. + rCorner x <= rOrigin x ifTrue: [^ false]. + rCorner y <= rOrigin y ifTrue: [^ false]. ^ true ! Item was changed: ----- Method: Rectangle>>rotateBy:centerAt: (in category 'transforming') ----- rotateBy: direction centerAt: aPoint "Return a copy rotated #right, #left, or #pi about aPoint" + | futureOrigin futureCorner | + direction == #pi + ifTrue: + [futureOrigin := self corner. + futureCorner := self origin] + ifFalse: [direction == #left + ifTrue: + [futureOrigin := self topRight. + futureCorner := self bottomLeft] + ifFalse: [direction == #right + ifTrue: + [futureOrigin := self bottomLeft. + futureCorner := self topRight] + ifFalse: [self error: 'unrecognizable direction']]]. + ^ (futureOrigin rotateBy: direction centerAt: aPoint) + corner: (futureCorner rotateBy: direction centerAt: aPoint)! - ^ (origin rotateBy: direction centerAt: aPoint) - rect: (corner rotateBy: direction centerAt: aPoint)! Item was changed: ----- Method: Rectangle>>flipBy:centerAt: (in category 'transforming') ----- flipBy: direction centerAt: aPoint "Return a copy flipped #vertical or #horizontal, about aPoint." + | futureOrigin futureCorner | + direction == #horizontal + ifTrue: + [futureOrigin := self topRight. + futureCorner := self bottomLeft] + ifFalse: [direction == #vertical + ifTrue: + [futureOrigin := self bottomLeft. + futureCorner := self topRight] + ifFalse: [self error: 'unrecognizable direction']]. + ^ (futureOrigin flipBy: direction centerAt: aPoint) + corner: (futureCorner flipBy: direction centerAt: aPoint)! - ^ (origin flipBy: direction centerAt: aPoint) - rect: (corner flipBy: direction centerAt: aPoint)!

1 0

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

25 Jul '10

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.153.mcz ==================== Summary ==================== Name: Compiler-nice.153 Author: nice Time: 25 July 2010, 12:27:53.774 pm UUID: aa667119-b47a-44af-8bad-ff79f3c51d81 Ancestors: Compiler-nice.152 Use more explicit storeStringHex rather than floating hex in order to be more robust. =============== Diff against Compiler-nice.152 =============== Item was changed: ----- Method: Scanner>>xIllegal (in category 'multi-character scans') ----- xIllegal "An illegal character was encountered" + self notify: 'Illegal character (char code ' , hereChar charCode , ' ' , hereChar charCode storeStringHex , ')' at: mark! - self notify: 'Illegal character (char code ' , hereChar charCode , ' 16r' , hereChar charCode hex , ')' at: mark!

1 0

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

25 Jul '10

1 0

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

25 Jul '10

1 0

The Trunk: Network-ar.76.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.76.mcz ==================== Summary ==================== Name: Network-ar.76 Author: ar Time: 24 July 2010, 3:13:49.41 pm UUID: b1521559-931f-0340-8ca4-cd846a3ed667 Ancestors: Network-ar.75 Add long missing SocketStream>>destroy method. =============== Diff against Network-ar.75 =============== Item was added: + ----- Method: SocketStream>>destroy (in category 'initialize-release') ----- + destroy + "Destroy the receiver and its underlying socket. Does not attempt to flush the output buffers. For a graceful close use SocketStream>>close instead." + + socket ifNotNil:[socket destroy]!

1 0

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

25 Jul '10

1 0

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

25 Jul '10

1 0

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: Network-ar.75.mcz
by commits＠source.squeak.org 25 Jul '10

25 Jul '10

1 0

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

25 Jul '10

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 2010