Simulación de Compilador Pascal

[el_lujo]

Saludos, señores.

quisiera orientación sobre un problema que no puedo resolver en un programa en c/c++, el cual debo simular la primera línea del compilador pascal.

Donde tengo problemas es en la supresión de los espacios en blanco a la izquierda de la cadena, ejm.  suponiendo que la primera linea es: program NombrePrograma;

Quiero suprimir cualquier espacio en blanco que tenga esta línea a la izquierda y derecha.  Adjunto lo que he logrado en conjunto con otros compañeros.

Con ayuda de la internet, agregué una función que por sí sola suprime los espacios, pero no sé por qué no me resulta igual agregandola al código.

sé que algo esta mal pero no puedo verlo.


Gracias.

Código (cpp) [Seleccionar] Expandir

/*Simulacion de Pascal

*/

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

void suprime(char cadena[]);

int main()
{
char cCad[50],cCadena[50], cPRO[8]="PROGRAM",cPRO1[8]="program";
   int  TaCad,cont=0;
   
       system ("cls");
printf("\n\t               SIMULACION COMPILADOR PASCAL \n\n");
       printf ("\n1: ");gets (cCadena);

   
  //=================================================================================
suprime(cCadena);
TaCad=strlen(cCad);
if (cCad[0]=='\0')  
{
printf ("\n Error [Linea 1]:- Falta 'PROGRAM', 'nombre del programa' y ';' \n ");
}

for ( i=0; i<=6; i++)
{

if (cCad[i]!= cPRO[i])
{
if (cCad[i]!=cPRO1[i]) cont++;
}
}

if (cCad[i]==' ')

if (cont!=0 && TaCad>0)
{
printf ("\n Error [Linea 1]:- 'PROGRAM' esta mal escrito  \n ");
}

if (cCad[7]!=' ' && cont==0 && TaCad>8)
{
printf ("\n Error [Linea 1]:- Falta espacio entre 'PROGRAM' y nombre de programa\n");
}

if (cCad[7]!=' ' && cont!=0 && TaCad<8)
{
printf ("\n Error [Linea 1]:- Omision de espacio entre 'PROGRAM' Y el nombre del Programa\n");
}

if  (cCad[8]==';' && cont==0 && TaCad>=7)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if  (cCad[8]==';' && cont==0 && TaCad==8 )
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if  (cCad[1]==' '|| cCad[0]==';' ||cCad[8]==' ')  
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if (cCad[7]==';' || cCad[7]=='\0' && cont==0)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if (cCad[TaCad-1]!=';')
{
printf ("\n Error [Linea 1]:- Falta El ';' al Final de la linea\n\n");
}

     
system ("PAUSE");
}

void suprime(char cadena[])
{

char cCad[100];
int x=0, z=0, y=strlen(cadena);




while(cadena[x]==' ')
{
if(cadena[x]==' ')
x++;
}


while(cadena[x]!='\0')
{

cCad[z]=cadena[x];
x++;
z++;
}

}

Mod: Cuando publiques código, usa las etiquetas GeSHi

[engel lex]

modifiqué tu código le puse etiquetas GeSHi, procura usarlas al publicar código

estás haciéndolo en C++ y es algo que puede ser complejo, recomiendo el uso de librerías apropiadas para ello...

Código (cpp) [Seleccionar] Expandir

#include <string>

y yo haría el trim así

Código (cpp) [Seleccionar] Expandir

string trim(string s){
string::iterator i = s.begin();
string::iterator f = s.end();
while(*i==' ')
i++;

while(*f==' ')
f--;

return string(i,f);
}

te ahorras un montón de código complicado y los problemas a que char sea limitado... no se olvide que es namespace std

[el_lujo]

Gracias, engel lex.
Mis disculpas por mi ignorancia; no estaba claro sobre publicar códigos.  Ya lo tendré pendiente.

Sobre la ayuda que me acabas de dar, estoy muy agradecido. Mi problema es que soy novato en C/C++ y por tal razón estoy aprendiendo en la marcha.

Para estar claro, el código que me hiciste iría en la función, cierto?
Gracias y discúlpame de nuevo.

[engel lex]

no iría en la función XD es la función

en lugar de

Código (cpp) [Seleccionar] Expandir

void suprime(char cadena[])

usas esa... luego de los includes coloca

Código (cpp) [Seleccionar] Expandir

using namespace std;

para que no tengas ningún problema

y te recomiendo revisar un poco sobre las variables tipo string en C++ para facilitearte el lio

a demás evita el uso de conio.h ya que no pertenece a las librerías standard

[el_lujo]

Excelente.
Gracias por el consejo y por la enseñanza.

Mano a la obra.

[el_lujo]

Ufff!!
engel lex, no me siento mal al reconocer que soy un burro, pero ahora estoy algo confundido.  Me confundo donde al final me retorna (i,f).

Tengo que tener en cuenta que al resultado de las eliminaciones de espacios yo pueda  tomarle el tamaño de la cadena para poder hacer las comparaciones si me faltara 'PROGRAM', 'NombreArchivo' y ';'.

*Nota: Cambié:

Código (cpp) [Seleccionar] Expandir

string trim(string s);

por:

Código (cpp) [Seleccionar] Expandir

string trim(string cadena);

Así lo tengo luego de tu ayuda:

Código (cpp) [Seleccionar] Expandir


/*SIMULACION DE COMPILADOR PASCAL*/

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

using namespace std;
string trim(string cadena);

