Asterisk
/
asterisk
mirror of https://github.com/asterisk/asterisk
1
0
Fork 0
Code Issues Releases Wiki Activity

finish packing yylloc into macros

Browse Source 
git-svn-id: https://origsvn.digium.com/svn/asterisk/trunk@22900 65c4cc65-6c06-0410-ace0-fbb531ad65f3
1.4
Luigi Rizzo 19 years ago
parent e51725d6d4
commit a5fdd0d6b0
2 changed files with 121 additions and 155 deletions
Show Stats Download Patch File Download Diff File

77
pbx/ael/ael.flex
Unescape View File

@ -69,6 +69,17 @@ static int include_stack_index = 0;
yylloc->last_column=my_col+yyleng-1; \ yylloc->last_column=my_col+yyleng-1; \
my_col+=yyleng; \ my_col+=yyleng; \
} while (0) } while (0)
#define STORE_START do { \
yylloc->first_line = my_lineno; \
yylloc->first_column=my_col; \
} while (0)
#define STORE_END do { \
pbcwhere(yytext, &my_lineno, &my_col); \
yylloc->last_line = my_lineno; \
yylloc->last_column = my_col; \
} while (0)
%} %}
%x paren semic argg %x paren semic argg
@ -144,14 +155,11 @@ includes { STORE_POS; return KW_INCLUDES;}
<paren>{NOPARENS}\) { <paren>{NOPARENS}\) {
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(')') ) { /* error */ if ( pbcpop(')') ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression: %s !\n", my_file, my_lineno, my_col, yytext); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression: %s !\n", my_file, my_lineno, my_col, yytext);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
prev_word = 0; prev_word = 0;
return word; return word;
@ -160,9 +168,7 @@ includes { STORE_POS; return KW_INCLUDES;}
if ( parencount >= 0) { if ( parencount >= 0) {
yymore(); yymore();
} else { } else {
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
*(yylval->str+strlen(yylval->str)-1)=0; *(yylval->str+strlen(yylval->str)-1)=0;
/* printf("Got paren word %s\n", yylval->str); */ /* printf("Got paren word %s\n", yylval->str); */
@ -174,8 +180,7 @@ includes { STORE_POS; return KW_INCLUDES;}
<paren>{NOPARENS}[\(\[\{] { <paren>{NOPARENS}[\(\[\{] {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if (c == '(') if (c == '(')
parencount++; parencount++;
pbcpush(c); pbcpush(c);
@ -184,15 +189,12 @@ includes { STORE_POS; return KW_INCLUDES;}
<paren>{NOPARENS}[\]\}] { <paren>{NOPARENS}[\]\}] {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(c)) { /* error */ if ( pbcpop(c)) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n",
my_file, my_lineno, my_col, c); my_file, my_lineno, my_col, c);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
@ -203,8 +205,7 @@ includes { STORE_POS; return KW_INCLUDES;}
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/* printf("ARGG:%s\n",yytext); */ /* printf("ARGG:%s\n",yytext); */
/* printf("GOT AN LP!!!\n"); */ /* printf("GOT AN LP!!!\n"); */
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if (c == '(') if (c == '(')
parencount++; parencount++;
pbcpush(c); pbcpush(c);
@ -213,21 +214,16 @@ includes { STORE_POS; return KW_INCLUDES;}
<argg>{NOARGG}\) { <argg>{NOARGG}\) {
/* printf("ARGG:%s\n",yytext); */ /* printf("ARGG:%s\n",yytext); */
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(')') ) { /* error */ if ( pbcpop(')') ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression!\n", my_file, my_lineno, my_col); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression!\n", my_file, my_lineno, my_col);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
parencount--; parencount--;
if( parencount >= 0){ if( parencount >= 0){
yymore(); yymore();
@ -256,11 +252,8 @@ includes { STORE_POS; return KW_INCLUDES;}
yymore(); yymore();
} else { } else {
/* printf("got a comma!\n\n"); */ /* printf("got a comma!\n\n"); */
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col; STORE_END;
pbcwhere(yytext, &my_lineno, &my_col);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
if( !commaout ) { if( !commaout ) {
if( !strcmp(yytext,"," ) ) { if( !strcmp(yytext,"," ) ) {
commaout = 0; commaout = 0;
@ -285,14 +278,11 @@ includes { STORE_POS; return KW_INCLUDES;}
<argg>{NOARGG}[\]\}] { <argg>{NOARGG}[\]\}] {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/*printf("ARGG:%s\n",yytext);*/ /*printf("ARGG:%s\n",yytext);*/
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(c) ) { /* error */ if ( pbcpop(c) ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
@ -304,8 +294,7 @@ includes { STORE_POS; return KW_INCLUDES;}
<semic>{NOSEMIC}[\(\[\{] { <semic>{NOSEMIC}[\(\[\{] {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/*printf("SEMIC:%s\n",yytext);*/ /*printf("SEMIC:%s\n",yytext);*/
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
yymore(); yymore();
pbcpush(c); pbcpush(c);
} }
@ -313,14 +302,11 @@ includes { STORE_POS; return KW_INCLUDES;}
<semic>{NOSEMIC}[\)\]\}] { <semic>{NOSEMIC}[\)\]\}] {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/*printf("SEMIC:%s\n",yytext);*/ /*printf("SEMIC:%s\n",yytext);*/
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(c) ) { /* error */ if ( pbcpop(c) ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column= my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
@ -328,11 +314,8 @@ includes { STORE_POS; return KW_INCLUDES;}
} }
<semic>{NOSEMIC}; { <semic>{NOSEMIC}; {
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col; STORE_END;
pbcwhere(yytext, &my_lineno, &my_col);
yylloc->last_line = my_lineno;
yylloc->last_column=my_col;;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
if(yyleng > 1) if(yyleng > 1)
*(yylval->str+yyleng-1)=0; *(yylval->str+yyleng-1)=0;

199
pbx/ael/ael_lex.c
Unescape View File

@ -699,8 +699,19 @@ static int include_stack_index = 0;
my_col+=yyleng; \ my_col+=yyleng; \
} while (0) } while (0)
#define STORE_START do { \
yylloc->first_line = my_lineno; \
yylloc->first_column=my_col; \
} while (0)
#define STORE_END do { \
pbcwhere(yytext, &my_lineno, &my_col); \
yylloc->last_line = my_lineno; \
yylloc->last_column = my_col; \
} while (0)
/* %option yylineno I've tried hard, but haven't been able to use this */ /* %option yylineno I've tried hard, but haven't been able to use this */
#line 704 "ael_lex.c" #line 715 "ael_lex.c"
#define INITIAL 0 #define INITIAL 0
#define paren 1 #define paren 1
@ -940,10 +951,10 @@ YY_DECL
register int yy_act; register int yy_act;
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner; struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
#line 90 "ael.flex" #line 101 "ael.flex"
#line 947 "ael_lex.c" #line 958 "ael_lex.c"
yylval = yylval_param; yylval = yylval_param;
@ -1034,218 +1045,218 @@ do_action: /* This label is used only to access EOF actions. */
case 1: case 1:
YY_RULE_SETUP YY_RULE_SETUP
#line 92 "ael.flex" #line 103 "ael.flex"
{ STORE_POS; return LC;} { STORE_POS; return LC;}
YY_BREAK YY_BREAK
case 2: case 2:
YY_RULE_SETUP YY_RULE_SETUP
#line 93 "ael.flex" #line 104 "ael.flex"
{ STORE_POS; return RC;} { STORE_POS; return RC;}
YY_BREAK YY_BREAK
case 3: case 3:
YY_RULE_SETUP YY_RULE_SETUP
#line 94 "ael.flex" #line 105 "ael.flex"
{ STORE_POS; return LP;} { STORE_POS; return LP;}
YY_BREAK YY_BREAK
case 4: case 4:
YY_RULE_SETUP YY_RULE_SETUP
#line 95 "ael.flex" #line 106 "ael.flex"
{ STORE_POS; return RP;} { STORE_POS; return RP;}
YY_BREAK YY_BREAK
case 5: case 5:
YY_RULE_SETUP YY_RULE_SETUP
#line 96 "ael.flex" #line 107 "ael.flex"
{ STORE_POS; return SEMI;} { STORE_POS; return SEMI;}
YY_BREAK YY_BREAK
case 6: case 6:
YY_RULE_SETUP YY_RULE_SETUP
#line 97 "ael.flex" #line 108 "ael.flex"
{ STORE_POS; return EQ;} { STORE_POS; return EQ;}
YY_BREAK YY_BREAK
case 7: case 7:
YY_RULE_SETUP YY_RULE_SETUP
#line 98 "ael.flex" #line 109 "ael.flex"
{ STORE_POS; return COMMA;} { STORE_POS; return COMMA;}
YY_BREAK YY_BREAK
case 8: case 8:
YY_RULE_SETUP YY_RULE_SETUP
#line 99 "ael.flex" #line 110 "ael.flex"
{ STORE_POS; return COLON;} { STORE_POS; return COLON;}
YY_BREAK YY_BREAK
case 9: case 9:
YY_RULE_SETUP YY_RULE_SETUP
#line 100 "ael.flex" #line 111 "ael.flex"
{ STORE_POS; return AMPER;} { STORE_POS; return AMPER;}
YY_BREAK YY_BREAK
case 10: case 10:
YY_RULE_SETUP YY_RULE_SETUP
#line 101 "ael.flex" #line 112 "ael.flex"
{ STORE_POS; return BAR;} { STORE_POS; return BAR;}
YY_BREAK YY_BREAK
case 11: case 11:
YY_RULE_SETUP YY_RULE_SETUP
#line 102 "ael.flex" #line 113 "ael.flex"
{ STORE_POS; return EXTENMARK;} { STORE_POS; return EXTENMARK;}
YY_BREAK YY_BREAK
case 12: case 12:
YY_RULE_SETUP YY_RULE_SETUP
#line 103 "ael.flex" #line 114 "ael.flex"
{ STORE_POS; return AT;} { STORE_POS; return AT;}
YY_BREAK YY_BREAK
case 13: case 13:
YY_RULE_SETUP YY_RULE_SETUP
#line 104 "ael.flex" #line 115 "ael.flex"
{/*comment*/} {/*comment*/}
YY_BREAK YY_BREAK
case 14: case 14:
YY_RULE_SETUP YY_RULE_SETUP
#line 105 "ael.flex" #line 116 "ael.flex"
{ STORE_POS; return KW_CONTEXT;} { STORE_POS; return KW_CONTEXT;}
YY_BREAK YY_BREAK
case 15: case 15:
YY_RULE_SETUP YY_RULE_SETUP
#line 106 "ael.flex" #line 117 "ael.flex"
{ STORE_POS; return KW_ABSTRACT;} { STORE_POS; return KW_ABSTRACT;}
YY_BREAK YY_BREAK
case 16: case 16:
YY_RULE_SETUP YY_RULE_SETUP
#line 107 "ael.flex" #line 118 "ael.flex"
{ STORE_POS; return KW_MACRO;}; { STORE_POS; return KW_MACRO;};
YY_BREAK YY_BREAK
case 17: case 17:
YY_RULE_SETUP YY_RULE_SETUP
#line 108 "ael.flex" #line 119 "ael.flex"
{ STORE_POS; return KW_GLOBALS;} { STORE_POS; return KW_GLOBALS;}
YY_BREAK YY_BREAK
case 18: case 18:
YY_RULE_SETUP YY_RULE_SETUP
#line 109 "ael.flex" #line 120 "ael.flex"
{ STORE_POS; return KW_IGNOREPAT;} { STORE_POS; return KW_IGNOREPAT;}
YY_BREAK YY_BREAK
case 19: case 19:
YY_RULE_SETUP YY_RULE_SETUP
#line 110 "ael.flex" #line 121 "ael.flex"
{ STORE_POS; return KW_SWITCH;} { STORE_POS; return KW_SWITCH;}
YY_BREAK YY_BREAK
case 20: case 20:
YY_RULE_SETUP YY_RULE_SETUP
#line 111 "ael.flex" #line 122 "ael.flex"
{ STORE_POS; return KW_IF;} { STORE_POS; return KW_IF;}
YY_BREAK YY_BREAK
case 21: case 21:
YY_RULE_SETUP YY_RULE_SETUP
#line 112 "ael.flex" #line 123 "ael.flex"
{ STORE_POS; return KW_IFTIME;} { STORE_POS; return KW_IFTIME;}
YY_BREAK YY_BREAK
case 22: case 22:
YY_RULE_SETUP YY_RULE_SETUP
#line 113 "ael.flex" #line 124 "ael.flex"
{ STORE_POS; return KW_RANDOM;} { STORE_POS; return KW_RANDOM;}
YY_BREAK YY_BREAK
case 23: case 23:
YY_RULE_SETUP YY_RULE_SETUP
#line 114 "ael.flex" #line 125 "ael.flex"
{ STORE_POS; return KW_REGEXTEN;} { STORE_POS; return KW_REGEXTEN;}
YY_BREAK YY_BREAK
case 24: case 24:
YY_RULE_SETUP YY_RULE_SETUP
#line 115 "ael.flex" #line 126 "ael.flex"
{ STORE_POS; return KW_HINT;} { STORE_POS; return KW_HINT;}
YY_BREAK YY_BREAK
case 25: case 25:
YY_RULE_SETUP YY_RULE_SETUP
#line 116 "ael.flex" #line 127 "ael.flex"
{ STORE_POS; return KW_ELSE;} { STORE_POS; return KW_ELSE;}
YY_BREAK YY_BREAK
case 26: case 26:
YY_RULE_SETUP YY_RULE_SETUP
#line 117 "ael.flex" #line 128 "ael.flex"
{ STORE_POS; return KW_GOTO;} { STORE_POS; return KW_GOTO;}
YY_BREAK YY_BREAK
case 27: case 27:
YY_RULE_SETUP YY_RULE_SETUP
#line 118 "ael.flex" #line 129 "ael.flex"
{ STORE_POS; return KW_JUMP;} { STORE_POS; return KW_JUMP;}
YY_BREAK YY_BREAK
case 28: case 28:
YY_RULE_SETUP YY_RULE_SETUP
#line 119 "ael.flex" #line 130 "ael.flex"
{ STORE_POS; return KW_RETURN;} { STORE_POS; return KW_RETURN;}
YY_BREAK YY_BREAK
case 29: case 29:
YY_RULE_SETUP YY_RULE_SETUP
#line 120 "ael.flex" #line 131 "ael.flex"
{ STORE_POS; return KW_BREAK;} { STORE_POS; return KW_BREAK;}
YY_BREAK YY_BREAK
case 30: case 30:
YY_RULE_SETUP YY_RULE_SETUP
#line 121 "ael.flex" #line 132 "ael.flex"
{ STORE_POS; return KW_CONTINUE;} { STORE_POS; return KW_CONTINUE;}
YY_BREAK YY_BREAK
case 31: case 31:
YY_RULE_SETUP YY_RULE_SETUP
#line 122 "ael.flex" #line 133 "ael.flex"
{ STORE_POS; return KW_FOR;} { STORE_POS; return KW_FOR;}
YY_BREAK YY_BREAK
case 32: case 32:
YY_RULE_SETUP YY_RULE_SETUP
#line 123 "ael.flex" #line 134 "ael.flex"
{ STORE_POS; return KW_WHILE;} { STORE_POS; return KW_WHILE;}
YY_BREAK YY_BREAK
case 33: case 33:
YY_RULE_SETUP YY_RULE_SETUP
#line 124 "ael.flex" #line 135 "ael.flex"
{ STORE_POS; return KW_CASE;} { STORE_POS; return KW_CASE;}
YY_BREAK YY_BREAK
case 34: case 34:
YY_RULE_SETUP YY_RULE_SETUP
#line 125 "ael.flex" #line 136 "ael.flex"
{ STORE_POS; return KW_DEFAULT;} { STORE_POS; return KW_DEFAULT;}
YY_BREAK YY_BREAK
case 35: case 35:
YY_RULE_SETUP YY_RULE_SETUP
#line 126 "ael.flex" #line 137 "ael.flex"
{ STORE_POS; return KW_PATTERN;} { STORE_POS; return KW_PATTERN;}
YY_BREAK YY_BREAK
case 36: case 36:
YY_RULE_SETUP YY_RULE_SETUP
#line 127 "ael.flex" #line 138 "ael.flex"
{ STORE_POS; return KW_CATCH;} { STORE_POS; return KW_CATCH;}
YY_BREAK YY_BREAK
case 37: case 37:
YY_RULE_SETUP YY_RULE_SETUP
#line 128 "ael.flex" #line 139 "ael.flex"
{ STORE_POS; return KW_SWITCHES;} { STORE_POS; return KW_SWITCHES;}
YY_BREAK YY_BREAK
case 38: case 38:
YY_RULE_SETUP YY_RULE_SETUP
#line 129 "ael.flex" #line 140 "ael.flex"
{ STORE_POS; return KW_ESWITCHES;} { STORE_POS; return KW_ESWITCHES;}
YY_BREAK YY_BREAK
case 39: case 39:
YY_RULE_SETUP YY_RULE_SETUP
#line 130 "ael.flex" #line 141 "ael.flex"
{ STORE_POS; return KW_INCLUDES;} { STORE_POS; return KW_INCLUDES;}
YY_BREAK YY_BREAK
case 40: case 40:
/* rule 40 can match eol */ /* rule 40 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 132 "ael.flex" #line 143 "ael.flex"
{ my_lineno++; my_col = 0; } { my_lineno++; my_col = 0; }
YY_BREAK YY_BREAK
case 41: case 41:
YY_RULE_SETUP YY_RULE_SETUP
#line 133 "ael.flex" #line 144 "ael.flex"
{ my_col += yyleng; } { my_col += yyleng; }
YY_BREAK YY_BREAK
case 42: case 42:
YY_RULE_SETUP YY_RULE_SETUP
#line 134 "ael.flex" #line 145 "ael.flex"
{ my_col += 8-(my_col%8); } { my_col += 8-(my_col%8); }
YY_BREAK YY_BREAK
case 43: case 43:
YY_RULE_SETUP YY_RULE_SETUP
#line 136 "ael.flex" #line 147 "ael.flex"
{ {
STORE_POS; STORE_POS;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
@ -1256,16 +1267,13 @@ YY_RULE_SETUP
case 44: case 44:
/* rule 44 can match eol */ /* rule 44 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 146 "ael.flex" #line 157 "ael.flex"
{ {
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(')') ) { /* error */ if ( pbcpop(')') ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression: %s !\n", my_file, my_lineno, my_col, yytext); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression: %s !\n", my_file, my_lineno, my_col, yytext);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
prev_word = 0; prev_word = 0;
return word; return word;
@ -1274,9 +1282,7 @@ YY_RULE_SETUP
if ( parencount >= 0) { if ( parencount >= 0) {
yymore(); yymore();
} else { } else {
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
*(yylval->str+strlen(yylval->str)-1)=0; *(yylval->str+strlen(yylval->str)-1)=0;
/* printf("Got paren word %s\n", yylval->str); */ /* printf("Got paren word %s\n", yylval->str); */
@ -1289,11 +1295,10 @@ YY_RULE_SETUP
case 45: case 45:
/* rule 45 can match eol */ /* rule 45 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 175 "ael.flex" #line 181 "ael.flex"
{ {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if (c == '(') if (c == '(')
parencount++; parencount++;
pbcpush(c); pbcpush(c);
@ -1303,18 +1308,15 @@ YY_RULE_SETUP
case 46: case 46:
/* rule 46 can match eol */ /* rule 46 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 185 "ael.flex" #line 190 "ael.flex"
{ {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(c)) { /* error */ if ( pbcpop(c)) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n",
my_file, my_lineno, my_col, c); my_file, my_lineno, my_col, c);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
@ -1324,13 +1326,12 @@ YY_RULE_SETUP
case 47: case 47:
/* rule 47 can match eol */ /* rule 47 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 202 "ael.flex" #line 204 "ael.flex"
{ {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/* printf("ARGG:%s\n",yytext); */ /* printf("ARGG:%s\n",yytext); */
/* printf("GOT AN LP!!!\n"); */ /* printf("GOT AN LP!!!\n"); */
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if (c == '(') if (c == '(')
parencount++; parencount++;
pbcpush(c); pbcpush(c);
@ -1340,24 +1341,19 @@ YY_RULE_SETUP
case 48: case 48:
/* rule 48 can match eol */ /* rule 48 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 214 "ael.flex" #line 215 "ael.flex"
{ {
/* printf("ARGG:%s\n",yytext); */ /* printf("ARGG:%s\n",yytext); */
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(')') ) { /* error */ if ( pbcpop(')') ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression!\n", my_file, my_lineno, my_col); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched ')' in expression!\n", my_file, my_lineno, my_col);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
parencount--; parencount--;
if( parencount >= 0){ if( parencount >= 0){
yymore(); yymore();
@ -1382,7 +1378,7 @@ YY_RULE_SETUP
case 49: case 49:
/* rule 49 can match eol */ /* rule 49 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 252 "ael.flex" #line 248 "ael.flex"
{ {
/* printf("ARGG:%s\n",yytext); */ /* printf("ARGG:%s\n",yytext); */
if( parencount != 0) { if( parencount != 0) {
@ -1390,11 +1386,8 @@ YY_RULE_SETUP
yymore(); yymore();
} else { } else {
/* printf("got a comma!\n\n"); */ /* printf("got a comma!\n\n"); */
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col; STORE_END;
pbcwhere(yytext, &my_lineno, &my_col);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
if( !commaout ) { if( !commaout ) {
if( !strcmp(yytext,"," ) ) { if( !strcmp(yytext,"," ) ) {
commaout = 0; commaout = 0;
@ -1419,18 +1412,15 @@ YY_RULE_SETUP
case 50: case 50:
/* rule 50 can match eol */ /* rule 50 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 285 "ael.flex" #line 278 "ael.flex"
{ {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/*printf("ARGG:%s\n",yytext);*/ /*printf("ARGG:%s\n",yytext);*/
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(c) ) { /* error */ if ( pbcpop(c) ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column = my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
@ -1440,12 +1430,11 @@ YY_RULE_SETUP
case 51: case 51:
/* rule 51 can match eol */ /* rule 51 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 304 "ael.flex" #line 294 "ael.flex"
{ {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/*printf("SEMIC:%s\n",yytext);*/ /*printf("SEMIC:%s\n",yytext);*/
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
yymore(); yymore();
pbcpush(c); pbcpush(c);
} }
@ -1453,18 +1442,15 @@ YY_RULE_SETUP
case 52: case 52:
/* rule 52 can match eol */ /* rule 52 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 313 "ael.flex" #line 302 "ael.flex"
{ {
char c = yytext[yyleng-1]; char c = yytext[yyleng-1];
/*printf("SEMIC:%s\n",yytext);*/ /*printf("SEMIC:%s\n",yytext);*/
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col;
if ( pbcpop(c) ) { /* error */ if ( pbcpop(c) ) { /* error */
pbcwhere(yytext, &my_lineno, &my_col); STORE_END;
ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c); ast_log(LOG_ERROR,"File=%s, line=%d, column=%d: Mismatched '%c' in expression!\n", my_file, my_lineno, my_col, c);
BEGIN(0); BEGIN(0);
yylloc->last_line = my_lineno;
yylloc->last_column= my_col;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
return word; return word;
} }
@ -1474,13 +1460,10 @@ YY_RULE_SETUP
case 53: case 53:
/* rule 53 can match eol */ /* rule 53 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 330 "ael.flex" #line 316 "ael.flex"
{ {
yylloc->first_line = my_lineno; STORE_START;
yylloc->first_column=my_col; STORE_END;
pbcwhere(yytext, &my_lineno, &my_col);
yylloc->last_line = my_lineno;
yylloc->last_column=my_col;;
yylval->str = strdup(yytext); yylval->str = strdup(yytext);
if(yyleng > 1) if(yyleng > 1)
*(yylval->str+yyleng-1)=0; *(yylval->str+yyleng-1)=0;
@ -1493,7 +1476,7 @@ YY_RULE_SETUP
case 54: case 54:
/* rule 54 can match eol */ /* rule 54 can match eol */
YY_RULE_SETUP YY_RULE_SETUP
#line 345 "ael.flex" #line 328 "ael.flex"
{ {
FILE *in1; FILE *in1;
char fnamebuf[1024],*p1,*p2; char fnamebuf[1024],*p1,*p2;
@ -1560,7 +1543,7 @@ case YY_STATE_EOF(INITIAL):
case YY_STATE_EOF(paren): case YY_STATE_EOF(paren):
case YY_STATE_EOF(semic): case YY_STATE_EOF(semic):
case YY_STATE_EOF(argg): case YY_STATE_EOF(argg):
#line 407 "ael.flex" #line 390 "ael.flex"
{ {
if ( --include_stack_index < 0 ) { if ( --include_stack_index < 0 ) {
yyterminate(); yyterminate();
@ -1576,10 +1559,10 @@ case YY_STATE_EOF(argg):
YY_BREAK YY_BREAK
case 55: case 55:
YY_RULE_SETUP YY_RULE_SETUP
#line 420 "ael.flex" #line 403 "ael.flex"
ECHO; ECHO;
YY_BREAK YY_BREAK
#line 1583 "ael_lex.c" #line 1566 "ael_lex.c"
case YY_END_OF_BUFFER: case YY_END_OF_BUFFER:
{ {
@ -2709,7 +2692,7 @@ void ael_yyfree (void * ptr , yyscan_t yyscanner)
#define YYTABLES_NAME "yytables" #define YYTABLES_NAME "yytables"
#line 420 "ael.flex" #line 403 "ael.flex"

Write Preview
Loading…
Cancel
Save