Squeak-dev August 2010

squeak-dev@lists.squeakfoundation.org

100 participants
325 discussions

[Ann][Cuis] New Cuis release
by Juan Vuletich 11 Aug '10

11 Aug '10

Hi Folks, Cuis 2.5 is available at www.jvuletich.org/Cuis/Index.html . New in Cuis 2.5 - Compatibility with the Cog VM - Fix the sequence of click - wait - double click in text editors (old Squeak bug) - Fix formatting bugs in a trailing empty line in text editors (old Squeak bug) - A few updates from Squeak - Several minor fixes and enhancements Cheers, Juan Vuletich

3 5

JMS (Java Message Service) for Squeak
by John Chludzinski 11 Aug '10

11 Aug '10

Is anyone aware of a simple JMS client implementation in Squeak (or any Smalltalk)? ---John

5 5

Daily Commit Log
by commits＠source.squeak.org 11 Aug '10

11 Aug '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-August/003589.html Name: Files-ar.83 Ancestors: Files-eem.82 Move writeSourceCodeFrom:... from FileStream to FileDirectory and have FileStream vector the request through ChangeSet defaultChangeSetDirectory for consistency between all file-out operations. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-August/003590.html Name: System-ar.355 Ancestors: System-dtl.354 Don't let ChangeSet compute the full name for the fileout since this will conflict with the fixName: usage in writeSourceCodeFrom: (it's no longer necessary to do that since FileStream>>writeSourceCodeFrom:... now vectors to the right place). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-August/003591.html Name: Compression-ar.19 Ancestors: Compression-nice.18 Fix handling of empty members in ZipArchives which would produce zips considered corrupt by other tools (unzip -t). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-August/003592.html Name: XML-Parser-ar.32 Ancestors: XML-Parser-mtf.30 Fix printing of XMLElements; add tests for behavior. =============================================

1 0

The Trunk: XML-Parser-ar.32.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

Andreas Raab uploaded a new version of XML-Parser to project The Trunk: http://source.squeak.org/trunk/XML-Parser-ar.32.mcz ==================== Summary ==================== Name: XML-Parser-ar.32 Author: ar Time: 10 August 2010, 1:25:41.615 pm UUID: 00d928a6-ebba-104d-a598-b96b4445f2e7 Ancestors: XML-Parser-mtf.30 Fix printing of XMLElements; add tests for behavior. =============== Diff against XML-Parser-mtf.30 =============== Item was added: + ----- Method: XMLParserTest>>testPrintElements (in category 'tests') ----- + testPrintElements + | node | + node:= (XMLElement new) name: 'foo'; + setAttributes: (Dictionary new); + yourself. + self assert: node asString withBlanksTrimmed = '<foo/>'. + + node:= (XMLElement new) name: 'foo'; + setAttributes: (Dictionary newFromPairs: {'id'. '123'}); + yourself. + self assert: node asString withBlanksTrimmed = '<foo id="123"/>'. + + node:= (XMLElement new) name: 'foo'; + addContent: (XMLStringNode string: 'Hello World'); + setAttributes: (Dictionary new); + yourself. + self assert: node asString withBlanksTrimmed = '<foo>Hello World</foo>'. + + node:= (XMLElement new) name: 'foo'; + addContent: (XMLStringNode string: 'Hello World'); + setAttributes: (Dictionary newFromPairs: {'id'. '123'}); + yourself. + self assert: node asString withBlanksTrimmed = '<foo id="123">Hello World</foo>'. + + ! Item was changed: ----- Method: XMLElement>>isEmpty (in category 'testing') ----- isEmpty + "Answer true if the receiver is empty" + + ^self elementsAndContents isEmpty! - ^self elements isEmpty! Item was changed: ----- Method: XMLElement>>printXMLOn: (in category 'printing') ----- printXMLOn: writer + "Print the receiver in XML form" + writer startElement: self name attributeList: self attributes. (writer canonical not + and: [self isEmpty]) - and: [self isEmpty and: [self attributes isEmpty not]]) ifTrue: [writer endEmptyTag: self name] ifFalse: [ writer endTag. self elementsAndContentsDo: [:content | content printXMLOn: writer]. writer endTag: self name]!

1 0

The Trunk: Compression-ar.19.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

Andreas Raab uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-ar.19.mcz ==================== Summary ==================== Name: Compression-ar.19 Author: ar Time: 10 August 2010, 1:18:33.227 pm UUID: 85770924-100a-fc44-bbfa-1b7ab229e24c Ancestors: Compression-nice.18 Fix handling of empty members in ZipArchives which would produce zips considered corrupt by other tools (unzip -t). =============== Diff against Compression-nice.18 =============== Item was changed: ----- Method: ZipArchiveMember>>writeDataTo: (in category 'private-writing') ----- writeDataTo: aStream "Copy my (possibly inflated or deflated) data to the given stream. This might do compression, decompression, or straight copying, depending on the values of compressionMethod and desiredCompressionMethod" + "Note: Do not shortcut this method if uncompressedSize = 0. Even in this case + data may be produced by the compressor (i.e., '' zipped size > 0) and must + be stored in the file or else other utilities will treat the zip file as corrupt." - uncompressedSize = 0 ifTrue: [ ^self ]. "nothing to do because no data" (compressionMethod = CompressionStored and: [ desiredCompressionMethod = CompressionDeflated ]) ifTrue: [ ^self compressDataTo: aStream ]. (compressionMethod = CompressionDeflated and: [ desiredCompressionMethod = CompressionStored ]) ifTrue: [ ^self uncompressDataTo: aStream ]. self copyDataTo: aStream.!

1 0

XMLParser weirdness
by Andreas Raab 10 Aug '10

10 Aug '10

Hi - I just spent about two hours staring at code because of an oddity in the XML parser's printing of nodes. Here's an example: node:= (XMLElement new) name: 'foo'; addContent: (XMLStringNode string: 'Hello World'); setAttributes: (Dictionary new); yourself. This prints '<foo>Hello World</foo>' which is fine. However, the following construction, which adds just a single attribute: node:= (XMLElement new) name: 'foo'; addContent: (XMLStringNode string: 'Hello World'); setAttributes: (Dictionary newFromPairs: {#id. 1}); yourself. prints now as '<foo id="1"/>' (i.e., losing its content string). Looking at the code in XMLElement>>printXmlOn: it does something weird if the writer is considered "non-canonical", i.e., "... snip ..." (writer canonical not and: [self isEmpty and: [self attributes isEmpty not]]) ifTrue: [writer endEmptyTag: self name] "... snap ..." Two questions about this: 1) What's the meaning of 'canonical' XML? Is this a well-defined (sub-)set of XML? If so, where can I read about it? 2) Is the above a bug or a feature? I'm wondering in particular about XMLElement>>isEmpty which only considers the elements but not eventual contents. Any help is greatly welcome. Cheers, - Andreas

2 3

Re: [Pharo-project] HTTP client library in Pharo?
by Andrei Stebakov 10 Aug '10

10 Aug '10

Yes, that's correct for Set-cookie (the response), each has its own line. "Cookies: " for request should be all in one line. On Sat, Aug 7, 2010 at 8:05 AM, Philippe Marschall <kustos(a)gmx.net> wrote: > On 04.08.2010 19:15, Andreas Raab wrote: >> On 8/4/2010 9:57 AM, Mariano Martinez Peck wrote: >>> Hi Adrei, excellent :) >>> >>> BTW, for HTTP Client you should cc Andreas Raab or squeak mailing >>> list.... >> >> Squeak-dev please >> (http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/squeak-dev). >> >>> On Wed, Aug 4, 2010 at 6:08 PM, Andrei Stebakov <lispercat(a)gmail.com >>> <mailto:lispercat@gmail.com>> wrote: >>> >>> I also found that cookies were not correctly sent. >>> Every cookie was sent with its own "Cookie: " header which is not >>> correct. >> >> I'm curious, why do you think that's incorrect? My understanding is that >> RFC 2616 explicitly allows that: >> >> "Multiple message-header fields with the same field-name MAY be >> present in a message if and only if the entire field-value for that >> header field is defined as a comma-separated list [i.e., #(values)]. It >> MUST be possible to combine the multiple header fields into one >> 'field-name: field-value' pair, without changing the semantics of the >> message, by appending each subsequent field-value to the first, each >> separated by a comma." > > You're correct, but that doesn't mean the implementations follow the > spec :-(. I can only speak for Set-Cookie, there you have to send each > cookie on a new line because the expires date format includes a comma > and Firefox and IE can't handle that. > > Cheers > Philippe > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

4 6

WebClient httpGet with pre-encoded url's
by Jan van de Sandt 10 Aug '10

10 Aug '10

Hello, I am busy updating the CloudforkAWS code to use WebClient as a the HTTP client. CloudforkAWS provides a Smalltalk API to the Amazon AWS REST services. WebClient works really well, the not so common HTTP methods like HEAD, DELETE and PUT that the Simple Storage Service (S3) require work without any problems :-) There is only one small problem. The WebClient>>httpGet:do: method always encodes the urlString. In my situation the url is already encoded and encoding it a second time leads to errors. In my code I encode the individual query parameters names and values before I compose the complete url. If you have a parameters like this I think it is the only correct way: param1=you&me param2=coming for dinner? So I added the following methods to WebClient: httpGet: urlString encoded: isEncoded do: aBlock "GET the response from the given url" | request | self initializeFromUrl: urlString. request := self requestWithUrl: urlString encoded: isEncoded. request method: 'GET'. userAgent ifNotNil:[request headerAt: 'User-Agent' put: userAgent]. aBlock value: request. ^self sendRequest: request and: requestWithUrl: urlString encoded: isEncoded "Create an return a new WebRequest initialized with the given url. Subclasses can use this method to override the default request class." ^WebRequest new initializeFromUrl: urlString encoded: isEncoded. It would be great if these methods are incorporated in the base package. Jan.

3 3

Re: Smalltalk blog
by Simon Michael 10 Aug '10

10 Aug '10

Hi Sean, they are automatic. Pharos posts are fine and on-topic for Planet Squeak. And a small number of non-smalltalk posts may be fine. But otherwise, use tag(s) or category(ies) for the smalltalk-related stuff and I'll use the feed for those. -Simon > Hi, I thought about submitting my blog link to planet.squeak, but I > also have non-squeak (e.g. Pharo), and non-smalltalk posts. Are the > posts automatically pulled, or are they looked over manually and > only the relevant ones included?

1 0

The Trunk: System-ar.355.mcz
by commits＠source.squeak.org 10 Aug '10

10 Aug '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.355.mcz ==================== Summary ==================== Name: System-ar.355 Author: ar Time: 9 August 2010, 10:13:55.423 pm UUID: 861d5068-588a-c045-93b6-a1228ccee7a3 Ancestors: System-dtl.354 Don't let ChangeSet compute the full name for the fileout since this will conflict with the fixName: usage in writeSourceCodeFrom: (it's no longer necessary to do that since FileStream>>writeSourceCodeFrom:... now vectors to the right place). =============== Diff against System-dtl.354 =============== Item was changed: ----- Method: ChangeSet>>fileOut (in category 'fileIn/Out') ----- fileOut "File out the receiver, to a file whose name is a function of the change-set name and either of the date & time or chosen to have a unique numeric tag, depending on the preference 'changeSetVersionNumbers'" | slips nameToUse | self checkForConversionMethods. ChangeSet promptForDefaultChangeSetDirectoryIfNecessary. nameToUse := Preferences changeSetVersionNumbers ifTrue: [self defaultChangeSetDirectory nextNameFor: self name extension: FileStream cs] ifFalse: [self name , FileDirectory dot , Utilities dateTimeSuffix, FileDirectory dot , FileStream cs]. - nameToUse := self defaultChangeSetDirectory fullNameFor: nameToUse. Cursor write showWhile: [ | internalStream | internalStream := WriteStream on: (String new: 10000). internalStream header; timeStamp. self fileOutPreambleOn: internalStream. self fileOutOn: internalStream. self fileOutPostscriptOn: internalStream. internalStream trailer. FileStream writeSourceCodeFrom: internalStream baseName: (nameToUse copyFrom: 1 to: nameToUse size - 3) isSt: false useHtml: false. ]. Preferences checkForSlips ifFalse: [^ self]. slips := self checkForSlips. (slips size > 0 and: [(UIManager default chooseFrom: #('Ignore' 'Browse slips') title: 'Methods in this fileOut have halts or references to the Transcript or other ''slips'' in them. Would you like to browse them?') = 2]) ifTrue: [self systemNavigation browseMessageList: slips name: 'Possible slips in ' , name]!

1 0

← Newer
1
...
24
25
26
27
28
29
30
...
33
Older →

Jump to page: