#include <string.h>
#include <stdio.h>
#include <conio.h>
#include <iostream.h>
void error(char );
class lectura_de_datos
{
public:
char *linea;
int linea_n;
lectura_de_datos *sig;
void muestra (void); // muestra los datos almacenados
void lee_archivo (char *); // lee el archivo *.kar
void inserta_nodo (char *); // inserta nodo a la lista
void busca_nodo (char *); // busca un nodo de la lista
};
class programa
{
public:
char *comando; // comando a ejecutar
programa *sig; // a que nodo apunta
programa *hacia; // hacia donde va
programa *de; // de donde viene
void muestra(void); // muestra los datos almacenados
void inserta(programa *); // inserta nodo al arbol
programa busca(char *); // busca comando en lista principal
void crea_programa(void); // genera el arbol con los comandos
char *lee_parte_2(char *); // lee nombre de funcion de un string
programa *lee_funcion(void); // forma rama de instrucciones de NUEVA_INSTRUCCION
};
lectura_de_datos *dato_inicial; // apuntador al primer nodo
programa *start; // apuntador a la raiz del programa
char s[80],fnombre[80];
FILE *fp;
FILE *fout;
void lectura_de_datos::lee_archivo(char *fnombre) // fnombre = nombre del ARCHIVO.
{
char ch, car[1], linea[80];
lectura_de_datos info;
int contador = 1;
if ((fp = fopen(fnombre,"rt")) == NULL)
{ printf("No se puede abrir el archivo"); return; }
gotoxy(5,24); printf("Cargando el archivo %s\n",fnombre);
ch = fgetc(fp);
while (ch != EOF)
{
linea[0] = '\0';
while (ch == ' ' || ch == '\t' ) // quita espacios iniciales
ch = fgetc(fp);
while (ch != '\n')
{
car[0] = ch; car[1] = '\0';
strcat(linea, car);
ch = fgetc(fp);
}
if (strlen(linea) > 0)
{
info.inserta_nodo (linea);
contador++;
}
ch = fgetc(fp);
}
}
void lectura_de_datos::inserta_nodo (char linea[80])
{
lectura_de_datos info, *act = NULL, *ant = NULL, *nodo_nuevo = NULL;
int contador = 1;
if (!(nodo_nuevo = new lectura_de_datos))
{ error('m'); return; };
if (!dato_inicial) // es la primera linea
{
nodo_nuevo->linea = strdup(linea);
nodo_nuevo->linea_n = contador;
nodo_nuevo->sig = NULL;
dato_inicial = nodo_nuevo;
}
else // ya existe por lo menos una linea
{
act = dato_inicial;
while (act) // colocarse al final de la lista
{ ant = act; act = act->sig; contador++; }
nodo_nuevo->linea = strdup(linea);
nodo_nuevo->linea_n = contador;
nodo_nuevo->sig = NULL;
ant->sig = nodo_nuevo;
}
}
void error(char letrero)
{
gotoxy(40,18);
switch (letrero)
{
case 'm':
cout << "No hay memoria suficiente..";
break;
default:
cout << "error desconocido";
}
}
void programa::crea_programa(void)
{
lectura_de_datos *d_act = NULL, *d_ant = NULL;
programa prog, *pri_rama = NULL, *p_ant = NULL, *p_nuevo, *raiz_rama;
if (!(p_nuevo = new programa)) // reserva memoria
{ error('m'); return; };
start = p_nuevo; // inicio de arbol
// <====================>
// <=========== LECTURA DEL AMBIENTE =================>
// <====================>
raiz_rama = p_nuevo;
d_act = dato_inicial;
while (strncmp(d_act->linea, "INICIO_DE_AMBIENTE", 18) != 0 ) // busca INICIO_DE_AMBIENTE
d_act = d_act->sig;
p_nuevo->comando = strdup(d_act->linea);
p_nuevo->sig = NULL;
p_nuevo->hacia = NULL;
p_nuevo->de = NULL;
d_act = d_act->sig;
while (strncmp(d_act->linea, "FIN_DE_AMBIENTE", 15) !=0 )
{
if (!(p_nuevo = new programa)) // reserva memoria
{ error('m'); return; };
p_nuevo->comando = strdup(d_act->linea);
p_nuevo->sig = NULL;
p_nuevo->hacia = NULL;
p_nuevo->de = NULL;
if (!pri_rama) pri_rama = p_nuevo;
else
p_ant->sig = p_nuevo;
p_ant = p_nuevo;
d_act = d_act->sig;
}
raiz_rama->hacia = pri_rama; // enlaza con la primera rama
// <====================>
// <=========== LECTURA DE EJECUCION =================>
// <====================>
d_act = d_act->sig;
dato_inicial = d_act; // desecha el AMBIENTE
if (!(p_nuevo = new programa)) // reserva memoria
{ error('m'); return; };
while (strncmp(d_act->linea, "INICIO_DE_EJECUCION",19) !=0 )
{ d_ant = d_act; d_act = d_act->sig; }
p_nuevo->comando = strdup(d_act->linea);
p_nuevo->sig = NULL;
p_nuevo->hacia = NULL;
p_nuevo->de = NULL;
raiz_rama->sig = p_nuevo;
raiz_rama = p_nuevo;
d_ant->sig = d_act->sig; // elimina nodo
d_act = d_act->sig;
p_ant = NULL;
pri_rama = NULL;
while (strncmp(d_act->linea, "FIN_DE_EJECUCION",16) !=0 )
{
if (!(p_nuevo = new programa)) // reserva memoria
{ error('m'); return; };
p_nuevo->comando = strdup(d_act->linea);
p_nuevo->sig = NULL;
p_nuevo->hacia = NULL;
p_nuevo->de = NULL;
if (!pri_rama) pri_rama = p_nuevo;
else
p_ant->sig = p_nuevo;
p_ant = p_nuevo;
d_ant->sig = d_act->sig; // elimina nodo
d_act = d_act->sig;
}
raiz_rama->hacia = pri_rama; // enlaza con la segunda rama
d_ant->sig = d_act->sig; // elimina nodo
// <===============================>
// <=========== LECTURA DE NUEVAS INSTRUCCIONES =================>
// <===============================>
// CREO QUE NO ES NECESARIA LA VARIABLE D_ACT
// d_act = dato_inicial; // mover puntero al principio
pri_rama = NULL;
dato_inicial = dato_inicial->sig; // quita INICIO_DE_PROGRAMA
while (strncmp(dato_inicial->linea, "FIN_DE_PROGRAMA", 15) != 0 )
{
if (strncmp(dato_inicial->linea, "DEFINE_NUEVA_INSTRUCCION", 24) == 0 )
{
if (!(p_nuevo = new programa))
{ error('m'); return; };
p_nuevo->comando = strdup(lee_parte_2(dato_inicial->linea)); // nombre de instruccion
p_nuevo->sig = NULL;
p_nuevo->hacia = NULL;
p_nuevo->de = NULL;
raiz_rama->sig = p_nuevo; // enlaza con el nuevo nodo
raiz_rama = p_nuevo; // crea nuevo nodo
pri_rama = prog.lee_funcion();
raiz_rama->hacia = pri_rama; // enlaza con la rama n
//d_ant->sig = d_act->sig; // elimina nodo
}
// ES NECESARIA ? d_act = dato_inicial;
}
}
programa *programa::lee_funcion(void)
{
programa *de=NULL, *hacia=NULL, *p_act = NULL, *pri_rama = NULL;
lectura_de_datos *d_act = NULL;
int contador_mientras = 0;
while (1)
{
if (strncmp(dato_inicial->linea, "INICIO",6) !=0 )
}
return pri_rama;
}
char *programa::lee_parte_2(char *cadena)
{
char ch = cadena[0], car[1], ret[80];
while (ch != ' ')
{ cadena++; ch = cadena[0]; } // busca espacio
cadena = cadena++; // quita espacio
ch = cadena[0];
ret[0] = '\0';
while (ch != ' ') // busca espacio
{
car[0] = ch; car[1] = '\0';
strcat(ret, car);
cadena++;
ch = cadena[0];
}
return ret;
}
void main(void)
{
char *archivo;
lectura_de_datos info;
programa prog;
dato_inicial = NULL;
clrscr();
printf("Nombre de archivo: "); gets(archivo);
info.lee_archivo (archivo); // <======= ok
prog.crea_programa();
info.muestra(); // <======= ok
prog.muestra();
getch();
clrscr();
}
void programa::muestra (void)
{
programa *raiz = start, *act = NULL;
while (raiz)
{
act = raiz->hacia;
cout << raiz->comando << "\n";
while (act)
{
cout << act->comando << "\n";
getch();
act = act->sig;
}
raiz = raiz->sig;
}
}
void lectura_de_datos::muestra (void)
{
lectura_de_datos *act = dato_inicial;
while (act)
{
cout << act->linea << "<==>(" << act->linea_n << ")\n";
getch();
act = act->sig;
}
}