File: [local] / OpenXM / src / kan96xx / trans / yymain_polymake.c (download)
Revision 1.6, Thu May 3 13:20:35 2018 UTC (6 years, 2 months ago) by takayama
Branch: MAIN
Changes since 1.5: +2 -2
lines
Added prototype declarations.
PMparse (yyparse) returns int. PMerror (yyerror)?
|
/* $OpenXM: OpenXM/src/kan96xx/trans/yymain_polymake.c,v 1.6 2018/05/03 13:20:35 takayama Exp $ */
#include <stdio.h>
#include "yylex_polymake.h"
#include "yy_polymake.tab.h"
char *SS=NULL;
main_t() {
int c,type;
pmPutstr(-1);
while ((c=getchar()) != EOF) {
pmPutstr(c);
}
pmPutstr('\n');
SS = pmPutstr(0);
printf("%s\n",SS);
pmSetS(SS);
pmPreprocess();
printf("--------------------------\n");
printf("%s\n",SS);
printf("--------------------------\n");
while ((type=PMlex()) != PM_noToken) {
printf("type=%d ",type);
if ((type == PM_number) || (type == PM_keyword)) {
printf("value="); pmPrintObject(stdout,PMlval);
}
printf("\n");
}
}
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();
}
void *sGC_malloc(int n) {
return GC_malloc(n);
}
void PMerror() {
fprintf(stderr,"Parse error. cf. yylex_polymake.c: PM_debug=1;\n");
}