![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to confbase.Y CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / bird / conf|
Return to confbase.Y CVS log | Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / bird / conf |
1.1 misho 1: /*
2: * BIRD -- Configuration Parser Top
3: *
4: * (c) 1998--2000 Martin Mares <mj@ucw.cz>
5: *
6: * Can be freely distributed and used under the terms of the GNU GPL.
7: */
8:
9: CF_HDR
10:
11: #define PARSER 1
12:
13: #include "nest/bird.h"
14: #include "conf/conf.h"
15: #include "lib/resource.h"
16: #include "lib/socket.h"
17: #include "lib/timer.h"
18: #include "lib/string.h"
19: #include "nest/protocol.h"
20: #include "nest/iface.h"
21: #include "nest/route.h"
22: #include "nest/cli.h"
23: #include "filter/filter.h"
24:
25: /* FIXME: Turn on YYERROR_VERBOSE and work around lots of bison bugs? */
26:
27: CF_DEFINES
28:
29: static void
30: check_u16(unsigned val)
31: {
32: if (val > 0xFFFF)
33: cf_error("Value %d out of range (0-65535)", val);
34: }
35:
36: CF_DECLS
37:
38: %union {
39: int i;
40: u32 i32;
41: ip_addr a;
42: struct symbol *s;
43: char *t;
44: struct rtable_config *r;
45: struct f_inst *x;
46: struct filter *f;
47: struct f_tree *e;
48: struct f_trie *trie;
49: struct f_val v;
50: struct f_path_mask *h;
51: struct password_item *p;
52: struct rt_show_data *ra;
53: struct roa_show_data *ro;
54: struct sym_show_data *sd;
55: struct lsadb_show_data *ld;
56: struct iface *iface;
57: struct roa_table *rot;
58: void *g;
59: bird_clock_t time;
60: struct prefix px;
61: struct proto_spec ps;
62: struct timeformat *tf;
63: }
64:
65: %token END CLI_MARKER INVALID_TOKEN ELSECOL DDOT
66: %token GEQ LEQ NEQ AND OR
67: %token PO PC
68: %token <i> NUM ENUM
69: %token <i32> RTRID
70: %token <a> IPA
71: %token <s> SYM
72: %token <t> TEXT
73: %type <iface> ipa_scope
74:
75: %type <i> expr bool pxlen
76: %type <i32> expr_us
77: %type <time> datetime
78: %type <a> ipa
79: %type <px> prefix prefix_or_ipa
80: %type <t> text
81: %type <t> text_or_none
82:
83: %nonassoc PREFIX_DUMMY
84: %left AND OR
85: %nonassoc '=' '<' '>' '~' GEQ LEQ NEQ NMA PO PC
86: %left '+' '-'
87: %left '*' '/' '%'
88: %left '!'
89: %nonassoc '.'
90:
91: CF_KEYWORDS(DEFINE, ON, OFF, YES, NO, S, MS, US, PORT)
92:
93: CF_GRAMMAR
94:
95: /* Basic config file structure */
96:
97: config: conf_entries END { return 0; }
98: | CLI_MARKER cli_cmd { return 0; }
99: ;
100:
101: conf_entries:
102: /* EMPTY */
103: | conf_entries conf
104: ;
105:
106: CF_ADDTO(conf, ';')
107:
108:
109: /* Constant expressions */
110:
111: CF_ADDTO(conf, definition)
112: definition:
113: DEFINE SYM '=' term ';' {
114: struct f_val *val = cfg_alloc(sizeof(struct f_val));
115: *val = f_eval($4, cfg_mem);
116: if (val->type == T_RETURN) cf_error("Runtime error");
117: cf_define_symbol($2, SYM_CONSTANT | val->type, val);
118: }
119: ;
120:
121: expr:
122: NUM
123: | '(' term ')' { $$ = f_eval_int($2); }
124: | SYM {
125: if ($1->class != (SYM_CONSTANT | T_INT)) cf_error("Number expected");
126: $$ = SYM_VAL($1).i; }
127: ;
128:
129:
130: expr_us:
131: expr S { $$ = (u32) $1 * 1000000; }
132: | expr MS { $$ = (u32) $1 * 1000; }
133: | expr US { $$ = (u32) $1 * 1; }
134: ;
135:
136: /* expr_u16: expr { check_u16($1); $$ = $1; }; */
137:
138: /* Switches */
139:
140: bool:
141: expr { $$ = !!$1; }
142: | ON { $$ = 1; }
143: | YES { $$ = 1; }
144: | OFF { $$ = 0; }
145: | NO { $$ = 0; }
146: | /* Silence means agreement */ { $$ = 1; }
147: ;
148:
149: /* Addresses, prefixes and netmasks */
150:
151: ipa:
152: IPA
153: | SYM {
154: if ($1->class != (SYM_CONSTANT | T_IP)) cf_error("IP address expected");
155: $$ = SYM_VAL($1).px.ip;
156: }
157: ;
158:
159: ipa_scope:
160: /* empty */ { $$ = NULL; }
161: | '%' SYM { $$ = if_get_by_name($2->name); }
162: ;
163:
164: prefix:
165: ipa pxlen {
166: if (!ip_is_prefix($1, $2)) cf_error("Invalid prefix");
167: $$.addr = $1; $$.len = $2;
168: }
169: ;
170:
171: prefix_or_ipa:
172: prefix
173: | ipa { $$.addr = $1; $$.len = BITS_PER_IP_ADDRESS; }
174: ;
175:
176: pxlen:
177: '/' expr {
178: if ($2 < 0 || $2 > BITS_PER_IP_ADDRESS) cf_error("Invalid prefix length %d", $2);
179: $$ = $2;
180: }
181: | ':' ipa {
182: $$ = ipa_masklen($2);
183: if ($$ < 0) cf_error("Invalid netmask %I", $2);
184: }
185: ;
186:
187: datetime:
188: TEXT {
189: $$ = tm_parse_datetime($1);
190: if (!$$)
191: cf_error("Invalid date and time");
192: }
193: ;
194:
195: text:
196: TEXT
197: | SYM {
198: if ($1->class != (SYM_CONSTANT | T_STRING)) cf_error("String expected");
199: $$ = SYM_VAL($1).s;
200: }
201: ;
202:
203: text_or_none:
204: TEXT { $$ = $1; }
205: | { $$ = NULL; }
206: ;
207:
208: CF_CODE
209:
210: CF_END