/*
   Name: scanner.c
   Author: Sardelli Giovanni Francesco
   Matricola:439990
   Date: 12/01/04 18.21
   Description: analizzatore lessicale di un frammento di assembler
*/

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

# define MAXSIZE 31       /*lunghezza massima identificatore*/
# define MAXSIZEFILE 12

/*******************************************************************************
*********************Dichiarazione dei prototipi di funzione********************
*******************************************************************************/
void openFile(FILE *, char [MAXSIZEFILE]);
void presentazione(void);
void fine (void);


/**************Dichiarazione dei tipi di dato definiti dall'utente*************/
typedef union{
   char stringa[80]; 
   int intValue; 
   char name[MAXSIZE+1];
}tokenType; 
                   
typedef struct{
   int col;
   int riga;
   int cat;
   tokenType tipo;
} miotoken;      

enum states{
   ASSIOMA_S,
   NUM_S,
   ID_S,
   STR_S,
   STR_END_S,
   COMM_S,
   COMM_END_S,
   FINE_S,
   PT_INTERR_S,
   AT_S,
   UNDERLINE_S,
   TONDA1_S,
   TONDA2_S,
   QUADRA1_S,
   QUADRA2_S,
   ANG1_1,
   ANG2_S,
   PT_VIRG_S,
   VIRG_S,
   PT_S,
   APICE_S,
   DP_APICE_S,
   E_CMR_S,
   DOLLARO_S,
   PIU_S,
   MENO_S,
   PER_S,
   DIVISO_S,
   ADC,
   ADD,
   AND,
   ASSUME,
   CALL,
   CMP,
   DATE,
   DB,
   DUP,
   DW,
   DEC,
   DIV,
   END,
   ENDM,
   ENDP,
   ENDS,
   FAR,
   IDIV,
   IMUL,
   INC,
   INT,
   JMP,
   LABEL,
   LEA,
   LOOP,
   MACRO,
   MOV,
   MUL,
   NOT,
   OR,
   PARA,
   POP,
   PROC,
   PUSH,
   REP,
   RET,
   SEGMENT,
   STACK,
   SUB,
   XCHG,
   XOR,
};

char *categoria[]={"ASSIOMA_S", " NUM_S", "ID_S", "STR_S", "STR_END_S", 
						 "COMM_S", "COMM_END_S", "FINE_S", "PT_INTERR_S", "AT_S", 
						 "UNDERLINE_S", "TONDA1_S", "TONDA2_S", "QUADRA1_S", 
						 "QUADRA2_S", "ANG1_1", "ANG2_S", "PT_VIRG_S", "VIRG_S", 
						 "PT_S", "APICE_S", "DP_APICE_S", "E_CMR_S", "DOLLARO_S", 
						 "PIU_S", "MENO_S", "PER_S", "DIVISO_S", "ADC", "ADD", "AND", 
						 "ASSUME", "CALL", "CMP", "DATE", "DB", "DUP", "DW", 
						 "DEC", "DIV", "END", "ENDM", "ENDP", "ENDS", "FAR", "IDIV", 
						 "IMUL", "INC", "INT", "JMP", "LABEL", "LEA", "LOOP", "MACRO", 
						 "MOV", "MUL", "NOT", "OR", "PARA", "POP", "PROC", 
				         "PUSH", " REP", "RET", "SEGMENT", "STACK", "SUB", "XCHG", 
						 "XOR"};
																					
char *key[]={"ADC", "ADD", "AND", "ASSUME", "CALL", "CMP", "DATE", "DB", "DUP", 
				 "DW", "DEC", "DIV", "END", "ENDM", "ENDP", "ENDS", "FAR", "IDIV", 
				 "IMUL", "INC", "INT", "JMP", "LABEL", "LEA", "LOOP", "MACRO", 
				 "MOV", "MUL", "NOT", "OR", "PARA", "POP", "PROC", "PUSH", "REP", 
				 "RET", "SEGMENT", "STACK", "SUB", "XCHG", "XOR" };


