Squeak-dev September 2009

squeak-dev@lists.squeakfoundation.org

119 participants
370 discussions

The Trunk: GraphicsTests-ar.14.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Andreas Raab uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-ar.14.mcz ==================== Summary ==================== Name: GraphicsTests-ar.14 Author: ar Time: 1 September 2009, 12:55:01 pm UUID: f9bc21a1-1fc2-0c46-bef4-be3557e9ff83 Ancestors: GraphicsTests-edc.13 http://bugs.squeak.org/view.php?id=6936 #asHTMLColor is inaccurate for certain values. Attached fix resolves that, also gives 10x speed-up. =============== Diff against GraphicsTests-edc.13 =============== Item was changed: + ----- Method: ColorTest>>testAsHTMLColor (in category 'testing') ----- - ----- Method: ColorTest>>testAsHTMLColor (in category 'tests') ----- testAsHTMLColor + + | table aColorString | + table := #('0' '1' '2' '3' '4' '5' '6' '7' '8' '9' 'A' 'B' 'C' 'D' 'E' 'F'). + + table do: [ :each | + aColorString := '#', each, each, '0000'. + self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)]. + + table do: [ :each | + aColorString := '#', '00', each, each, '00'. + self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)]. + + table do: [ :each | + aColorString := '#', '0000', each, each. + self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)]. + + table do: [ :each | + aColorString := '#', each, each, each, each, each, each. + self assert: ((Color fromString: aColorString) asHTMLColor sameAs: aColorString)].! - self assert: (Color white asHTMLColor = '#ffffff'). - self assert: (Color black asHTMLColor = '#000000').! Item was changed: + ----- Method: ColorTest>>testFromString (in category 'testing') ----- - ----- Method: ColorTest>>testFromString (in category 'tests') ----- testFromString + self assert: ((Color fromString: '#FF8800') asHTMLColor sameAs: '#ff8800').! - - self assert: ((Color fromString: '#FF8800') asHTMLColor = '#ff8800').! Item was changed: + ----- Method: ColorTest>>testColorFrom (in category 'testing') ----- - ----- Method: ColorTest>>testColorFrom (in category 'tests') ----- testColorFrom + self assert: ((Color colorFrom: #white) asHTMLColor sameAs: '#ffffff'). + self assert: ((Color colorFrom: #(1.0 0.5 0.0)) asHTMLColor sameAs: '#ff8000'). + self assert: ((Color colorFrom: (Color white)) asHTMLColor sameAs: '#ffffff'). + self assert: ((Color colorFrom: '#FF8800') asHTMLColor sameAs: '#ff8800'). + self assert: ((Color colorFrom: '#222222') asHTMLColor sameAs: '#222222').! - self assert: ((Color colorFrom: #white) asHTMLColor = '#ffffff'). - self assert: ((Color colorFrom: #(1.0 0.5 0.0)) asHTMLColor = '#ff7f00'). - self assert: ((Color colorFrom: (Color white)) asHTMLColor = '#ffffff'). - self assert: ((Color colorFrom: '#FF8800') asHTMLColor = '#ff8800').!

1 0

The Trunk: Graphics-ar.72.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Andreas Raab uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ar.72.mcz ==================== Summary ==================== Name: Graphics-ar.72 Author: ar Time: 1 September 2009, 12:53:21 pm UUID: 14e87ecf-9c28-964d-bcd8-714e83692432 Ancestors: Graphics-ar.71 http://bugs.squeak.org/view.php?id=6936 #asHTMLColor is inaccurate for certain values. Attached fix resolves that, also gives 10x speed-up. =============== Diff against Graphics-ar.71 =============== Item was changed: ----- Method: Color>>asHTMLColor (in category 'conversions') ----- asHTMLColor + | s | + s := '#000000' copy. + s at: 2 put: (Character digitValue: ((rgb bitShift: -6 - RedShift) bitAnd: 15)). + s at: 3 put: (Character digitValue: ((rgb bitShift: -2 - RedShift) bitAnd: 15)). + s at: 4 put: (Character digitValue: ((rgb bitShift: -6 - GreenShift) bitAnd: 15)). + s at: 5 put: (Character digitValue: ((rgb bitShift: -2 - GreenShift) bitAnd: 15)). + s at: 6 put: (Character digitValue: ((rgb bitShift: -6 - BlueShift) bitAnd: 15)). + s at: 7 put: (Character digitValue: ((rgb bitShift: -2 - BlueShift) bitAnd: 15)). + ^ s! - ^ '#', (self class hex: self red), (self class hex: self green), (self class hex: self blue)! Item was removed: - ----- Method: Color class>>hex: (in category 'other') ----- - hex: aFloat - "Return an hexadecimal two-digits string between 00 and FF - for a float between 0.0 and 1.0" - | str | - str := ((aFloat * 255) asInteger printStringHex) asLowercase. - str size = 1 ifTrue: [^'0',str] ifFalse: [^str]!

