Squeak-dev February 2011

squeak-dev@lists.squeakfoundation.org

87 participants
295 discussions

The Trunk: System-laza.421.mcz
by commits＠source.squeak.org 11 Feb '11

11 Feb '11

Alexander Lazarević uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-laza.421.mcz ==================== Summary ==================== Name: System-laza.421 Author: laza Time: 11 February 2011, 2:56:13.344 am UUID: ca2df94e-ce04-6744-b937-2f85daac4505 Ancestors: System-laza.420 Change the comment for 1201 according to this posting http://lists.gforge.inria.fr/pipermail/pharo-project/2010-November/036141.h… =============== Diff against System-laza.420 =============== Item was changed: ----- Method: SmalltalkImage>>getSystemAttribute: (in category 'private') ----- getSystemAttribute: attributeID "Optional. Answer the string for the system attribute with the given integer ID. Answer nil if the given attribute is not defined on this platform. On platforms that support invoking programs from command lines (e.g., Unix), this mechanism can be used to pass command line arguments to programs written in Squeak. By convention, the first command line argument that is not a VM configuration option is considered a 'document' to be filed in. Such a document can add methods and classes, can contain a serialized object, can include code to be executed, or any combination of these. Currently defined attributes include: -1000 1000th command line argument that specify VM options ... -1 first command line argument that specify VM options 0 the full path name for currently executing VM (or, on some platforms, just the path name of the VM's directory) 1 full path name of this image (better use primImageName instead) 2 a Squeak document to open, if any 3 first command line argument for Squeak programs ... 1000 1000th command line argument for Squeak programs 1001 this platform's operating system 'Mac OS', 'Win32', 'unix', ... 1002 operating system version 1003 this platform's processor type 1004 vm version 1005 window system name 1006 vm build id 1007 Interpreter class (Cog VM only) 1008 Cogit class (Cog VM only) + 1201 max filename length (Mac OS only) - 1201 always returns 255 (Mac OS only) 1202 file last error (Mac OS only) 10001 hardware details (Win32 only) 10002 operating system details (Win32 only) 10003 graphics hardware details (Win32 only) " <primitive: 149> ^ nil!

1 0

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

11 Feb '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-February/004232.h… Name: CollectionsTests-ul.180 Ancestors: CollectionsTests-ul.179 - unified the categorization of StringTest's methods - added a test for #expandMacrosWithArguments: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004233.h… Name: Collections-ul.423 Ancestors: Collections-ul.422 - use the primitive for FloatArray >> #dot: (~50x faster). =============================================

1 0

The Inbox: Collections-ul.424.mcz
by commits＠source.squeak.org 10 Feb '11

