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

Nov. 10, 2009


      Tee hee, cool beans guys :)

Niko

On Tue, Nov 10, 2009 at 6:32 PM, StÃ©phane Ducasse
<stephane.ducasse@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@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@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@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

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

Niko Schwarz