int main()
{
char cCad[50],cCadena[50], cPRO[8]="PROGRAM",cPRO1[8]="program";
   int  TaCad,cont=0;
   
       system ("cls");
printf("\n\t               SIMULACION COMPILADOR PASCAL \n\n");
       printf ("\n1: ");gets (cCadena);

   
string trim(cCadena);

TaCad=strlen(cCad);
if (cCad[0]=='\0')  
{
printf ("\n Error [Linea 1]:- Falta 'PROGRAM', 'nombre del programa' y ';' \n ");
}

for ( i=0; i<=6; i++)
{

if (cCad[i]!= cPRO[i])
{
if (cCad[i]!=cPRO1[i]) cont++;
}
}

if (cCad[i]==' ')

if (cont!=0 && TaCad>0)
{
printf ("\n Error [Linea 1]:- 'PROGRAM' esta mal escrito  \n ");
}

if (cCad[7]!=' ' && cont==0 && TaCad>8)
{
printf ("\n Error [Linea 1]:- Falta espacio entre 'PROGRAM' y nombre de programa\n");
}

if (cCad[7]!=' ' && cont!=0 && TaCad<8)
{
printf ("\n Error [Linea 1]:- Omision de espacio entre 'PROGRAM' Y el nombre del Programa\n");
}

if  (cCad[8]==';' && cont==0 && TaCad>=7)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if  (cCad[8]==';' && cont==0 && TaCad==8)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if  (cCad[1]==' '|| cCad[0]==';' ||cCad[8]==' ')  
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if (cCad[7]==';' || cCad[7]=='\0' && cont==0)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}

if (cCad[TaCad-1]!=';')
{
printf ("\n Error [Linea 1]:- Falta El ';' al Final de la linea\n\n");
}

     
system ("PAUSE");
}

string trim(string cadena)
{
string::iterator i = cadena.begin();
string::iterator f = cadena.end();
while(*i==' ')
i++;

while(*f==' ')
f--;

return string(i,f);
}


[engel lex]

hay un problema... string no es realmente compatible con char... la cosa es usar uno u otro, sin embargo si quieres convertir de string a char es

Código (cpp) [Seleccionar] Expandir

strcpy(char_variable, string_variable.c_str());


ahora a los errores en tu codigo

error 1: strlen está en la librería <cstring> que no es lo mismo que <string> (ni es directamente compatible con) declarala si quieres usar esa funcion

error 2: al main no le veo return... debe tenerlo...

error 3: pusiste string trim(cCadena) al aire en tu codigo no está haciendo nada... ella retorna un string...

error 4: no usar gets, se asume descontinuado y en standard c11 fue eliminado definitivamente, usa fgets que es el más similar (revisa como se usa) o cin (de iostream) más comodo para leer desde consola

error 5: la linea 37 hace del siguien if suyo y al estar relacionada con "i" posiblemente genere error

error 6: cCad nunca fue usado, aún así lo metes en un if

sobre mi código, veo que no lo entendiste del todo, lo comento

Código (cpp) [Seleccionar] Expandir

string trim(string s){//retornará un string y recibe un string
string::iterator i = s.begin();//crea un "apuntador" a el inicio de la cadena
string::iterator f = s.end();//crea un "apuntador" al final de la cadena
while(*i==' ')//si lo que está en la posición apuntada es un espacio
i++;//avanza

while(*f==' ')//ergo
f--;

return string(i,f);//retorna el string que está entre las posiciones
                          //de los apuntadores i y f
}

lo que te decía era mudar tu codigo completo a string porque es más facil manejarlo...


resumo un pedacito de tu programa para que veas como sería haciendolo en c++ con funciones de alto nivel

Código (cpp) [Seleccionar] Expandir

#include <string>
#include <iostream>

using namespace std;
string trim(string cadena);

int main()
{
string cCadena;
   size_t TaCad,cont=0; //equivalente a unsigned long int

   system ("cls");
cout  << "\n\t               SIMULACION COMPILADOR PASCAL \n\n";
cout << "\n1: ";
getline(cin, cCadena);
cCadena = trim(cCadena);

TaCad = cCadena.size();
if(cCadena.find("PROGRAM")!=0 && cCadena.find("program")!=0){
cont = 1;}

if (cont!=0 && TaCad>0)
{
cout << "\n Error [Linea 1]:- 'PROGRAM' esta mal escrito  \n ";
}
if (cCadena[7]!=' ' && cont!=0 && TaCad>8)
{
cout << "\n Error [Linea 1]:- Falta espacio entre 'PROGRAM' y nombre de programa\n";
}


la cosa es que necesitas saber lo basico de string y de iostream

[_Enko]

Un toque offtopic, pero "program" no es una sentencia obligatoria en pascal.
Muchos programas pueden no tenerla.

Saludos.

[el_lujo]

Buen día.
Pido disculpas por la demora en atender las publicaciones.

Gracias engel lex, definitivamente tienes razón.  Mi problema esta en que debo aprender más de C++.  Como decía en el principio, soy un super novato y es por eso que mi comprensión de las funciones, métodos, clases y, por supuesto mi lógica, es muy débil.

Tomaré en cuenta primero estudiar bien los string e iostream.

Gracias, _Enko por tu comentario. Tienes razón sobre el uso no obligatorio de PROGRAM. Sin embargo, como es una simulación de ese compilador se pide eso, no para hacerlo ver como obligatorio, sino para ayudarnos a encontrar estos problemas, osea uso de las cadenas, en el que ustedes, especialmente engel lex, han dado tanta ayuda.

Engel lex, luego de que comentaste los códigos comprendí mucho mejor de la lógica y cómo debe tomarse en cuenta.