# 31 Août 2010
# script qui permet de produire le fichier arff à partir du fichier de la base binaire (avec vms ou non) j'utilise le fichier domaine de valeurs pour incrmenter la lecture des items en cas de vm  exemple (-1 -2 3) -1 -2 je passe à 3 
# commande awk -f produire_fichier_arff_V2.awk Base1.txt domaine_val.txt 

#Base1.txt:
#1 3 5 8
#2 3 5 9
#2 -3 -4 7 9
#2 3 6 9
#-1 -2 3 6 8
#1 4 7 9
#1 3 -5 -6 -7 8
#1 4 6 -8 -9

#domaine_val.txt (seulement les domaines de valeurs de tous les attributs)
#1 2
#3 4
#5 6 7
#8 9
#sortie
#@RELATION base

#@ATTRIBUTE X1 {1,2}
#@ATTRIBUTE X2 {3,4}
#@ATTRIBUTE X3 {5,6,7}
#@ATTRIBUTE X4 {8,9}

#@DATA
#1,3,5,8
#2,3,5,9
#2,?,7,9
#2,3,6,9
#?,3,6,8
#1,4,7,9
#1,3,?,8
#1,4,6,?

BEGIN{cpt=0;cpt2=0;}
{
#ARGIND est l'identifiant du fichier qu'on est en train de lire


if(ARGIND==1)
{

data[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]
printf "}\n"
}
else
{

printf dom_val[l] ","
}


}

}



print "\n@DATA"

for(i=0;i<cpt;i++)
{

max=split(data[i],items);
l=1

while(l<=max)
{

s=index(items[l],"-")



#printf "s== " s
if (s==1)
{

#printf "vm "
vm=substr(items[l],2)

#printf "ici "items[l-1] "vm" vm "cpt2 " cpt2
nb=retourner_nb_valeur(tab2,vm,cpt2)

#printf "nb " nb
#printf "l+max3 " l+max3 " max " max
if(l+nb<=max)
{#printf "fin"
printf "?," 
#"l= " l "et l+max3= " l+max3 "et max3= " max3 "tab2[l-1]= "tab2[l-1]
}
else
{printf "?"}
l=l+nb

}
else
{
#printf "non vm"
if(l==max)
{#printf "fin"
printf items[l]
}
else
{printf items[l] ","
}
l++

}






}
printf "\n"
}



}




function retourner_nb_valeur(tab,n,taille_tab)
{

trouve=0
g=0
while(trouve==0 && g<taille_tab)
{
nb_valeur=split(tab[g],dom_val)
h=1
while(trouve==0 && h<=nb_valeur)
{

if (dom_val[h]==n)
{
nb=nb_valeur
trouve=1
}
h++
}
g++

}
#printf "\n nb= " nb " "
return nb

}