Move CGI from ext/ to cpan/
[perl.git] / ext / Compress-Raw-Bzip2 / Makefile.PL
1 #! perl -w
2
3 use strict ;
4 require 5.004 ;
5
6 use private::MakeUtil;
7 use ExtUtils::MakeMaker 5.16 ;
8
9 my $WALL= '';
10 $WALL = ' -Wall -Wno-comment ' if $Config{'cc'} =~ /gcc/ ;
11 my $USE_PPPORT_H = ($ENV{PERL_CORE}) ? '' : '-DUSE_PPPORT_H';
12
13
14 my $BUILD_BZIP2 = defined($ENV{BUILD_BZIP2}) ? $ENV{BUILD_BZIP2} : 1;
15 my $BZIP2_LIB = defined($ENV{BZIP2_LIB}) ? $ENV{BZIP2_LIB} : 'bzip2-src';
16 my $BZIP2_INCLUDE = defined($ENV{BZIP2_INCLUDE}) ? $ENV{BZIP2_INCLUDE} : '.';
17
18 #ParseCONFIG() ;
19
20 UpDowngrade(getPerlFiles('MANIFEST')) 
21     unless $ENV{PERL_CORE};
22
23 WriteMakefile( 
24     NAME         => 'Compress::Raw::Bzip2',
25     VERSION_FROM => 'lib/Compress/Raw/Bzip2.pm',
26     INC          => "-I$BZIP2_INCLUDE" ,
27     DEFINE       => "$WALL -DBZ_NO_STDIO $USE_PPPORT_H" ,
28     XS           => { 'Bzip2.xs' => 'Bzip2.c'},
29     'clean'      => { FILES      => '*.c bzip2.h bzlib.h bzlib_private.h constants.h constants.xs' },
30    #'depend'     => { 'Makefile'   => 'config.in' },
31     'dist'       => { COMPRESS     => 'gzip', 
32                       TARFLAGS     => '-chvf',
33                       SUFFIX       => 'gz',
34                       DIST_DEFAULT => 'MyTrebleCheck tardist',
35                     },
36
37     (
38       $BUILD_BZIP2
39         ? bzip2_files($BZIP2_LIB)
40         : (LIBS => [ "-L$BZIP2_LIB -lbz2 " ])
41     ),
42       
43     (
44       $] >= 5.005
45         ? (ABSTRACT_FROM => 'lib/Compress/Raw/Bzip2.pm',
46             AUTHOR       => 'Paul Marquess <pmqs@cpan.org>')
47         : ()
48     ),
49
50     INSTALLDIRS => ($] > 5.010 ? 'perl' : 'site'),
51
52     ((ExtUtils::MakeMaker->VERSION() gt '6.30') ?
53         ('LICENSE'  => 'perl')         : ()),    
54
55 ) ;
56
57 my @names = qw(
58                 BZ_RUN
59                 BZ_FLUSH
60                 BZ_FINISH
61
62                 BZ_OK
63                 BZ_RUN_OK
64                 BZ_FLUSH_OK
65                 BZ_FINISH_OK
66                 BZ_STREAM_END
67                 BZ_SEQUENCE_ERROR
68                 BZ_PARAM_ERROR
69                 BZ_MEM_ERROR
70                 BZ_DATA_ERROR
71                 BZ_DATA_ERROR_MAGIC
72                 BZ_IO_ERROR
73                 BZ_UNEXPECTED_EOF
74                 BZ_OUTBUFF_FULL
75                 BZ_CONFIG_ERROR
76         );
77
78 if (eval {require ExtUtils::Constant; 1}) {
79     # Check the constants above all appear in @EXPORT in Bzip2.pm
80     my %names = map { $_, 1} @names ; #, 'BZ_VERSION';
81     open F, "<lib/Compress/Raw/Bzip2.pm" or die "Cannot open Bzip2.pm: $!\n";
82     while (<F>)
83     {
84         last if /^\s*\@EXPORT\s+=\s+qw\(/ ;
85     }
86
87     while (<F>)
88     {
89         last if /^\s*\)/ ;
90         /(\S+)/ ;
91         delete $names{$1} if defined $1 ;
92     }
93     close F ;
94
95     if ( keys %names )
96     {
97         my $missing = join ("\n\t", sort keys %names) ;
98         die "The following names are missing from \@EXPORT in Bzip2.pm\n" .
99             "\t$missing\n" ;
100     }
101     
102     #push @names, {name => 'BZ_VERSION', type => 'PV' };
103
104     ExtUtils::Constant::WriteConstants(
105                                      NAME     => 'Bzip2',
106                                      NAMES    => \@names,
107                                      C_FILE   => 'constants.h',
108                                      XS_FILE  => 'constants.xs',
109                                                                        
110                                     );
111
112 else {
113     foreach my $name (qw( constants.h constants.xs ))
114     {
115         my $from = catfile('fallback', $name);
116         copy ($from, $name)
117           or die "Can't copy $from to $name: $!";
118     }
119 }
120
121
122 sub bzip2_files
123 {
124     my $dir = shift ;
125
126     my @c_files = qw(
127         blocksort.c
128         huffman.c
129         crctable.c
130         randtable.c
131         compress.c
132         decompress.c
133         bzlib.c
134     );
135
136     my @h_files = qw( bzlib.h  bzlib_private.h );
137
138     foreach my $file (@c_files, @h_files)
139       { copy(catfile($dir, $file), '.') }
140     
141     
142     @h_files = map { catfile($dir, $_)  } @h_files ;
143     my @o_files = map { "$_\$(OBJ_EXT)" } 'Bzip2', @c_files;
144     push @c_files, 'Bzip2.c' ;
145
146     return (
147         #'H'         =>  [ @h_files ],
148         'C'         =>  [ @c_files ] ,
149         #'OBJECT'    => qq[ @o_files ],
150         'OBJECT'    => q[ $(O_FILES) ],
151         
152
153            ) ;
154 }
155
156
157