shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 1 | %{ |
| 2 | #include "emp_ematch.yacc.h" |
| 3 | #include "m_ematch.h" |
| 4 | |
| 5 | extern int ematch_argc; |
| 6 | extern char **ematch_argv; |
| 7 | |
shemminger | 737f15f | 2005-07-08 22:08:47 +0000 | [diff] [blame] | 8 | #define yylval ematch_lval |
| 9 | |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 10 | #define NEXT_EM_ARG() do { ematch_argc--; ematch_argv++; } while(0); |
| 11 | |
| 12 | #define YY_INPUT(buf, result, max_size) \ |
| 13 | { \ |
| 14 | next: \ |
| 15 | if (ematch_argc <= 0) \ |
| 16 | result = YY_NULL; \ |
| 17 | else if (**ematch_argv == '\0') { \ |
| 18 | NEXT_EM_ARG(); \ |
| 19 | goto next; \ |
| 20 | } else { \ |
| 21 | if (max_size <= strlen(*ematch_argv) + 1) { \ |
| 22 | fprintf(stderr, "match argument too long.\n"); \ |
| 23 | result = YY_NULL; \ |
| 24 | } else { \ |
| 25 | strcpy(buf, *ematch_argv); \ |
| 26 | result = strlen(*ematch_argv) + 1; \ |
| 27 | buf[result-1] = ' '; \ |
| 28 | buf[result] = '\0'; \ |
| 29 | NEXT_EM_ARG(); \ |
| 30 | } \ |
| 31 | } \ |
| 32 | } |
| 33 | |
| 34 | static void __attribute__ ((unused)) yyunput (int c,char *buf_ptr ); |
| 35 | static void __attribute__ ((unused)) yy_push_state (int new_state ); |
| 36 | static void __attribute__ ((unused)) yy_pop_state (void); |
| 37 | static int __attribute__ ((unused)) yy_top_state (void ); |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 38 | |
shemminger | 3fcdebb | 2005-07-14 16:49:27 +0000 | [diff] [blame] | 39 | static char *strbuf; |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 40 | static unsigned int strbuf_size; |
| 41 | static unsigned int strbuf_index; |
| 42 | |
shemminger | 737f15f | 2005-07-08 22:08:47 +0000 | [diff] [blame] | 43 | static void strbuf_enlarge(void) |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 44 | { |
| 45 | strbuf_size += 512; |
| 46 | strbuf = realloc(strbuf, strbuf_size); |
| 47 | } |
| 48 | |
shemminger | 3fcdebb | 2005-07-14 16:49:27 +0000 | [diff] [blame] | 49 | static void strbuf_append_char(char c) |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 50 | { |
| 51 | while (strbuf_index >= strbuf_size) |
| 52 | strbuf_enlarge(); |
| 53 | strbuf[strbuf_index++] = c; |
| 54 | } |
| 55 | |
shemminger | 3fcdebb | 2005-07-14 16:49:27 +0000 | [diff] [blame] | 56 | static void strbuf_append_charp(char *s) |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 57 | { |
| 58 | while (strbuf_index >= strbuf_size) |
| 59 | strbuf_enlarge(); |
| 60 | memcpy(strbuf + strbuf_index, s, strlen(s)); |
| 61 | strbuf_index += strlen(s); |
| 62 | } |
| 63 | |
shemminger | 3fcdebb | 2005-07-14 16:49:27 +0000 | [diff] [blame] | 64 | %} |
| 65 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 66 | %x lexstr |
shemminger | 3fcdebb | 2005-07-14 16:49:27 +0000 | [diff] [blame] | 67 | |
| 68 | %option 8bit stack warn noyywrap prefix="ematch_" |
| 69 | %% |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 70 | [ \t\r\n]+ |
| 71 | |
| 72 | \" { |
| 73 | if (strbuf == NULL) { |
| 74 | strbuf_size = 512; |
| 75 | strbuf = calloc(1, strbuf_size); |
| 76 | if (strbuf == NULL) |
| 77 | return ERROR; |
| 78 | } |
| 79 | strbuf_index = 0; |
Stephen Hemminger | ae665a5 | 2006-12-05 10:10:22 -0800 | [diff] [blame] | 80 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 81 | BEGIN(lexstr); |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 82 | } |
| 83 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 84 | <lexstr>\" { |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 85 | BEGIN(INITIAL); |
shemminger | 737f15f | 2005-07-08 22:08:47 +0000 | [diff] [blame] | 86 | yylval.b = bstr_new(strbuf, strbuf_index); |
| 87 | yylval.b->quoted = 1; |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 88 | return ATTRIBUTE; |
| 89 | } |
| 90 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 91 | <lexstr>\\[0-7]{1,3} { /* octal escape sequence */ |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 92 | int res; |
Stephen Hemminger | ae665a5 | 2006-12-05 10:10:22 -0800 | [diff] [blame] | 93 | |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 94 | sscanf(yytext + 1, "%o", &res); |
| 95 | if (res > 0xFF) { |
| 96 | fprintf(stderr, "error: octal escape sequence" \ |
| 97 | " out of range\n"); |
| 98 | return ERROR; |
| 99 | } |
| 100 | strbuf_append_char((unsigned char) res); |
| 101 | } |
| 102 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 103 | <lexstr>\\[0-9]+ { /* catch wrong octal escape seq. */ |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 104 | fprintf(stderr, "error: invalid octale escape sequence\n"); |
| 105 | return ERROR; |
| 106 | } |
| 107 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 108 | <lexstr>\\x[0-9a-fA-F]{1,2} { |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 109 | int res; |
Stephen Hemminger | ae665a5 | 2006-12-05 10:10:22 -0800 | [diff] [blame] | 110 | |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 111 | sscanf(yytext + 2, "%x", &res); |
Stephen Hemminger | ae665a5 | 2006-12-05 10:10:22 -0800 | [diff] [blame] | 112 | |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 113 | if (res > 0xFF) { |
| 114 | fprintf(stderr, "error: hexadecimal escape " \ |
| 115 | "sequence out of range\n"); |
| 116 | return ERROR; |
| 117 | } |
| 118 | strbuf_append_char((unsigned char) res); |
| 119 | } |
| 120 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 121 | <lexstr>\\n strbuf_append_char('\n'); |
| 122 | <lexstr>\\r strbuf_append_char('\r'); |
| 123 | <lexstr>\\t strbuf_append_char('\t'); |
| 124 | <lexstr>\\v strbuf_append_char('\v'); |
| 125 | <lexstr>\\b strbuf_append_char('\b'); |
| 126 | <lexstr>\\f strbuf_append_char('\f'); |
| 127 | <lexstr>\\a strbuf_append_char('\a'); |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 128 | |
Bart Trojanowski | 608a96c | 2010-04-19 09:12:57 -0400 | [diff] [blame] | 129 | <lexstr>\\(.|\n) strbuf_append_char(yytext[1]); |
| 130 | <lexstr>[^\\\n\"]+ strbuf_append_charp(yytext); |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 131 | |
| 132 | [aA][nN][dD] return AND; |
| 133 | [oO][rR] return OR; |
| 134 | [nN][oO][tT] return NOT; |
| 135 | "(" | |
| 136 | ")" { |
shemminger | 737f15f | 2005-07-08 22:08:47 +0000 | [diff] [blame] | 137 | return yylval.i = *yytext; |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 138 | } |
| 139 | [^ \t\r\n()]+ { |
shemminger | 737f15f | 2005-07-08 22:08:47 +0000 | [diff] [blame] | 140 | yylval.b = bstr_alloc(yytext); |
| 141 | if (yylval.b == NULL) |
shemminger | 311b414 | 2005-06-23 20:25:16 +0000 | [diff] [blame] | 142 | return ERROR; |
| 143 | return ATTRIBUTE; |
| 144 | } |
| 145 | %% |