#! /bin/bash

set -u

#barriereList="jikes_barrier asm_cache c_cache fake"
barriereList="jikes_barrier asm_cache c_cache"
communicationList="asm_cache c_cache shared_mem shared_mem_opt pipe"
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 "$_ "}}'`
barriereCommaList=`echo $barriereList | sed "s/ /,/g"`
argTypeProdList=`eval ls *typeProd_useless_loop*{$barriereCommaList}_comm.log | perl -ni -e '/argTypeProd_([\d]+)-/; $a{$1}=""; END { foreach ( sort { $a <=> $b } keys %a ) {print "$_ "}}'`

metriqueList="cache_hits cache_miss cycles total_time"

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
	case "$prod" in
		matrice) argTypeProd=16 ;;
		*) argTypeProd=1 ;;
	esac
	for bench in "communication" "barriere" ; do
		for metrique in $metriqueList ; do
			> bench_$bench-prod_$prod-metrique_$metrique.dat
			if [ $bench = "communication" -o $prod != "useless_loop" ] ; then
				echo -ne "Method\t\t" >> bench_$bench-prod_$prod-metrique_$metrique.dat
				for cache in $cacheList ; do
					echo -ne "\t$cache" >> bench_$bench-prod_$prod-metrique_$metrique.dat
				done
			else
				echo -ne "argTypeProd\t\t" >> bench_$bench-prod_$prod-metrique_$metrique.dat
				for com in `eval echo \\\$\${bench}List` ; do
					echo -ne "\t$com" >> bench_$bench-prod_$prod-metrique_$metrique.dat
				done
				echo "" >> bench_$bench-prod_$prod-metrique_$metrique.dat
			fi
		#	for file in cache_$cache-*-typeProd_$prod-*-${com}_comm.log ; do
		#		argTypeProd=`echo "$file" | sed -r "s/.*argTypeProd_([[:digit:]]+).*/\1/"`
		#		echo -ne "\t\t$argTypeProd" >> bench_$bench-prod_$prod-$metrique.dat
		#	done
		done
		if [ $bench = "communication" -o $prod != "useless_loop" ] ; then
			for com in `eval echo \\\$\${bench}List` ; do
				for metrique in $metriqueList ; do
					case "$metrique" in 
						cache_hits) metriquePattern="cache hits" ;;
						cache_miss) metriquePattern="cache miss" ;;
						cycles) metriquePattern="cycles" ;;
						total_time) metriquePattern="total_time" ;;
						*) echo "Pas de pattern pour cette métrique : $metrique" ; exit 1 ;;
					esac
					for i in 1 2 3 ; do # 1: total, 2: by loop, 3: by write
						echo -ne "\n$com\t\t" >> bench_$bench-prod_$prod-metrique_$metrique.dat
						for cache in $cacheList ; do
							if [ $i -eq 1 ]
							then
								eval value$cache=\"`perl -n -e "print \"\\$1 \\$2 \\$3 \" if /$metriquePattern.* (\S+) \/ (\S+) \/ (\S+)/" cache_$cache-*-typeProd_$prod-argTypeProd_$argTypeProd-*-${com}_comm.log`\"
							fi
							eval echo -ne "\${value$cache}" | cut -d ' ' -f $i | sed -r 's/(.*)/\t\1/' | tr -d '\n' >> bench_$bench-prod_$prod-metrique_$metrique.dat
						done
					done
				done
			done
		else
			for metrique in $metriqueList ; do
				case "$metrique" in 
					cache_hits) metriquePattern="cache hits" ;;
					cache_miss) metriquePattern="cache miss" ;;
					cycles) metriquePattern="cycles" ;;
					total_time) metriquePattern="total_time" ;;
					*) echo "Pas de pattern pour cette métrique : $metrique" ; exit 1 ;;
				esac
				for argTypeProd in $argTypeProdList ; do
					for cache in $cacheList ; do
						echo "" >> bench_$bench-prod_$prod-metrique_$metrique.dat
						for i in 1 2 3 ; do # 1: total, 2: by loop, 3: by write
							echo -ne "\n$argTypeProd\t\t" >> bench_$bench-prod_$prod-metrique_$metrique.dat
							for com in `eval echo \\\$\${bench}List` ; do
								if [ $i -eq 1 ]
								then
									eval value$com=\"`perl -n -e "print \"\\$1 \\$2 \\$3 \" if /$metriquePattern.* (\S+) \/ (\S+) \/ (\S+)/" cache_$cache-*-typeProd_$prod-argTypeProd_$argTypeProd-*-${com}_comm.log`\"
								fi
								eval echo -ne "\${value$com}" | cut -d ' ' -f $i | sed -r 's/(.*)/\t\1/' | tr -d '\n' >> bench_$bench-prod_$prod-metrique_$metrique.dat
							done
						done
					done
				done
			done
		fi
		if [ "${bench}" != "barriere" ] ;
		then
		#	echo "set style data lines" >> multicores.gnuplot
		#else
			echo "set style data histogram" >> multicores.gnuplot
		#fi
		for metrique in $metriqueList ; do
			case "$metrique" in 
				cache_hits) ylabel="Nb cache hit" ;;
				cache_miss) ylabel="Nb cache miss" ;;
				cycles) ylabel="Nb cycles" ;;
				total_time) ylabel="Secondes" ;;
				*) echo "Pas de label pour cette métrique : $metrique" ; exit 1 ;;
			esac

			for yscale in  "nologscale" "logscale" ; do 
				echo "set $yscale y" >> multicores.gnuplot
				[ "$yscale" = "nologscale" ] && echo "set yrange [0:*]" >> multicores.gnuplot \
				                             || echo "set yrange [*:*]" >> multicores.gnuplot
				echo "set title \"Producteur : $prod\"" >> multicores.gnuplot
				echo "set ylabel \"$ylabel\"" >> multicores.gnuplot
				echo "set output 'bench_$bench-prod_$prod-$metrique-total-$yscale.ps'" >> multicores.gnuplot
				echo "plot 'bench_$bench-prod_$prod-metrique_$metrique.dat' every 3:1 using 2:xtic(1) title 2 , '' every 3:1 u 3 ti 3" >> multicores.gnuplot
				echo "set ylabel \"$ylabel par boucle\"" >> multicores.gnuplot
				echo "set output 'bench_$bench-prod_$prod-$metrique-byLoop-$yscale.ps'" >> multicores.gnuplot
				echo "plot 'bench_$bench-prod_$prod-metrique_$metrique.dat' every 3:2 using 2:xtic(1) title 2 , '' every 3:2 u 3 ti 3" >> multicores.gnuplot
				echo "set ylabel \"$ylabel par ecriture\"" >> multicores.gnuplot
				echo "set output 'bench_$bench-prod_$prod-$metrique-byWrite-$yscale.ps'" >> multicores.gnuplot
				echo "plot 'bench_$bench-prod_$prod-metrique_$metrique.dat' every 3:3 using 2:xtic(1) title 2 , '' every 3:3 u 3 ti 3" >> multicores.gnuplot
			done
		done
		fi
	done
done

gnuplot multicores.gnuplot

for f in *.ps ; do 
	ps2pdf $f
done

acroread *.pdf