version 1.9, 2010/02/19 06:20:13 |
version 1.10, 2011/06/16 08:17:15 |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 160 "parse.y" |
#line 160 "parse.y" |
{ (yyval.s) = mksnode(1,S_RETURN,0); } |
{ (yyval.s) = mksnode(1,S_RETURN,NULLP); } |
break; |
break; |
|
|
case 20: |
case 20: |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 164 "parse.y" |
#line 164 "parse.y" |
{ (yyval.s) = mksnode(4,S_IFELSE,(yyvsp[(1) - (5)].i),(yyvsp[(3) - (5)].n),(yyvsp[(5) - (5)].s),0); (yyvsp[(5) - (5)].s)?(yyval.s)->ln=(yyvsp[(5) - (5)].s)->ln:0; NOPR; } |
{ (yyval.s) = mksnode(4,S_IFELSE,(yyvsp[(1) - (5)].i),(yyvsp[(3) - (5)].n),(yyvsp[(5) - (5)].s),NULLP); (yyvsp[(5) - (5)].s)?(yyval.s)->ln=(yyvsp[(5) - (5)].s)->ln:0; NOPR; } |
break; |
break; |
|
|
case 22: |
case 22: |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 170 "parse.y" |
#line 170 "parse.y" |
{ (yyval.s) = mksnode(5,S_FOR,(yyvsp[(1) - (5)].i),0,(yyvsp[(3) - (5)].n),0,(yyvsp[(5) - (5)].s)); (yyvsp[(5) - (5)].s)?(yyval.s)->ln=(yyvsp[(5) - (5)].s)->ln:0; NOPR; } |
{ (yyval.s) = mksnode(5,S_FOR,(yyvsp[(1) - (5)].i),NULLP,(yyvsp[(3) - (5)].n),NULLP,(yyvsp[(5) - (5)].s)); (yyvsp[(5) - (5)].s)?(yyval.s)->ln=(yyvsp[(5) - (5)].s)->ln:0; NOPR; } |
break; |
break; |
|
|
case 25: |
case 25: |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 176 "parse.y" |
#line 176 "parse.y" |
{ (yyval.s) = mksnode(3,S_PFDEF,(yyvsp[(2) - (6)].p),(yyvsp[(4) - (6)].n),0); NOPR; } |
{ (yyval.s) = mksnode(3,S_PFDEF,(yyvsp[(2) - (6)].p),(yyvsp[(4) - (6)].n),NULLP); NOPR; } |
break; |
break; |
|
|
case 28: |
case 28: |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 190 "parse.y" |
#line 190 "parse.y" |
{ CUR_MODULE = 0; MPVS = 0; (yyval.s) = mksnode(1,S_MODULE,0); NOPR; } |
{ CUR_MODULE = 0; MPVS = 0; (yyval.s) = mksnode(1,S_MODULE,NULLP); NOPR; } |
break; |
break; |
|
|
case 34: |
case 34: |
|
|
|
|
searchf(noargsysf,(yyvsp[(1) - (1)].p),&f); |
searchf(noargsysf,(yyvsp[(1) - (1)].p),&f); |
if ( f ) |
if ( f ) |
(yyval.f) = mkfnode(2,I_FUNC,f,0); |
(yyval.f) = mkfnode(2,I_FUNC,f,NULLP); |
else { |
else { |
searchc((yyvsp[(1) - (1)].p),&f); |
searchc((yyvsp[(1) - (1)].p),&f); |
if ( f ) |
if ( f ) |
(yyval.f) = mkfnode(2,I_FUNC,f,mkfnode(1,I_LIST,0)); |
(yyval.f) = mkfnode(2,I_FUNC,f,mkfnode(1,I_LIST,NULLP)); |
else { |
else { |
gen_searchf_searchonly((yyvsp[(1) - (1)].p),(FUNC *)&f); |
gen_searchf_searchonly((yyvsp[(1) - (1)].p),(FUNC *)&f); |
if ( f ) |
if ( f ) |
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 319 "parse.y" |
#line 319 "parse.y" |
{ |
{ |
(yyval.f) = mkfnode(2,I_GETOPT,0); |
(yyval.f) = mkfnode(2,I_GETOPT,NULLP); |
} |
} |
break; |
break; |
|
|
|
|
searchf(parif,(yyvsp[(3) - (4)].p),(FUNC *)&val); |
searchf(parif,(yyvsp[(3) - (4)].p),(FUNC *)&val); |
if ( !val ) |
if ( !val ) |
mkparif((yyvsp[(3) - (4)].p),(FUNC *)&val); |
mkparif((yyvsp[(3) - (4)].p),(FUNC *)&val); |
(yyval.f) = mkfnode(2,I_FUNC,val,0); |
(yyval.f) = mkfnode(2,I_FUNC,val,NULLP); |
} |
} |
break; |
break; |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 341 "parse.y" |
#line 341 "parse.y" |
{ |
{ |
(yyval.f) = mkfnode(2,I_IFUNC,(yyvsp[(3) - (7)].f),mkfnode(1,I_LIST,(yyvsp[(6) - (7)].n)),0); |
(yyval.f) = mkfnode(2,I_IFUNC,(yyvsp[(3) - (7)].f),mkfnode(1,I_LIST,(yyvsp[(6) - (7)].n)),NULLP); |
} |
} |
break; |
break; |
|
|
|
|
#line 350 "parse.y" |
#line 350 "parse.y" |
{ |
{ |
if ( main_parser || allow_create_var ) |
if ( main_parser || allow_create_var ) |
t = mkfnode(2,I_PVAR,makepvar((yyvsp[(1) - (4)].p)),0); |
t = mkfnode(2,I_PVAR,makepvar((yyvsp[(1) - (4)].p)),NULLP); |
else { |
else { |
ind = searchpvar((yyvsp[(1) - (4)].p)); |
ind = searchpvar((yyvsp[(1) - (4)].p)); |
if ( ind == -1 ) { |
if ( ind == -1 ) { |
fprintf(stderr,"%s : no such variable.\n",(yyvsp[(1) - (4)].p)); |
fprintf(stderr,"%s : no such variable.\n",(yyvsp[(1) - (4)].p)); |
YYABORT; |
YYABORT; |
} else |
} else |
t = mkfnode(2,I_PVAR,ind,0); |
t = mkfnode(2,I_PVAR,ind,NULLP); |
} |
} |
(yyval.f) = mkfnode(2,I_IFUNC,t,mkfnode(1,I_LIST,(yyvsp[(3) - (4)].n))); |
(yyval.f) = mkfnode(2,I_IFUNC,t,mkfnode(1,I_LIST,(yyvsp[(3) - (4)].n))); |
} |
} |
|
|
#line 370 "parse.y" |
#line 370 "parse.y" |
{ |
{ |
if ( main_parser || allow_create_var ) |
if ( main_parser || allow_create_var ) |
(yyval.f) = mkfnode(2,I_PVAR,makepvar((yyvsp[(1) - (1)].p)),0); |
(yyval.f) = mkfnode(2,I_PVAR,makepvar((yyvsp[(1) - (1)].p)),NULLP); |
else { |
else { |
ind = searchpvar((yyvsp[(1) - (1)].p)); |
ind = searchpvar((yyvsp[(1) - (1)].p)); |
if ( ind == -1 ) { |
if ( ind == -1 ) { |
fprintf(stderr,"%s : no such variable.\n",(yyvsp[(1) - (1)].p)); |
fprintf(stderr,"%s : no such variable.\n",(yyvsp[(1) - (1)].p)); |
YYABORT; |
YYABORT; |
} else |
} else |
(yyval.f) = mkfnode(2,I_PVAR,ind,0); |
(yyval.f) = mkfnode(2,I_PVAR,ind,NULLP); |
} |
} |
} |
} |
break; |
break; |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 398 "parse.y" |
#line 398 "parse.y" |
{ (yyval.f) = mkfnode(3,I_CAST,structtoindex((yyvsp[(3) - (5)].p)),(yyvsp[(5) - (5)].f),0); } |
{ (yyval.f) = mkfnode(3,I_CAST,structtoindex((yyvsp[(3) - (5)].p)),(yyvsp[(5) - (5)].f),NULLP); } |
break; |
break; |
|
|
case 85: |
case 85: |
|
|
|
|
/* Line 1455 of yacc.c */ |
/* Line 1455 of yacc.c */ |
#line 434 "parse.y" |
#line 434 "parse.y" |
{ (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(1) - (2)].i),(yyvsp[(2) - (2)].f),0); } |
{ (yyval.f) = mkfnode(3,I_LOP,(yyvsp[(1) - (2)].i),(yyvsp[(2) - (2)].f),NULLP); } |
break; |
break; |
|
|
case 103: |
case 103: |