tevent_poll: add poll_event_loop_wait()
[Samba/gebeck_regimport.git] / script / mkparamdefs.pl
blob6b59230b243cdc50afac1d554befceb6043f12ab
1 #!/usr/bin/perl
2 # Generate loadparm tables for loadparm.c
3 # by Andrew Bartlett
4 # based on mkproto.pl Written by Jelmer Vernooij
5 # based on the original mkproto.sh by Andrew Tridgell
7 use strict;
9 # don't use warnings module as it is not portable enough
10 # use warnings;
12 use Getopt::Long;
13 use File::Basename;
14 use File::Path;
16 #####################################################################
17 # read a file into a string
19 my $file = undef;
20 my $public_define = undef;
21 my $_public = "";
22 my $_private = "";
23 my $public_data = \$_public;
24 my $builddir = ".";
25 my $srcdir = ".";
26 my $generate_scope = undef;
28 sub public($)
30 my ($d) = @_;
31 $$public_data .= $d;
34 sub usage()
36 print "Usage: mkparamdefs.pl [options] [c files]\n";
37 print "OPTIONS:\n";
38 print " --srcdir=path Read files relative to this directory\n";
39 print " --builddir=path Write file relative to this directory\n";
40 print " --generate-scope=[GLOBAL|LOCAL] Filter which definitions to generate\n";
41 print " --help Print this help message\n\n";
42 exit 0;
45 GetOptions(
46 'file=s' => sub { my ($f,$v) = @_; $file = $v; },
47 'srcdir=s' => sub { my ($f,$v) = @_; $srcdir = $v; },
48 'builddir=s' => sub { my ($f,$v) = @_; $builddir = $v; },
49 'generate-scope=s' => sub { my ($f,$v) = @_; $generate_scope = $v; },
50 'help' => \&usage
51 ) or exit(1);
53 sub normalize_define($$)
55 my ($define, $file) = @_;
57 if (not defined($define) and defined($file)) {
58 $define = "__" . uc($file) . "__";
59 $define =~ tr{./}{__};
60 $define =~ tr{\-}{_};
61 } elsif (not defined($define)) {
62 $define = '_S3_PARAM_H_';
65 return $define;
68 $public_define = normalize_define($public_define, $file);
70 sub file_load($)
72 my($filename) = @_;
73 local(*INPUTFILE);
74 open(INPUTFILE, $filename) or return undef;
75 my($saved_delim) = $/;
76 undef $/;
77 my($data) = <INPUTFILE>;
78 close(INPUTFILE);
79 $/ = $saved_delim;
80 return $data;
83 sub print_header($$$)
85 my ($file, $header_name,$generate_scope) = @_;
86 $file->("#ifndef $header_name\n");
87 $file->("#define $header_name\n\n");
88 $file->("/* This file was automatically generated by mkparamdefs.pl. DO NOT EDIT */\n\n");
89 $file->("/**\n");
90 if ($generate_scope eq "GLOBAL") {
91 $file->(" * This structure describes global (ie., server-wide) parameters.\n");
92 $file->(" */\n");
93 $file->("struct loadparm_global \n");
94 $file->("{\n");
95 $file->("\tTALLOC_CTX *ctx; /* Context for talloced members */\n");
96 } elsif ($generate_scope eq "LOCAL") {
97 $file->(" * This structure describes a single service.\n");
98 $file->(" */\n");
99 $file->("struct loadparm_service \n");
100 $file->("{\n");
104 sub print_footer($$$)
106 my ($file, $header_name, $generate_scope) = @_;
107 $file->("LOADPARM_EXTRA_" . $generate_scope . "S\n");
108 $file->("};\n");
109 $file->("\n#endif /* $header_name */\n\n");
112 sub handle_loadparm($$$)
114 my ($file,$line,$generate_scope) = @_;
116 my $scope;
117 my $type;
118 my $name;
119 my $var;
121 if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),(.*)\)/o) {
122 $scope = $1;
123 $type = $2;
124 $name = $3;
125 $var = $4;
126 } elsif ($line =~ /^FN_(GLOBAL|LOCAL)_PARM_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),(.*)\)/o) {
127 $scope = $1;
128 $type = $2;
129 $name = $3;
130 $var = $4;
131 } else {
132 return;
134 my %tmap = (
135 "BOOL" => "bool ",
136 "CONST_STRING" => "char *",
137 "STRING" => "char *",
138 "INTEGER" => "int ",
139 "CHAR" => "char ",
140 "LIST" => "const char **",
143 if ($scope eq $generate_scope) {
144 $file->("\t$tmap{$type} $var;\n");
148 sub process_file($$)
150 my ($file, $filename) = @_;
152 $filename =~ s/\.o$/\.c/g;
154 if ($filename =~ /^\//) {
155 open(FH, "<$filename") or die("Failed to open $filename");
156 } elsif (!open(FH, "< $builddir/$filename")) {
157 open(FH, "< $srcdir/$filename") || die "Failed to open $filename";
160 my $comment = undef;
161 my $incomment = 0;
162 while (my $line = <FH>) {
163 if ($line =~ /^\/\*\*/) {
164 $comment = "";
165 $incomment = 1;
168 if ($incomment) {
169 $comment .= $line;
170 if ($line =~ /\*\//) {
171 $incomment = 0;
175 # these are ordered for maximum speed
176 next if ($line =~ /^\s/);
178 next unless ($line =~ /\(/);
180 next if ($line =~ /^\/|[;]/);
182 if ($line =~ /^static (FN_.*)/) {
183 handle_loadparm($file, $1, $generate_scope);
184 } elsif ($line =~ /^FN_/) {
185 handle_loadparm($file, $line, $generate_scope);
187 next;
190 close(FH);
194 print_header(\&public, $public_define, $generate_scope);
196 process_file(\&public, $_) foreach (@ARGV);
197 print_footer(\&public, $public_define, $generate_scope);
199 if (not defined($file)) {
200 print STDOUT $$public_data;
203 mkpath(dirname($file), 0, 0755);
204 open(PUBLIC, ">$file") or die("Can't open `$file': $!");
205 print PUBLIC "$$public_data";
206 close(PUBLIC);