1 0

The Trunk: Collections-jcg.124.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Joshua Gargus uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-jcg.124.mcz ==================== Summary ==================== Name: Collections-jcg.124 Author: jcg Time: 1 September 2009, 12:53:11 pm UUID: f670aae4-19f6-429c-a828-8b20b372baec Ancestors: Collections-ar.123 #mimeEncode: no longer resets the input-stream position before encoding; that was just silly. See updated tests in CollectionsTests. Add #base64Encoded to ByteArray (for symmetry with String). =============== Diff against Collections-ar.123 =============== Item was changed: ----- Method: Base64MimeConverter class>>mimeEncode: (in category 'as yet unclassified') ----- mimeEncode: aStream "Return a ReadWriteStream of characters. The data of aStream is encoded as 65 innocuous characters. (See class comment). 3 bytes in aStream goes to 4 bytes in output." | me | - aStream position: 0. me := self new dataStream: aStream. me mimeStream: (ReadWriteStream on: (String new: aStream size + 20 * 4 // 3)). me mimeEncode. me mimeStream position: 0. ^ me mimeStream! Item was added: + ----- Method: ByteArray>>base64Encoded (in category 'converting') ----- + base64Encoded + "Encode the receiver as base64" + "'Hello World' asByteArray base64Encoded" + ^(Base64MimeConverter mimeEncode: self readStream) contents!

1 0

The Trunk: CollectionsTests-jcg.92.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Joshua Gargus uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-jcg.92.mcz ==================== Summary ==================== Name: CollectionsTests-jcg.92 Author: jcg Time: 1 September 2009, 12:49:22 pm UUID: ed08053a-039e-4407-9565-e3c8d84149f1 Ancestors: CollectionsTests-ar.91 Additional tests for Base64MimeConverterTest: - test that it works on ByteArrays too - test convenience method #base64Encoded - test that mimeEncode: doesn't first reset input stream. =============== Diff against CollectionsTests-ar.91 =============== Item was added: + ----- Method: Base64MimeConverterTest>>testOnByteArray (in category 'tests') ----- + testOnByteArray + self assert: ('Hi There!!' base64Encoded = 'Hi There!!' asByteArray base64Encoded)! Item was changed: ----- Method: Base64MimeConverterTest>>setUp (in category 'initialize-release') ----- setUp + message := 'Hi There!!' readStream. + ! - message := ReadWriteStream on: (String new: 10). - message nextPutAll: 'Hi There!!'.! Item was changed: ----- Method: Base64MimeConverterTest>>testMimeEncodeDecode (in category 'tests') ----- testMimeEncodeDecode | encoded | encoded := Base64MimeConverter mimeEncode: message. self assert: (encoded contents = 'SGkgVGhlcmUh'). + self assert: ((Base64MimeConverter mimeDecodeToChars: encoded) contents = message contents). + + "Encoding should proceed from the current stream position." + message reset. + message skip: 2. + encoded := Base64MimeConverter mimeEncode: message. + self assert: (encoded contents = 'IFRoZXJlIQ==').! - self assert: ((Base64MimeConverter mimeDecodeToChars: encoded) contents = message contents).! Item was added: + ----- Method: Base64MimeConverterTest>>testBase64Encoded (in category 'tests') ----- + testBase64Encoded + | encoded | + encoded := (Base64MimeConverter mimeEncode: message) contents. + self assert: encoded = 'Hi There!!' base64Encoded. + !

1 0

