November 2009 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] why we should kill project

by Niko Schwarz

Tee hee, cool beans guys :) Niko On Tue, Nov 10, 2009 at 6:32 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > It is a pearl! > may be a joke for geek but I love it. > > STef >> ((Project class parseTreeFor: #mostRecent:onServer:) allChildren >> Â Â Â reject: [ :each | each isVariable ]) >> Â Â Â asBag sortedCounts >> Â Â Â first: 20 >> >> 5x RBLiteralValueNode(-1) >> 3x RBMessageNode(Array with: goodName >> Â Â Â with: max) >> 3x RBMessageNode(max = -1) >> 3x RBAssignmentNode(goodName := rawList at: ind) >> 3x RBSequenceNode(^ Array with: goodName >> Â Â Â with: max) >> 3x RBReturnNode(^ nothingFound) >> 3x RBMessageNode(max = -1 ifFalse: >> Â Â Â Â Â Â Â [ ^ Array with: goodName >> Â Â Â Â Â Â Â Â Â Â Â with: max ]) >> 3x RBBlockNode([ ^ Array with: goodName >> Â Â Â with: max ]) >> 3x RBMessageNode(rawList at: ind) >> 3x RBReturnNode(^ Array with: goodName >> Â Â Â with: max) >> 2x RBBlockNode([ num := (Project parseProjectFileName: aName) second. >> num > max ifTrue: >> Â Â Â Â Â Â Â [ max := num. >> Â Â Â Â Â Â Â goodName := rawList at: ind ] ]) >> 2x RBMessageNode((Project parseProjectFileName: aName) second) >> 2x RBAssignmentNode(num := (Project parseProjectFileName: aName) second) >> 2x RBAssignmentNode(max := num) >> 2x RBBlockNode([ max := num. >> goodName := rawList at: ind ]) >> 2x RBMessageNode((Project parseProjectFileName: aName)) >> 2x RBSequenceNode(max := num. >> goodName := rawList at: ind) >> 2x RBMessageNode(num > max ifTrue: >> Â Â Â Â Â Â Â [ max := num. >> Â Â Â Â Â Â Â goodName := rawList at: ind ]) >> 2x RBMessageNode(num > max) >> 2x RBLiteralValueNode(' ') >> ... >> >> >> 2009/11/10 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: >>> if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. >>> >>> Stef >>> >>> mostRecent: projName onServer: aServerDirectory >>> Â Â Â Â "Find the exact fileName of the most recent version of project with the stem name of projName. Â Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. >>> Â Â Â Â File names may or may not be HTTP escaped, %20 on the server." >>> Â Â Â Â | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | >>> Â Â Â Â self flag: #bob. Â Â Â Â "do we want to handle unversioned projects as well?" >>> Â Â Â Â nothingFound := { Â nil. -1 Â }. >>> Â Â Â Â aServerDirectory ifNil: [ ^ nothingFound ]. >>> Â Â Â Â "23 sept 2000 - some old projects have periods in name so be more careful" >>> Â Â Â Â unEscName := projName unescapePercents. >>> Â Â Â Â triple := Project parseProjectFileName: unEscName. >>> Â Â Â Â stem := triple first. >>> Â Â Â Â rawList := aServerDirectory fileNames. >>> Â Â Â Â rawList isString ifTrue: >>> Â Â Â Â Â Â Â Â [ self inform: 'server is unavailable'. >>> Â Â Â Â Â Â Â Â ^ nothingFound ]. >>> Â Â Â Â list := rawList collect: [ :nnn | nnn unescapePercents ]. >>> Â Â Â Â max := -1. >>> Â Â Â Â goodName := nil. >>> Â Â Â Â list withIndexDo: >>> Â Â Â Â Â Â Â Â [ :aName :ind | >>> Â Â Â Â Â Â Â Â (aName beginsWith: stem) ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. >>> Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. >>> Â Â Â Â max = -1 ifFalse: >>> Â Â Â Â Â Â Â Â [ ^ Array >>> Â Â Â Â Â Â Â Â Â Â Â Â with: goodName >>> Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. >>> >>> Â Â Â Â "try with underbar for spaces on server" >>> Â Â Â Â (stem includes: $ ) ifTrue: >>> Â Â Â Â Â Â Â Â [ stem1 := stem >>> Â Â Â Â Â Â Â Â Â Â Â Â copyReplaceAll: ' ' >>> Â Â Â Â Â Â Â Â Â Â Â Â with: '_'. >>> Â Â Â Â Â Â Â Â list withIndexDo: >>> Â Â Â Â Â Â Â Â Â Â Â Â [ :aName :ind | >>> Â Â Â Â Â Â Â Â Â Â Â Â (aName beginsWith: stem1) ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ] ]. >>> Â Â Â Â max = -1 ifFalse: >>> Â Â Â Â Â Â Â Â [ ^ Array >>> Â Â Â Â Â Â Â Â Â Â Â Â with: goodName >>> Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. >>> >>> Â Â Â Â "try without the marker | " >>> Â Â Â Â stem1 := stem allButLast , '.pr'. >>> Â Â Â Â stem2 := stem1 >>> Â Â Â Â Â Â Â Â copyReplaceAll: ' ' >>> Â Â Â Â Â Â Â Â with: '_'. Â Â Â "and with spaces replaced" >>> Â Â Â Â list withIndexDo: >>> Â Â Â Â Â Â Â Â [ :aName :ind | >>> Â Â Â Â Â Â Â Â (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â [ (triple := aName findTokens: '.') size >= 2 ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := 0. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. Â Â Â "no other versions" >>> Â Â Â Â max = -1 ifFalse: >>> Â Â Â Â Â Â Â Â [ ^ Array >>> Â Â Â Â Â Â Â Â Â Â Â Â with: goodName >>> Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. >>> Â Â Â Â ^ nothingFound Â "no matches" >>> _______________________________________________ >>> Pharo-project mailing list >>> Pharo-project(a)lists.gforge.inria.fr >>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >>> >> >> >> >> -- >> Lukas Renggli >> http://www.lukas-renggli.ch >> >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Gary Chambers

Note that similar performance improvements should be seen across the board in general usage though. Regards, Gary ----- Original Message ----- From: Marcus Denker To: Pharo-project(a)lists.gforge.inria.fr Sent: Tuesday, November 10, 2009 5:36 PM Subject: Re: [Pharo-project] [update 1.1] #11038 On Nov 10, 2009, at 6:33 PM, Mariano Martinez Peck wrote: On Tue, Nov 10, 2009 at 2:31 PM, Marcus Denker <denker(a)acm.org> wrote: On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > excellent! > speed speed speed :) > On my system, the browser-benchmark is 17% faster for the Core image after loading the update. Sorry, but which browser? (systembrowser? packageAdaptor?) which benchmark did you try ? any code to test? this is the benchmark code: | saveMorphs time | [saveMorphs := World submorphs. World removeAllMorphs."heh, heh" time := [1 to: 10 do: [:i | MorphicToolBuilder new open: (Browser new setClass: SystemDictionary selector: nil). World doOneCycleNow]. World submorphs do: [:m | m delete. World doOneCycleNow]. ] timeToRun] ensure:[World addAllMorphs: saveMorphs]. SystemWindow noteTopWindowIn: World. time ------------------------------------------------------------------------------ _______________________________________________ Pharo-project mailing list Pharo-project(a)lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Marcus Denker

On Nov 10, 2009, at 6:33 PM, Mariano Martinez Peck wrote: > > > On Tue, Nov 10, 2009 at 2:31 PM, Marcus Denker <denker(a)acm.org> wrote: > > On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > > > excellent! > > speed speed speed :) > > > > On my system, the browser-benchmark is 17% faster for the Core image after loading the update. > > > Sorry, but which browser? (systembrowser? packageAdaptor?) which benchmark did you try ? any code to test? > this is the benchmark code: | saveMorphs time | [saveMorphs := World submorphs. World removeAllMorphs."heh, heh" time := [1 to: 10 do: [:i | MorphicToolBuilder new open: (Browser new setClass: SystemDictionary selector: nil). World doOneCycleNow]. World submorphs do: [:m | m delete. World doOneCycleNow]. ] timeToRun] ensure:[World addAllMorphs: saveMorphs]. SystemWindow noteTopWindowIn: World. time

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Mariano Martinez Peck

On Tue, Nov 10, 2009 at 2:31 PM, Marcus Denker <denker(a)acm.org> wrote: > > On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > > > excellent! > > speed speed speed :) > > > > On my system, the browser-benchmark is 17% faster for the Core image after > loading the update. > > Sorry, but which browser? (systembrowser? packageAdaptor?) which benchmark did you try ? any code to test? Best Mariano > Not bad. > > Marcus > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Nov. 10, 2009

