#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;

     }//primer if

   }//while

}//fin ciclo