The Trunk: CollectionsTests-ar.92.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Andreas Raab uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ar.92.mcz ==================== Summary ==================== Name: CollectionsTests-ar.92 Author: ar Time: 1 September 2009, 12:48:39 pm UUID: 1fd2d9a7-d875-4d44-9f11-7fae6489c982 Ancestors: CollectionsTests-ar.91 Tests covering the changes in RWBinaryOrTextStream and Character. =============== Diff against CollectionsTests-ar.91 =============== Item was added: + TestCase subclass: #RWBinaryOrTextStreamTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'! Item was added: + ----- Method: RWBinaryOrTextStreamTest>>testUpToEnd (in category 'tests') ----- + testUpToEnd + + | stream | + stream := RWBinaryOrTextStream on: String new. + stream nextPutAll: 'world'; reset. + self assert: stream upToEnd = 'world'. + self assert: stream atEnd. + + self assert: stream upToEnd = ''. + self assert: stream atEnd. + + stream reset. + stream upTo: $r. + self assert: stream upToEnd = 'ld'. + self assert: stream atEnd. + + stream := RWBinaryOrTextStream on: String new. + stream binary. + stream nextPutAll: 'world'; reset. + self assert: stream upToEnd = 'world' asByteArray. + self assert: stream atEnd. + + self assert: stream upToEnd = ByteArray new. + self assert: stream atEnd. + + stream reset. + stream upTo: $r asciiValue. + self assert: stream upToEnd = 'ld' asByteArray. + self assert: stream atEnd! Item was added: + ----- Method: RWBinaryOrTextStreamTest>>testNextPutAll (in category 'tests') ----- + testNextPutAll + + | stream | + stream := RWBinaryOrTextStream on: String new. + stream nextPutAll: 'hello'. + self assert: stream contents = 'hello'. + + stream := RWBinaryOrTextStream on: String new. + stream nextPutAll: 'hello' asArray. + self assert: stream contents = 'hello'. + + stream := RWBinaryOrTextStream on: String new. + stream nextPutAll: 'hello' asByteArray. + self assert: stream contents = 'hello' + ! Item was added: + ----- Method: RWBinaryOrTextStreamTest>>testUpTo (in category 'tests') ----- + testUpTo + + | stream | + stream := RWBinaryOrTextStream on: String new. + stream nextPutAll: 'world'; reset. + self assert: (stream upTo: $r) = 'wo'. + self assert: stream next = $l. + + stream := RWBinaryOrTextStream on: String new. + stream nextPutAll: 'hello'; reset. + self assert: (stream upTo: $x) = 'hello'. + self assert: stream atEnd. + + stream := RWBinaryOrTextStream on: String new. + stream binary. + stream nextPutAll: 'world'; reset. + self assert: (stream upTo: $r asciiValue) = 'wo' asByteArray. + self assert: stream next = $l asciiValue. + + stream := RWBinaryOrTextStream on: String new. + stream binary. + stream nextPutAll: 'hello'; reset. + self assert: (stream upTo: $x asciiValue) = 'hello' asByteArray. + self assert: stream atEnd. + ! Item was added: + ----- Method: CharacterTest>>testCodePoint (in category 'tests - creation') ----- + testCodePoint + self assert: (Character codePoint: $A asciiValue) = $A. + self shouldnt:[Character codePoint: 500] raise: Error. + self assert: (Character codePoint: 500) asciiValue = 500.!

1 0

