]> git.ipfire.org Git - thirdparty/bird.git/blob - conf/gen_keywords.m4
Parse CLI commands. We use the same parser as for configuration files (because
[thirdparty/bird.git] / conf / gen_keywords.m4
1 m4_divert(-1)m4_dnl
2 #
3 # BIRD -- Generator of Configuration Keyword List
4 #
5 # (c) 1998--1999 Martin Mares <mj@atrey.karlin.mff.cuni.cz>
6 #
7 # Can be freely distributed and used under the terms of the GNU GPL.
8 #
9
10 # Simple iterator
11 m4_define(CF_itera, `m4_ifelse($#, 1, [[CF_iter($1)]], [[CF_iter($1)[[]]CF_itera(m4_shift($@))]])')
12 m4_define(CF_iterate, `m4_define([[CF_iter]], m4_defn([[$1]]))CF_itera($2)')
13
14 # Keywords are translated to C initializers
15 m4_define(CF_handle_kw, `m4_divert(0){ "m4_translit($1,[[A-Z]],[[a-z]])", $1 },
16 m4_divert(-1)')
17 m4_define(CF_keywd, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)CF_handle_kw($1)]])')
18 m4_define(CF_KEYWORDS, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd]], [[$@]])m4_ifelse(CF_toks,,,%token[[]]CF_toks
19 )DNL')
20
21 # CLI commands generate keywords as well
22 m4_define(CF_CLI, `CF_KEYWORDS(m4_translit($1, [[ ]], [[,]]))
23 ')
24
25 # As we are processing C source, we must access all M4 primitives via
26 # m4_* and also set different quoting convention: `[[' and ']]'
27 m4_changequote([[,]])