#!/usr/bin/perl
<<DOC;
Format d\'entree : un texte étiqueté et lemmatisé par tree tagger
Format de Sortie : le même texte au format xml
DOC


# Usage
$ChaineUsage="Usage : tt2xml.pl <Fichier>\n";
if (@ARGV!=1) {
 die $ChaineUsage;
}

&ouvre;
&entete;
&traitement;
&fin;
&ferme;

##############################################################################################
# Récupération des arguments et ouverture des tampons
sub ouvre {
    $FichierEntree=$ARGV[0];
    open(Entree,$FichierEntree);
    $FichierSortie=$FichierEntree . ".xml";
    open(Sortie,">$FichierSortie");
}

# Entête de document XML
sub entete {
    print Sortie "<?xml version=\"1.0\" encoding=\"iso-8859-1\" standalone=\"no\"?>\n";
    print Sortie "<document>\n";
    print Sortie "<article>\n";
}

# Traitement
sub traitement {
    while ($Ligne = <Entree>) {
	if ($Ligne!~/(|||\ô\¯\:\\ô\¯\:\\)/) 
	{
	# Remplacement des guillemets par <![CDATA["]]> (évite erreur d'interprétation XML)
		$Ligne=~s/\"/<![CDATA[\"]]>/g;
		$Ligne=~s/(.*?)(\r)$/$1/g;
		#on enleve le retour a la ligne à la fin de chaque ligne.
		$Ligne=~s/\<unknown\>/unknown/g;
		#pour enlever les chevrons aux balises <unknown>. Cela permet de garder l'information sur les mots que Tree-tagger ne reconnait pas.
	    $Ligne=~s/([^\t]*)\t([^\t]*)\t(.*)$/<element>\n <data type=\"type\">$2<\/data>\n 
		        <data type=\"lemma\">$3<\/data>\n <data type=\"string\">$1<\/data>\n<\/element>/;
		#Tree-tagger renvoie sur chaque ligne la forme graphique (string), la catégorie (type) et le lemme (lemma). 
		#On sait que ces trois informations sont séparées par une tabulation. 
		#On les récupère et on les encadre des balises correspondantes.
	    
		
		print Sortie $Ligne;
	}
	
    }
}
# Fin de fichier
sub fin {
    print Sortie "</article>\n";
    print Sortie "</document>\n";
}

# Fermeture des tampons
sub ferme {
    close(Entree);
    close(Sortie);
}
