source4/script/mks3param.pl

   1 #!/usr/bin/perl
   2 # Simple script for generating prototypes for C functions
   3 # Written by Jelmer Vernooij
   4 # based on the original mkproto.sh by Andrew Tridgell
   5
   6 use strict;
   7
   8 # don't use warnings module as it is not portable enough
   9 # use warnings;
  10
  11 use Getopt::Long;
  12 use File::Basename;
  13 use File::Path;
  14
  15 #####################################################################
  16 # read a file into a string
  17
  18 my $file = undef;
  19 my $public_define = undef;
  20 my $_public = "";
  21 my $_private = "";
  22 my $public_data = \$_public;
  23 my $builddir = ".";
  24 my $srcdir = ".";
  25
  26 sub public($)
  27 {
  28         my ($d) = @_;
  29         $$public_data .= $d;
  30 }
  31
  32 sub usage()
  33 {
  34         print "Usage: mks3param.pl [options] [c files]\n";
  35         print "OPTIONS:\n";
  36         print "  --srcdir=path          Read files relative to this directory\n";
  37         print "  --builddir=path        Write file relative to this directory\n";
  38         print "  --help                 Print this help message\n\n";
  39         exit 0;
  40 }
  41
  42 GetOptions(
  43         'file=s' => sub { my ($f,$v) = @_; $file = $v; },
  44         'srcdir=s' => sub { my ($f,$v) = @_; $srcdir = $v; },
  45         'builddir=s' => sub { my ($f,$v) = @_; $builddir = $v; },
  46         'help' => \&usage
  47 ) or exit(1);
  48
  49 sub normalize_define($$)
  50 {
  51         my ($define, $file) = @_;
  52
  53         if (not defined($define) and defined($file)) {
  54                 $define = "__" . uc($file) . "__";
  55                 $define =~ tr{./}{__};
  56                 $define =~ tr{\-}{_};
  57         } elsif (not defined($define)) {
  58                 $define = '_S3_PARAM_H_';
  59         }
  60
  61         return $define;
  62 }
  63
  64 $public_define = normalize_define($public_define, $file);
  65
  66 sub file_load($)
  67 {
  68     my($filename) = @_;
  69     local(*INPUTFILE);
  70     open(INPUTFILE, $filename) or return undef;
  71     my($saved_delim) = $/;
  72     undef $/;
  73     my($data) = <INPUTFILE>;
  74     close(INPUTFILE);
  75     $/ = $saved_delim;
  76     return $data;
  77 }
  78
  79 sub print_header($$)
  80 {
  81         my ($file, $header_name) = @_;
  82         $file->("#ifndef $header_name\n");
  83         $file->("#define $header_name\n\n");
  84         $file->("/* This file was automatically generated by mks3param.pl. DO NOT EDIT */\n\n");
  85         $file->("struct loadparm_s3_context\n");
  86         $file->("{\n");
  87         $file->("\tconst char * (*get_parametric)(const char *type, const char *option);");
  88 }
  89
  90 sub print_footer($$)
  91 {
  92         my ($file, $header_name) = @_;
  93         $file->("};");
  94         $file->("\n#endif /* $header_name */\n\n");
  95 }
  96
  97 sub handle_loadparm($$)
  98 {
  99         my ($file,$line) = @_;
 100
 101         if ($line =~ /^FN_(GLOBAL|LOCAL)_(CONST_STRING|STRING|BOOL|bool|CHAR|INTEGER|LIST)\((\w+),.*\)/o) {
 102                 my $scope = $1;
 103                 my $type = $2;
 104                 my $name = $3;
 105
 106                 my %tmap = (
 107                             "BOOL" => "bool ",
 108                             "CONST_STRING" => "const char *",
 109                             "STRING" => "const char *",
 110                             "INTEGER" => "int ",
 111                             "CHAR" => "char ",
 112                             "LIST" => "const char **",
 113                             );
 114
 115                 $file->("\t$tmap{$type} (*$name)(void);\n");
 116         }
 117 }
 118
 119 sub process_file($$)
 120 {
 121         my ($file, $filename) = @_;
 122
 123         $filename =~ s/\.o$/\.c/g;
 124
 125         if ($filename =~ /^\//) {
 126                 open(FH, "<$filename") or die("Failed to open $filename");
 127         } elsif (!open(FH, "< $builddir/$filename")) {
 128             open(FH, "< $srcdir/$filename") || die "Failed to open $filename";
 129         }
 130
 131         my $comment = undef;
 132         my $incomment = 0;
 133         while (my $line = <FH>) {
 134                 if ($line =~ /^\/\*\*/) {
 135                         $comment = "";
 136                         $incomment = 1;
 137                 }
 138
 139                 if ($incomment) {
 140                         $comment .= $line;
 141                         if ($line =~ /\*\//) {
 142                                 $incomment = 0;
 143                         }
 144                 }
 145
 146                 # these are ordered for maximum speed
 147                 next if ($line =~ /^\s/);
 148
 149                 next unless ($line =~ /\(/);
 150
 151                 next if ($line =~ /^\/|[;]/);
 152
 153                 if ($line =~ /^FN_/) {
 154                         handle_loadparm($file, $line);
 155                 }
 156                 next;
 157         }
 158
 159         close(FH);
 160 }
 161
 162
 163 print_header(\&public, $public_define);
 164
 165 process_file(\&public, $_) foreach (@ARGV);
 166 print_footer(\&public, $public_define);
 167
 168 if (not defined($file)) {
 169         print STDOUT $$public_data;
 170 }
 171
 172 mkpath(dirname($file), 0, 0755);
 173 open(PUBLIC, ">$file") or die("Can't open `$file': $!");
 174 print PUBLIC "$$public_data";
 175 close(PUBLIC);
 176