@ -574,11 +574,11 @@ static const unsigned short int yyrline[] =
426 , 428 , 431 , 433 , 435 , 438 , 438 , 471 , 472 , 473 ,
474 , 478 , 482 , 486 , 489 , 490 , 495 , 496 , 499 , 502 ,
506 , 510 , 514 , 521 , 524 , 527 , 534 , 541 , 548 , 557 ,
557 , 562 , 570 , 570 , 58 0, 587 , 590 , 591 , 594 , 595 ,
59 8, 604 , 605 , 610 , 614 , 618 , 622 , 625 , 628 , 633 ,
63 4, 639 , 640 , 646 , 651 , 656 , 657 , 660 , 663 , 668 ,
67 1, 674 , 688 , 697 , 702 , 717 , 729 , 732 , 733 , 736 ,
7 39
557 , 562 , 570 , 570 , 58 1, 588 , 591 , 592 , 595 , 596 ,
59 9, 605 , 606 , 611 , 615 , 619 , 623 , 626 , 629 , 634 ,
63 5, 640 , 641 , 647 , 652 , 657 , 658 , 661 , 664 , 669 ,
67 2, 675 , 689 , 698 , 703 , 718 , 730 , 733 , 734 , 737 ,
7 40
} ;
# endif
@ -2706,16 +2706,17 @@ yyreduce:
# line 570 "ael.y"
{
if ( strcasecmp ( ( yyvsp [ - 2 ] . str ) , " goto " ) = = 0 ) {
( yyval . pval ) = npval2 ( PV_GOTO , & ( yylsp [ - 2 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) = npval2 ( PV_GOTO , & ( yylsp [ - 2 ] ) , & ( yylsp [ - 1 ] ) ) ;
free ( ( yyvsp [ - 2 ] . str ) ) ; /* won't be using this */
ast_log ( LOG_WARNING , " ==== File: %s, Line %d, Cols: %d-%d: Suggestion: Use the goto statement instead of the Goto() application call in AEL. \n " , my_file , ( yylsp [ - 2 ] ) . first_line , ( yylsp [ - 2 ] ) . first_column , ( yylsp [ - 2 ] ) . last_column ) ;
} else
( yyval . pval ) = npval2 ( PV_APPLICATION_CALL , & ( yylsp [ - 2 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 2 ] . str ) ; ; }
} else {
( yyval . pval ) = npval2 ( PV_APPLICATION_CALL , & ( yylsp [ - 2 ] ) , & ( yylsp [ - 1 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 2 ] . str ) ;
} ; }
break ;
case 114 :
# line 58 0 "ael.y"
# line 58 1 "ael.y"
{
( yyval . pval ) = update_last ( ( yyvsp [ - 2 ] . pval ) , & ( yylsp [ 0 ] ) ) ;
if ( ( yyval . pval ) - > type = = PV_GOTO )
@ -2726,34 +2727,34 @@ yyreduce:
break ;
case 115 :
# line 58 7 "ael.y"
# line 58 8 "ael.y"
{ ( yyval . pval ) = update_last ( ( yyvsp [ - 1 ] . pval ) , & ( yylsp [ 0 ] ) ) ; ; }
break ;
case 116 :
# line 59 0 "ael.y"
# line 59 1 "ael.y"
{ ( yyval . str ) = ( yyvsp [ 0 ] . str ) ; }
break ;
case 117 :
# line 59 1 "ael.y"
# line 59 2 "ael.y"
{ ( yyval . str ) = strdup ( " " ) ; ; }
break ;
case 118 :
# line 59 4 "ael.y"
# line 59 5 "ael.y"
{ ( yyval . pval ) = nword ( ( yyvsp [ 0 ] . str ) , & ( yylsp [ 0 ] ) ) ; ; }
break ;
case 119 :
# line 59 5 "ael.y"
# line 59 6 "ael.y"
{
( yyval . pval ) = npval ( PV_WORD , 0 /*@1.first_line*/ , 0 /*@1.last_line*/ , 0 /* @1.first_column*/ , 0 /*@1.last_column*/ ) ;
( yyval . pval ) - > u1 . str = strdup ( " " ) ; ; }
break ;
case 120 :
# line 59 8 "ael.y"
# line 59 9 "ael.y"
{
pval * z = nword ( ( yyvsp [ 0 ] . str ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) = ( yyvsp [ - 2 ] . pval ) ;
@ -2761,19 +2762,19 @@ yyreduce:
break ;
case 121 :
# line 60 4 "ael.y"
# line 60 5 "ael.y"
{ ( yyval . pval ) = ( yyvsp [ 0 ] . pval ) ; ; }
break ;
case 122 :
# line 60 5 "ael.y"
# line 60 6 "ael.y"
{ if ( ( yyvsp [ - 1 ] . pval ) & & ( yyvsp [ 0 ] . pval ) ) { ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; linku1 ( ( yyval . pval ) , ( yyvsp [ 0 ] . pval ) ) ; }
else if ( ( yyvsp [ - 1 ] . pval ) ) { ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; }
else if ( ( yyvsp [ 0 ] . pval ) ) { ( yyval . pval ) = ( yyvsp [ 0 ] . pval ) ; } ; }
break ;
case 123 :
# line 61 0 "ael.y"
# line 61 1 "ael.y"
{
( yyval . pval ) = npval2 ( PV_CASE , & ( yylsp [ - 3 ] ) , & ( yylsp [ - 1 ] ) ) ; /* XXX 3 or 4 ? */
( yyval . pval ) - > u1 . str = ( yyvsp [ - 2 ] . str ) ;
@ -2781,7 +2782,7 @@ yyreduce:
break ;
case 124 :
# line 61 4 "ael.y"
# line 61 5 "ael.y"
{
( yyval . pval ) = npval2 ( PV_DEFAULT , & ( yylsp [ - 2 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = NULL ;
@ -2789,7 +2790,7 @@ yyreduce:
break ;
case 125 :
# line 61 8 "ael.y"
# line 61 9 "ael.y"
{
( yyval . pval ) = npval2 ( PV_PATTERN , & ( yylsp [ - 3 ] ) , & ( yylsp [ 0 ] ) ) ; /* XXX@3 or @4 ? */
( yyval . pval ) - > u1 . str = ( yyvsp [ - 2 ] . str ) ;
@ -2797,45 +2798,45 @@ yyreduce:
break ;
case 126 :
# line 62 2 "ael.y"
# line 62 3 "ael.y"
{
( yyval . pval ) = npval2 ( PV_CASE , & ( yylsp [ - 2 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 1 ] . str ) ; ; }
break ;
case 127 :
# line 62 5 "ael.y"
# line 62 6 "ael.y"
{
( yyval . pval ) = npval2 ( PV_DEFAULT , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = NULL ; ; }
break ;
case 128 :
# line 62 8 "ael.y"
# line 62 9 "ael.y"
{
( yyval . pval ) = npval2 ( PV_PATTERN , & ( yylsp [ - 2 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 1 ] . str ) ; ; }
break ;
case 129 :
# line 63 3 "ael.y"
# line 63 4 "ael.y"
{ ( yyval . pval ) = ( yyvsp [ 0 ] . pval ) ; ; }
break ;
case 130 :
# line 63 4 "ael.y"
# line 63 5 "ael.y"
{ if ( ( yyvsp [ - 1 ] . pval ) & & ( yyvsp [ 0 ] . pval ) ) { ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; linku1 ( ( yyval . pval ) , ( yyvsp [ 0 ] . pval ) ) ; }
else if ( ( yyvsp [ - 1 ] . pval ) ) { ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; }
else if ( ( yyvsp [ 0 ] . pval ) ) { ( yyval . pval ) = ( yyvsp [ 0 ] . pval ) ; } ; }
break ;
case 131 :
# line 6 39 "ael.y"
# line 6 40 "ael.y"
{ ( yyval . pval ) = ( yyvsp [ 0 ] . pval ) ; ; }
break ;
case 132 :
# line 64 0 "ael.y"
# line 64 1 "ael.y"
{
( yyval . pval ) = npval2 ( PV_CATCH , & ( yylsp [ - 4 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 3 ] . str ) ;
@ -2843,38 +2844,38 @@ yyreduce:
break ;
case 133 :
# line 64 6 "ael.y"
# line 64 7 "ael.y"
{
( yyval . pval ) = npval2 ( PV_SWITCHES , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . list = ( yyvsp [ 0 ] . pval ) ; ; }
break ;
case 134 :
# line 65 1 "ael.y"
# line 65 2 "ael.y"
{
( yyval . pval ) = npval2 ( PV_ESWITCHES , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . list = ( yyvsp [ 0 ] . pval ) ; ; }
break ;
case 135 :
# line 65 6 "ael.y"
# line 65 7 "ael.y"
{ ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; ; }
break ;
case 136 :
# line 65 7 "ael.y"
# line 65 8 "ael.y"
{ ( yyval . pval ) = NULL ; ; }
break ;
case 137 :
# line 66 0 "ael.y"
# line 66 1 "ael.y"
{
( yyval . pval ) = npval2 ( PV_WORD , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 1 ] . str ) ; ; }
break ;
case 138 :
# line 66 3 "ael.y"
# line 66 4 "ael.y"
{
pval * z = npval2 ( PV_WORD , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ;
z - > u1 . str = ( yyvsp [ - 1 ] . str ) ;
@ -2883,19 +2884,19 @@ yyreduce:
break ;
case 139 :
# line 66 8 "ael.y"
# line 66 9 "ael.y"
{ ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; ; }
break ;
case 140 :
# line 67 1 "ael.y"
# line 67 2 "ael.y"
{
( yyval . pval ) = npval2 ( PV_WORD , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 1 ] . str ) ; ; }
break ;
case 141 :
# line 67 5 "ael.y"
# line 67 6 "ael.y"
{
( yyval . pval ) = npval2 ( PV_WORD , & ( yylsp [ - 13 ] ) , & ( yylsp [ - 12 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 13 ] . str ) ;
@ -2912,7 +2913,7 @@ yyreduce:
break ;
case 142 :
# line 68 8 "ael.y"
# line 68 9 "ael.y"
{
( yyval . pval ) = npval2 ( PV_WORD , & ( yylsp [ - 9 ] ) , & ( yylsp [ - 8 ] ) ) ;
( yyval . pval ) - > u1 . str = ( yyvsp [ - 9 ] . str ) ;
@ -2925,7 +2926,7 @@ yyreduce:
break ;
case 143 :
# line 69 7 "ael.y"
# line 69 8 "ael.y"
{
pval * z = npval2 ( PV_WORD , & ( yylsp [ - 1 ] ) , & ( yylsp [ 0 ] ) ) ; /* XXX don't we need @1-@3 ?*/
( yyval . pval ) = ( yyvsp [ - 2 ] . pval ) ;
@ -2934,7 +2935,7 @@ yyreduce:
break ;
case 144 :
# line 70 3 "ael.y"
# line 70 4 "ael.y"
{
pval * z = npval2 ( PV_WORD , & ( yylsp [ - 13 ] ) , & ( yylsp [ - 12 ] ) ) ;
( yyval . pval ) = ( yyvsp [ - 14 ] . pval ) ; z - > u1 . str = ( yyvsp [ - 13 ] . str ) ;
@ -2952,7 +2953,7 @@ yyreduce:
break ;
case 145 :
# line 71 7 "ael.y"
# line 71 8 "ael.y"
{
pval * z = npval2 ( PV_WORD , & ( yylsp [ - 9 ] ) , & ( yylsp [ - 8 ] ) ) ;
( yyval . pval ) = ( yyvsp [ - 10 ] . pval ) ;
@ -2968,29 +2969,29 @@ yyreduce:
break ;
case 146 :
# line 7 29 "ael.y"
# line 7 30 "ael.y"
{ ( yyval . pval ) = ( yyvsp [ - 1 ] . pval ) ; ; }
break ;
case 147 :
# line 73 2 "ael.y"
# line 73 3 "ael.y"
{ ( yyval . str ) = ( yyvsp [ 0 ] . str ) ; ; }
break ;
case 148 :
# line 73 3 "ael.y"
# line 73 4 "ael.y"
{ ( yyval . str ) = strdup ( " default " ) ; ; }
break ;
case 149 :
# line 73 6 "ael.y"
# line 73 7 "ael.y"
{
( yyval . pval ) = npval2 ( PV_INCLUDES , & ( yylsp [ - 3 ] ) , & ( yylsp [ 0 ] ) ) ;
( yyval . pval ) - > u1 . list = ( yyvsp [ - 1 ] . pval ) ; ; }
break ;
case 150 :
# line 7 39 "ael.y"
# line 7 40 "ael.y"
{
( yyval . pval ) = npval2 ( PV_INCLUDES , & ( yylsp [ - 2 ] ) , & ( yylsp [ 0 ] ) ) ; ; }
break ;
@ -3000,7 +3001,7 @@ yyreduce:
}
/* Line 1126 of yacc.c. */
# line 300 4 "ael.tab.c"
# line 300 5 "ael.tab.c"
yyvsp - = yylen ;
yyssp - = yylen ;
@ -3275,7 +3276,7 @@ yyreturn:
}
# line 74 4 "ael.y"
# line 74 5 "ael.y"
static char * token_equivs1 [ ] =