[p5sagit/p5-mst-13.2.git] / ext / Compress / Zlib / Makefile.PL

#! perl -w

use strict ;
require 5.004 ;

use ExtUtils::MakeMaker 5.16 ;
use Config ;
use File::Copy ;

BEGIN
{
    eval { require File::Spec::Functions ; File::Spec::Functions->import() } ;
    if ($@)
    {
        *catfile = sub { return "$_[0]/$_[1]" }
    }
}

require VMS::Filespec if $^O eq 'VMS';

my $ZLIB_LIB ;
my $ZLIB_INCLUDE ;
my $BUILD_ZLIB = 0 ;
my $OLD_ZLIB = '' ;
my $EXTRA_DEFINE = '';
my $WALL = '';
#$WALL = ' -Wall ';

unless($ENV{PERL_CORE}) {
    $ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
}

# don't ask if MM_USE_DEFAULT is set -- enables perl core building on cygwin
if ($^O =~ /cygwin/i and not $ENV{PERL_MM_USE_DEFAULT} and not $ENV{PERL_CORE})
{
    print <<EOM ;

I see you are running Cygwin.

Please note that this module cannot be installed on Cygwin using the
CPAN shell. The CPAN Shell uses Compress::Zlib internally and it is not
possible to delete an active DLL.

If you are running the CPAN shell, please exit it and install this module
by hand by running 'make install' under the directory

    ~/.cpan/build/Compress-Zlib-VERSION

EOM

    print "Do you want to continue? [Y/N]: " ;
    my $answer = <STDIN> ;

    if ($answer =~ /^yes|y/i)
    {
	print "continuing...\n" 
    }
    else
    {
	print "exiting...\n" ;
	exit 1 ;
    }


}

ParseCONFIG() ;

my @files = ('Zlib.pm', glob("t/*.t"), grep(!/\.bak$/,  glob("examples/*"))) ;
UpDowngrade(@files) unless $ENV{PERL_CORE} ;

WriteMakefile(	
	NAME   	 	=> 'Compress::Zlib',
	VERSION_FROM  	=> 'Zlib.pm',
	INC      	=> "-I$ZLIB_INCLUDE" ,
	DEFINE   	=> "$OLD_ZLIB $WALL $EXTRA_DEFINE" ,
	XS	 	=> { 'Zlib.xs'    => 'Zlib.c' },
	'depend' 	=> { 'Makefile'	  => 'config.in' },
	'clean' 	=> { FILES        => '*.c constants.h constants.xs' },
	'dist'	 	=> { COMPRESS     => 'gzip', 
		             SUFFIX       => 'gz',
			     DIST_DEFAULT => 'MyDoubleCheck Downgrade tardist',
			    },
	($BUILD_ZLIB
          ? zlib_files($ZLIB_LIB)
	  : (LIBS	=> [ "-L$ZLIB_LIB -lz " ])
	),  
	($] >= 5.005
	    ? (ABSTRACT_FROM	=> 'Zlib.pm',
	       AUTHOR  => 'Paul Marquess <pmqs@cpan.org>')
	    : ()
	),
    ) ;

my @names = qw(

	DEF_WBITS
        MAX_MEM_LEVEL
	MAX_WBITS
	OS_CODE

	Z_ASCII
	Z_BEST_COMPRESSION
	Z_BEST_SPEED
	Z_BINARY
	Z_BUF_ERROR
	Z_DATA_ERROR
	Z_DEFAULT_COMPRESSION
	Z_DEFAULT_STRATEGY
        Z_DEFLATED
	Z_ERRNO
	Z_FILTERED
	Z_FINISH
	Z_FULL_FLUSH
	Z_HUFFMAN_ONLY
	Z_MEM_ERROR
	Z_NEED_DICT
	Z_NO_COMPRESSION
	Z_NO_FLUSH
	Z_NULL
	Z_OK
	Z_PARTIAL_FLUSH
	Z_STREAM_END
	Z_STREAM_ERROR
	Z_SYNC_FLUSH
	Z_UNKNOWN
	Z_VERSION_ERROR
	);

