source4/script/mkparamdefs.pl

   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
   6
   7 use strict;
   8
   9 # don't use warnings module as it is not portable enough
  10 # use warnings;
  11
  12 use Getopt::Long;
  13 use File::Basename;
  14 use File::Path;
  15
  16 #####################################################################
  17 # read a file into a string
  18
  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;
  27
  28 sub public($)
  29 {
  30         my ($d) = @_;
  31         $$public_data .= $d;
  32 }
  33
  34 sub usage()
  35 {
  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;
  43 }
  44
  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);
  52
  53 sub normalize_define($$)
  54 {
  55         my ($define, $file) = @_;
  56
  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_';
  63         }
  64
  65         return $define;
  66 }
  67
  68 $public_define = normalize_define($public_define, $file);
  69
  70 sub file_load($)
  71 {
  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;
  81 }
  82
  83 sub print_header($$$)
  84 {
  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 mkparmdefs.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         } elsif ($generate_scope eq "LOCAL") {
  95             $file->(" * This structure describes a single service.\n");
  96             $file->(" */\n");
  97             $file->("struct loadparm_service \n");
  98         }
  99 $file->("{\n");
 100 }
 101
 102 sub print_footer($$$)
 103 {
 104         my ($file, $header_name, $generate_scope) = @_;
 105         $file->("LOADPARM_EXTRA_" . $generate_scope . "S\n");
 106         $file->("};\n");
 107         $file->("\n#endif /* $header_name */\n\n");
 108 }
 109
 110 sub handle_loadparm($$$)
 111 {
 112         my ($file,$line,$generate_scope) = @_;
 113
 114         if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),(.*)\)/o) {
 115                 my $scope = $1;
 116                 my $type = $2;
 117                 my $name = $3;
 118                 my $var = $4;
 119
 120                 my %tmap = (
 121                             "BOOL" => "int ",
 122                             "CONST_STRING" => "char *",
 123                             "STRING" => "char *",
 124                             "INTEGER" => "int ",
 125                             "CHAR" => "char ",
 126                             "LIST" => "const char **",
 127                             );
 128
 129                 if ($scope eq $generate_scope) {
 130                     $file->("\t$tmap{$type} $var;\n");
 131                 }
 132         }
 133 }
 134
 135 sub process_file($$)
 136 {
 137         my ($file, $filename) = @_;
 138
 139         $filename =~ s/\.o$/\.c/g;
 140
 141         if ($filename =~ /^\//) {
 142                 open(FH, "<$filename") or die("Failed to open $filename");
 143         } elsif (!open(FH, "< $builddir/$filename")) {
 144             open(FH, "< $srcdir/$filename") || die "Failed to open $filename";
 145         }
 146
 147         my $comment = undef;
 148         my $incomment = 0;
 149         while (my $line = <FH>) {
 150                 if ($line =~ /^\/\*\*/) {
 151                         $comment = "";
 152                         $incomment = 1;
 153                 }
 154
 155                 if ($incomment) {
 156                         $comment .= $line;
 157                         if ($line =~ /\*\//) {
 158                                 $incomment = 0;
 159                         }
 160                 }
 161
 162                 # these are ordered for maximum speed
 163                 next if ($line =~ /^\s/);
 164
 165                 next unless ($line =~ /\(/);
 166
 167                 next if ($line =~ /^\/|[;]/);
 168
 169                 if ($line =~ /^FN_/) {
 170                         handle_loadparm($file, $line, $generate_scope);
 171                 }
 172                 next;
 173         }
 174
 175         close(FH);
 176 }
 177
 178
 179 print_header(\&public, $public_define, $generate_scope);
 180
 181 process_file(\&public, $_) foreach (@ARGV);
 182 print_footer(\&public, $public_define, $generate_scope);
 183
 184 if (not defined($file)) {
 185         print STDOUT $$public_data;
 186 }
 187
 188 mkpath(dirname($file), 0, 0755);
 189 open(PUBLIC, ">$file") or die("Can't open `$file': $!");
 190 print PUBLIC "$$public_data";
 191 close(PUBLIC);
 192