#!/bin/sh

if [ $# -ne 1 ]
then
	echo "usage: $0 result-directory"
	exit 0
fi

dir="$1"

for i in $dir/*
do
	Rscript ~/bin/summary.r $i > $i.r
	rsum2line.awk $i.r > $i.raw
done

# List raw files with the number of iterations as a prefix so they can then be sorted.
sort_raw_files() {
	for i in $dir/*.raw
	do
		f $i
	done | sort -n
}

f() {
	echo $* | sed "s/[_./]/ /g" | xargs echo "$* " | awk '{ printf "%s %s/%s_%s %s\n", $4, $2, $3, $5, $1 }'
}

fill() {
	while read LINE; do
		nb_it=$(echo $LINE | awk '{ print $1 }')
		target=$(echo $LINE | awk '{ print $2 }')
		fname=$(echo $LINE | awk '{ print $3 }')

		cat $fname | xargs echo "$nb_it " >> $target.final
	done
}

sort_raw_files | fill