s3:dbwrap_ctdb: rename db_ctdb_own_record() -> db_ctdb_can_use_local_copy()
[Samba/gebeck_regimport.git] / script / mks3param.pl
blob5c5eea3ce1c6ffb0520b1266ba3ae7818c5c9e9f
1 #!/usr/bin/perl
2 # Generate loadparm interfaces tables for Samba3/Samba4 integration
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 = ".";
27 sub public($)
29 my ($d) = @_;
30 $$public_data .= $d;
33 sub usage()
35 print "Usage: mks3param.pl [options] [c files]\n";
36 print "OPTIONS:\n";
37 print " --srcdir=path Read files relative to this directory\n";
38 print " --builddir=path Write file relative to this directory\n";
39 print " --help Print this help message\n\n";
40 exit 0;
43 GetOptions(
44 'file=s' => sub { my ($f,$v) = @_; $file = $v; },
45 'srcdir=s' => sub { my ($f,$v) = @_; $srcdir = $v; },
46 'builddir=s' => sub { my ($f,$v) = @_; $builddir = $v; },
47 'help' => \&usage
48 ) or exit(1);
50 sub normalize_define($$)
52 my ($define, $file) = @_;
54 if (not defined($define) and defined($file)) {
55 $define = "__" . uc($file) . "__";
56 $define =~ tr{./}{__};
57 $define =~ tr{\-}{_};
58 } elsif (not defined($define)) {
59 $define = '_S3_PARAM_H_';
62 return $define;
65 $public_define = normalize_define($public_define, $file);
67 sub file_load($)
69 my($filename) = @_;
70 local(*INPUTFILE);
71 open(INPUTFILE, $filename) or return undef;
72 my($saved_delim) = $/;
73 undef $/;
74 my($data) = <INPUTFILE>;
75 close(INPUTFILE);
76 $/ = $saved_delim;
77 return $data;
80 sub print_header($$)
82 my ($file, $header_name) = @_;
83 $file->("#ifndef $header_name\n");
84 $file->("#define $header_name\n\n");
85 $file->("/* This file was automatically generated by mks3param.pl. DO NOT EDIT */\n\n");
86 $file->("struct loadparm_s3_helpers\n");
87 $file->("{\n");
88 $file->("\tconst char * (*get_parametric)(struct loadparm_service *, const char *type, const char *option);\n");
89 $file->("\tstruct parm_struct * (*get_parm_struct)(const char *param_name);\n");
90 $file->("\tvoid * (*get_parm_ptr)(struct loadparm_service *service, struct parm_struct *parm);\n");
91 $file->("\tstruct loadparm_service * (*get_service)(const char *service_name);\n");
92 $file->("\tstruct loadparm_service * (*get_default_loadparm_service)(void);\n");
93 $file->("\tstruct loadparm_service * (*get_servicebynum)(int snum);\n");
94 $file->("\tint (*get_numservices)(void);\n");
95 $file->("\tbool (*load)(const char *filename);\n");
96 $file->("\tbool (*set_cmdline)(const char *pszParmName, const char *pszParmValue);\n");
97 $file->("\tvoid (*dump)(FILE *f, bool show_defaults, int maxtoprint);\n");
98 $file->("\tint (*server_role)(void);\n");
99 $file->("\tint (*security)(void);\n");
102 sub print_footer($$)
104 my ($file, $header_name) = @_;
105 $file->("};");
106 $file->("\n#endif /* $header_name */\n\n");
109 sub handle_loadparm($$)
111 my ($file,$line) = @_;
113 if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),.*\)/o) {
114 my $scope = $1;
115 my $type = $2;
116 my $name = $3;
118 my %tmap = (
119 "BOOL" => "bool ",
120 "CONST_STRING" => "const char *",
121 "STRING" => "const char *",
122 "INTEGER" => "int ",
123 "CHAR" => "char ",
124 "LIST" => "const char **",
127 $file->("\t$tmap{$type} (*$name)(void);\n");
131 sub process_file($$)
133 my ($file, $filename) = @_;
135 $filename =~ s/\.o$/\.c/g;
137 if ($filename =~ /^\//) {
138 open(FH, "<$filename") or die("Failed to open $filename");
139 } elsif (!open(FH, "< $builddir/$filename")) {
140 open(FH, "< $srcdir/$filename") || die "Failed to open $filename";
143 my $comment = undef;
144 my $incomment = 0;
145 while (my $line = <FH>) {
146 if ($line =~ /^\/\*\*/) {
147 $comment = "";
148 $incomment = 1;
151 if ($incomment) {
152 $comment .= $line;
153 if ($line =~ /\*\//) {
154 $incomment = 0;
158 # these are ordered for maximum speed
159 next if ($line =~ /^\s/);
161 next unless ($line =~ /\(/);
163 next if ($line =~ /^\/|[;]/);
165 if ($line =~ /^FN_/) {
166 handle_loadparm($file, $line);
168 next;
171 close(FH);
175 print_header(\&public, $public_define);
177 process_file(\&public, $_) foreach (@ARGV);
178 print_footer(\&public, $public_define);
180 if (not defined($file)) {
181 print STDOUT $$public_data;
184 mkpath(dirname($file), 0, 0755);
185 open(PUBLIC, ">$file") or die("Can't open `$file': $!");
186 print PUBLIC "$$public_data";
187 close(PUBLIC);