The Trunk: Network-jcg.35.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Joshua Gargus uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-jcg.35.mcz ==================== Summary ==================== Name: Network-jcg.35 Author: jcg Time: 1 September 2009, 12:46:48 pm UUID: 03bb9532-5287-40b1-bb29-ea33c8c3d4fd Ancestors: Network-ar.34 Use 'foo base64Encoded' instead of '(Base64MimeConverter mimeEncode: foo readStream) contents'. =============== Diff against Network-ar.34 =============== Item was changed: ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category 'get the page') ----- httpPost: url args: args user: user passwd: passwd | authorization | + authorization := (user , ':' , passwd) base64Encoded. - authorization := (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. ^self httpPostDocument: url args: args accept: '*/*' request: 'Authorization: Basic ' , authorization , CrLf! Item was changed: ----- Method: HTTPSocket class>>proxyUser:password: (in category 'proxy settings') ----- proxyUser: userName password: password "Store HTTP 1.0 basic authentication credentials Note: this is an ugly hack that stores your password in your image. It's just enought to get you going if you use a firewall that requires authentication" + | encoded | + encoded := (userName, ':', password) base64Encoded. + HTTPProxyCredentials := 'Proxy-Authorization: Basic ' , encoded, String crlf! - - | stream encodedStream | - stream := ReadWriteStream on: (String new: 16). - stream nextPutAll: userName ,':' , password. - encodedStream := Base64MimeConverter mimeEncode: stream. - HTTPProxyCredentials := 'Proxy-Authorization: Basic ' , (encodedStream contents) , String crlf! Item was changed: Stream subclass: #MailAddressTokenizer instanceVariableNames: 'cachedToken text pos' + classVariableNames: 'CSNonAtom CSNonSeparators CSParens CSSpecials' - classVariableNames: 'CSSpecials CSNonSeparators CSParens CSNonAtom' poolDictionaries: '' category: 'Network-RFC822'! !MailAddressTokenizer commentStamp: '<historical>' prior: 0! Divides an address into tokens, as specified in RFC 822. Used by MailAddressParser.! Item was changed: ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category 'get the page') ----- httpGet: url args: args user: user passwd: passwd | authorization | + authorization := (user , ':' , passwd) base64Encoded. - authorization := (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. ^self httpGet: url args: args accept: '*/*' request: 'Authorization: Basic ' , authorization , CrLf! Item was changed: Object subclass: #ServerDirectory instanceVariableNames: 'server directory type user passwordHolder group moniker altURL urlObject client loaderUrl eToyUserListUrl eToyUserList keepAlive encodingName' + classVariableNames: 'LocalEToyBaseFolderSpecs LocalEToyUserListUrls LocalProjectDirectories Servers' - classVariableNames: 'LocalEToyUserListUrls LocalProjectDirectories LocalEToyBaseFolderSpecs Servers' poolDictionaries: '' category: 'Network-RemoteDirectory'! !ServerDirectory commentStamp: '<historical>' prior: 0! Holds all the information needed to read or write on a directory of an internet server. I am used for FTP and HTTP (and STMP? NNTP?). The password policy is: unless it is a public password (like annomyous), clear all passwords before any snapshot. There is a way to store passwords on the disk. server 'www.disney.com' or '123.34.56.08' or the ServerDirectory above me (if I am a subdirectory sharing the info in a master directory) directory 'ftp/pubs/' name of my directory within the server or superdirectory. (for file://, directory is converted to local delimiters.) type #ftp what you can do in this directory user 'Jones45' password an instance of Password. group an Association ('group name' -> an array of ServerDirectorys) If this first one is down, try the next one. Store on all of them. I am in the list. moniker 'Main Squeak Directory' Description of this directory. altURL When a FTP server holds some web pages, the altURL of those pages is often different from the FTP directory. Put the altURL here. If the directory is 'public_html/Squeak/', the altURL might be 'www.webPage.com/~kaehler2/ Squeak/'. urlObject An instance of a subclass of Url. It is very good at parsing complex urls. Relative references. file:// uses this. Use this in the future instead of server and directory inst vars. socket nil or an FTPSocket. Only non-nil if the connection is being kept open for multiple stores or retrievals. loaderUrl a partial url that is ised to invoke squeak in a browser and load a project. A normal call on some command like (aServer getFileNamed: 'foo') does not set 'socket'. Socket being nil tells it to close the connection and destroy the socket after this one transcation. If the caller stores into 'socket', then the same command does NOT close the connection. Call 'openKeepFTP' or 'openGroup' to store into socket and keep the connection open. It is up to the user to call 'quit' or 'closeGroup' later. DD openKeepFTP. Transcript cr; show: ((DD getFileNamed: '1198misc-tkKG.cs') next: 100). Transcript cr; show: ((DD getFileNamed: '1192multFinder-tkKF.cs') next: 100). DD quit.! Item was changed: ----- Method: HTTPSocket class>>httpPut:to:user:passwd: (in category 'get the page') ----- httpPut: contents to: url user: user passwd: passwd "Upload the contents of the stream to a file on the server" | bare serverName specifiedServer port page serverAddr authorization s list header firstData length aStream command | Socket initializeNetwork. "parse url" bare := (url asLowercase beginsWith: 'http://') ifTrue: [url copyFrom: 8 to: url size] ifFalse: [url]. serverName := bare copyUpTo: $/. specifiedServer := serverName. (serverName includes: $:) ifFalse: [ port := self defaultPort ] ifTrue: [ port := (serverName copyFrom: (serverName indexOf: $:) + 1 to: serverName size) asNumber. serverName := serverName copyUpTo: $:. ]. page := bare copyFrom: (bare indexOf: $/) to: bare size. page size = 0 ifTrue: [page := '/']. (self shouldUseProxy: serverName) ifTrue: [ page := 'http://', serverName, ':', port printString, page. "put back together" serverName := self httpProxyServer. port := self httpProxyPort]. "make the request" serverAddr := NetNameResolver addressForName: serverName timeout: 20. serverAddr ifNil: [ ^ 'Could not resolve the server named: ', serverName]. + authorization := (user , ':' , passwd) base64Encoded. - authorization := (Base64MimeConverter mimeEncode: (user , ':' , passwd) readStream) contents. s := HTTPSocket new. s connectTo: serverAddr port: port. s waitForConnectionUntil: self standardDeadline. Transcript cr; show: url; cr. command := 'PUT ', page, ' HTTP/1.0', CrLf, self userAgentString, CrLf, 'Host: ', specifiedServer, CrLf, 'ACCEPT: */*', CrLf, HTTPProxyCredentials, 'Authorization: Basic ' , authorization , CrLf , 'Content-length: ', contents size printString, CrLf , CrLf , contents. s sendCommand: command. "get the header of the reply" list := s getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" header := list at: 1. "Transcript show: page; cr; show: argsStream contents; cr; show: header; cr." firstData := list at: 3. "dig out some headers" s header: header. length := s getHeader: 'content-length'. length ifNotNil: [ length := length asNumber ]. aStream := s getRestOfBuffer: firstData totalLength: length. s destroy. "Always OK to destroy!!" ^ header, aStream contents! Item was changed: OldSimpleClientSocket subclass: #HTTPSocket instanceVariableNames: 'headerTokens headers responseCode' + classVariableNames: 'HTTPBlabEmail HTTPPort HTTPProxyCredentials HTTPProxyExceptions LogToTranscript ParamDelimiters' - classVariableNames: 'LogToTranscript HTTPProxyCredentials HTTPPort HTTPBlabEmail ParamDelimiters HTTPProxyExceptions' poolDictionaries: '' category: 'Network-Protocols'! !HTTPSocket commentStamp: '<historical>' prior: 0! HTTPSockets support HTTP requests, either directly or via an HTTP proxy server. An HTTPSocket saves the parse of the last ASCII header it saw, to avoid having to parse it repeatedly. The real action is in httpGet:accept:. See the examples in the class, especially httpFileInNewChangeSet: and httpShowGif:.! Item was changed: Object subclass: #OldSocket instanceVariableNames: 'semaphore socketHandle readSemaphore writeSemaphore primitiveOnlySupportsOneSemaphore' + classVariableNames: 'Connected DeadServer InvalidSocket OtherEndClosed Registry RegistryThreshold TCPSocketType ThisEndClosed UDPSocketType Unconnected WaitingForConnection' - classVariableNames: 'InvalidSocket ThisEndClosed WaitingForConnection UDPSocketType Registry TCPSocketType OtherEndClosed Connected Unconnected RegistryThreshold DeadServer' poolDictionaries: '' category: 'Network-Kernel'! !OldSocket commentStamp: '<historical>' prior: 0! A Socket represents a network connection point. Current sockets are designed to support the TCP/IP and UDP protocols Subclasses of socket provide support for network protocols such as POP, NNTP, HTTP, and FTP. Sockets also allow you to implement your own custom services and may be used to support Remote Procedure Call or Remote Method Invocation some day. JMM June 2nd 2000 Macintosh UDP support was added if you run open transport. ! Item was changed: Object subclass: #NetNameResolver instanceVariableNames: '' + classVariableNames: 'DefaultHostName HaveNetwork ResolverBusy ResolverError ResolverMutex ResolverReady ResolverSemaphore ResolverUninitialized' - classVariableNames: 'ResolverReady DefaultHostName ResolverUninitialized ResolverMutex ResolverSemaphore ResolverError ResolverBusy HaveNetwork' poolDictionaries: '' category: 'Network-Kernel'! !NetNameResolver commentStamp: '<historical>' prior: 0! This class implements TCP/IP style network name lookup and translation facilities. Attempt to keep track of whether there is a network available. HaveNetwork true if last attempt to contact the network was successful. LastContact Time of that contact (totalSeconds). haveNetwork returns true, false, or #expired. True means there was contact in the last 30 minutes. False means contact failed or was false last time we asked. Get out of false state by making contact with a server in some way (FileList or updates).! Item was changed: OldSocket subclass: #OldSimpleClientSocket instanceVariableNames: 'buffer bufferPos' + classVariableNames: 'CR CrLf LF' - classVariableNames: 'CrLf LF CR' poolDictionaries: '' category: 'Network-Kernel'! !OldSimpleClientSocket commentStamp: '<historical>' prior: 0! This class supports client for simple network protocols based on sending textual commands and responses. Examples of such protocols include POP3 (mail retrieval), SMTP (mail posting), HTTP (web browsing), and NTTP (network news). Some simple examples are presented as class methods, but a full-service client of some service should be implemented as a subclass. The basic services provided by this class are: sendCommand: -- sends a command line terminate with <CR><LF> getResponse -- gets a single-line response to a command getMultilineResponse -- gets a multiple line response terminated by a period -- on a line by itself There are variants of the getResponse commands that display lines on the screen as they are being received. Linefeeds are stripped out of all responses. The 'get' commands above make use of an internal buffer. So intermixing these two commands and regular Socket recieve commands can cause problems.! Item was changed: Object subclass: #Socket instanceVariableNames: 'semaphore socketHandle readSemaphore writeSemaphore primitiveOnlySupportsOneSemaphore' + classVariableNames: 'Connected DeadServer InvalidSocket OtherEndClosed Registry RegistryThreshold TCPSocketType ThisEndClosed UDPSocketType Unconnected WaitingForConnection' - classVariableNames: 'InvalidSocket ThisEndClosed WaitingForConnection UDPSocketType Registry Unconnected Connected OtherEndClosed TCPSocketType RegistryThreshold DeadServer' poolDictionaries: '' category: 'Network-Kernel'! !Socket commentStamp: 'gk 12/13/2005 00:43' prior: 0! A Socket represents a network connection point. Current sockets are designed to support the TCP/IP and UDP protocols. Sockets are the lowest level of networking object in Squeak and are not normally used directly. SocketStream is a higher level object wrapping a Socket in a stream like protocol. ProtocolClient and subclasses are in turn wrappers around a SocketStream to provide support for specific network protocols such as POP, NNTP, HTTP, and FTP.!

1 0

The Trunk: Collections-ar.123.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.123.mcz ==================== Summary ==================== Name: Collections-ar.123 Author: ar Time: 1 September 2009, 12:38:06 pm UUID: e7432274-e18a-1e43-a002-f3ab261bd465 Ancestors: Collections-tfel.122 Some fixes for RWBinaryOrTextStream which was too agressive optimizing some paths. Also fixes Character>>codePoint: which has no reason to raise an exception for values > 256. =============== Diff against Collections-tfel.122 =============== Item was added: + ----- Method: RWBinaryOrTextStream>>upTo: (in category 'accessing') ----- + upTo: anObject + "Answer a subcollection from the current access position to the + occurrence (if any, but not inclusive) of anObject in the receiver. If + anObject is not in the collection, answer the entire rest of the receiver." + | newStream element species | + species := isBinary ifTrue:[ByteArray] ifFalse:[String]. + newStream := WriteStream on: (species new: 100). + [self atEnd or: [(element := self next) = anObject]] + whileFalse: [newStream nextPut: element]. + ^newStream contents! Item was changed: ----- Method: RWBinaryOrTextStream>>next:putAll:startingAt: (in category 'writing') ----- next: anInteger putAll: aCollection startingAt: startIndex + "Optimized for ByteArrays" + aCollection class == ByteArray + ifTrue:[^super next: anInteger putAll: aCollection asString startingAt: startIndex]. + ^super next: anInteger putAll: aCollection startingAt: startIndex! - ^super next: anInteger putAll: aCollection asString startingAt: startIndex! Item was changed: ----- Method: RWBinaryOrTextStream>>nextPutAll: (in category 'writing') ----- nextPutAll: aCollection + "Optimized for ByteArrays" + aCollection class == ByteArray + ifTrue:[^super nextPutAll: aCollection asString]. + ^super nextPutAll: aCollection! - ^super nextPutAll: aCollection asString! Item was changed: ----- Method: Character class>>codePoint: (in category 'instance creation') ----- codePoint: integer + "Return a character whose encoding value is integer. + For ansi compability." + ^self value: integer! - "Return a character whose encoding value is integer." - #Fundmntl. - (0 > integer or: [255 < integer]) - ifTrue: [self error: 'parameter out of range 0..255']. - ^ CharacterTable at: integer + 1!

1 0

The Trunk: Compiler-tfel.75.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Andreas Raab uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-tfel.75.mcz ==================== Summary ==================== Name: Compiler-tfel.75 Author: tfel Time: 1 September 2009, 5:13:15 am UUID: c0548007-a567-49ac-81ed-f0df3a098e65 Ancestors: Compiler-tfel.74 MethodNode>>generateWith:using: Nuked the method according to Andreas' request on the mailinglist =============== Diff against Compiler-cwp.73 =============== Item was removed: - ----- Method: MethodNode>>generateWith:using: (in category 'code generation') ----- - generateWith: trailer using: aCompiledMethodClass - "The receiver is the root of a parse tree. Answer a CompiledMethod. The - argument, trailer, is the references to the source code that is stored with - every CompiledMethod." - - | blkSize nLits stack strm nArgs method | - self generate: trailer ifQuick: - [:m | method := m. - method properties: properties. - ^ method]. - nArgs := arguments size. - blkSize := block sizeForEvaluatedValue: encoder. - literals := encoder allLiterals. - nLits := literals size. - method := aCompiledMethodClass "Dummy to allocate right size" - newBytes: blkSize - trailerBytes: trailer - nArgs: nArgs - nTemps: encoder maxTemp - nStack: 0 - nLits: nLits - primitive: primitive. - strm := ReadWriteStream with: method. - strm position: method initialPC - 1. - stack := ParseStack new init. - block emitForEvaluatedValue: stack on: strm. - stack position ~= 1 ifTrue: [^self error: 'Compiler stack - discrepancy']. - strm position ~= (method size - trailer size) - ifTrue: [^self error: 'Compiler code size discrepancy']. - method needsFrameSize: stack size. - 1 to: nLits do: [:lit | method literalAt: lit put: (literals at: lit)]. - method properties: properties. - ^ method!

1 0

The Trunk: Morphic-ar.165.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.165.mcz ==================== Summary ==================== Name: Morphic-ar.165 Author: ar Time: 31 August 2009, 8:14:46 am UUID: 2f9b8fc0-01c7-6942-98bd-ce0775a45e9f Ancestors: Morphic-ar.164 Disable style choices in the font chooser dialog for now since its users don't expect the font to be emphasized already. This will need more work and is too confusing at this point (and too easy to break). =============== Diff against Morphic-ar.164 =============== Item was changed: ----- Method: FontChooserTool>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" "ToolBuilder open: self" | windowSpec | + self offerStyleList ifTrue:[ + windowSpec := self buildWindowWith: builder specs: { + (0@0 corner: 0.4(a)0.4) -> [self buildFontListWith: builder]. + (0.4@0 corner: 0.8(a)0.4) -> [self buildStyleListWith: builder]. + (0.8@0 corner: 1.0(a)0.4) -> [self buildPointSizeListWith: builder]. + (0.0(a)0.4 corner: 1.0(a)0.88) -> [self buildPreviewPaneWith: builder]. + (0.0(a)0.88 corner: 1@1) -> [self buildButtonBarWith: builder]. + }. + ] ifFalse:[ + windowSpec := self buildWindowWith: builder specs: { + (0@0 corner: 0.7(a)0.4) -> [self buildFontListWith: builder]. + " (0.4@0 corner: 0.8(a)0.4) -> [self buildStyleListWith: builder]." + (0.7@0 corner: 1.0(a)0.4) -> [self buildPointSizeListWith: builder]. + (0.0(a)0.4 corner: 1.0(a)0.8) -> [self buildPreviewPaneWith: builder]. + (0.0(a)0.8 corner: 1@1) -> [self buildButtonBarWith: builder]. + }. + ]. + windowSpec extent: self initialExtent. - windowSpec := self buildWindowWith: builder specs: { - (0@0 corner: 0.4(a)0.4) -> [self buildFontListWith: builder]. - (0.4@0 corner: 0.8(a)0.4) -> [self buildStyleListWith: builder]. - (0.8@0 corner: 1.0(a)0.4) -> [self buildPointSizeListWith: builder]. - (0.0(a)0.4 corner: 1.0(a)0.88) -> [self buildPreviewPaneWith: builder]. - (0.0(a)0.88 corner: 1@1) -> [self buildButtonBarWith: builder]. - }. - windowSpec extent: 400@300. window := builder build: windowSpec. + "Yes, that's a hack. But it looks ugly with line breaks." + (builder widgetAt: #preview) textMorph wrapFlag: false. ^window! Item was added: + ----- Method: FontChooserTool>>offerStyleList (in category 'initialize') ----- + offerStyleList + "Whether to offer a choice of styles with the font. + Currently disabled since most of the text machinery doesn't like emphasis + already being applied to the font. Would have to decompose font/emphasis + in order for that to work." + ^false! Item was changed: ----- Method: FontChooserTool>>contents (in category 'toolbuilder') ----- contents | sample i c f | sample := WriteStream on: ''. f := self selectedFont ifNil:[^Text new]. f isSymbolFont ifFalse:[ sample nextPutAll: 'the quick brown fox jumps over the lazy dog' ;cr; nextPutAll: 'THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.' ;cr;cr; nextPutAll: '0123456789'; cr; cr; + nextPutAll: + 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, + sed do eiusmod tempor incididunt ut labore et dolore + magna aliqua. Ut enim ad minim veniam, quis nostrud + exercitation ullamco laboris nisi ut aliquip ex ea commodo + consequat. Duis aute irure dolor in reprehenderit in voluptate + velit esse cillum dolore eu fugiat nulla pariatur. Excepteur + sint occaecat cupidatat non proident, sunt in culpa qui + officia deserunt mollit anim id est laborum.'; - nextPutAll: 'Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum.'; yourself. ] ifTrue:[ i := 0. 33 to: 255 do:[:ci | sample nextPut: (c:=Character value: ci). i := i + 1. (('@Z`z' includes:c) or:[i = 30]) ifTrue:[i :=0. sample cr]]. ]. sample := sample contents asText. sample addAttribute: (TextFontReference toFont: f). ^sample! Item was changed: ----- Method: FontChooserTool>>buildPreviewPaneWith: (in category 'toolbuilder') ----- buildPreviewPaneWith: builder "Build the preview panel" | textSpec | textSpec := builder pluggableTextSpec new. textSpec + name: #preview; model: self; getText: #contents. ^textSpec! Item was changed: ----- Method: FontChooserTool>>initialExtent (in category 'initialize') ----- initialExtent + ^self offerStyleList ifTrue:[400@300] ifFalse:[300@200].! - ^400@300!

