From: cas Date: Fri, 5 Nov 1999 18:28:10 +0000 (+0000) Subject: No comments X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=62d47331889c6ec74607798e8834f02e3d0a211b;p=occt-wok.git No comments --- diff --git a/src/IDLFront/IDL.lex b/src/IDLFront/IDL.lex index fcb0730..2517df8 100755 --- a/src/IDLFront/IDL.lex +++ b/src/IDLFront/IDL.lex @@ -7,12 +7,16 @@ #define yylval IDLlval #include #include +#include +#ifdef WNT +# include +#else +# include +#endif /* WNT */ static char idl_escape_reader(char *); static double idl_atof(char *); static long idl_atoi(char *, long); -static void idl_parse_line_and_file(char *); -static void idl_store_pragma(char *); /* static char *yytext = (char *) yytext; */ #define yyinput() input() @@ -220,9 +224,7 @@ idl_atoi(char *s, long b) static double idl_atof(char *s) { - char *h = s; double d = 0.0; - double f = 0.0; double e, k; long neg = 0, negexp = 0; diff --git a/src/IDLFront/IDL.yacc b/src/IDLFront/IDL.yacc index 3103fb7..1c728c8 100755 --- a/src/IDLFront/IDL.yacc +++ b/src/IDLFront/IDL.yacc @@ -6,11 +6,21 @@ %{ #include +#include #define yyv IDLv #if (defined(apollo) || defined(hpux)) && defined(__cplusplus) extern "C" int IDLwrap(); #endif // (defined(apollo) || defined(hpux)) && defined(__cplusplus) + +extern void IDL_SetIdentifier ( char* ); +extern void IDL_InterfaceDeclaration ( void ); +extern void IDL_InterfaceDefinitionBegin ( void ); +extern void IDL_InterfaceDefinitionEnd ( void ); + +extern int IDLlex ( void ); +extern void IDLerror ( char* ); + %} /* diff --git a/src/IDLFront/IDLFront.cxx b/src/IDLFront/IDLFront.cxx index 35dcd7b..a1a9710 100755 --- a/src/IDLFront/IDLFront.cxx +++ b/src/IDLFront/IDLFront.cxx @@ -28,12 +28,11 @@ extern FILE *IDLin; #else extern "C" FILE *IDLin; #endif // WNT -extern "C" IDLparse(); +extern "C" int IDLparse(); // BEGIN Variables // -static char *YY_fileName=""; static int YY_nb_error; static int YY_nb_warning; @@ -158,7 +157,7 @@ int IDLTranslate(const Handle(MS_MetaSchema)& aMetaSchema, const Handle(TColStd_HSequenceOfHAsciiString)& anInstList, const Handle(TColStd_HSequenceOfHAsciiString)& anGenList) { - Standard_Integer ErrorLevel = 0; + volatile Standard_Integer ErrorLevel = 0; theMetaSchema = aMetaSchema; ListOfGlobalUsed = aGlobalList;