Squeak-dev December 2009

squeak-dev@lists.squeakfoundation.org

97 participants
553 discussions

The Trunk: Network-ul.41.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.41.mcz ==================== Summary ==================== Name: Network-ul.41 Author: ul Time: 2 December 2009, 6:11:43 am UUID: 0598c060-af2b-ca4b-8fa3-09e0dd0162ae Ancestors: Network-nice.40 - merged http://bugs.squeak.org/view.php?id=7291 =============== Diff against Network-nice.40 =============== Item was changed: ----- Method: HTTPSocket class>>httpPost:args:user:passwd: (in category 'get the page') ----- httpPost: url args: args user: user passwd: passwd + + | authorization result | - | authorization | authorization := (user , ':' , passwd) base64Encoded. + result := self + httpPostDocument: url args: args accept: '*/*' + request: 'Authorization: Basic ' , authorization , CrLf. + result isString ifFalse: [ ^result ]. + + authorization := self digestFor: result method: 'POST' url: url user: user password: passwd. + authorization ifNil: [ ^result ]. ^self httpPostDocument: url args: args accept: '*/*' + request: 'Authorization: Digest ' , authorization , CrLf. + ! - request: 'Authorization: Basic ' , authorization , CrLf! Item was changed: + ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category 'proxy settings') ----- - ----- Method: HTTPSocket class>>httpGetDocument:args:accept:request: (in category 'get the page') ----- httpGetDocument: url args: args accept: mimeType request: requestString "Return the exact contents of a web object. Asks for the given MIME type. If mimeType is nil, use 'text/html'. An extra requestString may be submitted and must end with crlf. The parsed header is saved. Use a proxy server if one has been registered. tk 7/23/97 17:12" "Note: To fetch raw data, you can use the MIME type 'application/octet-stream'." | serverName serverAddr port sock header length bare page list firstData aStream index connectToHost connectToPort type newUrl | Socket initializeNetwork. bare := (url asLowercase beginsWith: 'http://') ifTrue: [url copyFrom: 8 to: url size] ifFalse: [url]. bare := bare copyUpTo: $#. "remove fragment, if specified" serverName := bare copyUpTo: $/. page := bare copyFrom: serverName size + 1 to: bare size. (serverName includes: $:) ifTrue: [ index := serverName indexOf: $:. port := (serverName copyFrom: index+1 to: serverName size) asNumber. serverName := serverName copyFrom: 1 to: index-1. ] ifFalse: [ port := self defaultPort ]. page size = 0 ifTrue: [page := '/']. "add arguments" args ifNotNil: [page := page, (self argString: args) ]. (self shouldUseProxy: serverName) ifFalse: [ connectToHost := serverName. connectToPort := port ] ifTrue: [ page := 'http://', serverName, ':', port printString, page. "put back together" connectToHost := self httpProxyServer. connectToPort := self httpProxyPort]. serverAddr := NetNameResolver addressForName: connectToHost timeout: 20. serverAddr ifNil: [ ^ 'Could not resolve the server named: ', connectToHost]. 3 timesRepeat: [ sock := HTTPSocket new. sock connectTo: serverAddr port: connectToPort. (sock waitForConnectionUntil: (self deadlineSecs: 30)) ifFalse: [ Socket deadServer: connectToHost. sock destroy. ^ 'Server ',connectToHost,' is not responding']. "Transcript cr;show: url; cr. Transcript show: page; cr." sock sendCommand: 'GET ', page, ' HTTP/1.0', CrLf, (mimeType ifNotNil: ['ACCEPT: ', mimeType, CrLf] ifNil: ['']), 'ACCEPT: text/html', CrLf, "Always accept plain text" HTTPBlabEmail, "may be empty" requestString, "extra user request. Authorization" self userAgentString, CrLf, 'Host: ', serverName, ':', port printString, CrLf. "blank line automatically added" + list := sock getResponseUpTo: CrLf, CrLf ignoring: String cr. "list = header, CrLf, CrLf, - list := sock getResponseUpTo: CrLf, CrLf ignoring: (String with: CR). "list = header, CrLf, CrLf, beginningOfData" header := list at: 1. "Transcript show: page; cr; show: header; cr." firstData := list at: 3. header isEmpty ifTrue: [aStream := 'server aborted early'] ifFalse: [ "dig out some headers" sock header: header. length := sock getHeader: 'content-length'. length ifNotNil: [ length := length asNumber ]. type := sock getHeader: 'content-type'. sock responseCode first = $3 ifTrue: [ newUrl := sock getHeader: 'location'. newUrl ifNotNil: [ Transcript show: 'redirecting to ', newUrl; cr. sock destroy. newUrl := self expandUrl: newUrl ip: serverAddr port: connectToPort. ^self httpGetDocument: newUrl args: args accept: mimeType request: requestString] ]. aStream := sock getRestOfBuffer: firstData totalLength: length. "a 400-series error" sock responseCode first = $4 ifTrue: [^ header, aStream contents]. ]. sock destroy. "Always OK to destroy!!" aStream class ~~ String ifTrue: [ ^ MIMEDocument contentType: type content: aStream contents url: url]. aStream = 'server aborted early' ifTrue: [ ^aStream ]. ]. {'HTTPSocket class>>httpGetDocument:args:accept:request:'. aStream. url} inspect. ^'some other bad thing happened!!'! Item was added: + ----- Method: HTTPSocket class>>digestFor:method:url:user:password: (in category 'digest') ----- + digestFor: serverText method: method url: url user: user password: password + "RFC2069" + | sock | + sock := HTTPSocket new. "header decoder is on instance side" + sock header: (serverText readStream upToAll: String crlf, String crlf). + ^self digestFrom: sock method: method url: url user: user password: password! Item was changed: ----- Method: HTTPSocket class>>httpGet:args:user:passwd: (in category 'get the page') ----- httpGet: url args: args user: user passwd: passwd + + | authorization result | - | authorization | authorization := (user , ':' , passwd) base64Encoded. + result := self + httpGet: url args: args accept: '*/*' + request: 'Authorization: Basic ' , authorization , CrLf. + result isString ifFalse: [^result]. + + authorization := self digestFor: result method: 'GET' url: url user: user password: passwd. + authorization ifNil: [^result]. ^self httpGet: url args: args accept: '*/*' + request: 'Authorization: Digest ' , authorization , CrLf! - request: 'Authorization: Basic ' , authorization , CrLf! Item was added: + ----- Method: HTTPSocket class>>md5Hash: (in category 'digest') ----- + md5Hash: aString + "Answer hash of aString as lowercase 32 digit hex String. + There are several providers of MD5 hash ..." + "(self md5Hash: 'user:realm:passwd') = '007e68e539ed680c24f6d9a370f3bcb1'" + | hash | + hash := Smalltalk at: #CMD5Hasher ifPresent: [:cls | + cls hashMessage: aString]. + hash ifNil: [ + hash := Smalltalk at: #TCryptoRandom ifPresent: [:cls | + (cls basicNew md5HashMessage: aString) asInteger]]. + hash ifNotNil: [ + hash := hash hex asLowercase. + (hash beginsWith: '16r') ifTrue: [hash := hash allButFirst: 3]. + hash := hash padded: #left to: 32 with: $0]. + ^hash! 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 digest | - | 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 := ' Basic ', (user , ':' , passwd) base64Encoded. + [ - authorization := (user , ':' , passwd) base64Encoded. 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: ' , authorization , CrLf , - '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 cr. "list = header, CrLf, CrLf, beginningOfData" - 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. + + (authorization beginsWith: 'Digest ') not + and: [(digest := self digestFrom: s method: 'PUT' url: url user: user password: passwd) notNil]] + whileTrue: [authorization := 'Digest ', digest]. - length := s getHeader: 'content-length'. - length ifNotNil: [ length := length asNumber ]. - - aStream := s getRestOfBuffer: firstData totalLength: length. - s destroy. "Always OK to destroy!!" + 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 added: + ----- Method: HTTPSocket class>>digestFrom:method:url:user:password: (in category 'digest') ----- + digestFrom: sock method: method url: url user: user password: password + "RFC2069" + | auth fields realm nonce uri a1 a2 response | + sock responseCode = '401' ifFalse: [^nil]. + auth := sock getHeader: 'www-authenticate'. + (auth asLowercase beginsWith: 'digest') ifFalse: [^nil]. + + fields := (((auth allButFirst: 6) findTokens: ', ') collect: [:ea | + (ea copyUpTo: $=) asLowercase -> (ea copyAfter: $=) withoutQuoting]) as: Dictionary. + + realm := fields at: 'realm'. + nonce := fields at: 'nonce'. + uri := url readStream upToAll: '://'; skipTo: $/; skip: -1; upTo: $#. + a1 := self md5Hash: user, ':', realm, ':', password. + a2 := self md5Hash: method, ':', uri. + a1 ifNil: [^nil "no MD5 support"]. + response := self md5Hash: a1, ':', nonce, ':', a2. + + ^String streamContents: [:digest | + digest + nextPutAll: 'username="', user, '"'; + nextPutAll: ', realm="', realm, '"'; + nextPutAll: ', nonce="', nonce, '"'; + nextPutAll: ', uri="', uri, '"'; + nextPutAll: ', response="', response, '"'. + fields at: 'opaque' ifPresent: [:opaque | + digest nextPutAll: ', opaque="', opaque, '"']. + ] + !

