bin/create_export_code

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5
   6 my @export;
   7
   8 # this will match any function or variable
   9 # being mapped in the symbol table that is
  10 # not an internal swig wrapper
  11 my $regex = qr/^\*(?!swig_)([^=]+)\s*=/;
  12
  13 while(<>){
  14     push @export, $1 if /$regex/;
  15 }
  16 print build_code(\@export);
  17
  18 sub build_code {
  19     my ($export,$tags) = @_;
  20
  21     return q!
  22 %perlcode %{
  23 @EXPORT_OK = qw/
  24                ! . join ("\n" . (' 'x15), @$export) . q!
  25              /;
  26 %EXPORT_TAGS = ( all => [ @EXPORT_OK ] );
  27 %}
  28 !;
  29
  30 }