OpenXM_contrib2/asir2000/parse/ytab.c - diff

Return to ytab.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/ytab.c between version 1.5 and 1.6

version 1.5, 2004/03/18 01:24:23

version 1.6, 2004/06/18 05:57:00

Line 222 static const short yyrline[] =

177, 183, 185, 187, 190, 192, 195, 197, 200, 203,

205, 208, 210, 213, 215, 218, 220, 223, 225, 228,

230, 233, 235, 238, 240, 243, 246, 248, 250, 252,

254, 256, 258, 285, 292, 299, 305, 311, 316, 320,

254, 256, 258, 279, 286, 293, 299, 305, 310, 314,

324, 328, 335, 342, 346, 348, 350, 352, 365, 375,

318, 322, 329, 336, 340, 342, 344, 346, 359, 369,

378, 380, 382, 384, 386, 388, 390, 392, 394, 396,

372, 374, 376, 378, 380, 382, 384, 386, 388, 390,

398, 400, 402, 404, 406, 408, 410, 412, 414, 416,

392, 394, 396, 398, 400, 402, 404, 406, 408, 410,

418, 420, 422, 424, 426, 428, 430, 432, 434, 436,

412, 414, 416, 418, 420, 422, 424, 426, 428, 430,

438

432

};

#endif

Line 1599 case 62:

if ( f )

yyval.f = mkfnode(2,I_FUNC,f,mkfnode(1,I_LIST,0));

else {

searchf(sysf,yyvsp[0].p,&f);

gen_searchf(yyvsp[0].p,(FUNC *)&f);

if ( !f )

searchf(ubinf,yyvsp[0].p,&f);

if ( !f )

searchpf(yyvsp[0].p,&f);

if ( !f )

searchf(usrf,yyvsp[0].p,&f);

if ( f )

makesrvar(f,(P *)&val);

else

Line 1616 case 62:

Line 1610 case 62:

}

break;

case 63:

#line 286 "parse.y"

#line 280 "parse.y"

{

gen_searchf(yyvsp[-3].p,(FUNC *)&val);

print_crossref(val);

Line 1624 case 63:

Line 1618 case 63:

}

break;

case 64:

#line 293 "parse.y"

#line 287 "parse.y"

{

gen_searchf(yyvsp[-5].p,(FUNC *)&val);

print_crossref(val);

Line 1633 case 64:

Line 1627 case 64:

}

break;

case 65:

#line 300 "parse.y"

#line 294 "parse.y"

{

gen_searchf(yyvsp[-3].p,(FUNC *)&val);

print_crossref(val);

Line 1641 case 65:

Line 1635 case 65:

}

break;

case 66:

#line 306 "parse.y"

#line 300 "parse.y"

{

gen_searchf(yyvsp[-3].p,(FUNC *)&val);

print_crossref(val);

Line 1649 case 66:

Line 1643 case 66:

}

break;

case 67:

#line 312 "parse.y"

#line 306 "parse.y"

{

searchpf(yyvsp[-6].p,(FUNC *)&val);

yyval.f = mkfnode(2,I_PFDERIV,val,mkfnode(1,I_LIST,yyvsp[-1].n),mkfnode(1,I_LIST,yyvsp[-4].n));

}

break;

case 68:

#line 317 "parse.y"

#line 311 "parse.y"

{

yyval.f = mkfnode(2,I_GETOPT,yyvsp[-1].p);

}

break;

case 69:

#line 321 "parse.y"

#line 315 "parse.y"

{

yyval.f = mkfnode(2,I_GETOPT,0);

}

break;

case 70:

#line 325 "parse.y"

#line 319 "parse.y"

{

yyval.f = mkfnode(3,I_TIMER,yyvsp[-5].f,yyvsp[-3].f,yyvsp[-1].f);

}

break;

case 71:

#line 329 "parse.y"

#line 323 "parse.y"

{

searchf(parif,yyvsp[-1].p,(FUNC *)&val);

if ( !val )

Line 1683 case 71:

Line 1677 case 71:

}

break;

case 72:

#line 336 "parse.y"

#line 330 "parse.y"

{

searchf(parif,yyvsp[-3].p,(FUNC *)&val);

if ( !val )

Line 1692 case 72:

Line 1686 case 72:

}

break;

case 73:

#line 343 "parse.y"

#line 337 "parse.y"

{

yyval.f = mkfnode(2,I_IFUNC,yyvsp[-4].f,mkfnode(1,I_LIST,yyvsp[-1].n));

}

break;

case 74:

#line 347 "parse.y"

#line 341 "parse.y"

{ yyval.f = mkfnode(1,I_CAR,yyvsp[-1].f); }

break;

case 75:

#line 349 "parse.y"

#line 343 "parse.y"

{ yyval.f = mkfnode(1,I_CDR,yyvsp[-1].f); }

break;

case 76:

#line 351 "parse.y"

#line 345 "parse.y"

{ yyval.f = mkfnode(1,I_PAREN,yyvsp[-1].f); }

break;

case 77:

#line 353 "parse.y"

#line 347 "parse.y"

{

if ( main_parser || allow_create_var )

yyval.f = mkfnode(2,I_PVAR,makepvar(yyvsp[0].p),0);

Line 1725 case 77:

Line 1719 case 77:

}

break;

case 78:

#line 366 "parse.y"

#line 360 "parse.y"

{

if ( yyvsp[-3].f->id == I_PVAR || yyvsp[-3].f->id == I_INDEX ) {

appendtonode((NODE)yyvsp[-3].f->arg[1],(pointer)yyvsp[-1].f,&a);

Line 1737 case 78:

Line 1731 case 78:

}

break;

case 79:

#line 376 "parse.y"

#line 370 "parse.y"

{ yyval.f = mkfnode(2,I_POINT,yyvsp[-2].f,yyvsp[0].p); }

break;

case 80:

#line 379 "parse.y"

#line 373 "parse.y"

{ yyval.f = yyvsp[0].f; }

break;

case 81:

#line 381 "parse.y"

#line 375 "parse.y"

{ yyval.f = mkfnode(3,I_CAST,structtoindex(yyvsp[-2].p),yyvsp[0].f,0); }

break;

case 82:

#line 383 "parse.y"

#line 377 "parse.y"

{ yyval.f = mkfnode(2,I_ASSPVAR,yyvsp[-2].f,yyvsp[0].f); }

break;

case 83:

#line 385 "parse.y"

#line 379 "parse.y"

{ yyval.f = mkfnode(2,I_ASSPVAR,yyvsp[-2].f,mkfnode(3,I_BOP,yyvsp[-1].p,yyvsp[-2].f,yyvsp[0].f)); }

break;

case 84:

#line 387 "parse.y"

#line 381 "parse.y"

{ yyval.f = mkfnode(2,I_POSTSELF,yyvsp[0].p,yyvsp[-1].f); }

break;

case 85:

#line 389 "parse.y"

#line 383 "parse.y"

{ yyval.f = mkfnode(2,I_PRESELF,yyvsp[-1].p,yyvsp[0].f); }

break;

case 86:

#line 391 "parse.y"

#line 385 "parse.y"

{ yyval.f = mkfnode(1,I_LIST,yyvsp[-1].n); }

break;

case 87:

#line 393 "parse.y"

#line 387 "parse.y"

{ yyval.f = yyvsp[0].f; }

break;

case 88:

#line 395 "parse.y"

#line 389 "parse.y"

{ yyval.f = mkfnode(1,I_MINUS,yyvsp[0].f); }

break;

case 89:

#line 397 "parse.y"

#line 391 "parse.y"