1 0

The Trunk: CollectionsTests-ul.121.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.121.mcz ==================== Summary ==================== Name: CollectionsTests-ul.121 Author: ul Time: 2 December 2009, 5:55:12 am UUID: b9168aba-608f-404b-8866-704010534859 Ancestors: CollectionsTests-ar.120 - added tests for WriteStream's new lf and crlf =============== Diff against CollectionsTests-ar.120 =============== Item was added: + ----- Method: WriteStreamTest>>testCrLf (in category 'tests - character writing') ----- + testCrLf + "self debug: #testCrLf" + + | stream | + stream := WriteStream on: 'stream'. + stream crlf. + self assert: (stream contents last: 2) = String crlf.! Item was added: + ----- Method: WriteStreamTest>>testLf (in category 'tests - character writing') ----- + testLf + "self debug: #testLf" + + | stream | + stream := WriteStream on: 'stream'. + stream lf. + self assert: stream last = Character lf.!

1 0

The Trunk: Collections-ul.238.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.238.mcz ==================== Summary ==================== Name: Collections-ul.238 Author: ul Time: 2 December 2009, 5:54:41 am UUID: 86a69c95-3e4b-5d4a-adc6-36e3f1039500 Ancestors: Collections-ul.237 - added #lf and #crlf to WriteStream (like #cr) - updated String >> #withInternetLineEndings =============== Diff against Collections-ul.237 =============== Item was added: + ----- Method: WriteStream>>crlf (in category 'character writing') ----- + crlf + "Append a line feed character to the receiver." + + self nextPut: Character cr; nextPut: Character lf! Item was added: + ----- Method: WriteStream>>lf (in category 'character writing') ----- + lf + "Append a line feed character to the receiver." + + self nextPut: Character lf! Item was changed: ----- Method: String>>withInternetLineEndings (in category 'internet') ----- withInternetLineEndings + "change line endings from CR's and LF's to CRLF's. This is probably in prepration for sending a string over the Internet" - "change line endings from CR's to CRLF's. This is probably in prepration for sending a string over the Internet" ^self class new: self size * 16 // 15 "provisions for CR-LF pairs" streamContents: [ :stream | self lineIndicesDo: [:start :endWithoutDelimiters :end | stream nextPutAll: (self copyFrom: start to: endWithoutDelimiters). endWithoutDelimiters = end ifFalse: [ + stream crlf ] ] ]! - stream cr; nextPut: Character lf ] ] ]!

