value return
[exim.git] / src / scripts / source_checks
CommitLineData
f9d04f08
JH
1#!/bin/sh
2
3cd src;
4
5# Tables with struct items
6while read file table
7do
8 : $file $table
9 < $file \
10 perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\n(([^}].*\n)+)/m }' \
11 | awk '/{ (US)?"/ {print $2}' \
12 | awk -F\" '{print $2}' \
592d514d 13 | LC_ALL=C sort -c \
f9d04f08
JH
14 || exit 1
15done <<-END
16 readconf.c optionlist_config
17 globals.c optionlist_auths
18 globals.c debug_options
19 globals.c header_names
20 globals.c log_options
21 expand.c item_table
317e40ac 22 std-crypto.c dh_constants
f9d04f08
JH
23 transport.c optionlist_transports
24 route.c optionlist_routers
25 transports/appendfile.c appendfile_transport_options
26 transports/autoreply.c autoreply_transport_options
27 transports/lmtp.c lmtp_transport_options
28 transports/pipe.c pipe_transport_options
29 transports/smtp.c smtp_transport_options
30 expand.c var_table
2d009132 31 acl.c conditions
d7bed771 32 acl.c controls_list
f9d04f08
JH
33END
34
35# Tables with just string items
36while read file table
37do
38 : $file $table
39 < $file \
40 perl -e '$/= undef; while (<>) { print $1 if /(?<='$table'\[\])\s*=\s*{\s?(([^}]*)+)}/m }' \
41 | awk -F\" '/"/ {print $2}' \
592d514d 42 | LC_ALL=C sort -c \
f9d04f08
JH
43 || exit 1
44
45done <<-END
46 expand.c item_table
47 expand.c op_table_underscore
48 expand.c op_table_main
49 expand.c cond_table
50 acl.c verbs
f9d04f08
JH
51END
52