From 857a764485cc50a5ffaca935f556312c6f608d49 Mon Sep 17 00:00:00 2001
From: Thomas Preud'homme <robotux@celest.fr>
Date: Tue, 23 Jun 2009 12:45:15 +0200
Subject: [PATCH] commtechs bench: Add parsing of logs

---
 communication_techniques/lancement.sh |  2 +-
 communication_techniques/parsing.sh   | 52 +++++++++++++++++++++++++++
 papihighlevel                         |  2 +-
 3 files changed, 54 insertions(+), 2 deletions(-)
 create mode 100644 communication_techniques/parsing.sh

diff --git a/communication_techniques/lancement.sh b/communication_techniques/lancement.sh
index 93ebf28..3263a8a 100755
--- a/communication_techniques/lancement.sh
+++ b/communication_techniques/lancement.sh
@@ -17,7 +17,7 @@ nbIter="5000000" # Nb de lignes produites
 sizeBuf="1" # En nombre de lignes de cache
 
 # Nom generique des fichiers de log
-logFileName="\$perfDirName/cache_\$typeCache-nbProd_\$nbProd-typeProd_\$typeProd-nbIter_\$nbIter-\$bin"
+logFileName="\$perfDirName/cache_\$typeCache-nbProd_\$nbProd-typeProd_\$typeProd-nbIter_\$nbIter-\$bin.log"
 expDirName="logs"
 perfDirName="$expDirName/perfCommMulti-`date +'%F-%Hh%Mm%S'`"
 
diff --git a/communication_techniques/parsing.sh b/communication_techniques/parsing.sh
new file mode 100644
index 0000000..b20030f
--- /dev/null
+++ b/communication_techniques/parsing.sh
@@ -0,0 +1,52 @@
+#! /bin/bash
+
+set -u
+
+#comList = `ls | perl -pi -e 's/.*-(\w+)_com/$1/' | sort | uniq`
+comList=`ls *.log | perl -ni -e '/-([^-]+)_comm/; $a{$1}=""; END { foreach ( sort keys %a ) {print "$_ "}}'`
+cacheList=`ls *log | perl -ni -e '/cache_([^-]+)-/; $a{$1}=""; END { foreach ( sort keys %a ) {print "$_ "}}'`
+prodList=`ls *.log | perl -ni -e '/typeProd_([^-]+)-/; $a{$1}=""; END { foreach ( sort keys %a ) {print "$_ "}}'`
+
+metriqueList="cache_hits cache_miss cycles"
+
+echo "set style data histogram" > multicores.gnuplot
+echo "set style histogram cluster gap 1" >> multicores.gnuplot
+echo "set style fill solid border -1" >> multicores.gnuplot
+echo "set boxwidth 0.9" >> multicores.gnuplot
+echo "set xtic rotate by -45" >> multicores.gnuplot
+echo "set bmargin 5" >> multicores.gnuplot
+echo "set terminal postscript landscape color" >> multicores.gnuplot
+
+for prod in $prodList ; do
+	for metrique in $metriqueList ; do
+		> prod_$prod-$metrique.dat
+	done
+	for com in $comList ; do
+		for metrique in $metriqueList ; do
+			echo -ne "\n$com\t\t" >> prod_$prod-$metrique.dat
+		done
+		for cache in $cacheList ; do
+			for metrique in $metriqueList ; do 
+				for value in `perl -n -e "print '$1 $2 $3' if /${metrique}.* (\\d+) \\/ (\\d+) \\/ (\\d+)/" cache_$cache-*-typeProd_$prod-*-${com}_comm.log` ; do
+					echo -ne "\t$value " >> prod_$prod-${metrique}.dat
+				done
+			done
+		done
+	done
+	for metrique in $metriqueList ; do
+		echo "set output 'prod_$prod-$metrique-total.ps'" >> multicores.gnuplot
+		echo "plot 'prod_$prod-$metrique.dat' using 2:xtic(1) ti 'L2', '' u 5 ti 'MEM'" >> multicores.gnuplot
+		echo "set output 'prod_$prod-$metrique-byLoop.ps'" >> multicores.gnuplot
+		echo "plot 'prod_$prod-$metrique.dat' using 3:xtic(1) ti 'L2', '' u 6 ti 'MEM'" >> multicores.gnuplot
+		echo "set output 'prod_$prod-$metrique-byWrite.ps'" >> multicores.gnuplot
+		echo "plot 'prod_$prod-$metrique.dat' using 4:xtic(1) ti 'L2', '' u 7 ti 'MEM'" >> multicores.gnuplot
+	done
+done 
+
+gnuplot multicores.gnuplot
+
+for f in *.ps ; do 
+	ps2pdf $f
+done
+
+acroread *.pdf
diff --git a/papihighlevel b/papihighlevel
index 6d51173..7c0a367 160000
--- a/papihighlevel
+++ b/papihighlevel
@@ -1 +1 @@
-Subproject commit 6d5117308f78e2ca984691d4440b6a1aa45857b9
+Subproject commit 7c0a36703f5514e19d982b377b6de3b77eadd022