1 0

The Inbox: Compiler-tfel.75.mcz
by commits＠source.squeak.org 01 Sep '09

01 Sep '09

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-tfel.75.mcz ==================== Summary ==================== Name: Compiler-tfel.75 Author: tfel Time: 1 September 2009, 5:13:15 am UUID: c0548007-a567-49ac-81ed-f0df3a098e65 Ancestors: Compiler-tfel.74 MethodNode>>generateWith:using: Nuked the method according to Andreas' request on the mailinglist =============== Diff against Compiler-tfel.74 =============== Item was removed: - ----- Method: MethodNode>>generateWith:using: (in category 'code generation') ----- - generateWith: trailer using: aCompiledMethodClass - "The receiver is the root of a parse tree. Answer a CompiledMethod. The - argument, trailer, is the references to the source code that is stored with - every CompiledMethod." - - | blkSize nLits stack strm nArgs method literals | - self generate: trailer ifQuick: - [:m | method := m. - method properties: properties. - ^ method]. - nArgs := arguments size. - blkSize := block sizeForEvaluatedValue: encoder. - literals := encoder allLiterals. - nLits := literals size. - method := aCompiledMethodClass "Dummy to allocate right size" - newBytes: blkSize - trailerBytes: trailer - nArgs: nArgs - nTemps: encoder maxTemp - nStack: 0 - nLits: nLits - primitive: primitive. - strm := ReadWriteStream with: method. - strm position: method initialPC - 1. - stack := ParseStack new init. - block emitForEvaluatedValue: stack on: strm. - stack position ~= 1 ifTrue: [^self error: 'Compiler stack - discrepancy']. - strm position ~= (method size - trailer size) - ifTrue: [^self error: 'Compiler code size discrepancy']. - method needsFrameSize: stack size. - 1 to: nLits do: [:lit | method literalAt: lit put: (literals at: lit)]. - method properties: properties. - ^ method!

1 0

Jump to page: