external/bsd/bind/dist/win32utils/makedefs.pl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (C) 2004, 2007, 2009  Internet Systems Consortium, Inc. ("ISC")
   4 # Copyright (C) 2001  Internet Software Consortium.
   5 #
   6 # Permission to use, copy, modify, and/or distribute this software for any
   7 # purpose with or without fee is hereby granted, provided that the above
   8 # copyright notice and this permission notice appear in all copies.
   9 #
  10 # THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
  11 # REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  12 # AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
  13 # INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  14 # LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  15 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  16 # PERFORMANCE OF THIS SOFTWARE.
  17
  18 # Id: makedefs.pl,v 1.10 2009/01/17 23:47:43 tbox Exp
  19
  20 # makedefs.pl
  21 # This script goes through all of the lib header files and creates a .def file
  22 # for each DLL for Win32. It recurses as necessary through the subdirectories
  23 #
  24 # This program should only be run if it is necessary to regenerate
  25 # the .def files.  Normally these files should be updated by  hand, adding
  26 # new functions to the end and removing obsolete ones.
  27 # If you do regenerate them you will also need to modify them by hand to
  28 # to pick up those routines not detected by this program (like openlog).
  29 #
  30 # Search String: ^(([_a-z0-9])*( ))*prefix_[_a-z0-9]+_[a-z0-9]+( )*\(
  31 # List of directories
  32
  33 @prefixlist = ("isc", "isccfg","dns", "isccc", "libres");
  34 @prefixlist = ("isccc");
  35 @iscdirlist = ("isc/include/isc","isc/win32/include/isc");
  36 @iscprefixlist = ("isc", "isc", "cfg");
  37
  38 @isccfgdirlist = ("isccfg/include/isccfg");
  39 @isccfgprefixlist = ("cfg");
  40
  41 @iscccdirlist = ("isccc/include/isccc");
  42 @iscccprefixlist = ("isccc");
  43
  44 @dnsdirlist = ("dns/include/dns","dns/sec/dst/include/dst");
  45 @dnsprefixlist = ("dns", "dst");
  46
  47 @lwresdirlist = ("lwres/include/lwres");
  48 @lwresprefixlist = ("lwres");
  49
  50 # Run the changes for each directory in the directory list
  51
  52 $ind = 0;
  53 createoutfile($iscprefixlist[0]);
  54 foreach $dir (@iscdirlist) {
  55         createdeffile($dir, $iscprefixlist[$ind]);
  56         $ind++;
  57 }
  58 close OUTDEFFILE;
  59
  60 $ind = 0;
  61 createoutfile($isccfgprefixlist[0]);
  62 foreach $dir (@isccfgdirlist) {
  63         createdeffile($dir, $isccfgprefixlist[$ind]);
  64         $ind++;
  65 }
  66 close OUTDEFFILE;
  67
  68 $ind = 0;
  69 createoutfile($dnsprefixlist[0]);
  70 foreach $dir (@dnsdirlist) {
  71         createdeffile($dir, $dnsprefixlist[$ind]);
  72         $ind++;
  73 }
  74 close OUTDEFFILE;
  75
  76 $ind = 0;
  77 createoutfile($iscccprefixlist[0]);
  78 foreach $dir (@iscccdirlist) {
  79         createdeffile($dir, $iscccprefixlist[$ind]);
  80         $ind++;
  81 }
  82 close OUTDEFFILE;
  83
  84 $ind = 0;
  85 createoutfile($lwresprefixlist[0]);
  86 foreach $dir (@lwresdirlist) {
  87         createdeffile($dir, $lwresprefixlist[$ind]);
  88         $ind++;
  89 }
  90 close OUTDEFFILE;
  91
  92 exit;
  93
  94 #
  95 # Subroutines
  96 #
  97 sub createdeffile {
  98         $xdir = $_[0];
  99
 100         #
 101         # Get the List of files in the directory to be processed.
 102         #
 103         #^(([_a-z0-9])*( ))*prefix_[_a-z]+_[a-z]+( )*\(
 104         $prefix = $_[1];
 105         $pattern = "\^\(\(\[\_a\-z0\-9\]\)\*\( \)\)\*\(\\*\( \)\+\)\*$prefix";
 106         $pattern = "$pattern\_\[\_a\-z0\-9\]\+_\[a\-z0\-9\]\+\( \)\*\\\(";
 107
 108         opendir(DIR,$xdir) || die "No Directory: $!";
 109         @files = grep(/\.h$/i, readdir(DIR));
 110         closedir(DIR);
 111
 112         foreach $filename (sort @files) {
 113                 #
 114                 # Open the file and locate the pattern.
 115                 #
 116                 open (HFILE, "$xdir/$filename") ||
 117                       die "Can't open file $filename : $!";
 118
 119                 while (<HFILE>) {
 120                         if(/$pattern/) {
 121                                 $func = $&;
 122                                 chop($func);
 123                                 $space = rindex($func, " ") + 1;
 124                                 if($space >= 0) {
 125                                         # strip out return values
 126                                         $func = substr($func, $space, 100);
 127                                 }
 128                                 print OUTDEFFILE "$func\n";
 129                         }
 130                 }
 131                 # Set up the Patterns
 132                 close(HFILE);
 133         }
 134 }
 135
 136 # This is the routine that applies the changes
 137
 138 # output the result to the platform specific directory.
 139 sub createoutfile {
 140         $outfile = "lib$_[0].def";
 141
 142         open (OUTDEFFILE, ">$outfile")
 143             || die "Can't open output file $outfile: $!";
 144         print OUTDEFFILE "LIBRARY lib$_[0]\n";
 145         print OUTDEFFILE "\n";
 146         print OUTDEFFILE "; Exported Functions\n";
 147         print OUTDEFFILE "EXPORTS\n";
 148         print OUTDEFFILE "\n";
 149 }