#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "arbid.h"
#include "entropia.h"
#include "lineaCar.h"
#include "opcns.h"
#include "sal1id3pr.h"

extern int optind;

void recuento (int f, int * c0, int * c1, int nar, int * res)
{
  int i, sr;
  sr = 0;
  for (i=0; i<nar; i++)
    sr += res[i];
  /*   c1[0]: SI es la letra y el abol indica NO */
  if (f) 
    c1 [sr] ++ ;
  else
    c0 [sr] ++ ;
}

int main (int argc, char ** argv)
{
int nar;
int f;
int res[200];
int c0[100], c1[100];
char nom[50];
int lv[2000];
  int ia;
  char nf[128];
  tpnodo arb[200];
  int nl, nc;
  int l;
  int ncleidos;
  misopc (argc, argv);
  if (! a_opcion)
      a_valor  =  (char *)strdup ("/usr/local/share/ocre/decsWood");
  if (argc != (optind +2)) {
    printf ("%s: error, argc != 3\n", argv[0]);
    exit (1);
    }
  sscanf (argv[optind], "%d", &nar);
  for (ia=0; ia <= nar; ia++) {
    c0 [ia] = 0;
    c1 [ia] = 0;
    }
  for (ia=0; ia<nar; ia++){
    sprintf(nf, "%s/arbol_%s=%02d.id3", a_valor, argv[optind+1], ia);
/*
    sprintf(nf, "ddcw/arbol_%s=%02d.id3", argv[2], ia);
*/
    arb[ia] = leeArbol (nf);
    }
  ncleidos = scanf ("%d %d", &nc, &nl);
  if (ncleidos == 0)  {
    printf ("id3pr3: error leyendo el tamaņo\n");
    exit (1);
    }
  inicNlogn (nl);
  for (l=0; l<nl; l++) {
    leeLinea (l, nc, nom, lv, argv[0]);
    f = ( strcmp(nom, argv[optind+1])==0 );
    /* res, valor indicado por el arbol */
    for (ia=0; ia<nar; ia++){
      res[ia] = evalArbolVector (arb[ia], lv) ;
      if (res[ia]==2) res[ia] = 0;
      }
    recuento (f, c0, c1, nar, res);
    }
  calculosYsalida (nar, c0, c1);
  return (0);
}