Smalltalk › Frameworks & Tools › Moose

Visualizing Code Duplication (a.k.a Reviving Duploc?)

_‹ Previous Topic Next Topic _›

Classic

List

Threaded

1 message

abergel

Visualizing Code Duplication (a.k.a Reviving Duploc?)

Hi!

Yesterday I did a bit of programming. I thought that visualizing code duplication is a nice 20 minutes of coding.

Visualizing code duplication. A square around the diagonal indicates code duplication. All methods of the analyzed application are located horizontally and vertically. A red dot indicates duplication between two methods. This technique to visualize duplication is rooted in analyzing chromosomes.

Here are some visualizations:

This is Glamour:

Trachel:

Nautilus:

Here is the code:

=-=-=-==-=-=-==-=-=-==-=-=-==-=-=-=

| packageNamePattern1 packageNamePattern2 minimumLinesOfCodeToBeConsidered p1 methods1 p2 methods2 m |

packageNamePattern1 := UIManager default

request: '-- 1 -- Enter a pattern of a package (e.g., Roassal2 or Roassal2*)'

initialAnswer: 'Roassal2'

title: 'Enter the name of a package to visualize the duplication'.

packageNamePattern2 := UIManager default

request: '-- 2 -- Enter a pattern of a package (e.g., Trachel or Trachel*)'

initialAnswer: 'Trachel'

title: 'Enter the name of a package to visualize the duplication'.

minimumLinesOfCodeToBeConsidered := 5.

p1 := RPackageOrganizer default packages select: [ :p | packageNamePattern1 match: p packageName ].

methods1 := (((p1 flatCollect: #methods) groupedBy: #methodClass) values flatCollect: #yourself) select: [ :me | me sourceNonEmptyCodeLinesCached size >= minimumLinesOfCodeToBeConsidered ].

p2 := RPackageOrganizer default packages select: [ :p | packageNamePattern2 match: p packageName ].

methods2 := (((p2 flatCollect: #methods) groupedBy: #methodClass) values flatCollect: #yourself) select: [ :me | me sourceNonEmptyCodeLinesCached size >= minimumLinesOfCodeToBeConsidered ].

m := RTDepMatrix new.

m shape box color: Color red.

m interaction popupText.

m function: [ :m1 :m2 |

| a1 a2 |

a1 := m1 sourceNonEmptyCodeLinesCached.

a2 := m2 sourceNonEmptyCodeLinesCached.

(a1 intersection: a2) size >= 5 "((a1 size min: a2 size) - 1)" ].

m horizontal: methods1.

m vertical: methods2.

m inspect

=-=-=-==-=-=-==-=-=-==-=-=-==-=-=-=

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.list.inf.unibe.ch/listinfo/moose-dev