Visualizing Code Duplication (a.k.a Reviving Duploc?) - Moose-dev

26 Apr 2016

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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.