dovecot/core-2.2: src/config/settings-get.pl annotate

annotate src/config/settings-get.pl @ 10181:4dc080520769 HEAD

config: Added support for dynamically loaded settings.

author	Timo Sirainen <tss@iki.fi>
date	Mon, 26 Oct 2009 13:47:27 -0400
parents	afe52d60989c
children	e18645b47984

rev	line source
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	1 #!/usr/bin/env perl
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	2 use strict;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	3
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	4 print '#include "lib.h"'."\n";
9011 c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	5 print '#include "array.h"'."\n";
9177 e4cc93190ec3 Moved pop3_uidl_format checking to mail-storage-settings. Timo Sirainen <tss@iki.fi> parents: 9159 diff changeset	6 print '#include "var-expand.h"'."\n";
9434 e374a365521d Initial commit for making mail_storage:mailbox_list to be from 1:1 to n:n. Timo Sirainen <tss@iki.fi> parents: 9179 diff changeset	7 print '#include "file-lock.h"'."\n";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	8 print '#include "settings-parser.h"'."\n";
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	9 print '#include "all-settings.h"'."\n";
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	10 print '#include <stddef.h>'."\n";
9011 c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	11 print '#include <unistd.h>'."\n";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	12 print '#define CONFIG_BINARY'."\n";
10179 afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	13 print 'extern buffer_t config_all_services_buf;';
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	14
10179 afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	15 my @services = ();
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	16 my %parsers = {};
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	17
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	18 foreach my $file (@ARGV) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	19 my $f;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	20 open($f, $file) \|\| die "Can't open $file: $@";
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	21
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	22 my $state = 0;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	23 my $file_contents = "";
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	24 my $externs = "";
9011 c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	25 my $code = "";
c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	26 my %funcs;
10107 dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	27 my $cur_name = "";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	28
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	29 while (<$f>) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	30 my $write = 0;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	31 if ($state == 0) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	32 if (/struct .*_settings {/ \|\|
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	33 /struct setting_define.*{/ \|\|
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	34 /struct .*_default_settings = {/) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	35 $state++;
10179 afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	36 } elsif (/^struct service_settings (.*) = {/) {
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	37 $state++;
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	38 push @services, $1;
10177 d589d568a19d Changed all settings related structs to const and changed APIs to make it work. Timo Sirainen <tss@iki.fi> parents: 10107 diff changeset	39 } elsif (/^(static )?const struct setting_parser_info (.*) = {/) {
10107 dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	40 $cur_name = $2;
10177 d589d568a19d Changed all settings related structs to const and changed APIs to make it work. Timo Sirainen <tss@iki.fi> parents: 10107 diff changeset	41 $state++ if ($cur_name !~ /^\*default_/);
d589d568a19d Changed all settings related structs to const and changed APIs to make it work. Timo Sirainen <tss@iki.fi> parents: 10107 diff changeset	42 } elsif (/^extern const struct setting_parser_info (.*);/) {
d589d568a19d Changed all settings related structs to const and changed APIs to make it work. Timo Sirainen <tss@iki.fi> parents: 10107 diff changeset	43 $externs .= "extern const struct setting_parser_info $1;\n";
9011 c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	44 } elsif (/\/\* <settings checks> \*\//) {
c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	45 $state = 4;
c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	46 $code .= $_;
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	47 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	48
9159 6324a79d3ee1 Initial commit for v2.0 master rewrite. Several features are still missing. Timo Sirainen <tss@iki.fi> parents: 9011 diff changeset	49 if (/#define.DEF/ \|\| /^#undef.DEF/ \|\| /ARRAY_DEFINE_TYPE.*_settings/) {
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	50 $write = 1;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	51 $state = 2 if (/\\$/);
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	52 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	53 } elsif ($state == 2) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	54 $write = 1;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	55 $state = 0 if (!/\\$/);
9011 c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	56 } elsif ($state == 4) {
c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	57 $code .= $_;
c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	58 $state = 0 if (/\/\* <\/settings checks> \*\//);
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	59 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	60
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	61 if ($state == 1 \|\| $state == 3) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	62 if ($state == 1) {
10107 dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	63 if (/MEMBER$module_name$ "(.*)"/) {
dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	64 $parsers{$cur_name} = $1;
dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	65 }
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	66 if (/DEFLIST.".",(.*)$/) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	67 my $value = $1;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	68 if ($value =~ /.&(.)\)/) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	69 $parsers{$1} = 0;
10177 d589d568a19d Changed all settings related structs to const and changed APIs to make it work. Timo Sirainen <tss@iki.fi> parents: 10107 diff changeset	70 $externs .= "extern const struct setting_parser_info $1;\n";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	71 } else {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	72 $state = 3;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	73 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	74 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	75 } elsif ($state == 3) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	76 if (/.&(.)\)/) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	77 $parsers{$1} = 0;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	78 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	79 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	80
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	81 $write = 1;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	82 if (/};/) {
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	83 $state = 0;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	84 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	85 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	86
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	87 $file_contents .= $_ if ($write);
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	88 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	89
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	90 print "/* $file */\n";
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	91 print $externs;
9011 c37f7113b1ee doveconf now checks that all settings are ok by calling check functions. Timo Sirainen <tss@iki.fi> parents: 9002 diff changeset	92 print $code;
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	93 print $file_contents;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	94
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	95 close $f;
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	96 }
9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	97
10179 afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	98 print "static struct service_settings *config_all_services[] = {\n";
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	99
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	100 foreach my $name (@services) {
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	101 print "\t&$name,\n";
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	102 }
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	103 print "};\n";
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	104 print "buffer_t config_all_services_buf = {\n";
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	105 print "\tconfig_all_services, sizeof(config_all_services), { 0, }\n";
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	106 print "};\n";
afe52d60989c Moved default service settings from master.conf to source code. Timo Sirainen <tss@iki.fi> parents: 10177 diff changeset	107
10181 4dc080520769 config: Added support for dynamically loaded settings. Timo Sirainen <tss@iki.fi> parents: 10179 diff changeset	108 print "const struct setting_parser_info *all_default_roots[] = {\n";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	109 foreach my $name (keys %parsers) {
10107 dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	110 my $module = $parsers{$name};
dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	111 next if (!$module);
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	112
10107 dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	113 print "\t&".$name.", \n";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	114 }
10107 dcda7c495eb6 struct setting_parser_info now specifies the module name. Timo Sirainen <tss@iki.fi> parents: 9793 diff changeset	115 print "\tNULL\n";
9002 9d0037a997f4 Initial commit for config rewrite. Timo Sirainen <tss@iki.fi> parents: diff changeset	116 print "};\n";
10181 4dc080520769 config: Added support for dynamically loaded settings. Timo Sirainen <tss@iki.fi> parents: 10179 diff changeset	117 print "const struct setting_parser_info const all_roots = all_default_roots;\n";

Mercurial > dovecot > core-2.2

annotate src/config/settings-get.pl @ 10181:4dc080520769 HEAD