programa ke lee palabras reservadas de pascal

bueno a ki les dejo el codigo de un programa que lee palabras reservadas de pascal y devuelve el numero de veces que se repite una palabra reservada de un archivo, se aceptan sugerencias para ir mejorando este programa.......

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

enum PALid{
P_AND,
P_NINGUNO,
P_BEGIN,
P_END,
P_ARRAY,
P_MOD,
P_INTERFACE,
P_PROGRAM,
P_LABEL,
P_VAR,
P_OBJECT,
P_PACKED,
P_RECORD,
P_REPEAT,
P_SELF,
P_THEN,
P_TO,
P_TYPE,
P_IF,
P_ELSE,
P_STRING,
};
static struct
{
char *codigo;
enum PALid id;
}
lista_dpalabras[]=
{
{"Else", P_ELSE},
{"If", P_IF},
{"And", P_AND},
{"Object", P_OBJECT},
{"Packed", P_PACKED},
{"Record", P_RECORD},
{"Repeat", P_REPEAT},
{"Self", P_SELF},
{"String", P_STRING},
{"Then", P_THEN},
{"To", P_TO},
{"Type", P_TYPE},
{"Begin", P_BEGIN},
{"End", P_END},
{"Array", P_ARRAY},
{"Mod", P_MOD},
{"Interface", P_INTERFACE},
{"Program", P_PROGRAM},
{"Label", P_LABEL},
{"Var", P_VAR},
{NULL, P_NINGUNO}
};

char texto[128];
int itexto=0, c;
char nomArchi[13];

int cif=-1, cels=0, cvar=-1,cty=0,cto=0,cthe=0,cstri=0,celf=0,crep=0;
int crek=0, cpro=0,cpak=0,cob=0,cmod=0,clab=0,cfas=0,cen=0;
int carr=0, cand=0, cb=0;

int main(){
clrscr();
int i;
char etiqueta[100];
FILE *archivo;
enum PALid codigo;

clrscr();
   printf("\nIntroduce nombre del archivo: ");
   cin.getline(nomArchi,13);

archivo=fopen(nomArchi, "r"); /* Abre el archivo para lectura */
if (archivo == NULL)
{
   printf("El archivo no existe...\n");
   exit(0);
}
else {
   do
   {
     c=fscanf(archivo,"%s",etiqueta);
     if(c!=EOF){
     codigo=P_NINGUNO;
      for(i=0; lista_dpalabras.codigo!=NULL; i++)
      {
        if(stricmp(etiqueta,lista_dpalabras.codigo)==0)
        {
         codigo=lista_dpalabras.id;
         break;
        }
      }
      switch (codigo)
      {
        case P_NINGUNO:
        break;
        case P_BEGIN:
        cb++;
        break;
        case P_END:
        cen++;
        break;
        case P_ARRAY:
        carr++;
        break;
        case P_MOD:
        cmod++;
        break;
        case P_INTERFACE:
        cfas++;
        break;
        case P_PROGRAM:
        cpro++;
        break;
        case P_LABEL:
        clab++;
        break;
        case P_VAR:
        cvar++;
        break;
        case P_AND:
        cand++;
        break;
        case P_IF:
        cif++;
        break;
        case P_OBJECT:
        cob++;
        break;
        case P_PACKED:
        cpak++;
        break;
        case P_ELSE:
        cels++;
        break;
        case P_RECORD:
        crek++;
        break;
        case P_REPEAT:
        crep++;
        break;
        case P_SELF:
        celf++;
        break;
        case P_STRING:
        cstri++;
        break;
        case P_THEN:
        cthe++;
        break;
        case P_TO:
        cto++;
        break;
        case P_TYPE:
        cty++;
        break;
      }
   }
   } while(c!=EOF);
}
printf("\n And %d",cand);
printf("\n Array %d",carr);
printf("\n Begin %d",cb);
printf("\n End %d",cen);
printf("\n Interfce %d",cfas);
printf("\n Label %d",clab);
printf("\n Mod %d",cmod);
printf("\n If %d",cif);
printf("\n Object %d",cob);
printf("\n Else %d",cels);
printf("\n Packet %d",cpak);
printf("\n Program %d",cpro);
printf("\n Record %d",crek);
printf("\n Repeat %d",crep);
printf("\n Self %d",celf);
printf("\n String %d",cstri);
printf("\n Then %d",cthe);
printf("\n To %d",cto);
printf("\n Type %d",cty);
printf("\n Var %d",cvar);

fclose(archivo);
getch();
return 0;
}

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Agosto 21, 2008, 08:02:07 Boton Buscar