1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
|
[= AutoGen5 template -*- Mode: C -*-
# Time-stamp: "2012-01-15 08:39:12 bkorb"
##
## This file is part of AutoGen.
## AutoGen Copyright (c) 1992-2012 by Bruce Korb - all rights reserved
##
## AutoGen is free software: you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by the
## Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## AutoGen is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
## See the GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License along
## with this program. If not, see <http://www.gnu.org/licenses/>.
##
h =]
[=
(define ix 0)
(define tmp-txt "")
(define dir-tbl "")
(define dir-enm "_EOF_\n")
(define dir-nms "_EOF_\n")
(string-append
(dne " * " "/* ")
"\n *"
"\n * copyright (c) 1992-2012 by Bruce Korb - all rights reserved"
"\n *\n"
(gpl "AutoGen" " * ")
"\n */\n"
(make-header-guard "autogen")
)
=]
#ifdef DEFINING
typedef char* (tDirProc)( char* pzArg, char* pzScan );
typedef struct dir_table tDirTable;
struct dir_table {
size_t nameSize;
char const * pzDirName;
tDirProc * pDirProc;
int unused;
};
/*
* Declare the procedures that will handle the directives.
*/
static tDirProc doDir_IGNORE;[=
FOR directive =][=
(set! tmp-txt (get "name"))
(set! dir-tbl (string-append dir-tbl
(sprintf " { %2d, zDirectives +%3d, doDir_%-10s 0 }"
(string-length tmp-txt) ix
(string-downcase! (string-append (get "name") ",")) )
(if (last-for?) " };" ",\n")
) )
(set! dir-enm (string-append dir-enm
"DIR_" (string-upcase! (get "name")) "\n" ))
(set! dir-nms (string-append dir-nms
" \"" tmp-txt "\\0\"\n" ))
(set! ix (+ ix (string-length tmp-txt) 1))
=][=
IF (not (exist? "dummy")) =]
static tDirProc doDir_[=name=];[=
ELSE =]
#define doDir_[=name=] doDir_IGNORE[=
ENDIF =][=
ENDFOR directive =]
/*
* Define the constant string names for each directive.
* We supply all the needed terminating NULs, so tell the compiler
* the size to allocate.
*/
static char const zDirectives[[=(. ix)=]] =
[= (shellf "columns --spread=1 -I3 <<%s_EOF_" dir-nms) =];
/*
* Enumerate the directives
*/
typedef enum {
[= (shellf "columns -I4 -S, --spread=1 <<%s_EOF_" dir-enm) =]
} teDirectives;
/*
* Set up the table for handling each directive.
*/
#define DIRECTIVE_CT [= (+ (high-lim "directive") 1) =]
static tDirTable dirTable[ DIRECTIVE_CT ] = {
[= (. dir-tbl) =]
#ifdef DAEMON_ENABLED
typedef struct inet_family_map_s {
char const* pz_name;
unsigned short nm_len;
unsigned short family;
} inet_family_map_t;
[= `
list=\`find /usr/include -follow -name socket.h | \
xargs egrep '^#define[ \t]+AF_[A-Z0-9]+[ \t]+[0-9]' | \
sed 's,^.*#define[ \t]*AF_,,;s,[ \t].*,,;/^MAX$/d'\`
set -- $list
echo "#define INET_FAMILY_TYPE_CT $#"
echo "inet_family_map_t inet_family_map[ \`expr $# + 1\` ] = {"
for f
do
g=\`echo $f | tr '[A-Z]' '[a-z]'\`':'
ct=\`echo $g | wc -c\`
printf " { %-14s %3d, AF_${f} },\\n" "\\\"${g}\\\"," ${ct}
done | sort -u
`=]
{ NULL, 0, 0 } };
#endif /* DAEMON_ENABLED */
#endif /* DEFINING */
#endif /* [=(. header-guard)=] */
/*
* End of [= (out-name) =] */[= #
end of directive.tpl =]
|
