#!/usr/bin/perl
use strict;

if(@ARGV == 0){
	print "Diesem Skript einfach alle *.cw Datein in einem Ordner uebergeben und es erstellt einen Ordner xmgrace/ in dem die Ergebnisse enthalten sind.\n \nACHTUNG: Wenn es nicht geht Quelltext anschauen und und die Variable \$pfad so anpassen, dass sie auf den Ornder zeigt in dem die beiden Skripte von Sonja liegen ;o)\n";
	exit;
}

#Pfad zu den beiden Skripten von Sonja gegebenenfalls anpassen 
my $pfad = "/homes/biertank/praktikum/chianti/oktober/bin/";

mkdir("xmgrace");
my $cw_file;
foreach $cw_file (@ARGV){
	system($pfad."mAAna_tropy.pl -dat=xmgrace -maxgap=7 -smooth=7 $cw_file > out.file");
	system($pfad."mAAna_translate.pl $cw_file out.file > out2.file");
	
	open(FI,"< out2.file") or die "error by opening input file";
	my $zeile;	
	my @line;
	my %hash = ();
	foreach $zeile (<FI>){
		if(!($zeile =~ /^\#.*/)){
			@line = split(/ /,$zeile);
			$hash{ $line[0] } = '';		
		}
	}
	while ( my ($key, $value) = each(%hash) ) {
		system("cat out2.file | grep $key | awk '{if (\$2 \% 1); else print \$2 \" \" \$3}' > $key.grace");
system("xmgrace $key.grace -hardcopy -printfile xmgrace/$cw_file.$key.ps");
	}
	
#	system("rm out*");
}
close(FI);
	
