y.tab.c

TCP-IP红宝书源代码

	lastdv->dvnext = NIL;
	lastdv->dvname = devn;
}


/* chdname  -- check for duplicate device name */

ckdname(devid)
	int devid;
{
	dvptr	s;
extern	dvptr	devs;
	char	*name;

	name = symtab[devid].symname;
	for (s=devs; s!=NIL ; s=s->dvnext) {
		if (s->dvname == name) {
			fprintf(stderr,"Duplicate device name %s on line %d\n",
				name,linectr);
			exit(1);
			}
		}
	return(devid);
}

strdup(tostr,fromstr,len)
	char	*tostr, *fromstr;
	int	len;
{
	for( ; len > 0 ; len--)
		*tostr++ = *fromstr++;
}

prdef(FILE *fp, char *name, int typ)
{
	/* special case for the everything function */
	if (strcmp(name, "ioerr") == 0) {
		fprintf(fp, "extern\tvoid\tioerr(void);\n");
		return;
	}
	switch (typ) {
	case IINT:
		fprintf(fp, "extern\tvoid\t%s(struct devsw *, unsigned char);\n", name);
		break;
	case OINT:
		fprintf(fp, "extern\tvoid\t%s(struct devsw *);\n", name);
		break;
	case READ:
		fprintf(fp, "extern\tint\t%s(struct devsw *, char *, unsigned);\n", name);
		break;
	case WRITE:
		fprintf(fp, "extern\tint\t%s(struct devsw *, unsigned char *, unsigned);\n", name);
		break;
	case GETC:
		fprintf(fp, "extern\tint\t%s(struct devsw *);\n", name);
		break;
	case PUTC:
		fprintf(fp, "extern\tint\t%s(struct devsw *, unsigned char);\n",
			name);
		break;
	case OPEN:
		fprintf(fp, "extern\tint\t%s(struct devsw *, void *, void *);\n", name);
		break;
	case CLOSE:
		fprintf(fp, "extern\tint\t%s(struct devsw *);\n", name);
		break;
	case INIT:
		fprintf(fp, "extern\tint\t%s(struct devsw *);\n", name);
		break;
	case SEEK:
		fprintf(fp, "extern\tint\t%s(struct devsw *, long);\n", name);
		break;
	case CNTL:
		fprintf(fp, "extern\tint\t%s(struct devsw *, int, void *, void *);\n",
			name);
		break;
	default:	fprintf(stderr, "Internal error 1\n");
	}
}

#line 840 "y.tab.c"
#define YYABORT goto yyabort
#define YYREJECT goto yyabort
#define YYACCEPT goto yyaccept
#define YYERROR goto yyerrlab

int
yyparse()
{
    register int yym, yyn, yystate;
#if YYDEBUG
    register char *yys;

    if ((yys = getenv("YYDEBUG")))
    {
        yyn = *yys;
        if (yyn >= '0' && yyn <= '9')
            yydebug = yyn - '0';
    }
#endif

    yynerrs = 0;
    yyerrflag = 0;
    yychar = (-1);

    yyssp = yyss;
    yyvsp = yyvs;
    *yyssp = yystate = 0;

yyloop:
    if ((yyn = yydefred[yystate])) goto yyreduce;
    if (yychar < 0)
    {
        if ((yychar = yylex()) < 0) yychar = 0;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("%sdebug: state %d, reading %d (%s)\n",
                    YYPREFIX, yystate, yychar, yys);
        }
#endif
    }
    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
#if YYDEBUG
        if (yydebug)
            printf("%sdebug: state %d, shifting to state %d\n",
                    YYPREFIX, yystate, yytable[yyn]);
#endif
        if (yyssp >= yyss + yystacksize - 1)
        {
            goto yyoverflow;
        }
        *++yyssp = yystate = yytable[yyn];
        *++yyvsp = yylval;
        yychar = (-1);
        if (yyerrflag > 0)  --yyerrflag;
        goto yyloop;
    }
    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)
    {
        yyn = yytable[yyn];
        goto yyreduce;
    }
    if (yyerrflag) goto yyinrecovery;
#if defined(lint) || defined(__GNUC__)
    goto yynewerror;
#endif
yynewerror:
    yyerror("syntax error");
#if defined(lint) || defined(__GNUC__)
    goto yyerrlab;
#endif
yyerrlab:
    ++yynerrs;
