]>
Commit | Line | Data |
---|---|---|
ce6ca809 MM |
1 | m4_divert(-1)m4_dnl |
2 | # | |
3 | # BIRD -- Generator of Configuration Grammar | |
4 | # | |
bc2fb680 | 5 | # (c) 1998--1999 Martin Mares <mj@atrey.karlin.mff.cuni.cz> |
ce6ca809 MM |
6 | # |
7 | # Can be freely distributed and used under the terms of the GNU GPL. | |
8 | # | |
9 | ||
10 | # Diversions used: | |
11 | # 1 includes | |
12 | # 2 types etc. | |
13 | # 3 rules | |
14 | # 4 C code | |
15 | ||
16 | # Common aliases | |
17 | m4_define(DNL, `m4_dnl') | |
18 | ||
19 | # Define macros for defining sections | |
20 | m4_define(CF_ZONE, `m4_divert($1)/* $2 from m4___file__ */') | |
21 | m4_define(CF_HDR, `CF_ZONE(1, Headers)') | |
2edb31b0 | 22 | m4_define(CF_DEFINES, `CF_ZONE(1, Defines)') |
ce6ca809 MM |
23 | m4_define(CF_DECLS, `CF_ZONE(2, Declarations)') |
24 | m4_define(CF_GRAMMAR, `CF_ZONE(3, Grammar)') | |
25 | m4_define(CF_CODE, `CF_ZONE(4, C Code)') | |
26 | m4_define(CF_END, `m4_divert(-1)') | |
27 | ||
28 | # Simple iterator | |
29 | m4_define(CF_itera, `m4_ifelse($#, 1, [[CF_iter($1)]], [[CF_iter($1)[[]]CF_itera(m4_shift($@))]])') | |
30 | m4_define(CF_iterate, `m4_define([[CF_iter]], m4_defn([[$1]]))CF_itera($2)') | |
31 | ||
f5140d10 OZ |
32 | m4_define(CF_append, `m4_define([[$1]], m4_ifdef([[$1]], m4_defn([[$1]])[[$3]])[[$2]])') |
33 | ||
8e177cf3 | 34 | # Keywords act as %token<s> |
f5140d10 | 35 | m4_define(CF_keywd, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)CF_append([[CF_kw_rule]],$1,[[ | ]])m4_define([[CF_toks]],CF_toks $1)]])') |
8e177cf3 | 36 | m4_define(CF_KEYWORDS, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd]], [[$@]])m4_ifelse(CF_toks,,,%token<s>[[]]CF_toks |
f86c86b7 MM |
37 | )DNL') |
38 | m4_define(CF_METHODS, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd]], [[$@]])m4_ifelse(CF_toks,,,%token<s>[[]]CF_toks | |
ce6ca809 MM |
39 | )DNL') |
40 | ||
f5140d10 | 41 | m4_define(CF_keywd2, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)m4_define([[CF_toks]],CF_toks $1)]])') |
8e177cf3 | 42 | m4_define(CF_KEYWORDS_EXCLUSIVE, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd2]], [[$@]])m4_ifelse(CF_toks,,,%token<s>[[]]CF_toks |
f5140d10 OZ |
43 | )DNL') |
44 | ||
bc2fb680 MM |
45 | # CLI commands |
46 | m4_define(CF_CLI, `m4_define([[CF_cmd]], cmd_[[]]m4_translit($1, [[ ]], _))DNL | |
47 | m4_divert(2)CF_KEYWORDS(m4_translit($1, [[ ]], [[,]])) | |
f851f0d7 | 48 | m4_divert(3)cli_cmd: CF_cmd |
ffb59d24 | 49 | CF_cmd: $1 $2 END') |
a92cf57d | 50 | m4_define(CF_CLI_CMD, `') |
ffb59d24 | 51 | m4_define(CF_CLI_HELP, `') |
bc2fb680 | 52 | |
944f008a MM |
53 | # ENUM declarations are ignored |
54 | m4_define(CF_ENUM, `') | |
0edf0c8c | 55 | m4_define(CF_ENUM_PX, `') |
944f008a | 56 | |
ce6ca809 MM |
57 | # After all configuration templates end, we finally generate the grammar file. |
58 | m4_m4wrap(` | |
59 | m4_divert(0)DNL | |
60 | %{ | |
61 | m4_undivert(1)DNL | |
62 | %} | |
63 | ||
64 | m4_undivert(2)DNL | |
65 | ||
8e177cf3 | 66 | %type <s> KEYWORD |
f5140d10 | 67 | |
ce6ca809 | 68 | %% |
f5140d10 OZ |
69 | KEYWORD: CF_kw_rule; |
70 | ||
ce6ca809 MM |
71 | m4_undivert(3)DNL |
72 | ||
ce6ca809 MM |
73 | %% |
74 | m4_undivert(4)DNL | |
75 | ') | |
76 | ||
77 | # As we are processing C source, we must access all M4 primitives via | |
78 | # m4_* and also set different quoting convention: `[[' and ']]' | |
79 | m4_changequote([[,]]) |