1 0

The Trunk: Kernel-dtl.318.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.318.mcz ==================== Summary ==================== Name: Kernel-dtl.318 Author: dtl Time: 2 December 2009, 9:22:36 am UUID: 0153a88f-b3b4-48e6-9dfa-a6acd42915c3 Ancestors: Kernel-nice.317 Remove Object>>couldOpenInMorphic and eliminate "world hacking" method category. =============== Diff against Kernel-nice.317 =============== Item was removed: - ----- Method: Object>>couldOpenInMorphic (in category 'world hacking') ----- - couldOpenInMorphic - - "is there an obvious morphic world in which to open a new morph?" - - ^World notNil or: [ActiveWorld notNil]!

1 0

The Trunk: System-dtl.189.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.189.mcz ==================== Summary ==================== Name: System-dtl.189 Author: dtl Time: 2 December 2009, 9:17:54 am UUID: 3785764e-2a0f-4582-b416-f2903c553df7 Ancestors: System-ar.188 Move folder selection dialogs from Project to MVCProject and MorphicProject to eliminate MVC/Morphic dependency in Project. But note that PluggableFileList used for MVC is incorrectly categorized in package Morphic. Change Imports>>viewImages to use "Project current isMorphic" rather than "self couldOpenInMorphic". =============== Diff against System-ar.188 =============== Item was changed: ----- Method: Imports>>viewImages (in category 'images') ----- viewImages "Open up a special Form inspector on the dictionary of graphical imports." "Imports default viewImages" | widgetClass | imports size isZero ifTrue: [^ self inform: 'The ImageImports repository is currently empty, so there is nothing to view at this time. You can use a file list to import graphics from external files into Imports, and once you have done that, you will find this command more interesting.']. + widgetClass := Project current isMorphic - widgetClass := self couldOpenInMorphic ifTrue: [GraphicalDictionaryMenu] ifFalse: [FormInspectView]. widgetClass openOn: imports withLabel: 'Graphical Imports' ! Item was changed: ----- Method: Project>>findAFolderToLoadProjectFrom (in category 'file in/out') ----- findAFolderToLoadProjectFrom + ^ CurrentProject findAFolderForProject: self label: 'Select a folder on a server:' + ! - self couldOpenInMorphic ifTrue: [ - ^FileList2 modalFolderSelectorForProjectLoad - ] ifFalse: [ - ^PluggableFileList getFolderDialog openLabel: 'Select a folder on a server:' - ]! Item was added: + ----- Method: Project>>findAFolderForProject:label: (in category 'utilities') ----- + findAFolderForProject: aProject label: dialogLabel + "Find a folder for saving or loading a project" + + self subclassResponsibility + ! Item was changed: ----- Method: Project>>findAFolderToStoreProjectIn (in category 'file in/out') ----- findAFolderToStoreProjectIn + ^ CurrentProject findAFolderForProject: self label: 'Select a folder on a server:' + ! - "Alan wants something prettier with a default" - - self couldOpenInMorphic ifTrue: [ - ^FileList2 modalFolderSelectorForProject: self - ] ifFalse: [ - ^PluggableFileList getFolderDialog openLabel: 'Select a folder on a server:' - ]!

