Lines Matching refs:out
2635 PRIVATE void SetPrint(out,set,lemp) in SetPrint() argument
2636 FILE *out; in SetPrint()
2643 fprintf(out,"%12s[","");
2646 fprintf(out,"%s%s",spacer,lemp->symbols[i]->name);
2650 fprintf(out,"]\n");
2654 void PlinkPrint(out,plp,tag) in PlinkPrint() argument
2655 FILE *out; in PlinkPrint()
2660 fprintf(out,"%12s%s (state %2d) ","",tag,plp->cfp->stp->index);
2661 ConfigPrint(out,plp->cfp);
2662 fprintf(out,"\n");
2818 PRIVATE void tplt_xfer(name,in,out,lineno) in tplt_xfer() argument
2821 FILE *out;
2834 if( i>iStart ) fprintf(out,"%.*s",i-iStart,&line[iStart]);
2835 fprintf(out,"%s",name);
2841 fprintf(out,"%s",&line[iStart]);
2885 PRIVATE void tplt_print(out,lemp,str,strln,lineno) in tplt_print() argument
2886 FILE *out; in tplt_print()
2893 fprintf(out,"#line %d \"%s\"\n",strln,lemp->filename); (*lineno)++;
2896 putc(*str,out);
2899 fprintf(out,"\n#line %d \"%s\"\n",*lineno+2,lemp->outname); (*lineno)+=2;
2907 PRIVATE void emit_destructor_code(out,sp,lemp,lineno) in emit_destructor_code() argument
2908 FILE *out; in emit_destructor_code()
2919 fprintf(out,"#line %d \"%s\"\n{",lemp->tokendestln,lemp->filename);
2922 fprintf(out,"#line %d \"%s\"\n{",sp->destructorln,lemp->filename);
2926 fprintf(out,"#line %d \"%s\"\n{",lemp->vardestln,lemp->filename);
2930 fprintf(out,"(yypminor->yy%d)",sp->dtnum);
2935 fputc(*cp,out);
2938 fprintf(out,"}\n#line %d \"%s\"\n",*lineno,lemp->outname);
2962 PRIVATE void emit_code(out,rp,lemp,lineno) in emit_code() argument
2963 FILE *out; in emit_code()
2979 fprintf(out,"#line %d \"%s\"\n{",rp->line,lemp->filename);
2987 fprintf(out,"yygotominor.yy%d",rp->lhs->dtnum);
2993 fprintf(out,"yymsp[%d].minor.yy%d",i-rp->nrhs+1,rp->rhs[i]->dtnum);
3003 fputc(*cp,out);
3006 fprintf(out,"}\n#line %d \"%s\"\n",*lineno,lemp->outname);
3027 fprintf(out," yy_destructor(%d,&yymsp[%d].minor);\n",
3030 fprintf(out," /* No destructor defined for %s */\n",
3046 PRIVATE void print_stack_union(out,lemp,plineno,mhflag) in print_stack_union() argument
3047 FILE *out; /* The output stream */ in print_stack_union()
3133 if( mhflag ){ fprintf(out,"#if INTERFACE\n"); lineno++; }
3134 fprintf(out,"#define %sTOKENTYPE %s\n",name,
3136 if( mhflag ){ fprintf(out,"#endif\n"); lineno++; }
3137 fprintf(out,"typedef union {\n"); lineno++;
3138 fprintf(out," %sTOKENTYPE yy0;\n",name); lineno++;
3141 fprintf(out," %s yy%d;\n",types[i],i+1); lineno++;
3144 fprintf(out," int yy%d;\n",lemp->errsym->dtnum); lineno++;
3147 fprintf(out,"} YYMINORTYPE;\n"); lineno++;
3199 FILE *out, *in; local
3214 out = file_open(lemp,".c","w");
3215 if( out==0 ){
3220 tplt_xfer(lemp->name,in,out,&lineno);
3223 tplt_print(out,lemp,lemp->include,lemp->includeln,&lineno);
3226 fprintf(out,"#include \"%s\"\n", name); lineno++;
3229 tplt_xfer(lemp->name,in,out,&lineno);
3234 fprintf(out,"#if INTERFACE\n"); lineno++;
3238 fprintf(out,"#define %s%-30s %2d\n",prefix,lemp->symbols[i]->name,i);
3241 fprintf(out,"#endif\n"); lineno++;
3243 tplt_xfer(lemp->name,in,out,&lineno);
3246 fprintf(out,"/* \001 */\n");
3247 fprintf(out,"#define YYCODETYPE %s\n",
3249 fprintf(out,"#define YYNOCODE %d\n",lemp->nsymbol+1); lineno++;
3250 fprintf(out,"#define YYACTIONTYPE %s\n",
3252 print_stack_union(out,lemp,&lineno,mhflag);
3261 fprintf(out,"#define YYSTACKDEPTH %s\n",lemp->stacksize); lineno++;
3263 fprintf(out,"#define YYSTACKDEPTH 100\n"); lineno++;
3266 fprintf(out,"#if INTERFACE\n"); lineno++;
3273 fprintf(out,"#define %sARG_SDECL %s;\n",name,lemp->arg); lineno++;
3274 fprintf(out,"#define %sARG_PDECL ,%s\n",name,lemp->arg); lineno++;
3275 fprintf(out,"#define %sARG_FETCH %s = yypParser->%s\n",
3277 fprintf(out,"#define %sARG_STORE yypParser->%s = %s\n",
3280 fprintf(out,"#define %sARG_SDECL\n",name); lineno++;
3281 fprintf(out,"#define %sARG_PDECL\n",name); lineno++;
3282 fprintf(out,"#define %sARG_FETCH\n",name); lineno++;
3283 fprintf(out,"#define %sARG_STORE\n",name); lineno++;
3286 fprintf(out,"#endif\n"); lineno++;
3288 fprintf(out,"#define YYNSTATE %d\n",lemp->nstate); lineno++;
3289 fprintf(out,"#define YYNRULE %d\n",lemp->nrule); lineno++;
3290 fprintf(out,"#define YYERRORSYMBOL %d\n",lemp->errsym->index); lineno++;
3291 fprintf(out,"#define YYERRSYMDT yy%d\n",lemp->errsym->dtnum); lineno++;
3293 fprintf(out,"#define YYFALLBACK 1\n"); lineno++;
3295 tplt_xfer(lemp->name,in,out,&lineno);
3378 fprintf(out,"static YYACTIONTYPE yy_action[] = {\n"); lineno++;
3383 if( j==0 ) fprintf(out," /* %5d */ ", i);
3384 fprintf(out, " %4d,", action);
3386 fprintf(out, "\n"); lineno++;
3392 fprintf(out, "};\n"); lineno++;
3395 fprintf(out,"static YYCODETYPE yy_lookahead[] = {\n"); lineno++;
3399 if( j==0 ) fprintf(out," /* %5d */ ", i);
3400 fprintf(out, " %4d,", la);
3402 fprintf(out, "\n"); lineno++;
3408 fprintf(out, "};\n"); lineno++;
3411 fprintf(out, "#define YY_SHIFT_USE_DFLT (%d)\n", mnTknOfst-1); lineno++;
3412 fprintf(out, "static %s yy_shift_ofst[] = {\n",
3420 if( j==0 ) fprintf(out," /* %5d */ ", i);
3421 fprintf(out, " %4d,", ofst);
3423 fprintf(out, "\n"); lineno++;
3429 fprintf(out, "};\n"); lineno++;
3432 fprintf(out, "#define YY_REDUCE_USE_DFLT (%d)\n", mnNtOfst-1); lineno++;
3433 fprintf(out, "static %s yy_reduce_ofst[] = {\n",
3441 if( j==0 ) fprintf(out," /* %5d */ ", i);
3442 fprintf(out, " %4d,", ofst);
3444 fprintf(out, "\n"); lineno++;
3450 fprintf(out, "};\n"); lineno++;
3453 fprintf(out, "static YYACTIONTYPE yy_default[] = {\n"); lineno++;
3457 if( j==0 ) fprintf(out," /* %5d */ ", i);
3458 fprintf(out, " %4d,", stp->iDflt);
3460 fprintf(out, "\n"); lineno++;
3466 fprintf(out, "};\n"); lineno++;
3467 tplt_xfer(lemp->name,in,out,&lineno);
3475 fprintf(out, " 0, /* %10s => nothing */\n", p->name);
3477 fprintf(out, " %3d, /* %10s => %s */\n", p->fallback->index,
3483 tplt_xfer(lemp->name, in, out, &lineno);
3489 fprintf(out," %-15s",line);
3490 if( (i&3)==3 ){ fprintf(out,"\n"); lineno++; }
3492 if( (i&3)!=0 ){ fprintf(out,"\n"); lineno++; }
3493 tplt_xfer(lemp->name,in,out,&lineno);
3501 fprintf(out," /* %3d */ \"%s ::=", i, rp->lhs->name);
3502 for(j=0; j<rp->nrhs; j++) fprintf(out," %s",rp->rhs[j]->name);
3503 fprintf(out,"\",\n"); lineno++;
3505 tplt_xfer(lemp->name,in,out,&lineno);
3515 fprintf(out," case %d:\n",sp->index); lineno++;
3519 emit_destructor_code(out,lemp->symbols[i],lemp,&lineno);
3520 fprintf(out," break;\n"); lineno++;
3526 fprintf(out," case %d:\n",sp->index); lineno++;
3527 emit_destructor_code(out,lemp->symbols[i],lemp,&lineno);
3528 fprintf(out," break;\n"); lineno++;
3536 fprintf(out," case %d:\n",sp->index); lineno++;
3540 emit_destructor_code(out,dflt_sp,lemp,&lineno);
3541 fprintf(out," break;\n"); lineno++;
3544 tplt_xfer(lemp->name,in,out,&lineno);
3547 tplt_print(out,lemp,lemp->overflow,lemp->overflowln,&lineno);
3548 tplt_xfer(lemp->name,in,out,&lineno);
3556 fprintf(out," { %d, %d },\n",rp->lhs->index,rp->nrhs); lineno++;
3558 tplt_xfer(lemp->name,in,out,&lineno);
3562 fprintf(out," case %d:\n",rp->index); lineno++;
3563 emit_code(out,rp,lemp,&lineno);
3564 fprintf(out," break;\n"); lineno++;
3566 tplt_xfer(lemp->name,in,out,&lineno);
3569 tplt_print(out,lemp,lemp->failure,lemp->failureln,&lineno);
3570 tplt_xfer(lemp->name,in,out,&lineno);
3573 tplt_print(out,lemp,lemp->error,lemp->errorln,&lineno);
3574 tplt_xfer(lemp->name,in,out,&lineno);
3577 tplt_print(out,lemp,lemp->accept,lemp->acceptln,&lineno);
3578 tplt_xfer(lemp->name,in,out,&lineno);
3581 tplt_print(out,lemp,lemp->extracode,lemp->extracodeln,&lineno);
3584 fclose(out);
3592 FILE *out, *in; local
3612 out = file_open(lemp,".h","w");
3613 if( out ){
3615 fprintf(out,"#define %s%-30s %2d\n",prefix,lemp->symbols[i]->name,i);
3617 fclose(out);