10 Feb '11

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ul.424.mcz ==================== Summary ==================== Name: Collections-ul.424 Author: ul Time: 10 February 2011, 11:33:26.53 pm UUID: f9d0075a-9597-ff42-9db7-cfd00ee6a60b Ancestors: Collections-ul.423 - reimplemented String >> #expandMacrosWithArguments: =============== Diff against Collections-ul.423 =============== Item was changed: ArrayedCollection subclass: #String instanceVariableNames: '' + classVariableNames: 'AsciiOrder CSLineEnders CSMacroCharacters CSNonSeparators CSSeparators CaseInsensitiveOrder CaseSensitiveOrder CrLfExchangeTable HtmlEntities LowercasingTable Tokenish UppercasingTable' - classVariableNames: 'AsciiOrder CSLineEnders CSNonSeparators CSSeparators CaseInsensitiveOrder CaseSensitiveOrder CrLfExchangeTable HtmlEntities LowercasingTable Tokenish UppercasingTable' poolDictionaries: '' category: 'Collections-Strings'! !String commentStamp: '<historical>' prior: 0! A String is an indexed collection of Characters. Class String provides the abstract super class for ByteString (that represents an array of 8-bit Characters) and WideString (that represents an array of 32-bit characters). In the similar manner of LargeInteger and SmallInteger, those subclasses are chosen accordingly for a string; namely as long as the system can figure out so, the String is used to represent the given string. Strings support a vast array of useful methods, which can best be learned by browsing and trying out examples as you find them in the code. Here are a few useful methods to look at... String match: String contractTo: String also inherits many useful methods from its hierarchy, such as SequenceableCollection , SequenceableCollection copyReplaceAll:with: ! Item was changed: ----- Method: String class>>initialize (in category 'initialization') ----- initialize "self initialize" | order | AsciiOrder := (0 to: 255) as: ByteArray. CaseInsensitiveOrder := AsciiOrder copy. ($a to: $z) do: [:c | CaseInsensitiveOrder at: c asciiValue + 1 put: (CaseInsensitiveOrder at: c asUppercase asciiValue +1)]. "Case-sensitive compare sorts space, digits, letters, all the rest..." CaseSensitiveOrder := ByteArray new: 256 withAll: 255. order := -1. ' 0123456789' do: "0..10" [:c | CaseSensitiveOrder at: c asciiValue + 1 put: (order := order+1)]. ($a to: $z) do: "11-64" [:c | CaseSensitiveOrder at: c asUppercase asciiValue + 1 put: (order := order+1). CaseSensitiveOrder at: c asciiValue + 1 put: (order := order+1)]. 1 to: CaseSensitiveOrder size do: [:i | (CaseSensitiveOrder at: i) = 255 ifTrue: [CaseSensitiveOrder at: i put: (order := order+1)]]. order = 255 ifFalse: [self error: 'order problem']. "a table for translating to lower case" LowercasingTable := String withAll: (Character allByteCharacters collect: [:c | c asLowercase]). "a table for translating to upper case" UppercasingTable := String withAll: (Character allByteCharacters collect: [:c | c asUppercase]). "a table for testing tokenish (for fast numArgs)" Tokenish := String withAll: (Character allByteCharacters collect: [:c | c tokenish ifTrue: [c] ifFalse: [$~]]). "CR and LF--characters that terminate a line" CSLineEnders := CharacterSet crlf. "separators and non-separators" CSSeparators := CharacterSet separators. CSNonSeparators := CSSeparators complement. + "% and < for #expandMacros*" + CSMacroCharacters := CharacterSet newFrom: '%<'. + "a table for exchanging cr with lf and vica versa" CrLfExchangeTable := Character allByteCharacters collect: [ :each | each caseOf: { [ Character cr ] -> [ Character lf ]. [ Character lf ] -> [ Character cr ] } otherwise: [ each ] ]! Item was changed: ----- Method: String>>expandMacrosWithArguments: (in category 'formatting') ----- expandMacrosWithArguments: anArray + + ^self class new: self size streamContents: [ :output | + | lastIndex nextIndex characterSet | + lastIndex := 1. + [ (nextIndex := self indexOfAnyOf: CSMacroCharacters startingAt: lastIndex) = 0 ] whileFalse: [ + nextIndex = lastIndex ifFalse: [ + output next: nextIndex - lastIndex putAll: self startingAt: lastIndex ]. + (self at: nextIndex) == $% + ifTrue: [ output nextPut: (self at: (nextIndex := nextIndex + 1)) ] + ifFalse: [ + | nextCharacter argumentIndex | + nextCharacter := (self at: (nextIndex := nextIndex + 1)) asUppercase. + nextCharacter == $N ifTrue: [ output cr ]. + nextCharacter == $T ifTrue: [ output tab ]. + (nextCharacter between: $0 and: $9) ifTrue: [ + argumentIndex := nextCharacter digitValue. + [ (nextIndex := nextIndex + 1) <= self size and: [ + (nextCharacter := self at: nextIndex) between: $0 and: $9 ] ] whileTrue: [ + argumentIndex := argumentIndex * 10 + nextCharacter digitValue ]. + nextCharacter := nextCharacter asUppercase ]. + nextCharacter == $P ifTrue: [ output print: (anArray at: argumentIndex) ]. + nextCharacter == $S ifTrue: [ output nextPutAll: (anArray at: argumentIndex) ]. + nextCharacter == $? ifTrue: [ + | trueEnd falseEnd | + trueEnd := self indexOf: $: startingAt: nextIndex + 1. + falseEnd := self indexOf: $> startingAt: trueEnd + 1. + (anArray at: argumentIndex) + ifTrue: [ output next: trueEnd - nextIndex - 1 putAll: self startingAt: nextIndex + 1 ] + ifFalse: [ output next: falseEnd - trueEnd - 1 putAll: self startingAt: trueEnd + 1 ]. + nextIndex := falseEnd - 1 ]. + (self at: (nextIndex := nextIndex + 1)) == $> ifFalse: [ + self error: '> expected' ] ]. + lastIndex := nextIndex + 1 ]. + lastIndex <= self size ifTrue: [ + output next: self size - lastIndex + 1 putAll: self startingAt: lastIndex ] ]! - | newStream readStream char index | - newStream := WriteStream on: (String new: self size). - readStream := ReadStream on: self. - [readStream atEnd] whileFalse: - [char := readStream next. - char == $< - ifTrue: - [| nextChar | - nextChar := readStream next asUppercase. - nextChar == $N ifTrue: [newStream cr]. - nextChar == $T ifTrue: [newStream tab]. - nextChar isDigit - ifTrue: - [index := nextChar digitValue. - - [readStream atEnd - or: [(nextChar := readStream next asUppercase) isDigit not]] - whileFalse: [index := index * 10 + nextChar digitValue]]. - nextChar == $? - ifTrue: - [| trueString falseString | - trueString := readStream upTo: $:. - falseString := readStream upTo: $>. - readStream position: readStream position - 1. - newStream - nextPutAll: ((anArray at: index) ifTrue: [trueString] ifFalse: [falseString])]. - nextChar == $P - ifTrue: [newStream nextPutAll: (anArray at: index) printString]. - nextChar == $S ifTrue: [newStream nextPutAll: (anArray at: index)]. - readStream skipTo: $>] - ifFalse: - [newStream nextPut: (char == $% ifTrue: [readStream next] ifFalse: [char])]]. - ^newStream contents!

1 0

The Trunk: Collections-ul.423.mcz
by commits＠source.squeak.org 10 Feb '11

10 Feb '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.423.mcz ==================== Summary ==================== Name: Collections-ul.423 Author: ul Time: 7 February 2011, 8:55:57.134 pm UUID: e18716fc-a36b-874c-8946-5c21b447a96f Ancestors: Collections-ul.422 - use the primitive for FloatArray >> #dot: (~50x faster). =============== Diff against Collections-ul.422 =============== Item was changed: ----- Method: FloatArray>>dot: (in category 'arithmetic') ----- dot: aFloatVector "Primitive. Return the dot product of the receiver and the argument. Fail if the argument is not of the same size as the receiver." + | result | + <primitive: 'primitiveDotProduct' module: 'FloatArrayPlugin'> - "<primitive:'primitiveFloatArrayDotProduct'>" self size = aFloatVector size ifFalse:[^self error:'Must be equal size']. result := 0.0. 1 to: self size do:[:i| result := result + ((self at: i) * (aFloatVector at: i)). ]. ^result!

1 0

The Trunk: CollectionsTests-ul.180.mcz
by commits＠source.squeak.org 10 Feb '11