/*******************************************************************************
**********************************MAIN PROGRAM**********************************
*******************************************************************************/
int main(int argc, char *argv[]){

/***********************Dichiarazioni variabili del main***********************/
FILE *src;
char sorgente[MAXSIZEFILE];
char car;
enum states state;
miotoken token;

   presentazione();

/*******************************************************************************
Controlla che il file da analizzare esista e lo apre in lettura.
Restituisce un messaggio di errore in caso contrario. 
*******************************************************************************/
 
   if (argc > 1) {
      if ((src = fopen(argv[1], "r+")) == NULL){
         printf("\n\nFile non trovato...!:)\n");
         openFile(src,sorgente); 
      }     
   }  
   else
      openFile(src,sorgente);
   
/******************Inizio scansione del file da analizzare...******************/
   printf("\n\nInizio analisi del file sorgente in corso...\n\n");  
   
   state = ASSIOMA_S; 
   token.col = 0;
   printf("%d", state);
   car = fgetc(src);
   token.col++;
   
   while (car!=EOF){
   	  while (isspace(car)){
         car = fgetc(src);
		 token.col++;	
	  }
      switch (state){
   	     case ASSIOMA_S :{
            switch (car){
			   case ';': {
			      printf("\nInizio commento\n");
                  state = COMM_S;
			      printf("%c", car);
			      car = fgetc(src);
			      while((car!=EOF)&&(car!='\n')){
			         printf("%c", car); 
			         car = fgetc(src);
			      }
			      state = COMM_END_S;
			      car = fgetc(src);
				  printf("\nFine commento\n");
			      break;
				}

				case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': 
                case 'g': case 'h': case 'i': case 'j': case 'k': case 'l': 
                case 'm': case 'n': case 'o': case 'p': case 'q': case 'r': 
                case 's': case 't': case 'u': case 'v': case 'w': case 'x': 
                case 'y': case 'z':
                case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': 
                case 'G': case 'H': case 'I': case 'J': case 'K': case 'L': 
                case 'M': case 'N': case 'O': case 'P': case 'Q': case 'R': 
                case 'S': case 'T': case 'U': case 'V': case 'W': case 'X': 
                case 'Y': case 'Z':
				case '?': case '@': case '_': {
				   int j;
                   state = ID_S; 
				   for (j=0; j<MAXSIZEFILE; j++)
				      while (!isspace(car)){
					     token.tipo.name[j] = car;
					     car = fgetc(src);
			          }
				   printf("\n%s", token.tipo.name);
				   printf("\n\nsuca\n");
				   car = fgetc(src);
				   break;
				}
					
				case '0': case '1': case '2': case '3': case '4': case '5':
				case '6': case '7': case '8': case '9':{
				   int j = 0;  
				   state = NUM_S; 
				   printf("\nnumero\n");
				   while ((isdigit(car))&&(j<MAXSIZE)){
						token.tipo.stringa[j] = car;
						car = fgetc(src); j++;
				   } 
				   printf("%d",atoi(token.tipo.stringa));
				   break;
				}

					break;
            }/*switch carattere*/
         }/*end case assiome*/
		 case NUM_S :{
		 	break;
         }
         case ID_S :{
		   break;
		 }
		 case STR_S :{
		    break;
		 }	
	     case STR_END_S :{
		    break;
		 }	
		 case COMM_S :{
		    break;
		 }
		 case COMM_END_S :{
		    break;
         }
		 case FINE_S :{
		    break;
         }
		 case PT_INTERR_S :{
		 	break;
         }
		 case  AT_S :{
		    break;
		 }
		 case UNDERLINE_S :{
				break;
		 }
		 case TONDA1_S :{
				break;
		 } 
		 case TONDA2_S :{
				break;
		 }
		 case QUADRA1_S :{
				break;
		 }
		 case QUADRA2_S :{
				break;
		 }
		 case ANG1_1 :{
				break;
		 }
		 case ANG2_S :{
			break;
		 }
		 case PT_VIRG_S :{
				break;
		 }
		 case VIRG_S :{
				break;
		 }
		 case PT_S :{
				break;
		 }
		 case APICE_S :{
				break;
		 }
		 case DP_APICE_S :{
				break;
		 }
		 case E_CMR_S :{
			break;
		 }
		 case DOLLARO_S :{
				break;
		 }
		 case PIU_S :{
				break;
		 }
		 case MENO_S :{
		    break;
		 }
		 case PER_S :{
		    break;
		 }
         case DIVISO_S :{
            break;
         }
      }/*end switch*/  
   }
   
     
   system("pause");
   fine();
   
   fclose(src);   
   return 0;
}


/******************************************************************************
Funzione che riceve in input dall'utente il nome del file da analizzare
e lo apre in lettura.
*******************************************************************************/
void openFile(FILE *src, char sorgente[MAXSIZEFILE]){

   printf("\nDigita il nome del file da analizzare: ");
   scanf("%s", sorgente);
   while ((src=fopen(sorgente, "r+")) == NULL){                     
      printf("\n\nFile non trovato...!\n\n");
      printf("\nDigita il nome del file da analizzare: ");
      scanf("%s", sorgente);
      printf("\n");
   }
}


/*******************************************************************************
*********************Funzione introduttiva di presentazione*********************
*******************************************************************************/
void presentazione(){
int i;

   printf("\n");
   for (i=0; i < 79; i++)
      printf("*");
   printf("\n*");
   for (i=0; i < 79-2; i++)
      printf(" ");
   printf("*");
   printf("\n*");
   for (i=0; i <= 24; i++)
      printf(" ");
   printf("SARDELLI GIOVANNI FRANCESCO");
   for (i=0; i <= 24; i++)
      printf(" ");
   printf("*\n");
   printf("*");
   for (i=0; i < 79-2; i++)
      printf(" ");
   printf("*\n");
   for (i=0; i < 79; i++)
      printf("*");
      printf("\n\n");
}   /*end presentazione grafica*/


/*******************************************************************************
****************************Funzione di chiusura********************************
*******************************************************************************/
void fine(void){
int i;
    
   printf("\n");
   for (i=0; i < 79; i++)
      printf("*");
   printf("\n*");
   for (i=0; i<(80/2)-4; i++)
      printf(" ");
   printf("FINE");
   for (i=0; i<(80/2)-3; i++)
      printf(" ");
   printf("*\n");
   for (i=0; i < 79; i++)
      printf("*");
   printf("\n");
}