Statistics
| Branch: | Revision:

iof-bird-daemon / conf / gen_parser.m4 @ bc2fb680

History | View | Annotate | Download (1.88 KB)

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_DECLS, `CF_ZONE(2, Declarations)')
23
m4_define(CF_GRAMMAR, `CF_ZONE(3, Grammar)')
24
m4_define(CF_CODE, `CF_ZONE(4, C Code)')
25
m4_define(CF_END, `m4_divert(-1)')
26

    
27
# Simple iterator
28
m4_define(CF_itera, `m4_ifelse($#, 1, [[CF_iter($1)]], [[CF_iter($1)[[]]CF_itera(m4_shift($@))]])')
29
m4_define(CF_iterate, `m4_define([[CF_iter]], m4_defn([[$1]]))CF_itera($2)')
30

    
31
# Keywords act as untyped %token
32
m4_define(CF_keywd, `m4_ifdef([[CF_tok_$1]],,[[m4_define([[CF_tok_$1]],1)m4_define([[CF_toks]],CF_toks $1)]])')
33
m4_define(CF_KEYWORDS, `m4_define([[CF_toks]],[[]])CF_iterate([[CF_keywd]], [[$@]])m4_ifelse(CF_toks,,,%token[[]]CF_toks
34
)DNL')
35

    
36
# Dynamic syntax rules
37
m4_define(CF_dyn_rules,)
38
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)
39
]])]])$2)DNL')
40

    
41
# CLI commands
42
m4_define(CF_CLI, `m4_define([[CF_cmd]], cmd_[[]]m4_translit($1, [[ ]], _))DNL
43
m4_divert(2)CF_KEYWORDS(m4_translit($1, [[ ]], [[,]]))
44
m4_divert(3)CF_ADDTO(cli_cmd, CF_cmd)
45
CF_cmd: $1 ')
46

    
47
# After all configuration templates end, we finally generate the grammar file.
48
m4_m4wrap(`
49
m4_divert(0)DNL
50
%{
51
m4_undivert(1)DNL
52
%}
53

    
54
m4_undivert(2)DNL
55

    
56
%%
57
m4_undivert(3)DNL
58

    
59
/* Dynamic rules */
60

    
61
m4_define(CF_RULE, [[$1: CF_rule_$1 ;]])
62
CF_dyn_rules
63
%%
64
m4_undivert(4)DNL
65
')
66

    
67
# As we are processing C source, we must access all M4 primitives via
68
# m4_* and also set different quoting convention: `[[' and ']]'
69
m4_changequote([[,]])