if (eval {require ExtUtils::Constant; 1}) {
    # Check the constants above all appear in @EXPORT in Zlib.pm
    my %names = map { $_, 1} @names, 'ZLIB_VERSION';
    open F, "<Zlib.pm" or die "Cannot open Zlib.pm: $!\n";
    while (<F>)
    {
        last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
    }

    while (<F>)
    {
        last if /^\s*\)/ ;
        /(\S+)/ ;
        delete $names{$1} if defined $1 ;
    }
    close F ;

    if ( keys %names )
    {
        my $missing = join ("\n\t", sort keys %names) ;
        die "The following names are missing from \@EXPORT in Zlib.pm\n" .
            "\t$missing\n" ;
    }
    
    push @names, {name => 'ZLIB_VERSION', type => 'PV' };

    ExtUtils::Constant::WriteConstants(
                                     NAME => 'Zlib',
                                     NAMES => \@names,
                                     C_FILE  => 'constants.h',
                                     XS_FILE  => 'constants.xs',
                                                                       
                                    );
} 
else {
    copy ('fallback.h', 'constants.h')
      or die "Can't copy fallback.h to constants.h: $!";
    copy ('fallback.xs', 'constants.xs')
      or die "Can't copy fallback.xs to constants.xs: $!";
}

sub MY::libscan
{
    my $self = shift ;
    my $path = shift ;

    return undef
        if $path =~ /(~|\.bak|_bak)$/ || 
           $path =~ /^\..*\.swp$/ ;

    return $path;    
}


sub MY::postamble 
{
    my $postamble = <<'EOM';

Downgrade:
	@echo Downgrading.
	perl Makefile.PL -downgrade

MyDoubleCheck:	
	@echo Checking config.in is setup for a release
	@(grep '^LIB *= *./zlib' config.in &&			\
	  grep '^INCLUDE *= *./zlib' config.in &&		\
	  grep '^OLD_ZLIB *= *False' config.in &&		\
	  grep '^BUILD_ZLIB *= *True' config.in) >/dev/null ||	\
	(echo config.in needs fixing ; exit 1)
	@echo config.in is ok

MyTrebleCheck:
	@echo Checking for $$^W in files: '. "@files" . '
	@perl -ne \'						\
	    exit 1 if /^\s*local\s*\(\s*\$$\^W\s*\)/;		\
         \' ' . " @files || " . '				\
	(echo found unexpected $$^W ; exit 1)
	@echo All is ok.

EOM

    return $postamble;

}

