=================================================================== RCS file: /home/cvs/OpenXM/src/kan96xx/trans/yymain_polymake.c,v retrieving revision 1.1 retrieving revision 1.6 diff -u -p -r1.1 -r1.6 --- OpenXM/src/kan96xx/trans/yymain_polymake.c 2003/11/24 02:33:39 1.1 +++ OpenXM/src/kan96xx/trans/yymain_polymake.c 2018/05/03 13:20:35 1.6 @@ -1,8 +1,9 @@ -/* $OpenXM$ */ +/* $OpenXM: OpenXM/src/kan96xx/trans/yymain_polymake.c,v 1.5 2018/05/02 21:25:38 takayama Exp $ */ #include #include "yylex_polymake.h" #include "yy_polymake.tab.h" + char *SS=NULL; main_t() { int c,type; @@ -10,6 +11,7 @@ main_t() { while ((c=getchar()) != EOF) { pmPutstr(c); } + pmPutstr('\n'); SS = pmPutstr(0); printf("%s\n",SS); pmSetS(SS); @@ -28,24 +30,30 @@ main_t() { main() { int c,type; - + GC_INIT(); pmPutstr(-1); while ((c=getchar()) != EOF) { pmPutstr(c); } + pmPutstr('\n'); SS = pmPutstr(0); +#ifdef DEBUG printf("%s\n",SS); +#endif pmSetS(SS); pmPreprocess(); +#ifdef DEBUG printf("--------------------------\n"); printf("%s\n",SS); printf("--------------------------\n"); +#endif PMparse(); } -sGC_malloc(int n) { +void *sGC_malloc(int n) { return GC_malloc(n); } -PMerror() { +void PMerror() { + fprintf(stderr,"Parse error. cf. yylex_polymake.c: PM_debug=1;\n"); }