Packages January 2010

packages@lists.squeakfoundation.org

2 participants
722 discussions

The Trunk: Collections-edc.285.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

Edgar J. De Cleene uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-edc.285.mcz ==================== Summary ==================== Name: Collections-edc.285 Author: edc Time: 29 January 2010, 7:01:04.567 am UUID: b62a5e69-31ed-4958-b317-621a163b5a90 Ancestors: Collections-ul.284 -enh Add String > beginsWithAnyOf: =============== Diff against Collections-ul.284 =============== Item was added: + ----- Method: String>>beginsWithAnyOf: (in category 'comparing') ----- + beginsWithAnyOf: aCollection + aCollection do:[:suffix| + (self beginsWith: suffix) ifTrue:[^true]. + ]. + ^false!

1 0

The Trunk: Collections-edc.285.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

1 0

The Trunk: Collections-edc.285.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

1 0

The Trunk: Collections-ul.284.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.284.mcz ==================== Summary ==================== Name: Collections-ul.284 Author: ul Time: 29 January 2010, 1:37:36.08 am UUID: 855b55a0-8aa2-ed4a-8612-d1153fa8f656 Ancestors: Collections-ul.282 - fix: ignore Byte Order Mark in ByteString >> #utf8ToSqueak =============== Diff against Collections-ul.282 =============== Item was changed: ----- Method: ByteString>>utf8ToSqueak (in category 'converting') ----- utf8ToSqueak "Convert the given string from UTF-8 using the fast path if converting to Latin-1" | outStream lastIndex nextIndex byte1 byte2 byte3 byte4 unicode | Latin1ToUtf8Map ifNil:[^super utf8ToSqueak]. "installation guard" lastIndex := 1. nextIndex := ByteString findFirstInString: self inSet: Latin1ToUtf8Map startingAt: lastIndex. nextIndex = 0 ifTrue:[^self]. outStream := (String new: self size) writeStream. [outStream next: nextIndex-lastIndex putAll: self startingAt: lastIndex. byte1 := self byteAt: nextIndex. (byte1 bitAnd: 16rE0) = 192 ifTrue: [ "two bytes" byte2 := self byteAt: (nextIndex := nextIndex+1). (byte2 bitAnd: 16rC0) = 16r80 ifFalse:[^self]. "invalid UTF-8; presume Latin-1" unicode := ((byte1 bitAnd: 31) bitShift: 6) + (byte2 bitAnd: 63)]. (byte1 bitAnd: 16rF0) = 224 ifTrue: [ "three bytes" byte2 := self byteAt: (nextIndex := nextIndex+1). (byte2 bitAnd: 16rC0) = 16r80 ifFalse:[^self]. "invalid UTF-8; presume Latin-1" byte3 := self byteAt: (nextIndex := nextIndex+1). (byte3 bitAnd: 16rC0) = 16r80 ifFalse:[^self]. "invalid UTF-8; presume Latin-1" unicode := ((byte1 bitAnd: 15) bitShift: 12) + ((byte2 bitAnd: 63) bitShift: 6) + (byte3 bitAnd: 63)]. (byte1 bitAnd: 16rF8) = 240 ifTrue: [ "four bytes" byte2 := self byteAt: (nextIndex := nextIndex+1). (byte2 bitAnd: 16rC0) = 16r80 ifFalse:[^self]. "invalid UTF-8; presume Latin-1" byte3 := self byteAt: (nextIndex := nextIndex+1). (byte3 bitAnd: 16rC0) = 16r80 ifFalse:[^self]. "invalid UTF-8; presume Latin-1" byte4 := self byteAt: (nextIndex := nextIndex+1). (byte4 bitAnd: 16rC0) = 16r80 ifFalse:[^self]. "invalid UTF-8; presume Latin-1" unicode := ((byte1 bitAnd: 16r7) bitShift: 18) + ((byte2 bitAnd: 63) bitShift: 12) + ((byte3 bitAnd: 63) bitShift: 6) + (byte4 bitAnd: 63)]. unicode ifNil:[^self]. "invalid UTF-8; presume Latin-1" + unicode = 16rFEFF ifFalse: [ "Skip byte order mark" + outStream nextPut: (Unicode value: unicode) ]. - outStream nextPut: (Unicode value: unicode). lastIndex := nextIndex + 1. nextIndex := ByteString findFirstInString: self inSet: Latin1ToUtf8Map startingAt: lastIndex. nextIndex = 0] whileFalse. outStream next: self size-lastIndex+1 putAll: self startingAt: lastIndex. ^outStream contents !

1 0

The Trunk: Collections-ul.284.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

1 0

The Trunk: Collections-ul.284.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

1 0

The Trunk: CollectionsTests-ul.133.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.133.mcz ==================== Summary ==================== Name: CollectionsTests-ul.133 Author: ul Time: 29 January 2010, 2:13:08.142 am UUID: 09bc2c7a-ddb8-a449-99e0-e70462cb30ec Ancestors: CollectionsTests-nice.132 - a test for #utf8ToSqueak and Byte order mark =============== Diff against CollectionsTests-nice.132 =============== Item was added: + ----- Method: StringTest>>testUtf8ToSqueakByteOrderMark (in category 'tests - converting') ----- + testUtf8ToSqueakByteOrderMark + "Ensure that utf8ToSqueak ignores Byte order mark (BOM) just like UTF8TextConverter does" + + { + #('' ''). + #('abc' 'abc'). + "Make sure that we remove inner BOMs for maximal compatibility with UTF8TextConverter" + #('abc' 'abc'). + { 'abcӒ'. 'abc', (Unicode value: 1234) asString } + } do: [ :each | + self assert: each first utf8ToSqueak = each second ]!

1 0

The Trunk: CollectionsTests-ul.133.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

1 0

The Trunk: CollectionsTests-ul.133.mcz
by commits＠source.squeak.org 29 Jan '10

29 Jan '10

1 0

The Trunk: Network-espin.54.mcz
by commits＠source.squeak.org 28 Jan '10

28 Jan '10

Andreas Raab uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-espin.54.mcz ==================== Summary ==================== Name: Network-espin.54 Author: espin Time: 25 January 2010, 2:26:17.098 pm UUID: 6acf58a1-4a00-0240-be97-3a3c9913b2c0 Ancestors: Network-nice.52 Added HTTPProxyCredentials to the HTTP GET message. This makes HTTPSocket work from behind a proxy. See also http://bugs.squeak.org/view.php?id=7193 http://bugs.squeak.org/view.php?id=912 =============== Diff against Network-nice.52 =============== Item was changed: ----- 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 bare page index connectToHost connectToPort aStream portSuffix | 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. portSuffix := ':', port printString. serverName := serverName copyFrom: 1 to: index-1. ] ifFalse: [ port := self defaultPort. portSuffix := ''. ]. 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, portSuffix, page. "put back together" connectToHost := self httpProxyServer. connectToPort := self httpProxyPort]. HTTPProgress signal: 'Looking up ', connectToHost. serverAddr := NetNameResolver addressForName: connectToHost timeout: 20. serverAddr ifNil: [^ 'Could not resolve the server named: ', connectToHost]. 3 timesRepeat: [ | sock length firstData list type header newUrl | 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" + HTTPProxyCredentials, HTTPBlabEmail, "may be empty" requestString, "extra user request. Authorization" self userAgentString, CrLf, 'Host: ', serverName, portSuffix, CrLf. "blank line automatically added" 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!!'!

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 January 2010