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

char arreglo[77];
int pos;

struct ingreso
	{
   clrscr ();
   char codigo[5];
   char descripcion [25];
   char precio [20];
   char peso [10];
   char ciudad [10];
   };
struct ingreso reg;

FILE * entrada;
FILE * salida;
FILE * proceso;//aqui se guarda los procesos insertar, buscar, eliminar
char c[1];
char a[20];
char linea[100];
char linea2[30];
char linea3[10];

void lectura ()
{
do
	{

	//cout<<"Nombre del archivo\n";  //auno no funciona
	//gets(a);
	entrada = fopen ("tronitos.txt", "rt+");
		if (entrada== NULL)
   		{
         clrscr ();
      	cout<<"el archivo no existe\n";
         getch ();
      	}
   }while (entrada==NULL);

   proceso = fopen ("procesos.dat", "wb+");
   salida = fopen ("maestro.txt", "w+");
   clrscr ();
	;
}


void cortar ()
{

strcpy (reg.codigo, "");
strcpy (reg.descripcion, "");
strcpy (reg.precio,"");
strcpy (reg.peso, "");
strcpy (reg.ciudad, "");
strcpy (linea3, "");
strcpy (linea2, "");
strcpy (linea, "");

int i=0, j=1, k=0;

fgets(linea,100,entrada);

while (i < strlen (linea))
	{
   if (linea[i]!='(')
   	{
      c[0]=linea[i];
       strcat (linea3, c);
       i++;
         j++;
      }
   	else
   		{
          i=strlen (linea);
      	}
    }
while (j < strlen (linea))
	{
   if(linea[j]!=')')
   	{
      if (linea[j]!=',')
      	{
         c[0]=linea[j];
         strcat (linea2,c);

         }//termina el segundo if que busca las comas ","

      else
      	{
         k++;
         switch (k)
         	{
            case 1:	strcpy (reg.codigo,linea2);
            			strcpy (linea2, "");
                     break;

            case 2:	strcpy (reg.descripcion, linea2);
            			strcpy (linea2, "");
                     break;

            case 3:	strcpy (reg.precio,linea2);
            			strcpy (linea2, "");
                     break;

            case 4: strcpy (reg.peso, linea2);
                    strcpy (linea2, "");
                    break;
            }//switch
         }//else interno que maneja switch
    	 }//termina el primer if que busca el parentesis abierto
       else
       	{
         strcpy (reg.ciudad,linea2);
         strcpy (linea2, "");

         }
       j++;
   }//fin ciclo while
}




void lugar ()
{
unsigned int x, y=0, z=0;
char * cod = reg.codigo;

for (x=0; x<strlen(cod); x++)
	{
   y=cod[x];
   z+=y;
   }//fin for

z-=9;
pos=z%77;
}//fin funcion lugar

void insertar ()
{
fseek (salida, pos*sizeof(struct ingreso), SEEK_SET);
fwrite(&reg, sizeof(reg),1,salida);



}



void menu ()
{


char palabra[40];
while (!feof(entrada))
	{
   fgets (linea,100,entrada);
   if (strcmp (linea, "\n")!=0)
   	{

      strcpy (palabra, linea3);

      if (strcmp (palabra, "insertar")==0)
      	{
         insertar ();
         }//segundo if
         else
         	{
            if (strcmp (palabra, "buscar")==0)
            	{
            //buscar();
            	}

            else
            	{
               if (strcmp (palabra, "mostrar\n")==0)
               	{
                  //mostrar ();
                  }
                  else
                  	{
                     if (strcmp (palabra, "eliminar")==0)
                     	{
                        //eliminar ();
                        }
                        else
                        	{
                           if (strcmp (palabra,"modificar")==0)
                           	{
                              //modificar ();
                              }

                           }
                     }
            	}
            }
      }//primer if

   }//while

}//fin ciclo

int main()
{
long Nregistros;

lectura ();

	cortar();
	lugar ();
	menu ();



fclose(entrada);
fclose (salida);
fclose (proceso);
getch ();
return 0;