Re: [Pharo-project] why we should kill project

by StÃ©phane Ducasse

It is a pearl! may be a joke for geek but I love it. STef > ((Project class parseTreeFor: #mostRecent:onServer:) allChildren > reject: [ :each | each isVariable ]) > asBag sortedCounts > first: 20 > > 5x RBLiteralValueNode(-1) > 3x RBMessageNode(Array with: goodName > with: max) > 3x RBMessageNode(max = -1) > 3x RBAssignmentNode(goodName := rawList at: ind) > 3x RBSequenceNode(^ Array with: goodName > with: max) > 3x RBReturnNode(^ nothingFound) > 3x RBMessageNode(max = -1 ifFalse: > [ ^ Array with: goodName > with: max ]) > 3x RBBlockNode([ ^ Array with: goodName > with: max ]) > 3x RBMessageNode(rawList at: ind) > 3x RBReturnNode(^ Array with: goodName > with: max) > 2x RBBlockNode([ num := (Project parseProjectFileName: aName) second. > num > max ifTrue: > [ max := num. > goodName := rawList at: ind ] ]) > 2x RBMessageNode((Project parseProjectFileName: aName) second) > 2x RBAssignmentNode(num := (Project parseProjectFileName: aName) second) > 2x RBAssignmentNode(max := num) > 2x RBBlockNode([ max := num. > goodName := rawList at: ind ]) > 2x RBMessageNode((Project parseProjectFileName: aName)) > 2x RBSequenceNode(max := num. > goodName := rawList at: ind) > 2x RBMessageNode(num > max ifTrue: > [ max := num. > goodName := rawList at: ind ]) > 2x RBMessageNode(num > max) > 2x RBLiteralValueNode(' ') > ... > > > 2009/11/10 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: >> if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. >> >> Stef >> >> mostRecent: projName onServer: aServerDirectory >> "Find the exact fileName of the most recent version of project with the stem name of projName. Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. >> File names may or may not be HTTP escaped, %20 on the server." >> | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | >> self flag: #bob. "do we want to handle unversioned projects as well?" >> nothingFound := { nil. -1 }. >> aServerDirectory ifNil: [ ^ nothingFound ]. >> "23 sept 2000 - some old projects have periods in name so be more careful" >> unEscName := projName unescapePercents. >> triple := Project parseProjectFileName: unEscName. >> stem := triple first. >> rawList := aServerDirectory fileNames. >> rawList isString ifTrue: >> [ self inform: 'server is unavailable'. >> ^ nothingFound ]. >> list := rawList collect: [ :nnn | nnn unescapePercents ]. >> max := -1. >> goodName := nil. >> list withIndexDo: >> [ :aName :ind | >> (aName beginsWith: stem) ifTrue: >> [ num := (Project parseProjectFileName: aName) second. >> num > max ifTrue: >> [ max := num. >> goodName := rawList at: ind ] ] ]. >> max = -1 ifFalse: >> [ ^ Array >> with: goodName >> with: max ]. >> >> "try with underbar for spaces on server" >> (stem includes: $ ) ifTrue: >> [ stem1 := stem >> copyReplaceAll: ' ' >> with: '_'. >> list withIndexDo: >> [ :aName :ind | >> (aName beginsWith: stem1) ifTrue: >> [ num := (Project parseProjectFileName: aName) second. >> num > max ifTrue: >> [ max := num. >> goodName := rawList at: ind ] ] ] ]. >> max = -1 ifFalse: >> [ ^ Array >> with: goodName >> with: max ]. >> >> "try without the marker | " >> stem1 := stem allButLast , '.pr'. >> stem2 := stem1 >> copyReplaceAll: ' ' >> with: '_'. "and with spaces replaced" >> list withIndexDo: >> [ :aName :ind | >> (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: >> [ (triple := aName findTokens: '.') size >= 2 ifTrue: >> [ max := 0. >> goodName := rawList at: ind ] ] ]. "no other versions" >> max = -1 ifFalse: >> [ ^ Array >> with: goodName >> with: max ]. >> ^ nothingFound "no matches" >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >> > > > > -- > Lukas Renggli > http://www.lukas-renggli.ch > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Marcus Denker

On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > excellent! > speed speed speed :) > On my system, the browser-benchmark is 17% faster for the Core image after loading the update. Not bad. Marcus

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by StÃ©phane Ducasse

excellent! speed speed speed :) Stef On Nov 10, 2009, at 4:04 PM, Marcus Denker wrote: > 11038 > ----- > > Issue 1254: Morph extension speedup > > Speed up Morphic. Thanks, Gary! and everyone taking part in the discussion. > > Note: some packages are dirty after this update (loaded the changeset by hand). > This will be fixed in the next update. > > Marcus > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 10, 2009

[Pharo-project] [update 1.1] #11039

by Marcus Denker

#11039 ----------- -> reload dirty packages from repository -> add home repo to all packages (was missing from ScriptLoader11) -> Scriptloader should again be in sync with the update number. Marcus

Nov. 10, 2009

Re: [Pharo-project] why we should kill project

by Lukas Renggli

((Project class parseTreeFor: #mostRecent:onServer:) allChildren reject: [ :each | each isVariable ]) asBag sortedCounts first: 20 5x RBLiteralValueNode(-1) 3x RBMessageNode(Array with: goodName with: max) 3x RBMessageNode(max = -1) 3x RBAssignmentNode(goodName := rawList at: ind) 3x RBSequenceNode(^ Array with: goodName with: max) 3x RBReturnNode(^ nothingFound) 3x RBMessageNode(max = -1 ifFalse: [ ^ Array with: goodName with: max ]) 3x RBBlockNode([ ^ Array with: goodName with: max ]) 3x RBMessageNode(rawList at: ind) 3x RBReturnNode(^ Array with: goodName with: max) 2x RBBlockNode([ num := (Project parseProjectFileName: aName) second. num > max ifTrue: [ max := num. goodName := rawList at: ind ] ]) 2x RBMessageNode((Project parseProjectFileName: aName) second) 2x RBAssignmentNode(num := (Project parseProjectFileName: aName) second) 2x RBAssignmentNode(max := num) 2x RBBlockNode([ max := num. goodName := rawList at: ind ]) 2x RBMessageNode((Project parseProjectFileName: aName)) 2x RBSequenceNode(max := num. goodName := rawList at: ind) 2x RBMessageNode(num > max ifTrue: [ max := num. goodName := rawList at: ind ]) 2x RBMessageNode(num > max) 2x RBLiteralValueNode(' ') ... 2009/11/10 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: > if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. > > Stef > > mostRecent: projName onServer: aServerDirectory > Â Â Â Â "Find the exact fileName of the most recent version of project with the stem name of projName. Â Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. > Â Â Â Â File names may or may not be HTTP escaped, %20 on the server." > Â Â Â Â | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | > Â Â Â Â self flag: #bob. Â Â Â Â "do we want to handle unversioned projects as well?" > Â Â Â Â nothingFound := { Â nil. -1 Â }. > Â Â Â Â aServerDirectory ifNil: [ ^ nothingFound ]. > Â Â Â Â "23 sept 2000 - some old projects have periods in name so be more careful" > Â Â Â Â unEscName := projName unescapePercents. > Â Â Â Â triple := Project parseProjectFileName: unEscName. > Â Â Â Â stem := triple first. > Â Â Â Â rawList := aServerDirectory fileNames. > Â Â Â Â rawList isString ifTrue: > Â Â Â Â Â Â Â Â [ self inform: 'server is unavailable'. > Â Â Â Â Â Â Â Â ^ nothingFound ]. > Â Â Â Â list := rawList collect: [ :nnn | nnn unescapePercents ]. > Â Â Â Â max := -1. > Â Â Â Â goodName := nil. > Â Â Â Â list withIndexDo: > Â Â Â Â Â Â Â Â [ :aName :ind | > Â Â Â Â Â Â Â Â (aName beginsWith: stem) ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. > Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. > Â Â Â Â max = -1 ifFalse: > Â Â Â Â Â Â Â Â [ ^ Array > Â Â Â Â Â Â Â Â Â Â Â Â with: goodName > Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. > > Â Â Â Â "try with underbar for spaces on server" > Â Â Â Â (stem includes: $ ) ifTrue: > Â Â Â Â Â Â Â Â [ stem1 := stem > Â Â Â Â Â Â Â Â Â Â Â Â copyReplaceAll: ' ' > Â Â Â Â Â Â Â Â Â Â Â Â with: '_'. > Â Â Â Â Â Â Â Â list withIndexDo: > Â Â Â Â Â Â Â Â Â Â Â Â [ :aName :ind | > Â Â Â Â Â Â Â Â Â Â Â Â (aName beginsWith: stem1) ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ] ]. > Â Â Â Â max = -1 ifFalse: > Â Â Â Â Â Â Â Â [ ^ Array > Â Â Â Â Â Â Â Â Â Â Â Â with: goodName > Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. > > Â Â Â Â "try without the marker | " > Â Â Â Â stem1 := stem allButLast , '.pr'. > Â Â Â Â stem2 := stem1 > Â Â Â Â Â Â Â Â copyReplaceAll: ' ' > Â Â Â Â Â Â Â Â with: '_'. Â Â Â "and with spaces replaced" > Â Â Â Â list withIndexDo: > Â Â Â Â Â Â Â Â [ :aName :ind | > Â Â Â Â Â Â Â Â (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â [ (triple := aName findTokens: '.') size >= 2 ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := 0. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. Â Â Â "no other versions" > Â Â Â Â max = -1 ifFalse: > Â Â Â Â Â Â Â Â [ ^ Array > Â Â Â Â Â Â Â Â Â Â Â Â with: goodName > Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. > Â Â Â Â ^ nothingFound Â "no matches" > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project > -- Lukas Renggli http://www.lukas-renggli.ch

Nov. 10, 2009

[Pharo-project] why we should kill project

by StÃ©phane Ducasse

if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. Stef mostRecent: projName onServer: aServerDirectory "Find the exact fileName of the most recent version of project with the stem name of projName. Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. File names may or may not be HTTP escaped, %20 on the server." | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | self flag: #bob. "do we want to handle unversioned projects as well?" nothingFound := { nil. -1 }. aServerDirectory ifNil: [ ^ nothingFound ]. "23 sept 2000 - some old projects have periods in name so be more careful" unEscName := projName unescapePercents. triple := Project parseProjectFileName: unEscName. stem := triple first. rawList := aServerDirectory fileNames. rawList isString ifTrue: [ self inform: 'server is unavailable'. ^ nothingFound ]. list := rawList collect: [ :nnn | nnn unescapePercents ]. max := -1. goodName := nil. list withIndexDo: [ :aName :ind | (aName beginsWith: stem) ifTrue: [ num := (Project parseProjectFileName: aName) second. num > max ifTrue: [ max := num. goodName := rawList at: ind ] ] ]. max = -1 ifFalse: [ ^ Array with: goodName with: max ]. "try with underbar for spaces on server" (stem includes: $ ) ifTrue: [ stem1 := stem copyReplaceAll: ' ' with: '_'. list withIndexDo: [ :aName :ind | (aName beginsWith: stem1) ifTrue: [ num := (Project parseProjectFileName: aName) second. num > max ifTrue: [ max := num. goodName := rawList at: ind ] ] ] ]. max = -1 ifFalse: [ ^ Array with: goodName with: max ]. "try without the marker | " stem1 := stem allButLast , '.pr'. stem2 := stem1 copyReplaceAll: ' ' with: '_'. "and with spaces replaced" list withIndexDo: [ :aName :ind | (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: [ (triple := aName findTokens: '.') size >= 2 ifTrue: [ max := 0. goodName := rawList at: ind ] ] ]. "no other versions" max = -1 ifFalse: [ ^ Array with: goodName with: max ]. ^ nothingFound "no matches"

Nov. 10, 2009