src/tools/gen_export.pl

   1 use strict;
   2 use warnings;
   3 use Getopt::Long;
   4
   5 my $format;
   6 my $libname;
   7 my $input;
   8 my $output;
   9
  10 GetOptions(
  11         'format:s' => \$format,
  12         'libname:s' => \$libname,
  13         'input:s' => \$input,
  14         'output:s' => \$output) or die "wrong arguments";
  15
  16 if (not(   $format eq 'aix'
  17                 or $format eq 'darwin'
  18                 or $format eq 'gnu'
  19                 or $format eq 'win'))
  20 {
  21         die "$0: $format is not yet handled (only aix, darwin, gnu, win are)\n";
  22 }
  23
  24 open(my $input_handle, '<', $input)
  25   or die "$0: could not open input file '$input': $!\n";
  26
  27 open(my $output_handle, '>', $output)
  28   or die "$0: could not open output file '$output': $!\n";
  29
  30
  31 if ($format eq 'gnu')
  32 {
  33         print $output_handle "{
  34   global:
  35 ";
  36 }
  37 elsif ($format eq 'win')
  38 {
  39         # XXX: Looks like specifying LIBRARY $libname is optional, which makes it
  40         # easier to build a generic command for generating export files...
  41         if ($libname)
  42         {
  43                 print $output_handle "LIBRARY $libname\n";
  44         }
  45         print $output_handle "EXPORTS\n";
  46 }
  47
  48 while (<$input_handle>)
  49 {
  50         if (/^#/)
  51         {
  52                 # don't do anything with a comment
  53         }
  54         elsif (/^(\S+)\s+(\S+)/)
  55         {
  56                 if ($format eq 'aix')
  57                 {
  58                         print $output_handle "$1\n";
  59                 }
  60                 elsif ($format eq 'darwin')
  61                 {
  62                         print $output_handle "_$1\n";
  63                 }
  64                 elsif ($format eq 'gnu')
  65                 {
  66                         print $output_handle "    $1;\n";
  67                 }
  68                 elsif ($format eq 'win')
  69                 {
  70                         print $output_handle "$1 @ $2\n";
  71                 }
  72         }
  73         else
  74         {
  75                 die "$0: unexpected line $_\n";
  76         }
  77 }
  78
  79 if ($format eq 'gnu')
  80 {
  81         print $output_handle "  local: *;
  82 };
  83 ";
  84 }