diff options
| author | Martin Mares <mj@ucw.cz> | 1998-11-27 20:33:26 +0100 |
|---|---|---|
| committer | Martin Mares <mj@ucw.cz> | 1998-11-27 20:33:26 +0100 |
| commit | 882c588a4060739a4820941cd1c6014bd10ab0db (patch) | |
| tree | 359525a00123b1e5ab026c76a9104f49d03b18f5 | |
| parent | d2ed2579fa365fa36b7882ef847b9e640290c05e (diff) | |
| download | bird-882c588a4060739a4820941cd1c6014bd10ab0db.tar bird-882c588a4060739a4820941cd1c6014bd10ab0db.zip | |
This script takes configuration fragments and extracts keyword list
from them.
| -rw-r--r-- | conf/gen_keywords.m4 | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/conf/gen_keywords.m4 b/conf/gen_keywords.m4 new file mode 100644 index 0000000..8bbe490 --- /dev/null +++ b/conf/gen_keywords.m4 @@ -0,0 +1,23 @@ +m4_divert(-1)m4_dnl +# +# BIRD -- Generator of Configuration Keyword List +# +# (c) 1998 Martin Mares <mj@atrey.karlin.mff.cuni.cz> +# +# Can be freely distributed and used under the terms of the GNU GPL. +# + +# Simple iterator +m4_define(CF_itera, `m4_ifelse($#, 1, [[CF_iter($1)]], [[CF_iter($1)[[]]CF_itera(m4_shift($@))]])') +m4_define(CF_iterate, `m4_define([[CF_iter]], m4_defn([[$1]]))CF_itera($2)') + +# Keywords are translated to C initializers +m4_define(CF_handle_kw, `m4_divert(0){ "m4_translit($1,[[A-Z]],[[a-z]])", $1 }, +m4_divert(-1)') +m4_define(CF_keywd, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)CF_handle_kw($1)]])') +m4_define(CF_KEYWORDS, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd]], [[$@]])m4_ifelse(CF_toks,,,%token[[]]CF_toks +)DNL') + +# As we are processing C source, we must access all M4 primitives via +# m4_* and also set different quoting convention: `[[' and ']]' +m4_changequote([[,]]) |