26 Apr
2016
26 Apr
'16
2:58 p.m.
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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
