# 25 Août 2010
# script qui permet de produire l'entete arff à partir du fichier domaine de valeurs et sortie de principal (partie commençant par @completion--directes)
#par exemple si attribut 1 completée par une nouvelle valeur 15 je l'ajoute au domaine de valeurs de l'attribut 1
# commande awk -f produire_entete_arff.awk BDA_C1.txt domaine_val.txt 
#BDA_C1.txt: sortie (base completée) de principal-
#data 
#@completion--directes
#1 3 15 
#2 1 16 
#2 4 17 
#3 3 15 
#4 4 18 
#5 1 16 
#5 4 17 
#7 4 19 
#8 4 20 
#domaine_val.txt (seulement les domaines de valeurs de tous les attributs)
#1 2
#3 4
#5 6 7
#8 9
#sortie
#1 2 16 
#3 4 
#5 6 7 15 
#8 9 17 18 19 20 
BEGIN{data1=1;cpt=0;cpt2=0;}
{
#ARGIND est l'identifiant du fichier qu'on est en train de lire


if(ARGIND==1)
{

if (data1==1)
{

if($0=="@completion--directes")
{data1=0
}

}
else
{#print $0
tab[cpt]=$0

cpt++
}


}

if(ARGIND==2)
{
tab2[cpt2]=$0
cpt2++
}





}
END{

print "@RELATION base" "\n"
for(i=0;i<cpt2;i++)
{#printf tab2[i] " "
max2=split(tab2[i],dom_val);
printf "@ATTRIBUTE " "X"i+1 " {" 
for(l=1;l<=max2;l++)
{
if(l==max2)
{printf dom_val[l]}
else
{

printf dom_val[l] ","
}


}


indice=0;
exist=0

for(j=0;j<cpt;j++)
{#print tab[j]

max=split(tab[j],chaine_tab);


if (chaine_tab[2]==i+1)
{


#print "je cherche " chaine_tab[3]
exist=existe_ds_tab(tab_valeurs_explic,chaine_tab[3],indice);



if(exist==0)
{#"print "n'existe pas"
printf "," chaine_tab[3]
tab_valeurs_explic[indice]=chaine_tab[3]
indice++
}
#else
#{print "existe"}

}

}
printf "}\n"
}

print "\n@DATA"

}


function existe_ds_tab(tab,n,taille_tab)
{
existe=0
k=0

#print "taille tab " taille_tab

#for(h=0;h<taille_tab;h++)
#{printf tab[h] " "}


while(existe==0 && k<taille_tab)
{

if(tab[k]==n)
{existe=1
}
else
{k++}
}
return existe}