#/usr/bin/perl

$file = $ARGV[0];

open (FILEIN, "<$file");
open (FILEOUT, ">cordial-xml.xml");

#Variable permettant de regler l'ecriture du premier element
$i=0;

print FILEOUT "<?xml version=\"1.0\" encoding=\"iso-8859-1\" ?>\n<ETIQUETAGE>\n";

while ($ligne = <FILEIN>) {

	#Expression reguliere permettant de recuperer les differents elements de la sortie Cordial
	if ($ligne=~/^([0-9]*)\s([^\s]*)\s([^\s]*)\s([^\s]*)/) {

		#Si on commence une nouvelle depeche	
		if ($1 == "1") {
			if ($i != 0) {
				print FILEOUT "<\/file>\n";
			}
			print FILEOUT "<file>\n<name>?<\/name>\n";
		}
		#Ecriture des elements dans le fichier de sortie
		$i=1;
		print FILEOUT "<element><data type=\"type\">$4</data><data type=\"lemma\">$3</data><data type=\"string\">$2</data></element>\n";
	}
}

print FILEOUT "<\/file>\n<\/ETIQUETAGE>";

close FILEIN;
close FILEOUT;