1 0

The Trunk: Morphic-dtl.260.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.260.mcz ==================== Summary ==================== Name: Morphic-dtl.260 Author: dtl Time: 2 December 2009, 9:12:24 am UUID: 147a542a-fa6e-43c7-bdd8-3bb000785043 Ancestors: Morphic-dtl.259 Move folder selection dialogs from Project to MVCProject and MorphicProject to eliminate MVC/Morphic dependency in Project. =============== Diff against Morphic-dtl.259 =============== Item was added: + ----- Method: MorphicProject>>findAFolderForProject:label: (in category 'utilities') ----- + findAFolderForProject: aProject label: dialogLabel + "Find a folder for saving or loading a project" + + ^FileList2 modalFolderSelectorForProject: aProject + !

1 0

The Trunk: ST80-dtl.74.mcz
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.74.mcz ==================== Summary ==================== Name: ST80-dtl.74 Author: dtl Time: 2 December 2009, 9:01:34 am UUID: dd9c5a97-4bcb-4a2b-b93f-8c7e6db17059 Ancestors: ST80-dtl.73 Move folder selection dialogs from Project to MVCProject and MorphicProject to eliminate MVC/Morphic dependency in Project. =============== Diff against ST80-dtl.73 =============== Item was added: + ----- Method: MVCProject>>findAFolderForProject:label: (in category 'utilities') ----- + findAFolderForProject: aProject label: dialogLabel + "Find a folder for saving or loading a project" + + ^PluggableFileList getFolderDialog openLabel: dialogLabel + !