yyinrecovery:
    if (yyerrflag < 3)
    {
        yyerrflag = 3;
        for (;;)
        {
            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&
                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)
            {
#if YYDEBUG
                if (yydebug)
                    printf("%sdebug: state %d, error recovery shifting\
 to state %d\n", YYPREFIX, *yyssp, yytable[yyn]);
#endif
                if (yyssp >= yyss + yystacksize - 1)
                {
                    goto yyoverflow;
                }
                *++yyssp = yystate = yytable[yyn];
                *++yyvsp = yylval;
                goto yyloop;
            }
            else
            {
#if YYDEBUG
                if (yydebug)
                    printf("%sdebug: error recovery discarding state %d\n",
                            YYPREFIX, *yyssp);
#endif
                if (yyssp <= yyss) goto yyabort;
                --yyssp;
                --yyvsp;
            }
        }
    }
    else
    {
        if (yychar == 0) goto yyabort;
#if YYDEBUG
        if (yydebug)
        {
            yys = 0;
            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
            if (!yys) yys = "illegal-symbol";
            printf("%sdebug: state %d, error recovery discards token %d (%s)\n",
                    YYPREFIX, yystate, yychar, yys);
        }
#endif
        yychar = (-1);
        goto yyloop;
    }
yyreduce:
#if YYDEBUG
    if (yydebug)
        printf("%sdebug: state %d, reducing by rule %d (%s)\n",
                YYPREFIX, yystate, yyn, yyrule[yyn]);
#endif
    yym = yylen[yyn];
    yyval = yyvsp[1-yym];
    switch (yyn)
    {
case 2:
#line 96 "config.y"
{doing = "device definitions";}
break;
case 8:
#line 107 "config.y"
{mktype(yyvsp[0]);}
break;
case 9:
#line 110 "config.y"
{yyval = currtname = cktname(yyvsp[-1]);}
break;
case 10:
#line 113 "config.y"
{yyval = currname =
					 lookup(yytext,yyleng);
					}
break;
case 13:
#line 121 "config.y"
{newattr(CSR,yyvsp[0]);}
break;
case 14:
#line 123 "config.y"
{newattr(IVEC,yyvsp[0]);}
break;
case 15:
#line 125 "config.y"
{newattr(OVEC,yyvsp[0]);}
break;
case 16:
#line 127 "config.y"
{newattr(IRQ,yyvsp[0] +IRQBASE);}
break;
case 17:
#line 129 "config.y"
{newattr(IINT,yyvsp[0]);}
break;
case 18:
#line 131 "config.y"
{newattr(OINT,yyvsp[0]);}
break;
case 19:
#line 133 "config.y"
{newattr(OPEN,yyvsp[0]);}
break;
case 20:
#line 135 "config.y"
{newattr(CLOSE,yyvsp[0]);}
break;
case 21:
#line 137 "config.y"
{newattr(INIT,yyvsp[0]);}
break;
case 22:
#line 139 "config.y"
{newattr(GETC,yyvsp[0]);}
break;
case 23:
#line 141 "config.y"
{newattr(PUTC,yyvsp[0]);}
break;
case 24:
#line 143 "config.y"
{newattr(READ,yyvsp[0]);}
break;
case 25:
#line 145 "config.y"
{newattr(WRITE,yyvsp[0]);}
break;
case 26:
#line 147 "config.y"
{newattr(SEEK,yyvsp[0]);}
break;
case 27:
#line 149 "config.y"
{newattr(CNTL,yyvsp[0]);}
break;
case 28:
#line 152 "config.y"
{yyval = l_atoi(yytext,yyleng);}
break;
case 32:
#line 160 "config.y"
{mkdev(yyvsp[-3],yyvsp[-1],yyvsp[0]);}
break;
case 33:
#line 163 "config.y"
{yyval = currdname = ckdname(yyvsp[0]);}
break;
case 34:
#line 166 "config.y"
{yyval = 0;}
break;
case 35:
#line 168 "config.y"
{yyval = yyvsp[0];}
break;
#line 1079 "y.tab.c"
    }
    yyssp -= yym;
    yystate = *yyssp;
    yyvsp -= yym;
    yym = yylhs[yyn];
    if (yystate == 0 && yym == 0)
    {
#if YYDEBUG
        if (yydebug)
            printf("%sdebug: after reduction, shifting from state 0 to\
 state %d\n", YYPREFIX, YYFINAL);
#endif
        yystate = YYFINAL;
        *++yyssp = YYFINAL;
        *++yyvsp = yyval;
        if (yychar < 0)
        {
            if ((yychar = yylex()) < 0) yychar = 0;
#if YYDEBUG
            if (yydebug)
            {
                yys = 0;
                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];
                if (!yys) yys = "illegal-symbol";
                printf("%sdebug: state %d, reading %d (%s)\n",
                        YYPREFIX, YYFINAL, yychar, yys);
            }
#endif
        }
        if (yychar == 0) goto yyaccept;
        goto yyloop;
    }
    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&
            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)
        yystate = yytable[yyn];
    else
        yystate = yydgoto[yym];
#if YYDEBUG
    if (yydebug)
        printf("%sdebug: after reduction, shifting from state %d \
to state %d\n", YYPREFIX, *yyssp, yystate);
#endif
    if (yyssp >= yyss + yystacksize - 1)
    {
        goto yyoverflow;
    }
    *++yyssp = yystate;
    *++yyvsp = yyval;
    goto yyloop;
yyoverflow:
    yyerror("yacc stack overflow");
yyabort:
    return (1);
yyaccept:
    return (0);
}