10 Feb '11

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.180.mcz ==================== Summary ==================== Name: CollectionsTests-ul.180 Author: ul Time: 10 February 2011, 10:55:05.91 pm UUID: 67f43872-7dfe-5b4c-bcac-e9a1727254b0 Ancestors: CollectionsTests-ul.179 - unified the categorization of StringTest's methods - added a test for #expandMacrosWithArguments: =============== Diff against CollectionsTests-ul.179 =============== Item was changed: + ----- Method: StringTest>>testComparing (in category 'tests - comparing') ----- - ----- Method: StringTest>>testComparing (in category 'test-comparing') ----- testComparing self assert: 'foo' < 'foo:'. self assert: 'foo' < 'fooBar'. self assert: 'foo' <= 'foo:'. self assert: 'foo' <= 'fooBar'. self assert: 'foo:' > 'foo'. self assert: 'fooBar' > 'foo'. self assert: 'foo:' >= 'foo'. self assert: 'fooBar' >= 'foo'! Item was changed: + ----- Method: StringTest>>testEncodeForHTTP (in category 'tests - converting') ----- - ----- Method: StringTest>>testEncodeForHTTP (in category 'testing - converting') ----- testEncodeForHTTP self assert: 'aa aa éé aa aa' encodeForHTTP = 'aa%20aa%20%C3%A9%C3%A9%20aa%20aa'! Item was changed: + ----- Method: StringTest>>testEquality (in category 'tests - comparing') ----- - ----- Method: StringTest>>testEquality (in category 'as yet unclassified') ----- testEquality self assert: 'abc' = 'abc' asWideString. self assert: 'abc' asWideString = 'abc'. self assert: (#[ 97 0 0 0 ] asString ~= 'a000' asWideString). self assert: ('a000' asWideString ~= #[ 97 0 0 0 ] asString). self assert: ('abc' sameAs: 'aBc' asWideString). self assert: ('aBc' asWideString sameAs: 'abc'). self assert: (#[ 97 0 0 0 ] asString sameAs: 'Abcd' asWideString) not. self assert: ('a000' asWideString sameAs: #[ 97 0 0 0 ] asString) not.! Item was added: + ----- Method: StringTest>>testExpandMacrosWithArguments (in category 'tests - formatting') ----- + testExpandMacrosWithArguments + + | patterns | + patterns := { + "Input - Expected output" + #('' ''). + #('foo' 'foo'). + { '<N>'. String cr }. + { '<T>'. String tab }. + { '<n>'. String cr }. + { '<t>'. String tab }. + #('%>' '>'). + #('%<' '<'). + #('%%' '%'). + #('%a' 'a'). + #('%A' 'A'). + #('<1S>' 'foo'). + #('<1s>' 'foo'). + #('<10S>' '10'). + #('<10s>' '10'). + #('<2P>' '1'). + #('<3p>' 'true'). + #('<10P>' '''10'''). + #('<11p>' '11'). + #('<3?ab:cde>' 'ab'). + #('<4?ab:cde>' 'cde') }. + "Test all possible 3 long sequences of the above patterns. Since the patterns include + the empty string, all 1 and 2 long sequences will be tested too." + patterns do: [ :first | + patterns do: [ :second | + patterns do: [ :third | + | result | + result := first first, second first, third first expandMacrosWithArguments: #('foo' 1 true false 5 6 7 8 9 '10' 11). + self assert: first second, second second, third second equals: result ] ] ]. + "Test some malformed inputs too." + #('%' '<' '<N' '<T' '<1T' '<>' '<N><' '<1st' '<A' '<1Phello>' '<1?abcd>' '<?a:b>') do: [ :each | + self should: [ each expandMacrosWithArguments: #() ] raise: Error ]! Item was changed: + ----- Method: StringTest>>testFindLastOccurenceOfStringStartingAt (in category 'tests - accessing') ----- - ----- Method: StringTest>>testFindLastOccurenceOfStringStartingAt (in category 'testing') ----- testFindLastOccurenceOfStringStartingAt self assert: ('Smalltalk' findLastOccurrenceOfString: 'al' startingAt: 2) = 7. self assert: ('aaa' findLastOccurrenceOfString: 'aa' startingAt: 1) = 2. self assert: ('Smalltalk' asWideString findLastOccurrenceOfString: 'al' startingAt: 2) = 7. self assert: ('Smalltalk' asWideString findLastOccurrenceOfString: 'al' asWideString startingAt: 2) = 7. self assert: (('Smalltalk' copyWith: 835 asCharacter) findLastOccurrenceOfString: 'al' asWideString startingAt: 2) = 7.! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy01 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy01 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy01 | tokens | string := 'this, is, "a, test"'. tokens := string findTokens: ',' escapedBy: '"'. self assert: tokens size = 3! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy02 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy02 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy02 | tokens | string := ''. tokens := string findTokens: ',' escapedBy: '"'. self assert: tokens isEmpty! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy03 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy03 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy03 | tokens | string := 'this, is, a, test'. tokens := string findTokens: ',' escapedBy: '"'. self assert: tokens size = 4! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy04 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy04 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy04 | tokens | string := 'this, is, a"," test'. tokens := string findTokens: ',' escapedBy: '"'. self assert: tokens size = 3. self assert: tokens third = ' a, test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy05 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy05 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy05 | tokens | string := 'this, /is, a"," test/'. tokens := string findTokens: ',#' escapedBy: '"/'. self assert: tokens size = 2. self assert: tokens first = 'this'. self assert: tokens second = ' is, a"," test'.! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy06 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy06 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy06 | tokens | string := 'this, is, "a, test'. tokens := string findTokens: ',' escapedBy: '"'. self assert: tokens size = 3. self assert: tokens third = ' a, test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy07 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy07 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy07 | tokens | string := 'a:b::c'. tokens := string findTokens: ':' escapedBy: '"'. self assert: tokens size = 4. self assert: tokens first = 'a'. self assert: tokens second = 'b'. self assert: tokens third = ''. self assert: tokens fourth = 'c'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy08 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy08 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy08 | tokens | string := 'this, is, ##a, test'. tokens := string findTokens: ',' escapedBy: '#'. self assert: tokens size = 4. self assert: tokens third = ' a'. self assert: tokens fourth = ' test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy09 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy09 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy09 | tokens | string := 'this, is, ###a, test#'. tokens := string findTokens: ',' escapedBy: '#'. self assert: tokens size = 3. self assert: tokens third = ' #a, test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy10 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy10 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy10 | tokens | string := 'this, is, ###a, test'. tokens := string findTokens: ',' escapedBy: '#'. self assert: tokens size = 3. self assert: tokens third = ' #a, test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy11 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy11 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy11 | tokens | string := 'this, is, """a, test"'. tokens := string findTokens: ',' escapedBy: '"'. self assert: tokens size = 3. self assert: tokens third = ' "a, test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy12 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy12 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy12 | tokens | string := 'one, two# three; four. five'. tokens := string findTokens: ',#;.' escapedBy: '"'. self assert: tokens size = 5. self assert: tokens third = ' three'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy13 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy13 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy13 | tokens | string := 'one, two# three; four. five'. tokens := string findTokens: ',#;.' escapedBy: nil. self assert: tokens size = 5. self assert: tokens third = ' three'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy14 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy14 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy14 | tokens | string := 'one, "two# three"; &four. five&'. tokens := string findTokens: ',#;.' escapedBy: '"&'. self assert: tokens size = 3. self assert: tokens second = ' two# three'. self assert: tokens third = ' four. five'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy15 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy15 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy15 | tokens | string := 'one, "two# three"; &four. five&'. tokens := string findTokens: nil escapedBy: '"&'. self assert: tokens size = 1. self assert: tokens first = 'one, two# three; four. five'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy16 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy16 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy16 | tokens | string := 'one, "two# three"; &four. five&'. tokens := string findTokens: nil escapedBy: nil. self assert: tokens size = 1. self assert: tokens first = string! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy21 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy21 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy21 | tokens | string := 'this, is, "a, test"'. tokens := string findTokens: $, escapedBy: $". self assert: tokens size = 3! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy22 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy22 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy22 | tokens | string := ''. tokens := string findTokens: $, escapedBy: $". self assert: tokens size = 0! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy23 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy23 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy23 | tokens | string := 'this, is, a, test'. tokens := string findTokens: $, escapedBy: $". self assert: tokens size = 4! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy24 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy24 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy24 | tokens | string := 'this, is, a"," test'. tokens := string findTokens: $, escapedBy: $". self assert: tokens size = 3. self assert: tokens third = ' a, test'! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy25 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy25 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy25 | tokens | string := 'this, /is, a"," test/'. tokens := string findTokens: $, escapedBy: $/. self assert: tokens size = 2. self assert: tokens first = 'this'. self assert: tokens second = ' is, a"," test'.! Item was changed: + ----- Method: StringTest>>testFindTokensEscapedBy26 (in category 'tests - tokenizing') ----- - ----- Method: StringTest>>testFindTokensEscapedBy26 (in category 'testing - tokenizing') ----- testFindTokensEscapedBy26 | tokens | string := 'this, is, "a, test'. tokens := string findTokens: $, escapedBy: $". self assert: tokens size = 3. self assert: tokens third = ' a, test'! Item was changed: + ----- Method: StringTest>>testFormat (in category 'tests - formatting') ----- - ----- Method: StringTest>>testFormat (in category 'testing - formatting') ----- testFormat { [ '\{ \} \\ foo {1} bar {2}' format: { 12. 'string' } ] -> '{ } \ foo 12 bar string'. [ '\{ \} \\ foo {2} bar {1}' format: { 'string'. 12 } ] -> '{ } \ foo 12 bar string'. [ '\{1}' format: {} ] -> '{1}'. [ '\{1}{1}' format: { $a } ] -> '{1}a'. } do: [ :each | self assert: each key value = each value ]! Item was changed: + ----- Method: StringTest>>testLineCorrespondingToIndex (in category 'tests - lines') ----- - ----- Method: StringTest>>testLineCorrespondingToIndex (in category 'testing - lines') ----- testLineCorrespondingToIndex | sampleCRString sampleLFString sampleCRLFString anIndex | sampleCRString := 'Fred', String cr , 'the' , String cr , 'Bear'. sampleLFString := 'Fred', String lf , 'the' , String lf , 'Bear'. sampleCRLFString := 'Fred', String crlf , 'the' , String crlf , 'Bear'. anIndex := sampleCRString indexOf: $h. self assert: (sampleCRString lineCorrespondingToIndex: anIndex) = 'the'. anIndex := sampleLFString indexOf: $h. self assert: (sampleLFString lineCorrespondingToIndex: anIndex) = 'the'. anIndex := sampleCRLFString indexOf: $h. self assert: (sampleCRLFString lineCorrespondingToIndex: anIndex) = 'the'. anIndex := sampleCRString indexOf: $B. self assert: (sampleCRString lineCorrespondingToIndex: anIndex) = 'Bear'. anIndex := sampleLFString indexOf: $B. self assert: (sampleLFString lineCorrespondingToIndex: anIndex) = 'Bear'. anIndex := sampleCRLFString indexOf: $B. self assert: (sampleCRLFString lineCorrespondingToIndex: anIndex) = 'Bear'. anIndex := sampleCRString indexOf: $d. self assert: (sampleCRString lineCorrespondingToIndex: anIndex) = 'Fred'. anIndex := sampleLFString indexOf: $d. self assert: (sampleLFString lineCorrespondingToIndex: anIndex) = 'Fred'. anIndex := sampleCRLFString indexOf: $d. self assert: (sampleCRLFString lineCorrespondingToIndex: anIndex) = 'Fred'.! Item was changed: + ----- Method: StringTest>>testLineCount (in category 'tests - lines') ----- - ----- Method: StringTest>>testLineCount (in category 'testing - lines') ----- testLineCount | sampleCRString sampleLFString sampleCRLFString | sampleCRString := 'Fred', String cr , 'the' , String cr , 'Bear'. sampleLFString := 'Fred', String lf , 'the' , String lf , 'Bear'. sampleCRLFString := 'Fred', String crlf , 'the' , String crlf , 'Bear'. self assert: sampleCRString lineCount = 3. self assert: sampleLFString lineCount = 3. self assert: sampleCRLFString lineCount = 3.! Item was changed: + ----- Method: StringTest>>testLineNumber (in category 'tests - lines') ----- - ----- Method: StringTest>>testLineNumber (in category 'testing - lines') ----- testLineNumber | sampleCRString sampleLFString sampleCRLFString | sampleCRString := 'Fred', String cr , 'the' , String cr , 'Bear'. sampleLFString := 'Fred', String lf , 'the' , String lf , 'Bear'. sampleCRLFString := 'Fred', String crlf , 'the' , String crlf , 'Bear'. self assert: (sampleCRString lineNumber: 2) = 'the'. self assert: (sampleLFString lineNumber: 2) = 'the'. self assert: (sampleCRLFString lineNumber: 2) = 'the'.! Item was changed: + ----- Method: StringTest>>testLinesDo (in category 'tests - lines') ----- - ----- Method: StringTest>>testLinesDo (in category 'testing - lines') ----- testLinesDo | sampleCRString sampleLFString sampleCRLFString lines | sampleCRString := 'Fred', String cr , 'the' , String cr , 'Bear'. sampleLFString := 'Fred', String lf , 'the' , String lf , 'Bear'. sampleCRLFString := 'Fred', String crlf , 'the' , String crlf , 'Bear'. lines := OrderedCollection new. sampleCRString linesDo: [:aLine | self deny: (aLine includes: Character cr). self deny: (aLine includes: Character lf). lines add: aLine]. self assert: lines asArray = #('Fred' 'the' 'Bear'). lines := OrderedCollection new. sampleLFString linesDo: [:aLine | self deny: (aLine includes: Character cr). self deny: (aLine includes: Character lf). lines add: aLine]. self assert: lines asArray = #('Fred' 'the' 'Bear'). lines := OrderedCollection new. sampleCRLFString linesDo: [:aLine | self deny: (aLine includes: Character cr). self deny: (aLine includes: Character lf). lines add: aLine]. self assert: lines asArray = #('Fred' 'the' 'Bear'). ! Item was changed: + ----- Method: StringTest>>testMatch (in category 'tests - comparing') ----- - ----- Method: StringTest>>testMatch (in category 'test-comparing') ----- testMatch #('**' 'f**' 'f**o' 'f*' '*f*' 'f#*' 'f##' '*oo' '#oo' '*o*' '#o#' '#o*' '*o#' 'fo*' 'fo#' '*foo*' '###' '*#' 'f*#' 'f*#o') do: [ :each | self assert: (each match: 'foo') ]. #('bar' 'foo#' '#foo' '*foo#' '#foo*' '*bar*') do: [ :each | self deny: (each match: 'foo') ]! Item was changed: + ----- Method: StringTest>>testPercentEncodingJa (in category 'tests - converting') ----- - ----- Method: StringTest>>testPercentEncodingJa (in category 'testing - converting') ----- testPercentEncodingJa | leading hiraA hiraO hiraAO encodedHiraA encodedHiraO encodedHiraAO | "Make Japanese String from unicode. see http://www.unicode.org/charts/PDF/U3040.pdf" leading := JapaneseEnvironment leadingChar. hiraA := (Character leadingChar: leading code: 16r3042) asString. "HIRAGANA LETTER A" hiraO := (Character leadingChar: leading code: 16r304A) asString. "HIRAGANA LETTER O" hiraAO := hiraA, hiraO. "Percent Encoded Japanese String" encodedHiraA := hiraA encodeForHTTP. self assert: encodedHiraA = '%E3%81%82'. encodedHiraO := hiraO encodeForHTTP. self assert: encodedHiraO = '%E3%81%8A'. encodedHiraAO := hiraAO encodeForHTTP. self assert: encodedHiraAO = '%E3%81%82%E3%81%8A'. "without percent encoded string" self assert: '' unescapePercents = ''. self assert: 'abc' unescapePercents = 'abc'. "latin1 character" self assert: hiraAO unescapePercents = hiraAO. "multibyte character" "encoded latin1 string" self assert: '%61' unescapePercents = 'a'. self assert: '%61%62%63' unescapePercents = 'abc'. "encoded multibyte string" Locale currentPlatform: (Locale isoLanguage: 'ja') during: [ self assert: encodedHiraA unescapePercents = hiraA. self assert: encodedHiraAO unescapePercents = hiraAO]. "mixed string" Locale currentPlatform: (Locale isoLanguage: 'ja') during: [ self assert: (encodedHiraAO,'a') unescapePercents = (hiraAO, 'a'). self assert: ('a', encodedHiraA) unescapePercents = ('a', hiraA). self assert: ('a', encodedHiraA, 'b') unescapePercents = ('a', hiraA, 'b'). self assert: ('a', encodedHiraA, 'b', encodedHiraO) unescapePercents = ('a', hiraA, 'b', hiraO). self assert: (encodedHiraA, encodedHiraO, 'b', encodedHiraA) unescapePercents = (hiraA, hiraO, 'b', hiraA)]. "for Seaside" Locale currentPlatform: (Locale isoLanguage: 'ja') during: [ self assert: (encodedHiraA, '+', encodedHiraO) unescapePercents = (hiraA, ' ', hiraO)]. ! Item was changed: + ----- Method: StringTest>>testSpace (in category 'tests - instance creation') ----- - ----- Method: StringTest>>testSpace (in category 'testing - instance creation') ----- testSpace "self debug: #testSpace" string := String new. self assert: string size = 0. "instead of #isEmpty to be consistent with the following test" string := String space. self assert: string size = 1. self assert: string = ' '! Item was changed: + ----- Method: StringTest>>testWithBlanksTrimmed (in category 'tests - converting') ----- - ----- Method: StringTest>>testWithBlanksTrimmed (in category 'testing - converting') ----- testWithBlanksTrimmed | s | self assert: ' abc d ' withBlanksTrimmed = 'abc d'. self assert: 'abc d ' withBlanksTrimmed = 'abc d'. self assert: ' abc d' withBlanksTrimmed = 'abc d'. self assert: (((0 to: 255) collect: [ :each | each asCharacter ] thenSelect: [ :each | each isSeparator ]) as: String) withBlanksTrimmed = ''. s := 'abcd'. self assert: s withBlanksTrimmed = s. self assert: s withBlanksTrimmed ~~ s.! Item was changed: + ----- Method: StringTest>>testWithInternetLineEndings (in category 'tests - internet') ----- - ----- Method: StringTest>>testWithInternetLineEndings (in category 'testing - internet') ----- testWithInternetLineEndings { 'abc' -> 'abc'. 'abc', String cr -> ('abc', String crlf). 'abc', String lf -> ('abc', String crlf). 'abc', String crlf -> ('abc', String crlf). String cr, 'abc' -> (String crlf, 'abc'). String lf, 'abc' -> (String crlf, 'abc'). String crlf, 'abc' -> (String crlf, 'abc'). 'abc', String cr, String cr, 'abc' -> ('abc', String crlf, String crlf, 'abc'). 'abc', String lf, String lf, 'abc' -> ('abc', String crlf, String crlf, 'abc'). 'abc', String crlf, String crlf, 'abc' -> ('abc', String crlf, String crlf, 'abc'). String cr, 'abc', String cr, String crlf, 'abc', String lf -> (String crlf, 'abc', String crlf, String crlf, 'abc', String crlf). String lf, 'abc', String lf, String crlf, 'abc', String cr -> (String crlf, 'abc', String crlf, String crlf, 'abc', String crlf). } do: [ :each | self assert: each key withInternetLineEndings = each value ]! Item was changed: + ----- Method: StringTest>>testWithSqueakLineEndings (in category 'tests - internet') ----- - ----- Method: StringTest>>testWithSqueakLineEndings (in category 'testing - internet') ----- testWithSqueakLineEndings { 'abc' -> 'abc'. 'abc', String cr -> ('abc', String cr). 'abc', String lf -> ('abc', String cr). 'abc', String crlf -> ('abc', String cr). String cr, 'abc' -> (String cr, 'abc'). String lf, 'abc' -> (String cr, 'abc'). String crlf, 'abc' -> (String cr, 'abc'). 'abc', String cr, String cr, 'abc' -> ('abc', String cr, String cr, 'abc'). 'abc', String lf, String lf, 'abc' -> ('abc', String cr, String cr, 'abc'). 'abc', String crlf, String crlf, 'abc' -> ('abc', String cr, String cr, 'abc'). String cr, 'abc', String cr, String crlf, 'abc', String lf -> (String cr, 'abc', String cr, String cr, 'abc', String cr). String lf, 'abc', String lf, String crlf, 'abc', String cr -> (String cr, 'abc', String cr, String cr, 'abc', String cr). } do: [ :each | self assert: each key withSqueakLineEndings = each value ]! Item was changed: + ----- Method: StringTest>>testWithUnixLineEndings (in category 'tests - internet') ----- - ----- Method: StringTest>>testWithUnixLineEndings (in category 'testing - internet') ----- testWithUnixLineEndings { 'abc' -> 'abc'. 'abc', String cr -> ('abc', String lf). 'abc', String lf -> ('abc', String lf). 'abc', String crlf -> ('abc', String lf). String cr, 'abc' -> (String lf, 'abc'). String lf, 'abc' -> (String lf, 'abc'). String crlf, 'abc' -> (String lf, 'abc'). 'abc', String cr, String cr, 'abc' -> ('abc', String lf, String lf, 'abc'). 'abc', String lf, String lf, 'abc' -> ('abc', String lf, String lf, 'abc'). 'abc', String crlf, String crlf, 'abc' -> ('abc', String lf, String lf, 'abc'). String cr, 'abc', String cr, String crlf, 'abc', String lf -> (String lf, 'abc', String lf, String lf, 'abc', String lf). String lf, 'abc', String lf, String crlf, 'abc', String cr -> (String lf, 'abc', String lf, String lf, 'abc', String lf). } do: [ :each | self assert: each key withUnixLineEndings = each value ]! Item was changed: + ----- Method: StringTest>>testWithoutQuoting (in category 'tests - internet') ----- - ----- Method: StringTest>>testWithoutQuoting (in category 'testing - internet') ----- testWithoutQuoting #( '"foo"' 'foo' '''foo''' 'foo' '"foo''' '"foo''' '''foo"' '''foo"' '"foo' '"foo' 'foo"' 'foo"' 'foo' 'foo') pairsDo: [ :before :after | self assert: before withoutQuoting = after ]! Item was changed: + ----- Method: StringTest>>testWthNoLineLongerThan (in category 'tests - lines') ----- - ----- Method: StringTest>>testWthNoLineLongerThan (in category 'testing - lines') ----- testWthNoLineLongerThan | phrases | phrases := { 'Fred the bear went down to the brook to read his book in silence'. 'Fred the bear went down' , String cr , ' to the brook to ' , String cr , 'read his book in silence'. 'Fred the bear went down' , String lf , ' to the brook to ' , String lf , 'read his book in silence'. 'Fred the bear went down' , String crlf , ' to the brook to ' , String crlf , 'read his book in silence'. }. #(5 7 9) do: [:length | phrases do: [:phrase | | split | split := phrase withNoLineLongerThan: length. self assert: (split copyWithoutAll: CharacterSet separators) = (phrase copyWithoutAll: CharacterSet separators) description: 'no information should be lost'. split linesDo: [:line | self assert: line size <= length description: 'lines should not be longer than prescribed']. phrase lineCount = 1 ifTrue: [| lastLineSize | lastLineSize := length. split linesDo: [:line | line isEmpty ifFalse: [| firstWordSize | firstWordSize := line indexOfAnyOf: CharacterSet separators startingAt: 1 ifAbsent: [line size + 1]. self assert: (lastLineSize + firstWordSize) > length description: 'split was too short'. lastLineSize := line size]]]]]!

1 0

Removing an mcm from squeaksource
by Matthew Fulmer 10 Feb '11

10 Feb '11

I accidentally committed update-mtf.24.mcm to http://squeaksource.com/TweakCore . I meant to commit it to the cobalt repository; it's not a tweak mcm at all. I don't see any way to remove it; SqueakSource doesn't show it in the web tools. Is there any way to delete it? It breaks both the tweak and cobalt install scripts by being there -- Matthew Fulmer (a.k.a. Tapple)

2 1

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

10 Feb '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-February/004231.h… Name: ToolBuilder-MVC-laza.22 Ancestors: ToolBuilder-MVC-dtl.21 If provided, use the label from the spec for MVC window building =============================================

1 0

Squeak vs Python "smack down"
by Göran Krampe 09 Feb '11

09 Feb '11

Hi folks! Since we are on the verge of 4.2, and we have a brand new Cog VM to play with I felt like dusting off my old Pystone port to Squeak - Sqystone, which I wrote back in 2004. At that time Squeak was around 5 times faster than CPython. How do we stack up today? Yeah, I know - hardly a good benchmark, they all lie etc etc. :) I am using Ubuntu 10.10 on a corei7, so this is running on a 64 bit CPU. Cog! ==== Squeak 4.2-10966 (soon to be released) + latest Cog r2361 (binary download): Pystone(1.1) time for 50000 passes = 0.06 This machine benchmarks at 833333.3 pystones/second NOTE: AFAICT running with more passes does not improve it. Also, not sure if I could get more out of this if I built from source on my box. Regular Squeak ============== Squeak 4.2-10966 (soon to be released) + regular Squeak VM 4.4.7-2357 (built from src): Pystone(1.1) time for 50000 passes = 0.503 This machine benchmarks at 99403.6 pystones/second Regular CPython =============== CPython 3.1.2 (newest in Ubuntu Meerkat, minimal): gokr@quigon:/usr/lib/python3.1/test$ python3.1 pystone.py Pystone(1.1) time for 50000 passes = 0.57 This machine benchmarks at 87719.3 pystones/second NOTE: 3.2 is reportedly a teeny bit faster. Also not built from source. Pypy 1.4 ======== wget http://pypy.org/download/pypy-1.4.1-linux64.tar.bz2 gokr@quigon:~/python/pypy-1.4.1-linux64$ ./bin/pypy ./lib-python/2.5.2/test/pystone.py Pystone(1.1) time for 50000 passes = 0.15 This machine benchmarks at 333333 pystones/second gokr@quigon:~/python/pypy-1.4.1-linux64$ ./bin/pypy ./lib-python/2.5.2/test/pystone.py 5000000 Pystone(1.1) time for 5000000 passes = 4.8 This machine benchmarks at 1.04167e+06 pystones/second NOTE: Also not built from source. Here we run pystone a second time with 100x more loops and get a substantially better number. Shedskin 0.7 ============ sudo apt-get install g++ libpcre3-dev libgc-dev python-dev sudo dpkg -i shedskin_0.7_all.deb wget http://shedskin.googlecode.com/files/shedskin-examples-0.7.tgz shedskin pystone.py gokr@quigon:~/python/shedskin-examples-0.7$ make g++ -O2 -march=native -fomit-frame-pointer -Wno-deprecated -I. -I/usr/share/shedskin/lib /usr/share/shedskin/lib/builtin.cpp pystone.cpp /usr/share/shedskin/lib/time.cpp /usr/share/shedskin/lib/re.cpp -lgc -lpcre -o pystone gokr@quigon:~/python/gokr@quigon:~/python/shedskin-examples-0.7$ ls -la pystone* -rwxr-xr-x 1 gokr gokr 297329 2011-02-07 23:01 pystone -rw-r--r-- 1 gokr gokr 9193 2011-02-07 23:00 pystone.cpp -rw-r--r-- 1 gokr gokr 1893 2011-02-07 23:00 pystone.hpp -rw-r--r-- 1 gokr gokr 5774 2010-12-11 11:40 pystone.py gokr@quigon:~/python/shedskin-examples-0.7$ ./pystone This machine benchmarks at 2500000.000000 pystones/second NOTE: I am wondering a bit about this. It tells the same whatever loops I give it... But ok, perhaps it is all fine. Summary ======= - The regular Squeak VM has not been overrun by CPython in these 6 years time. When I wrote Sqystone Squeak was 5x faster IIRC (can't find the post anymore). Now they are equal more or less, Squeak still a teeny bit faster. - Cog is brutally fast on this one. Compared to CPython and regular Squeak almost 10x faster. - Pypy is about 20% faster than Cog if given enough time to actually start jitting. Cool for the Pypy project! And cool that they aren't that much faster than Cog. :) - Shedskin is the "state of the art" of statically compiling Python via C++ using type inferencing etc etc - so I hear. It is said to be faster than Cython and Psyco. It ends up beating Cog, but "only" by a factor of 3x. I say "only" because that seems pretty good to me given that Cog is a JIT and still pretty young and that Shedskin can only run a subset of Python. regards, Göran

5 8

IWST @ ESUG 2011 call for papers
by Alain Plantec 09 Feb '11

09 Feb '11

------------------------------------------------------------------------------------------------------------------------ IWST @ ESUG 2011 International Workshop on Smalltalk Technologies August 23th, 2011 Edinburgh, Scotland http://www.esug.org/Conferences/2011/International-Workshop-on-Smalltalk-Te… CALL FOR PAPERS SUBMISSION DEADLINE : June 17, 2011 ------------------------------------------------------------------------------------------------------------------------ ESUG 2011 Smalltalk joint event IMPORTANT DATES * Submission deadline: June 17, 2011 * Notification deadline: July 15, 2011 GOALS AND SCOPE We are proud to invite submisssions to the International Workshop on Smalltalk Technologies which is held as part of the ESUG 2011 joint event at Edinburgh. The goals of the workshop is to create a forum around advances or experience in Smalltalk and to trigger discussions and exchanges of ideas. Participants are invited to submit short and not-so short research articles. We will not enforce any length restriction. However we expect papers of two kinds: * Short position papers describing emerging ideas. * Long research papers with deeper description of experiments and of research results. TOPICS We welcome contributions on all aspects, theoretical as well as practical, of Smalltalk related topics such as: * Aspect-oriented programming, * Meta-programming and Meta-modeling, * Frameworks, * Interaction with other languages, * Implementation, new dialects or languages implemented in Smalltalk, * Tools, * Design patterns, * Experience reports PUBLICATION Pending ACM approval for Digital Library. Both submissions and final papers must be prepared using the ACM SIGPLAN 10 point format. Templates for Word and LaTeX are available at http://www.acm.org/sigs/sigplan/authorInformation.htm; this site also contains links to useful informations on how to write effective submissions. PROGRAM CHAIRS: * Loïc Lagadec (Labsticc, University of Brest, France) * Alain Plantec (Lisyc, University of Brest, France) PROGRAM COMMITTEE: * Gabriela Arevalo * Marcus Denker * Johan Fabry * Lukas Renggli * Hernan Wilkinson * Damien Cassou * Alexandre Bergel * Jordi Delgado * Johan Brichau

