sysmocom
/
asterisk
11
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

expressions used in if, while, switch are all of the same kind 

(it remains to see why 'random' gives 16 shift/reduce conflicts...)



git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@24292 65c4cc65-6c06-0410-ace0-fbb531ad65f3
This commit is contained in:
Luigi Rizzo 2006-05-02 19:17:49 +00:00
parent 99dec41a4c
commit b222d1247f
2 changed files with 654 additions and 658 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1277
pbx/ael/ael.tab.c
View File

File diff suppressed because it is too large Load Diff

35
pbx/ael/ael.y
View File

@ -129,6 +129,7 @@ static pval *update_last(pval *, YYLTYPE *);
%type <str>goto_word %type <str>goto_word
%type <str>word_list %type <str>word_list
%type <str>word3_list %type <str>word3_list
%type <str>test_expr
%type <intval>opt_abstract %type <intval>opt_abstract
@ -171,6 +172,7 @@ static pval *update_last(pval *, YYLTYPE *);
%destructor { free($$);} word word_list goto_word word3_list opt_word context_name %destructor { free($$);} word word_list goto_word word3_list opt_word context_name
timerange timerange
test_expr
%% %%
@ -309,13 +311,18 @@ timespec : timerange BAR word3_list BAR word3_list BAR word3_list {
$$->u1.list->next->next = nword($7, &@7); } $$->u1.list->next->next = nword($7, &@7); }
; ;
/* expression used in if, random, while, switch */
test_expr : LP { reset_parencount(parseio->scanner); } word_list RP {
$$ = $3; }
;
/* 'if' like statements: if, iftime, random */ /* 'if' like statements: if, iftime, random */
if_like_head : KW_IF LP { reset_parencount(parseio->scanner); } word_list RP { if_like_head : KW_IF test_expr {
$$= npval2(PV_IF, &@1, &@5); $$= npval2(PV_IF, &@1, &@2);
$$->u1.str = $4; } $$->u1.str = $2; }
| KW_RANDOM LP { reset_parencount(parseio->scanner); } word_list RP { | KW_RANDOM test_expr {
$$ = npval2(PV_RANDOM, &@1, &@5); $$ = npval2(PV_RANDOM, &@1, &@2);
$$->u1.str=$4;} $$->u1.str=$2;}
| KW_IFTIME LP timespec RP { | KW_IFTIME LP timespec RP {
$$ = npval2(PV_IFTIME, &@1, &@4); $$ = npval2(PV_IFTIME, &@1, &@4);
$$->u1.list = $3; $$->u1.list = $3;
@ -360,9 +367,9 @@ goto_word : word { $$ = $1;}
free($3);} free($3);}
; ;
switch_head : KW_SWITCH LP { reset_parencount(parseio->scanner); } word RP LC { switch_head : KW_SWITCH test_expr LC {
$$ = npval2(PV_SWITCH, &@1, &@6); $$ = npval2(PV_SWITCH, &@1, &@3);
$$->u1.str = $4; } $$->u1.str = $2; }
; ;
/* /*
@ -386,16 +393,16 @@ statement : LC statements RC {
$$->u1.str = $1; } $$->u1.str = $1; }
| KW_FOR LP {reset_semicount(parseio->scanner);} word SEMI | KW_FOR LP {reset_semicount(parseio->scanner);} word SEMI
{reset_semicount(parseio->scanner);} word SEMI {reset_semicount(parseio->scanner);} word SEMI
{reset_parencount(parseio->scanner);} word RP statement { {reset_parencount(parseio->scanner);} word RP statement { /* XXX word_list maybe ? */
$$ = npval2(PV_FOR, &@1, &@12); $$ = npval2(PV_FOR, &@1, &@12);
$$->u1.for_init = $4; $$->u1.for_init = $4;
$$->u2.for_test=$7; $$->u2.for_test=$7;
$$->u3.for_inc = $10; $$->u3.for_inc = $10;
$$->u4.for_statements = $12;} $$->u4.for_statements = $12;}
| KW_WHILE LP {reset_parencount(parseio->scanner);} word RP statement { | KW_WHILE test_expr statement {
$$ = npval2(PV_WHILE, &@1, &@6); $$ = npval2(PV_WHILE, &@1, &@3);
$$->u1.str = $4; $$->u1.str = $2;
$$->u2.statements = $6; } $$->u2.statements = $3; }
| switch_head RC /* empty list OK */ { | switch_head RC /* empty list OK */ {
$$ = update_last($1, &@2); } $$ = update_last($1, &@2); }
| switch_head case_statements RC { | switch_head case_statements RC {