1 0

64bit VMs some thoughts.
by John M McIntosh 03 Dec '09

03 Dec '09

So you sit there smug about the fact you built a 64bit VM, likely for hosting on your 64bit Linux OS. {Or the unix one for Darwin, or that new fangled cocoa one} However it's possible that it's running 1/3 the performance of the 32bit VM. Did you check? Thought not... So let's talk. Are you using the gnuifed version of interp.c? If you don't know, well go check. Are you using GCC 4.1 or higher? The interpreter loop is highly tuned monster that suffers from compiler optimization issues. With careful tuning parms as found in the macintosh xcode build project for the carbon VM using gcc 4.0 you'll get the most optimum performance. GCC 4.2+ ? Michael Rueger and I spent a few days attempting to get good performance out of GCC 4.2 WITHOUT success. I think that can account for at least a 33% slowdown. So where does the other 33% slowdown come from? Well when we compile the VM in 64bit to use a 32bit image each reference to an oops requires us to add a 64bit memory start address to the 32bit oops number to resolve to a 64bit memory address. Unfortunately GCC 4.2 growls, and produces the lousiest code possible to do this. Maybe higher versions of GCC are better? Anyone care to test? So some solutions. (a) Ensure the squeak oops memory block loads within the 0-4GB address space. See pagezero size for Darwin. Then alter the logic a bit so that sqMemoryBase is zero and that the squeak memory accessors don't do the add of sqMemoryBase=0 to the oops address. Although you might have to use GCC 4.2 you'll run 100% faster. (b) Use the (non-free) Intel compiler -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

1 0

Newbie question: Doits in MC?
by Ronald Spengler 03 Dec '09

03 Dec '09

How does one go about attaching a script to a Monticello commit? -- Ron

2 1

Daily Commit Log
by commits＠source.squeak.org 03 Dec '09

03 Dec '09

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2009-December/001939.h… Name: Kernel-nice.316 Ancestors: Kernel-ar.315 Add the ANSI float characterization methods every other Smalltalk has but Squeak. Also add #predecessor and #successor. These changes are already in Pharo. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-December/001940.h… Name: Kernel-nice.317 Ancestors: Kernel-nice.316 A faster successor/predecessor implementation thanks to suggestions of Paolo Bonzini and the help of #ulp (unit of least precision - that is the least significant bit of a Float). It works well with default IEEE754 rounding mode (round to nearest even). Don't know about alternate modes, but we don't use them right now. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2009-December/001941.h… Name: KernelTests-nice.114 Ancestors: KernelTests-ar.113 Tests for Float characterization messages =============================================

1 0

← Newer
1
...
49
50
51
52
53
54
55
56
Older →

Jump to page: