January 2011 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] should the PharoDev hudson image be buld using the baseline instead?

by Miguel CobÃ¡

Why don't just build two targets, one for a latestVersion and other for baseline. And mark the two builds differently. That the machine realize the hard work. That is the reason for them. El mar, 18-01-2011 a las 21:14 +0100, Mariano Martinez Peck escribiÃ³: > Hi. A trade-off here. Right now, the PharoDev image from Hudson is > being built using ConfigurationOfPharo project lastestVersion. > This is more or less good because we have the last version of the > ConfigurationOfPharo. But at the same time, updating the versions of > ConfigurationOfPharo is tedious. So, what about loading the baseline > istead? So that metacello automatically load the latest version of > each package/project ? > The good thing is that every change in external > configurations/packages will be automatically included. But at the > same time this is a disavtange because we can build crap (someone > commits something that doesn't work). When updating > ConfigurationOfPharo by hand we usually test it before.... > > anyway, isn't this the idea if hudson? if it builds crap, we want to > know it, as soon as possible. NOBODY should use a Hudson image (as it > is now) for a stable Pharo1.2 image. > > what do you think? > > cheers > > mariano -- Miguel CobÃ¡ http://twitter.com/MiguelCobaMtz http://miguel.leugim.com.mx

Jan. 18, 2011

Re: [Pharo-project] Issue 3517 in pharo: Failing test AutomaticMethodCategorizerOB

by pharo＠googlecode.com

Updates: Status: Duplicate Mergedinto: 3471 Comment #1 on issue 3517 by laurent....(a)gmail.com: Failing test AutomaticMethodCategorizerOB http://code.google.com/p/pharo/issues/detail?id=3517 (No comment was entered for this change.)

Jan. 18, 2011

Re: [Pharo-project] Issue 3469 in pharo: [Failing Test] ShoutTests.Parsing.SHParserST80Test.testCollectionHierarchy

by pharo＠googlecode.com

Updates: Status: Fixed Comment #1 on issue 3469 by laurent....(a)gmail.com: [Failing Test] ShoutTests.Parsing.SHParserST80Test.testCollectionHierarchy http://code.google.com/p/pharo/issues/detail?id=3469 In Inbox: SLICE-Issue-3469-ShoutTestsParsingSHParserST80TesttestCollectionHierarchy-LaurentLaffont.1 Added #pragmaKeyword in checked types

Jan. 18, 2011

Re: [Pharo-project] Issue 3545 in pharo: FEATURE: Multiple Worlds

by pharo＠googlecode.com

Comment #4 on issue 3545 by stephane...(a)gmail.com: FEATURE: Multiple Worlds http://code.google.com/p/pharo/issues/detail?id=3545 Ok we will have a look. Make sure that the code is clean, documented and does not look like projects or etoys and we are open.

Jan. 18, 2011

Re: [Pharo-project] Issue 3549 in pharo: ChooseClassOrTrait

by pharo＠googlecode.com

Updates: Labels: Milestone-1.3 Type-Squeak Difficulty-Easy Comment #1 on issue 3549 by stephane...(a)gmail.com: ChooseClassOrTrait http://code.google.com/p/pharo/issues/detail?id=3549 This should be put in SystemNavigation in pharo.

Jan. 18, 2011

[Pharo-project] Issue 3549 in pharo: ChooseClassOrTrait

by pharo＠googlecode.com

Status: Accepted Owner: stephane...(a)gmail.com New issue 3549 by stephane...(a)gmail.com: ChooseClassOrTrait http://code.google.com/p/pharo/issues/detail?id=3549 ==================== Summary ==================== Name: ToolBuilder-Kernel-ul.39 Author: ul Time: 12 December 2010, 11:18:16.463 pm UUID: 68b3bc0b-91c7-8e4c-8ad1-1f9a1ae18f3a Ancestors: ToolBuilder-Kernel-ar.38 - added UIManager >> #chooseClassOrTrait:from: as a common way to select a class or trait from an environment (SystemDictionary) =============== Diff against ToolBuilder-Kernel-ar.38 =============== Item was added: + ----- Method: UIManager>>chooseClassOrTrait (in category 'ui requests') ----- + chooseClassOrTrait + "Let the user choose a Class or Trait" + + ^self chooseClassOrTrait: 'Class name or fragment?'! Item was added: + ----- Method: UIManager>>chooseClassOrTrait: (in category 'ui requests') ----- + chooseClassOrTrait: label + "Let the user choose a Class or Trait" + + ^self chooseClassOrTrait: label from: Smalltalk environment! Item was added: + ----- Method: UIManager>>chooseClassOrTrait:from: (in category 'ui requests') ----- + chooseClassOrTrait: label from: environment + "Let the user choose a Class or Trait." + + | pattern | + pattern := self request: label. + ^Utilities classOrTraitFrom: environment pattern: pattern label: label + ! Item was added: + ----- Method: Utilities class>>classFromPattern:withCaption: (in category '*ToolBuilder-Kernel') ----- + classFromPattern: pattern withCaption: aCaption + "If there is a class or trait whose name exactly given by pattern, return it. + If there is only one class or trait in the system whose name matches pattern, return it. + Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen. + This method ignores separator characters in the pattern" + + ^self classOrTraitFrom: Smalltalk environment pattern: pattern label: aCaption + " + self classFromPattern: 'CharRecog' withCaption: '' + self classFromPattern: 'rRecog' withCaption: '' + self classFromPattern: 'znak' withCaption: '' + self classFromPattern: 'orph' withCaption: '' + self classFromPattern: 'TCompil' withCaption: '' + " + ! Item was added: + ----- Method: Utilities class>>classOrTraitFrom:pattern:label: (in category '*ToolBuilder-Kernel') ----- + classOrTraitFrom: environment pattern: pattern label: label + "If there is a class or trait whose name exactly given by pattern, return it. + If there is only one class or trait in the given environment whose name matches pattern, return it. + Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen. + This method ignores separator characters in the pattern" + + | toMatch potentialNames names exactMatch lines reducedIdentifiers selectedIndex | + toMatch := pattern copyWithoutAll: Character separators. + toMatch ifEmpty: [ ^nil ]. + "If there's a class or trait named as pattern, then return it." + Symbol hasInterned: pattern ifTrue: [ :symbol | + environment at: symbol ifPresent: [ :maybeClassOrTrait | + ((maybeClassOrTrait isKindOf: Class) or: [ + maybeClassOrTrait isTrait ]) + ifTrue: [ ^maybeClassOrTrait ] ] ]. + "No exact match, look for potential matches." + toMatch := pattern asLowercase copyWithout: $.. + potentialNames := environment classAndTraitNames. + names := pattern last = $. "This is some old hack, using String>>#match: may be better." + ifTrue: [ potentialNames select: [ :each | each asLowercase = toMatch ] ] + ifFalse: [ + potentialNames select: [ :each | + each includesSubstring: toMatch caseSensitive: false ] ]. + exactMatch := names detect: [ :each | each asLowercase = toMatch ] ifNone: [ nil ]. + lines := OrderedCollection new. + exactMatch ifNotNil: [ lines add: 1 ]. + "Also try some fuzzy matching." + reducedIdentifiers := pattern suggestedTypeNames select: [ :each | + potentialNames includes: each ]. + reducedIdentifiers ifNotEmpty: [ + names addAll: reducedIdentifiers. + lines add: 1 + names size + reducedIdentifiers size ]. + "Let the user select if there's more than one possible match. This may give surprising results." + selectedIndex := names size = 1 + ifTrue: [ 1 ] + ifFalse: [ + exactMatch ifNotNil: [ names addFirst: exactMatch ]. + UIManager default chooseFrom: names lines: lines title: label ]. + selectedIndex = 0 ifTrue: [ ^nil ]. + ^environment at: (names at: selectedIndex) asSymbol!

Jan. 18, 2011

[Pharo-project] Issue 3548 in pharo: Network changes from Etoy

by pharo＠googlecode.com

Status: Accepted Owner: stephane...(a)gmail.com Labels: Milestone-1.3 New issue 3548 by stephane...(a)gmail.com: Network changes from Etoy http://code.google.com/p/pharo/issues/detail?id=3548 A new version of Network was added to project The Inbox: http://source.squeak.org/inbox/Network-ul.100.mcz ==================== Summary ==================== Name: Network-ul.100 Author: ul Time: 12 December 2010, 4:49:19.894 am UUID: 81823263-c3d6-f949-a8b0-6a107dcb5322 Ancestors: Network-ul.99 Network changes from the EToys repository. We should really have a look at that. But this can be a bit boring.

Jan. 18, 2011

Re: [Pharo-project] Issue 3547 in pharo: Have a look at the new match: implementation

by pharo＠googlecode.com

Comment #3 on issue 3547 by stephane...(a)gmail.com: Have a look at the new match: implementation http://code.google.com/p/pharo/issues/detail?id=3547 ame: CollectionsTests-ul.179 Author: ul Time: 15 January 2011, 1:58:09.591 pm UUID: eda65a29-e17b-634b-b99c-e6f862302701 Ancestors: CollectionsTests-nice.178 - updated StringTest >> #testMatch to reflect the changes of Collections-ul.420 =============== Diff against CollectionsTests-nice.178 =============== Item was changed: ----- 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') - #('**' '*#' 'f**' 'f*#' 'f**o' 'f*#o') do: [ :each | - self should: [ each match: 'foo' ] raise: Error ]. - #('f*' '*f*' 'f#*' 'f##' '*oo' '#oo' '*o*' '#o#' '#o*' '*o#' 'fo*' 'fo#' '*foo*' '###') do: [ :each | self assert: (each match: 'foo') ]. #('bar' 'foo#' '#foo' '*foo#' '#foo*' '*bar*') do: [ :each | self deny: (each match: 'foo') ]!

Jan. 18, 2011

Re: [Pharo-project] Issue 3547 in pharo: Have a look at the new match: implementation

by pharo＠googlecode.com

Updates: Labels: Type-Squeak Difficulty-Easy Comment #2 on issue 3547 by stephane...(a)gmail.com: Have a look at the new match: implementation http://code.google.com/p/pharo/issues/detail?id=3547 (No comment was entered for this change.)

Jan. 18, 2011

Re: [Pharo-project] Issue 3547 in pharo: Have a look at the new match: implementation

by pharo＠googlecode.com

Comment #1 on issue 3547 by stephane...(a)gmail.com: Have a look at the new match: implementation http://code.google.com/p/pharo/issues/detail?id=3547 A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ul.420.mcz ==================== Summary ==================== Name: Collections-ul.420 Author: ul Time: 15 January 2011, 1:57:14.662 pm UUID: aadc4c69-dd68-4f46-8370-dda4404f0153 Ancestors: Collections-mtf.419 - do not raise an error in String >> #match: if the receiver contains '**' or '*#' as a substring. - fixed the comment in String >> #match: =============== Diff against Collections-mtf.419 =============== Item was changed: ----- Method: String>>match: (in category 'comparing') ----- match: text "Answer whether text matches the pattern in this string. Matching ignores upper/lower case differences. Where this string contains #, text may contain any character. Where this string contains *, text may contain any sequence of characters." ^ self startingAt: 1 match: text startingAt: 1 " '*' match: 'zort' true '*baz' match: 'mobaz' true '*baz' match: 'mobazo' false '*baz*' match: 'mobazo' true '*baz*' match: 'mozo' false 'foo*' match: 'foozo' true 'foo*' match: 'bozo' false 'foo*baz' match: 'foo23baz' true 'foo*baz' match: 'foobaz' true 'foo*baz' match: 'foo23bazo' false 'foo' match: 'Foo' true 'foo*baz*zort' match: 'foobazort' false + 'foo*baz*zort' match: 'foobazzort' true - 'foo*baz*zort' match: 'foobazzort' false '*foo#zort' match: 'afoo3zortthenfoo3zort' true '*foo*zort' match: 'afoodezortorfoo3zort' true "! Item was changed: ----- Method: String>>startingAt:match:startingAt: (in category 'comparing') ----- startingAt: keyStart match: text startingAt: textStart "Answer whether text matches the pattern in this string. Matching ignores upper/lower case differences. Where this string contains #, text may contain any character. Where this string contains *, text may contain any sequence of characters." + | anyMatch matchStart matchEnd i matchStr j ii jj | i := keyStart. j := textStart. + + "Process consecutive *s and #s at the beginning." + anyMatch := false. + [ i <= self size and: [ + (self at: i) + caseOf: { + [ $* ] -> [ + anyMatch := true. + i := i + 1. + true ]. + [ $# ] -> [ + i := i + 1. + j := j + 1. + true ] } + otherwise: [ false ] ] ] whileTrue. + i > self size ifTrue: [ + ^j - 1 = text size or: [ "We reached the end by matching the character with a #." + anyMatch and: [ j <= text size ] "Or there was a * before the end." ] ]. + matchStart := i. - "Check for any #'s" - [i > self size ifTrue: [^ j > text size "Empty key matches only empty string"]. - (self at: i) = $#] whileTrue: - ["# consumes one char of key and one char of text" - j > text size ifTrue: [^ false "no more text"]. - i := i+1. j := j+1]. - - "Then check for *" - (self at: i) = $* - ifTrue: [i = self size ifTrue: - [^ true "Terminal * matches all"]. - "* means next match string can occur anywhere" - anyMatch := true. - matchStart := i + 1] - ifFalse: ["Otherwise match string must occur immediately" - anyMatch := false. - matchStart := i]. - "Now determine the match string" matchEnd := self size. + (ii := self indexOf: $* startingAt: matchStart) > 0 ifTrue: [ matchEnd := ii-1 ]. + (ii := self indexOf: $# startingAt: matchStart) > 0 ifTrue: [ matchEnd := matchEnd min: ii-1 ]. - (ii := self indexOf: $* startingAt: matchStart) > 0 ifTrue: - [ii = matchStart ifTrue: [self error: '** not valid -- use * instead']. - matchEnd := ii-1]. - (ii := self indexOf: $# startingAt: matchStart) > 0 ifTrue: - [ii = matchStart ifTrue: [self error: '*# not valid -- use #* instead']. - matchEnd := matchEnd min: ii-1]. matchStr := self copyFrom: matchStart to: matchEnd. "Now look for the match string" [jj := text findString: matchStr startingAt: j caseSensitive: false. anyMatch ifTrue: [jj > 0] ifFalse: [jj = j]] whileTrue: ["Found matchStr at jj. See if the rest matches..." (self startingAt: matchEnd+1 match: text startingAt: jj + matchStr size) ifTrue: [^ true "the rest matches -- success"]. "The rest did not match." anyMatch ifFalse: [^ false]. "Preceded by * -- try for a later match" j := j+1]. ^ false "Failed to find the match string"!

Jan. 18, 2011