]>
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 |
ce6ca809 MM |
37 | )DNL') |
38 | ||
f5140d10 | 39 | m4_define(CF_keywd2, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)m4_define([[CF_toks]],CF_toks $1)]])') |
8e177cf3 | 40 | m4_define(CF_KEYWORDS_EXCLUSIVE, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd2]], [[$@]])m4_ifelse(CF_toks,,,%token<s>[[]]CF_toks |
f5140d10 OZ |
41 | )DNL') |
42 | ||
bc2fb680 MM |
43 | # CLI commands |
44 | m4_define(CF_CLI, `m4_define([[CF_cmd]], cmd_[[]]m4_translit($1, [[ ]], _))DNL | |
45 | m4_divert(2)CF_KEYWORDS(m4_translit($1, [[ ]], [[,]])) | |
f851f0d7 | 46 | m4_divert(3)cli_cmd: CF_cmd |
ffb59d24 | 47 | CF_cmd: $1 $2 END') |
a92cf57d | 48 | m4_define(CF_CLI_CMD, `') |
ffb59d24 | 49 | m4_define(CF_CLI_HELP, `') |
bc2fb680 | 50 | |
944f008a MM |
51 | # ENUM declarations are ignored |
52 | m4_define(CF_ENUM, `') | |
0edf0c8c | 53 | m4_define(CF_ENUM_PX, `') |
944f008a | 54 | |
ce6ca809 MM |
55 | # After all configuration templates end, we finally generate the grammar file. |
56 | m4_m4wrap(` | |
57 | m4_divert(0)DNL | |
58 | %{ | |
59 | m4_undivert(1)DNL | |
60 | %} | |
61 | ||
62 | m4_undivert(2)DNL | |
63 | ||
8e177cf3 | 64 | %type <s> KEYWORD |
f5140d10 | 65 | |
ce6ca809 | 66 | %% |
f5140d10 OZ |
67 | KEYWORD: CF_kw_rule; |
68 | ||
ce6ca809 MM |
69 | m4_undivert(3)DNL |
70 | ||
ce6ca809 MM |
71 | %% |
72 | m4_undivert(4)DNL | |
73 | ') | |
74 | ||
75 | # As we are processing C source, we must access all M4 primitives via | |
76 | # m4_* and also set different quoting convention: `[[' and ']]' | |
77 | m4_changequote([[,]]) |