1 0

closing dates for the school deep into smalltalk
by stephane ducasse 09 Feb '11

09 Feb '11

Hi guys just a note to mention that the registration will be closed by 22 for internal administrative reasons. So pay attention. If you have a problem lets me know. Stef On Jan 12, 2011, at 10:02 AM, stephane ducasse wrote: > I forgot to say that ESUG will sponsor this event and can hel you financially. > Please address your request to me. > > Stef > > On Jan 12, 2011, at 10:01 AM, Stéphane Ducasse wrote: > >> The registration for the school: deep on Smalltalk organized at INRIA Lille Nord Europe is now open. >> http://www.inria.fr/centre-de-recherche-inria/lille-nord-europe/agenda/smal… >> >> Please register as soon as possible so that we can build some estimates. >> Please register even if you are local or close. >> >> ==== SCHOOL >> >> The objective of this school is to present on advanced Smalltalk topics such as compiler compiler, virtual machine, interaction with C, advanced UI, ... >> The school is structured around two main lectures on Virtual machines and a hand on sessions. >> • Igor Stasenko RMOD Lille France >> • Dr. Noury Bouraqadi >> • Henrik Johansen Norway >> • Jorge Ressia SCG Bern Switzerland >> • Marcus Denker RMOD Lille France >> • Prof. Theo D'Hondt VUB Belgium >> • Dr. Tudor Girba Switzerland >> • Dr. Eliot Miranda US >> >> • Date : du 7 mars 2011 au 11 mars 2011 >> • Lieu : Centre de recherche INRIA Lille Nord Europe >> >> ***There will be certainly a Pharo Sprint the saturday 15 of March. You are welcomed *** >> >> http://www.inria.fr/centre-de-recherche-inria/lille-nord-europe/agenda/smal… >> >> HOTEL >> ==== >> I'm negotiating with some hotels to provide fast a list. >> Now the first hotel that is cheap and good and that agreed to get better rooms >> for the same price is Hotel Agora >> 14 r Molinel 59000 LILLE >> Mail : agorahotel(a)yahoo.fr. >> 03 20 31 55 52 >> fax :.03 20 06 27 54 >> You should mention that you are coming to INRIA to get reduction. >> >> Stef >

1 0

← Newer
1
...
18
19
20
21
22
23
24
...
30
Older →

Jump to page: