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

Nov. 10, 2009


      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