sub ParseCONFIG
{
    my ($k, $v) ;
    my @badkey = () ;
    my %Info = () ;
    my @Options = qw( INCLUDE LIB BUILD_ZLIB OLD_ZLIB ) ;
    my %ValidOption = map {$_, 1} @Options ;
    my %Parsed = %ValidOption ;
    my $CONFIG = 'config.in' ;

    print "Parsing $CONFIG...\n" ;

    open(F, "<$CONFIG") or die "Cannot open file $CONFIG: $!\n" ;
    while (<F>) {
	s/^\s*|\s*$//g ;
	next if /^\s*$/ or /^\s*#/ ;
	s/\s*#\s*$// ;

	($k, $v) = split(/\s+=\s+/, $_, 2) ;
	$k = uc $k ;
	if ($ValidOption{$k}) {
	    delete $Parsed{$k} ;
	    $Info{$k} = $v ;
	}
	else {
	    push(@badkey, $k) ;
	}
    }
    close F ;

    print "Unknown keys in $CONFIG ignored [@badkey]\n"
	if @badkey ;

    # check parsed values
    my @missing = () ;
    die "The following keys are missing from $CONFIG  [@missing]\n" 
        if @missing = keys %Parsed ;

    $ZLIB_INCLUDE = $ENV{'ZLIB_INCLUDE'} || $Info{'INCLUDE'} ;
    $ZLIB_LIB = $ENV{'ZLIB_LIB'} || $Info{'LIB'} ;

    if ($^O eq 'VMS') {
        $ZLIB_INCLUDE = VMS::Filespec::vmspath($ZLIB_INCLUDE);
        $ZLIB_LIB = VMS::Filespec::vmspath($ZLIB_LIB);
    }

    $EXTRA_DEFINE = $ENV{EXTRA_DEFINE} if defined $ENV{EXTRA_DEFINE};

    my $y = $ENV{'OLD_ZLIB'} || $Info{'OLD_ZLIB'} ;
    $OLD_ZLIB = '-DOLD_ZLIB' if $y and $y =~ /^yes|on|true|1$/i;

    my $x = $ENV{'BUILD_ZLIB'} || $Info{'BUILD_ZLIB'} ;

    if ($x and $x =~ /^yes|on|true|1$/i ) {

        $BUILD_ZLIB = 1 ;

	# ZLIB_LIB & ZLIB_INCLUDE must point to the same place when 
	# BUILD_ZLIB is specified.
	die "INCLUDE & LIB must be the same when BUILD_ZLIB is True\n"
	    if $ZLIB_LIB ne $ZLIB_INCLUDE ;

	# Check the zlib source directory exists
	die "LIB/INCLUDE directory '$ZLIB_LIB' does not exits\n"
	   unless -d $ZLIB_LIB ;

	# check for a well known file
	die "LIB/INCLUDE directory, '$ZLIB_LIB', doesn't seem to have the zlib source files\n"
	   unless -e catfile($ZLIB_LIB, 'zlib.h') ;


	# check Makefile.zlib has been copied to ZLIB_LIB
    #copy 'Makefile.zlib', catfile($ZLIB_LIB, 'Makefile.PL') ||
    #die "Could not copy Makefile.zlib to " . catfile($ZLIB_LIB, 'Makefile.PL') . ": $!\n" ;
       #print "Created a Makefile.PL for zlib\n" ;
	
	# write the Makefile
	print "Building Zlib enabled\n" ;
    }

    print <<EOM if 0 ;
    INCLUDE	[$ZLIB_INCLUDE]
    LIB		[$ZLIB_LIB]

EOM

    print "Looks Good.\n" ;

}

sub UpDowngrade
{
    my @files = @_ ;

    # our      is stable from 5.6.0 onward
    # warnings is stable from 5.6.1 onward

    # Note: this code assumes that each statement it modifies is not
    #       split across multiple lines.


    my $warn_sub = '';
    my $our_sub = '' ;

    my $opt = shift @ARGV || '' ;
    my $upgrade = ($opt =~ /^-upgrade/i);
    my $downgrade = ($opt =~ /^-downgrade/i);
    push @ARGV, $opt unless $downgrade || $upgrade;

    if ($downgrade) {
        # From: use|no warnings "blah"
        # To:   local ($^W) = 1; # use|no warnings "blah"
        $warn_sub = sub {
	    s/^(\s*)(no\s+warnings)/${1}local (\$^W) = 0; #$2/ ;
	    s/^(\s*)(use\s+warnings)/${1}local (\$^W) = 1; #$2/ ;
          };
    }
    elsif ($] >= 5.006001 || $upgrade) {
        # From: local ($^W) = 1; # use|no warnings "blah"
        # To:   use|no warnings "blah"
        $warn_sub = sub {
	    s/^(\s*)local\s*\(\$\^W\)\s*=\s*\d+\s*;\s*#\s*((no|use)\s+warnings.*)/$1$2/ ;
          };
    }

    if ($downgrade) {
        $our_sub = sub {
	    if ( /^(\s*)our\s+\(\s*([^)]+\s*)\)/ ) {
                my $indent = $1;
                my $vars = join ' ', split /\s*,\s*/, $2;
                $_ = "${indent}use vars qw($vars);\n";
            }
          };
    }
    elsif ($] >= 5.006000 || $upgrade) {
        $our_sub = sub {
	    if ( /^(\s*)use\s+vars\s+qw\((.*?)\)/ ) {
                my $indent = $1;
                my $vars = join ', ', split ' ', $2;
                $_ = "${indent}our ($vars);\n";
            }
          };
    }

    if (! $our_sub && ! $warn_sub) {
        warn "Up/Downgrade not needed.\n";
	if ($upgrade || $downgrade)
          { exit 0 }
        else
          { return }
    }

    foreach (@files)
      { doUpDown($our_sub, $warn_sub, $_) }

    warn "Up/Downgrade complete.\n" ;
    exit 0 if $upgrade || $downgrade;

}


sub doUpDown
{
    my $our_sub = shift;
    my $warn_sub = shift;

    local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
    local (@ARGV) = shift;

    while (<>)
    {
	print, last if /^__(END|DATA)__/ ;

	&{ $our_sub }() if $our_sub ;
	&{ $warn_sub }() if $warn_sub ;
	print ;
    }

    return if eof ;

    while (<>)
      { print }
}


sub zlib_files
{
    my $dir = shift ;

    my @h_files = ();
    my @c_files = ();
    
    if (-f catfile($dir, "infback.c")) {
        # zlib 1.2.0 or greater
        #
        @h_files = qw(crc32.h    inffast.h inflate.h  trees.h    zconf.in.h 
    	          zutil.h    deflate.h inffixed.h inftrees.h zconf.h  
    		  zlib.h 
    		 );
        @c_files = qw(adler32  crc32   infback  inflate  uncompr
    		  compress deflate gzio     inffast  inftrees  
    		  trees    zutil 
    		 );
    }
    else {
        # zlib 1.1.x
    
        @h_files = qw(deflate.h  infcodes.h inftrees.h zconf.h zutil.h
    		  infblock.h inffast.h  infutil.h  zlib.h
    		 );
        @c_files = qw(adler32  compress crc32    gzio    uncompr
    		  deflate  trees    zutil    inflate infblock
    		  inftrees infcodes infutil  inffast
    		 );
    }
    
    @h_files = map { catfile($dir, $_)  } @h_files ;
    my @o_files = map { "$_\$(OBJ_EXT)" } 'Zlib', @c_files;
    @c_files = map { "$_.c" } 'Zlib', @c_files ;

    foreach my $file (@c_files)
      { copy(catfile($dir, $file), '.') }
    
    return (
        #'H'         =>  [ @h_files ],
    	'C'         =>  [ @c_files ] ,
        #'OBJECT'    => qq[ @o_files ],
        'OBJECT'    => q[ $(O_FILES) ],
        

           ) ;
}


# end of file Makefile.PL
Commit	Line	Data
f4c6fd49	1	#! perl -w
	2
	3	use strict ;
	4	require 5.004 ;
	5
	6	use ExtUtils::MakeMaker 5.16 ;
	7	use Config ;
	8	use File::Copy ;
	9
	10	BEGIN
	11	{
	12	eval { require File::Spec::Functions ; File::Spec::Functions->import() } ;
	13	if ($@)
	14	{
	15	*catfile = sub { return "$_[0]/$_[1]" }
	16	}
	17	}
	18
	19	require VMS::Filespec if $^O eq 'VMS';
	20
	21	my $ZLIB_LIB ;
	22	my $ZLIB_INCLUDE ;
	23	my $BUILD_ZLIB = 0 ;
	24	my $OLD_ZLIB = '' ;
5993747c	25	my $EXTRA_DEFINE = '';
f4c6fd49	26	my $WALL = '';
	27	#$WALL = ' -Wall ';
	28
844ffccc	29	unless($ENV{PERL_CORE}) {
	30	$ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
	31	}
	32
f4c6fd49	33	# don't ask if MM_USE_DEFAULT is set -- enables perl core building on cygwin
844ffccc	34	if ($^O =~ /cygwin/i and not $ENV{PERL_MM_USE_DEFAULT} and not $ENV{PERL_CORE})
f4c6fd49	35	{
	36	print <<EOM ;
	37
	38	I see you are running Cygwin.
	39
	40	Please note that this module cannot be installed on Cygwin using the
	41	CPAN shell. The CPAN Shell uses Compress::Zlib internally and it is not
	42	possible to delete an active DLL.
	43
	44	If you are running the CPAN shell, please exit it and install this module
	45	by hand by running 'make install' under the directory
	46
	47	~/.cpan/build/Compress-Zlib-VERSION
	48
	49	EOM
	50
	51	print "Do you want to continue? [Y/N]: " ;
	52	my $answer = <STDIN> ;
	53
	54	if ($answer =~ /^yes\|y/i)
	55	{
	56	print "continuing...\n"
	57	}
	58	else
	59	{
	60	print "exiting...\n" ;
	61	exit 1 ;
	62	}
	63
	64
	65	}
	66
	67	ParseCONFIG() ;
	68
	69	my @files = ('Zlib.pm', glob("t/.t"), grep(!/\.bak$/, glob("examples/"))) ;
5993747c	70	UpDowngrade(@files) unless $ENV{PERL_CORE} ;
f4c6fd49	71
	72	WriteMakefile(
	73	NAME => 'Compress::Zlib',
	74	VERSION_FROM => 'Zlib.pm',
	75	INC => "-I$ZLIB_INCLUDE" ,
5993747c	76	DEFINE => "$OLD_ZLIB $WALL $EXTRA_DEFINE" ,
f4c6fd49	77	XS => { 'Zlib.xs' => 'Zlib.c' },
	78	'depend' => { 'Makefile' => 'config.in' },
	79	'clean' => { FILES => '*.c constants.h constants.xs' },
	80	'dist' => { COMPRESS => 'gzip',
	81	SUFFIX => 'gz',
	82	DIST_DEFAULT => 'MyDoubleCheck Downgrade tardist',
	83	},
	84	($BUILD_ZLIB
	85	? zlib_files($ZLIB_LIB)
	86	: (LIBS => [ "-L$ZLIB_LIB -lz " ])
	87	),
	88	($] >= 5.005
	89	? (ABSTRACT_FROM => 'Zlib.pm',
	90	AUTHOR => 'Paul Marquess <pmqs@cpan.org>')
	91	: ()
	92	),
	93	) ;
	94
	95	my @names = qw(
	96
	97	DEF_WBITS
	98	MAX_MEM_LEVEL
	99	MAX_WBITS
	100	OS_CODE
	101
	102	Z_ASCII
	103	Z_BEST_COMPRESSION
	104	Z_BEST_SPEED
	105	Z_BINARY
	106	Z_BUF_ERROR
	107	Z_DATA_ERROR
	108	Z_DEFAULT_COMPRESSION
	109	Z_DEFAULT_STRATEGY
	110	Z_DEFLATED
	111	Z_ERRNO
	112	Z_FILTERED
	113	Z_FINISH
	114	Z_FULL_FLUSH
	115	Z_HUFFMAN_ONLY
	116	Z_MEM_ERROR
	117	Z_NEED_DICT
	118	Z_NO_COMPRESSION
	119	Z_NO_FLUSH
	120	Z_NULL
	121	Z_OK
	122	Z_PARTIAL_FLUSH
	123	Z_STREAM_END
	124	Z_STREAM_ERROR
	125	Z_SYNC_FLUSH
	126	Z_UNKNOWN
	127	Z_VERSION_ERROR
	128	);
	129
	130	if (eval {require ExtUtils::Constant; 1}) {
	131	# Check the constants above all appear in @EXPORT in Zlib.pm
	132	my %names = map { $_, 1} @names, 'ZLIB_VERSION';
	133	open F, "<Zlib.pm" or die "Cannot open Zlib.pm: $!\n";
	134	while (<F>)
	135	{
	136	last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
	137	}
	138
	139	while (<F>)
	140	{
141	last if /^\s*\)/ ;
142	/(\S+)/ ;
143	delete $names{$1} if defined $1 ;
144	}
145	close F ;
146
147	if ( keys %names )
148	{
149	my $missing = join ("\n\t", sort keys %names) ;
150	die "The following names are missing from \@EXPORT in Zlib.pm\n" .
151	"\t$missing\n" ;
152	}
153
154	push @names, {name => 'ZLIB_VERSION', type => 'PV' };
155
156	ExtUtils::Constant::WriteConstants(
157	NAME => 'Zlib',
158	NAMES => \@names,
159	C_FILE => 'constants.h',
160	XS_FILE => 'constants.xs',
161
162	);
163	}
164	else {
165	copy ('fallback.h', 'constants.h')
166	or die "Can't copy fallback.h to constants.h: $!";
167	copy ('fallback.xs', 'constants.xs')
168	or die "Can't copy fallback.xs to constants.xs: $!";
169	}
170
76e6f389	171	sub MY::libscan
	172	{
	173	my $self = shift ;
	174	my $path = shift ;
	175
	176	return undef
	177	if $path =~ /(~\|\.bak\|_bak)$/ \|\|
	178	$path =~ /^\..*\.swp$/ ;
	179
	180	return $path;
	181	}
	182
	183
