[libmarpa-r2-perl] 06/32: do_config_h.pl use command-line, more practical in Makefile, and translate that to environment before calling internal tests

[Jonas Smedegaard]

This is an automated email from the git hooks/post-receive script.

js pushed a commit to annotated tag Marpa-R2-2.085_004
in repository libmarpa-r2-perl.

commit 8c0e5d3125e04ed53f35dea46c109cd0ef3f52b4
Author: Jean-Damien Durand <jeandamiendurand at free.fr>
Date:   Thu Apr 24 15:47:28 2014 +0200

    do_config_h.pl use command-line, more practical in Makefile, and translate that to environment before calling internal tests
---
 cpan/do_config_h.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)

diff --git a/cpan/do_config_h.pl b/cpan/do_config_h.pl
index 773224c..3a022c9 100644
--- a/cpan/do_config_h.pl
+++ b/cpan/do_config_h.pl
@@ -13,6 +13,7 @@ use File::Slurp qw/read_file/;
 use IPC::Cmd qw/run/;
 use Module::Load qw/load/;
 use POSIX qw/EXIT_SUCCESS EXIT_FAILURE/;
+use Getopt::Long;
 
 our %PERL_AUTOCONF_OS = map { $_ => 1 } qw( MSWin32 openbsd solaris sunos midnightbsd );
 
@@ -23,6 +24,20 @@ my $CCFLAGS           = $ENV{CCFLAGS} || $Config{ccflags} || '';
 my $SH                = $ENV{SH} || $Config{sh}           || '';
 my $OBJ_EXT           = $ENV{OBJ_EXT} || $Config{obj_ext} || '.o';
 
+GetOptions ('marpa_debug!'       => \$MARPA_DEBUG,
+            'use_perl_autoconf!' => \$USE_PERL_AUTOCONF,
+            'cc=s'               => \$CC,
+            'ccflags=s'          => \$CCFLAGS,
+            'sh=s'               => \$SH,
+            'obj_ext=s'          => \$OBJ_EXT,
+            'help!'              => \$help) ||
+die "Error in command-line arguments";
+
+if ($help) {
+  usage();
+  exit(EXIT_SUCCESS);
+}
+
 if ($USE_PERL_AUTOCONF) {
     load Config::AutoConf || die "Please install Config::AutoConf module";
 }
@@ -33,6 +48,10 @@ exit($rc ? EXIT_SUCCESS : EXIT_FAILURE);
 
 sub do_config_h {
 
+  $ENV{CC} = $CC;
+  $ENV{CCFLAGS} = $CCFLAGS;
+  $ENV{OBJ_EXT} = $OBJ_EXT;
+
     # If current directory exists and contains a stamp file more recent than an eventual config.h
     # we are done.
     if (-e 'config.h' && -e 'stamp-h1' && up_to_date( 'config.h', 'stamp-h1' )) {
@@ -276,3 +295,19 @@ sub up_to_date {
   }
   return 1;
 }
+
+sub usage {
+  print STDERR <<USAGE;
+
+$^X $0 [options] where options can be:
+
+  --marpa_debug       Boolean. Default value: $MARPA_DEBUG.
+  --use_perl_autoconf Boolean. Default value: $USE_PERL_AUTOCONF
+  --cc=...            String.  Default value: $CC
+  --ccflags=...       String.  Default value: $CCFLAGS
+  --sh=...s           String.  Default value: $SH
+  --obj_ext=...       String.  Default value: $OBJ_EXT
+  --help              Boolean. This help -;
+
+USAGE
+}

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmarpa-r2-perl.git