conf/gen_parser.m4

   1 m4_divert(-1)m4_dnl
   2 #
   3 #       BIRD -- Generator of Configuration Grammar
   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 # 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)')
  22 m4_define(CF_DEFINES, `CF_ZONE(1, Defines)')
  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
  32 # Keywords act as untyped %token
  33 m4_define(CF_keywd, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)m4_define([[CF_toks]],CF_toks $1)]])')
  34 m4_define(CF_KEYWORDS, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd]], [[$@]])m4_ifelse(CF_toks,,,%token[[]]CF_toks
  35 )DNL')
  36
  37 # Dynamic syntax rules
  38 m4_define(CF_dyn_rules,)
  39 m4_define(CF_ADDTO, `m4_define([[CF_rule_$1]],m4_ifdef([[CF_rule_$1]],CF_rule_$1 | ,[[m4_define([[CF_dyn_rules]],CF_dyn_rules[[CF_RULE($1)
  40 ]])]])$2)DNL')
  41
  42 # CLI commands
  43 m4_define(CF_CLI, `m4_define([[CF_cmd]], cmd_[[]]m4_translit($1, [[ ]], _))DNL
  44 m4_divert(2)CF_KEYWORDS(m4_translit($1, [[ ]], [[,]]))
  45 m4_divert(3)CF_ADDTO(cli_cmd, CF_cmd)
  46 CF_cmd: $1 $2 END')
  47 m4_define(CF_CLI_CMD, `')
  48 m4_define(CF_CLI_HELP, `')
  49
  50 # ENUM declarations are ignored
  51 m4_define(CF_ENUM, `')
  52
  53 # After all configuration templates end, we finally generate the grammar file.
  54 m4_m4wrap(`
  55 m4_divert(0)DNL
  56 %{
  57 m4_undivert(1)DNL
  58 %}
  59
  60 m4_undivert(2)DNL
  61
  62 %%
  63 m4_undivert(3)DNL
  64
  65 /* Dynamic rules */
  66
  67 m4_define(CF_RULE, [[$1: CF_rule_$1 ;]])
  68 CF_dyn_rules
  69 %%
  70 m4_undivert(4)DNL
  71 ')
  72
  73 # As we are processing C source, we must access all M4 primitives via
  74 # m4_* and also set different quoting convention: `[[' and ']]'
  75 m4_changequote([[,]])