| Pregunta: | 13525 - TRADUCIR EL FREEPASCAL PROBLEMA CON TOKENS.PAS |
| Autor: | adrian15 adrian15 |
| Estoy intentando traducir el free pascal (www.freepascal.org) y he encuentro los siguientes problemas una vez compilado el nuevo compilador:
Para el archivo prueba.pas: programa hola; inicio escribe('hola'); fin. Me da el siguiente error: prueba.pas(1,1) Fatal: Syntax error, INICIO expected but identifier PROGRAMA found Lo cual no es logico porque un programa siempre ha de empezar por program. Concretamente lo que cambio es: -----------Begin of partial tokens.pas file ----- const arraytokeninfo : ttokenarray =( (str:'' ;special:true ;keyword:m_none;op:NOTOKEN), { Operators which can be overloaded } (str:'+' ;special:true ;keyword:m_none;op:NOTOKEN), (str:'- ' ;special:true ;keyword:m_none;op:NOTOKEN), (str:'*' ;special:true ;keyword:m_none;op:NOTOKEN), ......Mas lejos en el archivo..... { Normal words } (str:'COMO' ;special:false;keyword:m_class;op:_OP_AS),(* AS --> COMO *) (str:'A' ;special:false;keyword:m_none;op:NOTOKEN), (* AT --> A *) (str:'HAZ' ;special:false;keyword:m_all;op:NOTOKEN), (* DO --> HAZ *) (str:'SI' ;special:false;keyword:m_all;op:NOTOKEN), (* IF --> SI (CONDICIONAL)*) (str:'IN' ;special:false;keyword:m_all;op:_OP_IN),(* IN --> EN *) (str:'ES' ;special:false;keyword:m_class;op:_OP_IS), (* IS --> ES *) (str:'DE' ;special:false;keyword:m_all;op:NOTOKEN), (* OF --> DE *) (str:'SOBRE' ;special:false;keyword:m_clas | |
| Respuesta: | tp_tc tp_tc |
| Bueno dejame decirte que no necesariamente un programa debe de iniciar con un program, por ejemplo en pascal es valido colocar lo siguiente:
uses crt; begin writeln('Hola'); end. | |