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

#define elementi 12
#define livello	3

int leggiFile(int);
void contaSequenze(int);
int checkSeq(int, int *);
void scriviFiles(int);

short int *valori,sequenze[1728][livello],markov[1728][elementi];
int	numSeq = 0;

void main()
{
	int level,modulo=elementi;
	int n = leggiFile(modulo);
	if(n == -1)
	{
		printf("Errore!");
		exit(0);
	}
	printf("%d elementi letti\n",n);
	level = livello;  //per ora
//	scanf("%d",&livello);
	int colonne = modulo;
	contaSequenze(n);  
	scriviFiles(n);
}


int leggiFile(int modulo)
{
	FILE *fp;
	fp = fopen("ana.txt","rb");
	if(fp!=NULL)
	{
		fseek(fp,0,SEEK_END);//leggiamo prima la dimensione del file
		long dim = ftell(fp);
		fseek(fp,0,SEEK_SET);
		valori = (short int *)calloc(dim,2);//allochiamo memoria sulla base delle dimensioni lette
		int i = 0,app;
		while(!feof(fp))//facciamo il ciclo mentre è falso che sia arrivato alla fine del file
		{
			fscanf(fp,"%u",&app);
			valori[i++] = app % modulo;//dentro valori di i++ mette il valore letto da input con modulo
			printf("%u,",valori[i-1]);//devo stare 1 in meno dopo aver fatto prima l'incremento
		}
		fclose(fp);
		return(i); //ritorna la dimensione del buffer valori
	}
	else return(-1);
}

//*********************************************+
// scorro il buffer 'valori' per caricare le sequenze nel buffer 'sequenze'

void contaSequenze (int n)

	{
		int i,j,indice;
		for (i=0; i<n-livello; i++) //scorre l'indice del buffer dei valori di uno
									//per il totale dei valori - livello 
		{
			if (!checkSeq(i, &indice))//se la funzione ha trovato non dobbiamo inserire niente
			{
				for(j=0;j<livello;j++)//legge un numero di valori corrispondente al numero livello
									  //sottosequenze di livello
				{
					sequenze[numSeq][j] = valori[i+j];//assegnazione, scrivo nel buffer sequenze
				}
				markov[numSeq][valori[i+livello]] = 1;
				numSeq++;
			}
			else 
			{
				printf("indice=%d\n",indice);
				markov[indice][valori[i+livello]]++;//incrementiamo le occorrenze
			}
		}
	}


int checkSeq (int startPoint, int *indice)

{
	int i, j, flag=0;
		for (i=0; i<numSeq; i++)
		{
			for (j=0; j<livello; j++)
			{
				if (sequenze[i][j] != valori[startPoint + j]) break;//se ne trova uno diverso esce
			}
			if (j==livello)
			{
				flag=1;
				*indice = i;
				break;
			}
			else flag=0;
		}
		return flag;
}

void scriviFiles(int n)
{
	int i, j;
	FILE *fp;
	fp = fopen("seq.hdr","wb");
	if(fp!=NULL)
	{
		fprintf (fp, "%d %d %d", numSeq,elementi, livello);

		for (i=0; i<numSeq; i++)
		{
			for (j=0; j<livello; j++)
			{
				fprintf (fp, " %d", sequenze[i][j]);
			}
		}
	}
	fclose (fp);

	fp = fopen("mark.txt","wb");
	if(fp!=NULL)
	{
		for (i=0; i<numSeq; i++)
		{
			for (j=0; j<elementi; j++)
			{
				fprintf (fp, "%d ", markov[i][j]);
			}
		}
	}
	fclose (fp);

}