#Objectif => rendre la sortie en CoNLL d'udpipe en xml
#à resembler exactement à ceci:
#première ligne : <corpus2022>
# <item><titre>
#----éléments----
#</titre><description>
#----élément-----
#</description></item>
#la sortie udpipe numérote toutes les lignes, donc les titres sont en ligne id num impair
#et les descriptions sont en ligne id num pair 
# pour que les balises des débuts et fins des titres et des descriptions soitent cohérent
# nous allons les traiter séparément:
open(INPUT,"<:encoding(utf-8)",$ARGV[0]);
open(OUTPUT,">:encoding(utf-8)",$ARGV[1]);
#écriture du fichier :::::::
print OUTPUT "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";
print OUTPUT "<corpus2022>\n";
while (my $ligne=<INPUT>) {
	next if ($ligne=~/^$/);
	$ligne=~s/\r//g;#on suprime les \r	
	if ($ligne=~/^# sent_id = ([0-9]*[13579])$/){#1e ligne <item><titre>----- 
		my $prem = $1;
		if($prem=~/^1$/){
			print OUTPUT "<item>\n<phrase>\n";
		}
		else{
			   print OUTPUT "<\/phrase>\n<\/item>\n<item>\n<phrase>\n";#\/ pour échapper 
		}
	}

	if ($ligne=~/^#\ssent_id\s=\s[0-9]*[02468]$/){
		
		  print OUTPUT "<\/phrase>\n<phrase>\n";
	}
	if ($ligne=~/^([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)	([^\t]*)$/) {
		#on commence à écrire les colonnes en linéaire:
		# en observant les résultats du fichier CoNLL, souvent les deux dernières et deux au mileu sont vides ( il y a 10 collones en tous, soit la 9e et 10e; la 5e et le 6e)
		#Ces information vides, je n'ai pas besoin de les écrire dans notre fichier de sortie. 
		#aussi attentions, nous traitons les pattrons et la relation dans l'étape suivante,faut garger les relations + id_gouverneur
		print OUTPUT "<element>";
		#question: est-ce que je garde les id des phrases? 
		#car dans la sortie de treettager il n'y en as pas. enplus ça peut causer des confusions avec id gouv
		#######FAUX, IL FAUT GARDER CECI##############
		#il se sert pour BAO3 , LES RELATIONS
		print OUTPUT "<data type=\"id\">$1<\/data>";
		#je réarrange ensuire l'ordre des collones comme ttager:
		print OUTPUT "<data type=\"type\">$4<\/data>";
		print OUTPUT "<data type=\"lemma\">$3<\/data>";
		print OUTPUT "<data type=\"string\">$2<\/data>";
		print OUTPUT "<data type=\"ID_GOV\">$7<\/data>";
		print OUTPUT "<data type=\"relation\">$8<\/data>";
		print OUTPUT "<\/element>\n";
	}
}
close(INPUT);
print OUTPUT "</phrase>\n</item>\n</corpus2022>\n";
close(OUTPUT);
#pk changer les balises des titres et des transcription en </phrase>
