Lines Matching refs:out
3233 void rule_print(FILE *out, struct rule *rp){ in rule_print() argument
3235 fprintf(out, "%s",rp->lhs->name); in rule_print()
3237 fprintf(out," ::="); in rule_print()
3241 fprintf(out," %s", sp->subsym[0]->name); in rule_print()
3243 fprintf(out,"|%s", sp->subsym[j]->name); in rule_print()
3246 fprintf(out," %s", sp->name); in rule_print()
3317 PRIVATE void SetPrint(out,set,lemp)
3318 FILE *out;
3325 fprintf(out,"%12s[","");
3328 fprintf(out,"%s%s",spacer,lemp->symbols[i]->name);
3332 fprintf(out,"]\n");
3336 PRIVATE void PlinkPrint(out,plp,tag)
3337 FILE *out;
3342 fprintf(out,"%12s%s (state %2d) ","",tag,plp->cfp->stp->statenum);
3343 ConfigPrint(out,plp->cfp);
3344 fprintf(out,"\n");
3604 PRIVATE void tplt_xfer(char *name, FILE *in, FILE *out, int *lineno) in tplt_xfer() argument
3616 if( i>iStart ) fprintf(out,"%.*s",i-iStart,&line[iStart]); in tplt_xfer()
3617 fprintf(out,"%s",name); in tplt_xfer()
3623 fprintf(out,"%s",&line[iStart]); in tplt_xfer()
3695 PRIVATE void tplt_linedir(FILE *out, int lineno, char *filename) in tplt_linedir() argument
3697 fprintf(out,"#line %d \"",lineno); in tplt_linedir()
3699 if( *filename == '\\' ) putc('\\',out); in tplt_linedir()
3700 putc(*filename,out); in tplt_linedir()
3703 fprintf(out,"\"\n"); in tplt_linedir()
3707 PRIVATE void tplt_print(FILE *out, struct lemon *lemp, char *str, int *lineno) in tplt_print() argument
3711 putc(*str,out); in tplt_print()
3716 putc('\n',out); in tplt_print()
3720 (*lineno)++; tplt_linedir(out,*lineno,lemp->outname); in tplt_print()
3730 FILE *out, in emit_destructor_code() argument
3740 fprintf(out,"{\n"); (*lineno)++; in emit_destructor_code()
3743 fprintf(out,"{\n"); (*lineno)++; in emit_destructor_code()
3746 tplt_linedir(out,sp->destLineno,lemp->filename); in emit_destructor_code()
3751 fprintf(out,"{\n"); (*lineno)++; in emit_destructor_code()
3757 fprintf(out,"(yypminor->yy%d)",sp->dtnum); in emit_destructor_code()
3762 fputc(*cp,out); in emit_destructor_code()
3764 fprintf(out,"\n"); (*lineno)++; in emit_destructor_code()
3766 (*lineno)++; tplt_linedir(out,*lineno,lemp->outname); in emit_destructor_code()
3768 fprintf(out,"}\n"); (*lineno)++; in emit_destructor_code()
4044 FILE *out, in emit_code() argument
4053 fprintf(out, "{%s", rp->codePrefix); in emit_code()
4061 tplt_linedir(out,rp->line,lemp->filename); in emit_code()
4063 fprintf(out,"{%s",rp->code); in emit_code()
4065 fprintf(out,"}\n"); (*lineno)++; in emit_code()
4068 tplt_linedir(out,*lineno,lemp->outname); in emit_code()
4074 fprintf(out, "%s", rp->codeSuffix); in emit_code()
4079 fprintf(out, "}\n"); (*lineno)++; in emit_code()
4093 FILE *out, /* The output stream */ in print_stack_union() argument
4187 if( mhflag ){ fprintf(out,"#if INTERFACE\n"); lineno++; } in print_stack_union()
4188 fprintf(out,"#define %sTOKENTYPE %s\n",name, in print_stack_union()
4190 if( mhflag ){ fprintf(out,"#endif\n"); lineno++; } in print_stack_union()
4191 fprintf(out,"typedef union {\n"); lineno++; in print_stack_union()
4192 fprintf(out," int yyinit;\n"); lineno++; in print_stack_union()
4193 fprintf(out," %sTOKENTYPE yy0;\n",name); lineno++; in print_stack_union()
4196 fprintf(out," %s yy%d;\n",types[i],i+1); lineno++; in print_stack_union()
4200 fprintf(out," int yy%d;\n",lemp->errsym->dtnum); lineno++; in print_stack_union()
4204 fprintf(out,"} YYMINORTYPE;\n"); lineno++; in print_stack_union()
4269 static void writeRuleText(FILE *out, struct rule *rp){ in writeRuleText() argument
4271 fprintf(out,"%s ::=", rp->lhs->name); in writeRuleText()
4275 fprintf(out," %s", sp->name); in writeRuleText()
4278 fprintf(out," %s", sp->subsym[0]->name); in writeRuleText()
4280 fprintf(out,"|%s",sp->subsym[k]->name); in writeRuleText()
4293 FILE *out, *in, *sql; in ReportTable() local
4318 out = file_open(lemp,".c","wb"); in ReportTable()
4319 if( out==0 ){ in ReportTable()
4329 fclose(out); in ReportTable()
4397 fprintf(out, in ReportTable()
4414 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4418 tplt_print(out,lemp,lemp->include,&lineno); in ReportTable()
4421 fprintf(out,"#include \"%s\"\n", incName); lineno++; in ReportTable()
4424 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4430 fprintf(out,"#if INTERFACE\n"); lineno++; in ReportTable()
4432 fprintf(out,"#ifndef %s%s\n", prefix, lemp->symbols[1]->name); in ReportTable()
4435 fprintf(out,"#define %s%-30s %2d\n",prefix,lemp->symbols[i]->name,i); in ReportTable()
4438 fprintf(out,"#endif\n"); lineno++; in ReportTable()
4439 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4442 fprintf(out,"#define YYCODETYPE %s\n", in ReportTable()
4444 fprintf(out,"#define YYNOCODE %d\n",lemp->nsymbol); lineno++; in ReportTable()
4445 fprintf(out,"#define YYACTIONTYPE %s\n", in ReportTable()
4448 fprintf(out,"#define YYWILDCARD %d\n", in ReportTable()
4451 print_stack_union(out,lemp,&lineno,mhflag); in ReportTable()
4452 fprintf(out, "#ifndef YYSTACKDEPTH\n"); lineno++; in ReportTable()
4454 fprintf(out,"#define YYSTACKDEPTH %s\n",lemp->stacksize); lineno++; in ReportTable()
4456 fprintf(out,"#define YYSTACKDEPTH 100\n"); lineno++; in ReportTable()
4458 fprintf(out, "#endif\n"); lineno++; in ReportTable()
4460 fprintf(out,"#if INTERFACE\n"); lineno++; in ReportTable()
4467 fprintf(out,"#define %sARG_SDECL %s;\n",name,lemp->arg); lineno++; in ReportTable()
4468 fprintf(out,"#define %sARG_PDECL ,%s\n",name,lemp->arg); lineno++; in ReportTable()
4469 fprintf(out,"#define %sARG_PARAM ,%s\n",name,&lemp->arg[i]); lineno++; in ReportTable()
4470 fprintf(out,"#define %sARG_FETCH %s=yypParser->%s;\n", in ReportTable()
4472 fprintf(out,"#define %sARG_STORE yypParser->%s=%s;\n", in ReportTable()
4475 fprintf(out,"#define %sARG_SDECL\n",name); lineno++; in ReportTable()
4476 fprintf(out,"#define %sARG_PDECL\n",name); lineno++; in ReportTable()
4477 fprintf(out,"#define %sARG_PARAM\n",name); lineno++; in ReportTable()
4478 fprintf(out,"#define %sARG_FETCH\n",name); lineno++; in ReportTable()
4479 fprintf(out,"#define %sARG_STORE\n",name); lineno++; in ReportTable()
4485 fprintf(out,"#define %sCTX_SDECL %s;\n",name,lemp->ctx); lineno++; in ReportTable()
4486 fprintf(out,"#define %sCTX_PDECL ,%s\n",name,lemp->ctx); lineno++; in ReportTable()
4487 fprintf(out,"#define %sCTX_PARAM ,%s\n",name,&lemp->ctx[i]); lineno++; in ReportTable()
4488 fprintf(out,"#define %sCTX_FETCH %s=yypParser->%s;\n", in ReportTable()
4490 fprintf(out,"#define %sCTX_STORE yypParser->%s=%s;\n", in ReportTable()
4493 fprintf(out,"#define %sCTX_SDECL\n",name); lineno++; in ReportTable()
4494 fprintf(out,"#define %sCTX_PDECL\n",name); lineno++; in ReportTable()
4495 fprintf(out,"#define %sCTX_PARAM\n",name); lineno++; in ReportTable()
4496 fprintf(out,"#define %sCTX_FETCH\n",name); lineno++; in ReportTable()
4497 fprintf(out,"#define %sCTX_STORE\n",name); lineno++; in ReportTable()
4500 fprintf(out,"#endif\n"); lineno++; in ReportTable()
4503 fprintf(out,"#define YYERRORSYMBOL %d\n",lemp->errsym->index); lineno++; in ReportTable()
4504 fprintf(out,"#define YYERRSYMDT yy%d\n",lemp->errsym->dtnum); lineno++; in ReportTable()
4507 fprintf(out,"#define YYFALLBACK 1\n"); lineno++; in ReportTable()
4588 fprintf(out,"#define YYNSTATE %d\n",lemp->nxstate); lineno++; in ReportTable()
4589 fprintf(out,"#define YYNRULE %d\n",lemp->nrule); lineno++; in ReportTable()
4590 fprintf(out,"#define YYNRULE_WITH_ACTION %d\n",lemp->nruleWithAction); in ReportTable()
4592 fprintf(out,"#define YYNTOKEN %d\n",lemp->nterminal); lineno++; in ReportTable()
4593 fprintf(out,"#define YY_MAX_SHIFT %d\n",lemp->nxstate-1); lineno++; in ReportTable()
4595 fprintf(out,"#define YY_MIN_SHIFTREDUCE %d\n",i); lineno++; in ReportTable()
4597 fprintf(out,"#define YY_MAX_SHIFTREDUCE %d\n", i-1); lineno++; in ReportTable()
4598 fprintf(out,"#define YY_ERROR_ACTION %d\n", lemp->errAction); lineno++; in ReportTable()
4599 fprintf(out,"#define YY_ACCEPT_ACTION %d\n", lemp->accAction); lineno++; in ReportTable()
4600 fprintf(out,"#define YY_NO_ACTION %d\n", lemp->noAction); lineno++; in ReportTable()
4601 fprintf(out,"#define YY_MIN_REDUCE %d\n", lemp->minReduce); lineno++; in ReportTable()
4603 fprintf(out,"#define YY_MAX_REDUCE %d\n", i-1); lineno++; in ReportTable()
4604 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4621 fprintf(out,"#define YY_ACTTAB_COUNT (%d)\n", n); lineno++; in ReportTable()
4622 fprintf(out,"static const YYACTIONTYPE yy_action[] = {\n"); lineno++; in ReportTable()
4626 if( j==0 ) fprintf(out," /* %5d */ ", i); in ReportTable()
4627 fprintf(out, " %4d,", action); in ReportTable()
4629 fprintf(out, "\n"); lineno++; in ReportTable()
4635 fprintf(out, "};\n"); lineno++; in ReportTable()
4640 fprintf(out,"static const YYCODETYPE yy_lookahead[] = {\n"); lineno++; in ReportTable()
4644 if( j==0 ) fprintf(out," /* %5d */ ", i); in ReportTable()
4645 fprintf(out, " %4d,", la); in ReportTable()
4647 fprintf(out, "\n"); lineno++; in ReportTable()
4658 if( j==0 ) fprintf(out," /* %5d */ ", i); in ReportTable()
4659 fprintf(out, " %4d,", lemp->nterminal); in ReportTable()
4661 fprintf(out, "\n"); lineno++; in ReportTable()
4668 if( j>0 ){ fprintf(out, "\n"); lineno++; } in ReportTable()
4669 fprintf(out, "};\n"); lineno++; in ReportTable()
4674 fprintf(out, "#define YY_SHIFT_COUNT (%d)\n", n-1); lineno++; in ReportTable()
4675 fprintf(out, "#define YY_SHIFT_MIN (%d)\n", mnTknOfst); lineno++; in ReportTable()
4676 fprintf(out, "#define YY_SHIFT_MAX (%d)\n", mxTknOfst); lineno++; in ReportTable()
4677 fprintf(out, "static const %s yy_shift_ofst[] = {\n", in ReportTable()
4686 if( j==0 ) fprintf(out," /* %5d */ ", i); in ReportTable()
4687 fprintf(out, " %4d,", ofst); in ReportTable()
4689 fprintf(out, "\n"); lineno++; in ReportTable()
4695 fprintf(out, "};\n"); lineno++; in ReportTable()
4700 fprintf(out, "#define YY_REDUCE_COUNT (%d)\n", n-1); lineno++; in ReportTable()
4701 fprintf(out, "#define YY_REDUCE_MIN (%d)\n", mnNtOfst); lineno++; in ReportTable()
4702 fprintf(out, "#define YY_REDUCE_MAX (%d)\n", mxNtOfst); lineno++; in ReportTable()
4703 fprintf(out, "static const %s yy_reduce_ofst[] = {\n", in ReportTable()
4711 if( j==0 ) fprintf(out," /* %5d */ ", i); in ReportTable()
4712 fprintf(out, " %4d,", ofst); in ReportTable()
4714 fprintf(out, "\n"); lineno++; in ReportTable()
4720 fprintf(out, "};\n"); lineno++; in ReportTable()
4723 fprintf(out, "static const YYACTIONTYPE yy_default[] = {\n"); lineno++; in ReportTable()
4728 if( j==0 ) fprintf(out," /* %5d */ ", i); in ReportTable()
4730 fprintf(out, " %4d,", lemp->errAction); in ReportTable()
4732 fprintf(out, " %4d,", stp->iDfltReduce + lemp->minReduce); in ReportTable()
4735 fprintf(out, "\n"); lineno++; in ReportTable()
4741 fprintf(out, "};\n"); lineno++; in ReportTable()
4742 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4755 fprintf(out, " 0, /* %10s => nothing */\n", p->name); in ReportTable()
4757 fprintf(out, " %3d, /* %10s => %s */\n", p->fallback->index, in ReportTable()
4763 tplt_xfer(lemp->name, in, out, &lineno); in ReportTable()
4768 fprintf(out," /* %4d */ \"%s\",\n",i, lemp->symbols[i]->name); lineno++; in ReportTable()
4770 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4778 fprintf(out," /* %3d */ \"", i); in ReportTable()
4779 writeRuleText(out, rp); in ReportTable()
4780 fprintf(out,"\",\n"); lineno++; in ReportTable()
4782 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4794 fprintf(out, " /* TERMINAL Destructor */\n"); lineno++; in ReportTable()
4797 fprintf(out," case %d: /* %s */\n", sp->index, sp->name); lineno++; in ReportTable()
4801 emit_destructor_code(out,lemp->symbols[i],lemp,&lineno); in ReportTable()
4802 fprintf(out," break;\n"); lineno++; in ReportTable()
4813 fprintf(out, " /* Default NON-TERMINAL Destructor */\n");lineno++; in ReportTable()
4816 fprintf(out," case %d: /* %s */\n", sp->index, sp->name); lineno++; in ReportTable()
4820 emit_destructor_code(out,dflt_sp,lemp,&lineno); in ReportTable()
4822 fprintf(out," break;\n"); lineno++; in ReportTable()
4828 fprintf(out," case %d: /* %s */\n", sp->index, sp->name); lineno++; in ReportTable()
4836 fprintf(out," case %d: /* %s */\n", in ReportTable()
4842 emit_destructor_code(out,lemp->symbols[i],lemp,&lineno); in ReportTable()
4843 fprintf(out," break;\n"); lineno++; in ReportTable()
4845 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4848 tplt_print(out,lemp,lemp->overflow,&lineno); in ReportTable()
4849 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4858 fprintf(out," %4d, /* (%d) ", rp->lhs->index, i); in ReportTable()
4859 rule_print(out, rp); in ReportTable()
4860 fprintf(out," */\n"); lineno++; in ReportTable()
4862 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4864 fprintf(out," %3d, /* (%d) ", -rp->nrhs, i); in ReportTable()
4865 rule_print(out, rp); in ReportTable()
4866 fprintf(out," */\n"); lineno++; in ReportTable()
4868 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4876 fprintf(out," YYMINORTYPE yylhsminor;\n"); lineno++; in ReportTable()
4886 fprintf(out," case %d: /* ", rp->iRule); in ReportTable()
4887 writeRuleText(out, rp); in ReportTable()
4888 fprintf(out, " */\n"); lineno++; in ReportTable()
4892 fprintf(out," case %d: /* ", rp2->iRule); in ReportTable()
4893 writeRuleText(out, rp2); in ReportTable()
4894 fprintf(out," */ yytestcase(yyruleno==%d);\n", rp2->iRule); lineno++; in ReportTable()
4898 emit_code(out,rp,lemp,&lineno); in ReportTable()
4899 fprintf(out," break;\n"); lineno++; in ReportTable()
4904 fprintf(out," default:\n"); lineno++; in ReportTable()
4908 fprintf(out," /* (%d) ", rp->iRule); in ReportTable()
4909 writeRuleText(out, rp); in ReportTable()
4911 fprintf(out, " (NEVER REDUCES) */ assert(yyruleno!=%d);\n", in ReportTable()
4914 fprintf(out, " */ yytestcase(yyruleno==%d);\n", rp->iRule); lineno++; in ReportTable()
4916 fprintf(out, " (OPTIMIZED OUT) */ assert(yyruleno!=%d);\n", in ReportTable()
4920 fprintf(out," break;\n"); lineno++; in ReportTable()
4921 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4924 tplt_print(out,lemp,lemp->failure,&lineno); in ReportTable()
4925 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4928 tplt_print(out,lemp,lemp->error,&lineno); in ReportTable()
4929 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4932 tplt_print(out,lemp,lemp->accept,&lineno); in ReportTable()
4933 tplt_xfer(lemp->name,in,out,&lineno); in ReportTable()
4936 tplt_print(out,lemp,lemp->extracode,&lineno); in ReportTable()
4940 fclose(out); in ReportTable()
4948 FILE *out, *in; in ReportHeader() local
4971 out = file_open(lemp,".h","wb"); in ReportHeader()
4972 if( out ){ in ReportHeader()
4974 fprintf(out,"#define %s%-30s %3d\n",prefix,lemp->symbols[i]->name,i); in ReportHeader()
4976 fclose(out); in ReportHeader()