chiark / gitweb /
rsa: De-indirect a lot of `loc's
[secnet.git] / conffile.y
1 %token TOK_STRING
2 %token TOK_NUMBER
3 %token TOK_KEY
4
5 %start input
6
7 %{
8 #include <stdio.h>
9 #include <stdlib.h>
10 #include <string.h>
11 /* Bison stupidly redeclares malloc/free unless they are #defined
12  * (or a bunch of madder conditions) */
13 #ifndef malloc
14 # define malloc malloc
15 # define free free
16 #endif
17 #include "secnet.h"
18 #include "conffile_internal.h"
19 #include "conffile.yy.h"
20 #include "util.h"
21 #define YYERROR_VERBOSE
22
23 static struct p_node *node(uint32_t type, struct p_node *l, struct p_node *r);
24
25 static struct p_node *result;
26
27 static void yyerror(const char *s);
28
29 %}
30
31 %%
32
33 input:            assignments { result = $1; $$=result; }
34                 ;
35
36 assignments:      assignments assignment { $$=node(T_ALIST, $2, $1); }
37                 | assignment { $$=node(T_ALIST, $1, NULL); }
38                 ;
39
40 searchpath:       /* empty */ { $$ = NULL; }
41                 | '<' list '>' { $$ = $2; }
42                 ;
43
44 dict:             searchpath '{' assignments '}'
45         { $$ = node(T_DICT, $3, $1); }
46                 | searchpath '{' '}' { $$ = node(T_DICT, NULL, $1); }
47                 ;
48
49 path:             '/' pathelements { $$ = node(T_ABSPATH, NULL, $2); }
50                 | pathelements { $$ = node(T_RELPATH, NULL, $1); }
51                 ;
52
53 pathelements:     pathelements '/' TOK_KEY { $$ = node(T_PATHELEM, $3, $1); }
54                 | TOK_KEY { $$ = node(T_PATHELEM, $1, NULL); }
55                 ;
56
57 exec:             item '(' list ')' { $$ = node(T_EXEC, $1, $3); }
58                 | item '(' ')' { $$ = node(T_EXEC, $1, NULL); }
59                 | item dict
60         { $$ = node(T_EXEC, $1, node(T_LISTITEM, $2, NULL)); }
61                 ;
62
63 list:             list ',' item { $$ = node(T_LISTITEM, $3, $1); }
64                 | item { $$ = node(T_LISTITEM, $1, NULL); }
65                 ;
66
67 assignment:       TOK_KEY '=' list ';' { $$ = node(T_ASSIGNMENT, $1, $3); }
68                 | TOK_KEY list ';' { $$ = node(T_ASSIGNMENT, $1, $2); }
69                 | error ';' { $$ = node(T_ERROR, NULL, NULL); }
70                 | error '}' { $$ = node(T_ERROR, NULL, NULL); }
71                 | error ')' { $$ = node(T_ERROR, NULL, NULL); }
72                 ;
73
74 item:             TOK_STRING
75                 | TOK_NUMBER
76                 | path
77                 | dict
78                 | exec
79                 ;
80
81 %%
82
83 static void yyerror(const char *s)
84 {
85         Message(M_FATAL,"config file %s line %d: %s\n",config_file,
86                 config_lineno,s);
87 }
88
89 struct p_node *parse_conffile(FILE *conffile)
90 {
91         yyin=conffile;
92         if (yyparse()!=0) {
93                 fatal("Configuration file parsing failed\n");
94         }
95         if (yynerrs>0) {
96                 fatal("%d error%s encountered in configuration file\n",
97                 yynerrs,yynerrs==1?"":"s");
98         }
99         return result;
100 }
101
102 static struct p_node *node(uint32_t type, struct p_node *l, struct p_node *r)
103 {
104         struct p_node *rv;
105
106         NEW(rv);
107         rv->type=type;
108         rv->loc.file=config_file;
109         rv->loc.line=config_lineno;
110         rv->l=l;
111         rv->r=r;
112         return rv;
113 }