#!/usr/bin/perl -s

###############################################
# Categories conversion program :
# converts dicostd into dicojys (data multiplicative coding)
###############################################

print STDERR ("INFO : Start default categories conversion\n");

open(SOURCE,"$ARGV[0]") || die("Cannot open $ARGV[0]\n");
open(CONVERT,"$ARGV[1]") || die ("Cannot open $ARGV[1]\n");
open(CIBLE,">$ARGV[2]") || die("Cannot open $ARGV[2]\n");
open(ERROR,">>error.txt") || die("Cannot open error.txt\n");


# Initialisation du fichier d'erreur
# Fin d'initialisation du fichier d'erreur

#chargement dans une table des cat�ories et de leurs correspondances
%tags;
while (<CONVERT>) {
	@donneestags = split(/;/);
	$tags{$donneestags[0]} = $donneestags[1];
}

#fin du chargement des categories et de leurs correspondances

$motstraites = 0;
$motsnontraites = 0;

while (<SOURCE>) {
	chomp();
	@donnees = split(/\t/);
	$type = $donnees[0];
	$info = $donnees[1];
	
# Codage des categories

	#Fin du codage des cat�ories

	if ($tags{$info} ne "") {
		print CIBLE ("$type\t$tags{$info}\n");
	}
	else {
		print STDERR ("in file $ARGV[0] : Invalid properties $info\n");
		print ERROR ("in file $ARGV[0] : Invalid properties $info\n");
	}
}