f4c6fd49	184	sub MY::postamble
	185	{
	186	my $postamble = <<'EOM';
	187
	188	Downgrade:
	189	@echo Downgrading.
	190	perl Makefile.PL -downgrade
	191
	192	MyDoubleCheck:
	193	@echo Checking config.in is setup for a release
	194	@(grep '^LIB = ./zlib' config.in && \
	195	grep '^INCLUDE = ./zlib' config.in && \
	196	grep '^OLD_ZLIB = False' config.in && \
	197	grep '^BUILD_ZLIB = True' config.in) >/dev/null \|\| \
	198	(echo config.in needs fixing ; exit 1)
	199	@echo config.in is ok
	200
	201	MyTrebleCheck:
	202	@echo Checking for $$^W in files: '. "@files" . '
	203	@perl -ne \' \
	204	exit 1 if /^\slocal\s\(\s\$$\^W\s\)/; \
	205	\' ' . " @files \|\| " . ' \
	206	(echo found unexpected $$^W ; exit 1)
	207	@echo All is ok.
	208
f4c6fd49	209	EOM
	210
	211	return $postamble;
	212
	213	}
	214
	215	sub ParseCONFIG
	216	{
	217	my ($k, $v) ;
	218	my @badkey = () ;
	219	my %Info = () ;
	220	my @Options = qw( INCLUDE LIB BUILD_ZLIB OLD_ZLIB ) ;
	221	my %ValidOption = map {$_, 1} @Options ;
	222	my %Parsed = %ValidOption ;
	223	my $CONFIG = 'config.in' ;
	224
	225	print "Parsing $CONFIG...\n" ;
	226
	227	open(F, "<$CONFIG") or die "Cannot open file $CONFIG: $!\n" ;
	228	while (<F>) {
	229	s/^\s\|\s$//g ;
	230	next if /^\s$/ or /^\s#/ ;
	231	s/\s#\s$// ;
	232
	233	($k, $v) = split(/\s+=\s+/, $_, 2) ;
	234	$k = uc $k ;
	235	if ($ValidOption{$k}) {
	236	delete $Parsed{$k} ;
	237	$Info{$k} = $v ;
	238	}
	239	else {
	240	push(@badkey, $k) ;
	241	}
	242	}
	243	close F ;
	244
	245	print "Unknown keys in $CONFIG ignored [@badkey]\n"
	246	if @badkey ;
	247
	248	# check parsed values
	249	my @missing = () ;
	250	die "The following keys are missing from $CONFIG [@missing]\n"
	251	if @missing = keys %Parsed ;
	252
	253	$ZLIB_INCLUDE = $ENV{'ZLIB_INCLUDE'} \|\| $Info{'INCLUDE'} ;
	254	$ZLIB_LIB = $ENV{'ZLIB_LIB'} \|\| $Info{'LIB'} ;
	255
	256	if ($^O eq 'VMS') {
	257	$ZLIB_INCLUDE = VMS::Filespec::vmspath($ZLIB_INCLUDE);
	258	$ZLIB_LIB = VMS::Filespec::vmspath($ZLIB_LIB);
	259	}
	260
5993747c	261	$EXTRA_DEFINE = $ENV{EXTRA_DEFINE} if defined $ENV{EXTRA_DEFINE};
5993747c	262
f4c6fd49	263	my $y = $ENV{'OLD_ZLIB'} \|\| $Info{'OLD_ZLIB'} ;
	264	$OLD_ZLIB = '-DOLD_ZLIB' if $y and $y =~ /^yes\|on\|true\|1$/i;
	265
	266	my $x = $ENV{'BUILD_ZLIB'} \|\| $Info{'BUILD_ZLIB'} ;
	267
	268	if ($x and $x =~ /^yes\|on\|true\|1$/i ) {
	269
	270	$BUILD_ZLIB = 1 ;
	271
	272	# ZLIB_LIB & ZLIB_INCLUDE must point to the same place when
	273	# BUILD_ZLIB is specified.
	274	die "INCLUDE & LIB must be the same when BUILD_ZLIB is True\n"
	275	if $ZLIB_LIB ne $ZLIB_INCLUDE ;
	276
	277	# Check the zlib source directory exists
	278	die "LIB/INCLUDE directory '$ZLIB_LIB' does not exits\n"
	279	unless -d $ZLIB_LIB ;
	280
	281	# check for a well known file
	282	die "LIB/INCLUDE directory, '$ZLIB_LIB', doesn't seem to have the zlib source files\n"
	283	unless -e catfile($ZLIB_LIB, 'zlib.h') ;
	284
	285
	286	# check Makefile.zlib has been copied to ZLIB_LIB
	287	#copy 'Makefile.zlib', catfile($ZLIB_LIB, 'Makefile.PL') \|\|
	288	#die "Could not copy Makefile.zlib to " . catfile($ZLIB_LIB, 'Makefile.PL') . ": $!\n" ;
	289	#print "Created a Makefile.PL for zlib\n" ;
	290
	291	# write the Makefile
	292	print "Building Zlib enabled\n" ;
	293	}
	294
	295	print <<EOM if 0 ;
	296	INCLUDE [$ZLIB_INCLUDE]
	297	LIB [$ZLIB_LIB]
	298
	299	EOM
	300
	301	print "Looks Good.\n" ;
	302
	303	}
	304
	305	sub UpDowngrade
	306	{
	307	my @files = @_ ;
	308
	309	# our is stable from 5.6.0 onward
	310	# warnings is stable from 5.6.1 onward
	311
	312	# Note: this code assumes that each statement it modifies is not
	313	# split across multiple lines.
	314
	315
	316	my $warn_sub = '';
	317	my $our_sub = '' ;
	318
	319	my $opt = shift @ARGV \|\| '' ;
	320	my $upgrade = ($opt =~ /^-upgrade/i);
	321	my $downgrade = ($opt =~ /^-downgrade/i);
	322	push @ARGV, $opt unless $downgrade \|\| $upgrade;
	323
	324	if ($downgrade) {
	325	# From: use\|no warnings "blah"
	326	# To: local ($^W) = 1; # use\|no warnings "blah"
327	$warn_sub = sub {
328	s/^(\s*)(no\s+warnings)/${1}local (\$^W) = 0; #$2/ ;
329	s/^(\s*)(use\s+warnings)/${1}local (\$^W) = 1; #$2/ ;
330	};
331	}
332	elsif ($] >= 5.006001 \|\| $upgrade) {
333	# From: local ($^W) = 1; # use\|no warnings "blah"
334	# To: use\|no warnings "blah"
335	$warn_sub = sub {
336	s/^(\s)local\s\(\$\^W\)\s=\s\d+\s;\s#\s((no\|use)\s+warnings.)/$1$2/ ;
337	};
338	}
339
340	if ($downgrade) {
341	$our_sub = sub {
342	if ( /^(\s)our\s+\(\s([^)]+\s*)\)/ ) {
343	my $indent = $1;
344	my $vars = join ' ', split /\s,\s/, $2;
345	$_ = "${indent}use vars qw($vars);\n";
346	}
347	};
348	}
349	elsif ($] >= 5.006000 \|\| $upgrade) {
350	$our_sub = sub {
351	if ( /^(\s)use\s+vars\s+qw\((.?)\)/ ) {
352	my $indent = $1;
353	my $vars = join ', ', split ' ', $2;
354	$_ = "${indent}our ($vars);\n";
355	}
356	};
357	}
358
359	if (! $our_sub && ! $warn_sub) {
360	warn "Up/Downgrade not needed.\n";
361	if ($upgrade \|\| $downgrade)
362	{ exit 0 }
363	else
364	{ return }
365	}
366
bdd93743	367	foreach (@files)
bdd93743	368	{ doUpDown($our_sub, $warn_sub, $_) }
f4c6fd49	369
	370	warn "Up/Downgrade complete.\n" ;
	371	exit 0 if $upgrade \|\| $downgrade;
	372
	373	}
	374
	375
	376	sub doUpDown
	377	{
	378	my $our_sub = shift;
	379	my $warn_sub = shift;
	380
	381	local ($^I) = ($^O eq 'VMS') ? "_bak" : ".bak";
	382	local (@ARGV) = shift;
	383
	384	while (<>)
	385	{
	386	print, last if /^__(END\|DATA)__/ ;
	387
	388	&{ $our_sub }() if $our_sub ;
	389	&{ $warn_sub }() if $warn_sub ;
	390	print ;
	391	}
	392
	393	return if eof ;
	394
	395	while (<>)
	396	{ print }
	397	}
	398
	399
	400	sub zlib_files
	401	{
	402	my $dir = shift ;
	403
	404	my @h_files = ();
	405	my @c_files = ();
	406
	407	if (-f catfile($dir, "infback.c")) {
	408	# zlib 1.2.0 or greater
	409	#
	410	@h_files = qw(crc32.h inffast.h inflate.h trees.h zconf.in.h
	411	zutil.h deflate.h inffixed.h inftrees.h zconf.h
	412	zlib.h
	413	);
	414	@c_files = qw(adler32 crc32 infback inflate uncompr
	415	compress deflate gzio inffast inftrees
	416	trees zutil
	417	);
	418	}
	419	else {
	420	# zlib 1.1.x
	421
	422	@h_files = qw(deflate.h infcodes.h inftrees.h zconf.h zutil.h
	423	infblock.h inffast.h infutil.h zlib.h
	424	);
	425	@c_files = qw(adler32 compress crc32 gzio uncompr
	426	deflate trees zutil inflate infblock
	427	inftrees infcodes infutil inffast
	428	);
	429	}
	430
	431	@h_files = map { catfile($dir, $_) } @h_files ;
	432	my @o_files = map { "$_\$(OBJ_EXT)" } 'Zlib', @c_files;
433	@c_files = map { "$_.c" } 'Zlib', @c_files ;
434
435	foreach my $file (@c_files)
436	{ copy(catfile($dir, $file), '.') }
437
438	return (
439	#'H' => [ @h_files ],
440	'C' => [ @c_files ] ,
441	#'OBJECT' => qq[ @o_files ],
442	'OBJECT' => q[ $(O_FILES) ],
443
444
445	) ;
446	}
447
448
449	# end of file Makefile.PL
450