ext/Time/HiRes/Makefile.PL

   1
   2 # See lib/ExtUtils/MakeMaker.pm for details of how to influence
   3 # the contents of the Makefile that is written.
   4 #
   5
   6 require 5.002;
   7
   8 use Config;
   9 use ExtUtils::MakeMaker;
  10 use strict;
  11
  12 my $VERBOSE = $ENV{VERBOSE};
  13 my $DEFINE;
  14 my $LIBS = [];
  15 my $XSOPT;
  16
  17 use vars qw($self); # Used in 'sourcing' the hints.
  18
  19 my $ld_exeext = ($^O eq 'os2' and $Config{ldflags} =~ /-Zexe\b/) ? '.exe' : '';
  20
  21 unless($ENV{PERL_CORE}) {
  22     $ENV{PERL_CORE} = 1 if grep { $_ eq 'PERL_CORE=1' } @ARGV;
  23 }
  24
  25 # Perls 5.002 and 5.003 did not have File::Spec, fake what we need.
  26
  27 sub my_dirsep {
  28     $^O eq 'VMS' ? '.' :
  29         $^O =~ /mswin32|netware|djgpp/i ? '\\' :
  30             $^O eq 'MacOS' ? ':'
  31                 : '/';
  32 }
  33
  34 sub my_catdir {
  35     shift;
  36     my $catdir = join(my_dirsep, @_);
  37     $^O eq 'VMS' ? "[$catdir]" : $catdir;
  38 }
  39
  40 sub my_catfile {
  41     shift;
  42     return join(my_dirsep, @_) unless $^O eq 'VMS';
  43     my $file = pop;
  44     return my_catdir (undef, @_) . $file;
  45 }
  46
  47 sub my_updir {
  48     shift;
  49     $^O eq 'VMS' ? "-" : "..";
  50 }
  51
  52 BEGIN {
  53     eval { require File::Spec };
  54     if ($@) {
  55         *File::Spec::catdir  = \&my_catdir;
  56         *File::Spec::updir   = \&my_updir;
  57         *File::Spec::catfile = \&my_catfile;
  58     }
  59 }
  60
  61 # Avoid 'used only once' warnings.
  62 my $nop1 = *File::Spec::catdir;
  63 my $nop2 = *File::Spec::updir;
  64 my $nop3 = *File::Spec::catfile;
  65
  66 # if you have 5.004_03 (and some slightly older versions?), xsubpp
  67 # tries to generate line numbers in the C code generated from the .xs.
  68 # unfortunately, it is a little buggy around #ifdef'd code.
  69 # my choice is leave it in and have people with old perls complain
  70 # about the "Usage" bug, or leave it out and be unable to compile myself
  71 # without changing it, and then I'd always forget to change it before a
  72 # release. Sorry, Edward :)
  73
  74 sub TMPDIR {
  75     my $TMPDIR =
  76         (grep(defined $_ && -d $_ && -w _,
  77               ((defined $ENV{'TMPDIR'} ? $ENV{'TMPDIR'} : undef),
  78                qw(/var/tmp /usr/tmp /tmp c:/temp))))[0];
  79     $TMPDIR || die "Cannot find writable temporary directory.\n";
  80 }
  81
  82 sub try_compile_and_link {
  83     my ($c, %args) = @_;
  84
  85     my ($ok) = 0;
  86     my ($tmp) = (($^O eq 'VMS') ? "sys\$scratch:tmp$$" : TMPDIR() . '/' . "tmp$$");
  87     local(*TMPC);
  88
  89     my $obj_ext = $Config{obj_ext} || ".o";
  90     unlink("$tmp.c", "$tmp$obj_ext");
  91
  92     if (open(TMPC, ">$tmp.c")) {
  93         print TMPC $c;
  94         close(TMPC);
  95
  96         my $cccmd = $args{cccmd};
  97
  98         my $errornull;
  99
 100         my $COREincdir;
 101
 102         if ($ENV{PERL_CORE}) {
 103             my $updir = File::Spec->updir;
 104             $COREincdir = File::Spec->catdir(($updir) x 3);
 105         } else {
 106             $COREincdir = File::Spec->catdir($Config{'archlibexp'}, 'CORE');
 107         }
 108
 109         my $ccflags = $Config{'ccflags'} . ' ' . "-I$COREincdir";
 110
 111         if ($^O eq 'VMS') {
 112             if ($ENV{PERL_CORE}) {
 113                 # Fragile if the extensions change hierachy within
 114                 # the Perl core but this should do for now.
 115                 $cccmd = "$Config{'cc'} /include=([---]) $tmp.c";
 116             } else {
 117                 my $perl_core = $Config{'installarchlib'};
 118                 $perl_core =~ s/\]$/.CORE]/;
 119                 $cccmd = "$Config{'cc'} /include=(perl_root:[000000],$perl_core) $tmp.c";
 120             }
 121         }
 122
 123         if ($args{silent} || !$VERBOSE) {
 124             $errornull = "2>/dev/null" unless defined $errornull;
 125         } else {
 126             $errornull = '';
 127         }
 128
 129         $cccmd = "$Config{'cc'} -o $tmp $ccflags $tmp.c @$LIBS $errornull"
 130             unless defined $cccmd;
 131
 132        if ($^O eq 'mpeix') {
 133            $cccmd = 'MPEAUTOCONF=1 '.$cccmd;
 134        } elsif ($^O eq 'VMS') {
 135             open( CMDFILE, ">$tmp.com" );
 136             print CMDFILE "\$ SET MESSAGE/NOFACILITY/NOSEVERITY/NOIDENT/NOTEXT\n";
 137             print CMDFILE "\$ $cccmd\n";
 138             print CMDFILE "\$ IF \$SEVERITY .NE. 1 THEN EXIT 44\n"; # escalate
 139             close CMDFILE;
 140             system("\@ $tmp.com");
 141             $ok = $?==0;
 142             for ("$tmp.c", "$tmp$obj_ext", "$tmp.com", "$tmp$Config{exe_ext}") {
 143                 1 while unlink $_;
 144             }
 145         }
 146         else
 147         {
 148             my $tmp_exe = "$tmp$ld_exeext";
 149             printf "cccmd = $cccmd\n" if $VERBOSE;
 150             my $res = system($cccmd);
 151             $ok = defined($res) && $res==0 && -s $tmp_exe && -x _;
 152             unlink("$tmp.c", $tmp_exe);
 153         }
 154     }
 155
 156     $ok;
 157 }
 158
 159 sub has_gettimeofday {
 160     # confusing but true (if condition true ==> -DHAS_GETTIMEOFDAY already)
 161     return 0 if $Config{'d_gettimeod'} eq 'define';
 162     return 1 if try_compile_and_link(<<EOM);
 163 #include "EXTERN.h"
 164 #include "perl.h"
 165 #include "XSUB.h"
 166 #ifdef I_SYS_TYPES
 167 #   include <sys/types.h>
 168 #endif
 169
 170 #ifdef I_SYS_TIME
 171 #   include <sys/time.h>
 172 #endif
 173
 174 #ifdef I_SYS_SELECT
 175 #   include <sys/select.h>      /* struct timeval might be hidden in here */
 176 #endif
 177 static int foo()
 178 {
 179     struct timeval tv;
 180     gettimeofday(&tv, 0);
 181 }
 182 int main _((int argc, char** argv, char** env))
 183 {
 184     foo();
 185 }
 186 EOM
 187     return 0;
 188 }
 189
 190 sub has_x {
 191     my ($x, %args) = @_;
 192
 193     return 1 if
 194     try_compile_and_link(<<EOM, %args);
 195 #include "EXTERN.h"
 196 #include "perl.h"
 197 #include "XSUB.h"
 198
 199 #ifdef I_UNISTD
 200 #   include <unistd.h>
 201 #endif
 202
 203 #ifdef I_SYS_TYPES
 204 #   include <sys/types.h>
 205 #endif
 206
 207 #ifdef I_SYS_TIME
 208 #   include <sys/time.h>
 209 #endif
 210
 211 int main _((int argc, char** argv, char** env))
 212 {
 213         $x;
 214 }
 215 EOM
 216     return 0;
 217 }
 218
 219 sub init {
 220     my $hints = File::Spec->catfile("hints", "$^O.pl");
 221     if (-f $hints) {
 222         print "Using hints $hints...\n";
 223         local $self;
 224         do $hints;
 225         if (exists $self->{LIBS}) {
 226             $LIBS = $self->{LIBS};
 227             print "Extra libraries: @$LIBS...\n";
 228         }
 229     }
 230
 231     $DEFINE = '';
 232
 233     print "Looking for gettimeofday()... ";
 234     my $has_gettimeofday;
 235     if ($Config{'d_gettimeod'}) {
 236         $has_gettimeofday++;
 237     } elsif (has_gettimeofday()) {
 238         $DEFINE .= ' -DHAS_GETTIMEOFDAY';
 239         $has_gettimeofday++;
 240     }
 241
 242     if ($has_gettimeofday) {
 243         print "found.\n";
 244     } else {
 245         die <<EOD
 246 Your operating system does not seem to have the gettimeofday() function.
 247 (or, at least, I cannot find it)
 248
 249 There is no way Time::HiRes is going to work.
 250
 251 I am awfully sorry but I cannot go further.
 252
 253 Aborting configuration.
 254
 255 EOD
 256     }
 257
 258     print "Looking for setitimer()... ";
 259     my $has_setitimer;
 260     if ($Config{d_setitimer}) {
 261         $has_setitimer++;
 262     } elsif (has_x("setitimer(ITIMER_REAL, 0, 0)")) {
 263         $has_setitimer++;
 264         $DEFINE .= ' -DHAS_SETITIMER';
 265     }
 266
 267     if ($has_setitimer) {
 268         print "found.\n";
 269     } else {
 270         print "NOT found.\n";
 271     }
 272
 273     print "Looking for getitimer()... ";
 274     my $has_getitimer;
 275     if ($Config{d_getitimer}) {
 276         $has_getitimer++;
 277     } elsif (has_x("getitimer(ITIMER_REAL, 0)")) {
 278         $has_getitimer++;
 279         $DEFINE .= ' -DHAS_GETITIMER';
 280     }
 281
 282     if ($has_getitimer) {
 283         print "found.\n";
 284     } else {
 285         print "NOT found.\n";
 286     }
 287
 288     if ($has_setitimer && $has_getitimer) {
 289         print "You have interval timers (both setitimer and setitimer).\n";
 290     } else {
 291         print "You do not have interval timers.\n";
 292     }
 293
 294     print "Looking for ualarm()... ";
 295     my $has_ualarm;
 296     if ($Config{d_ualarm}) {
 297         $has_ualarm++;
 298     } elsif (has_x ("ualarm (0, 0)")) {
 299         $has_ualarm++;
 300         $DEFINE .= ' -DHAS_UALARM';
 301     }
 302
 303     if ($has_ualarm) {
 304         print "found.\n";
 305     } else {
 306         print "NOT found.\n";
 307         if ($has_setitimer) {
 308             print "But you have setitimer().\n";
 309             print "We can make a Time::HiRes::ualarm().\n";
 310         }
 311     }
 312
 313     print "Looking for usleep()... ";
 314     my $has_usleep;
 315     if ($Config{d_usleep}) {
 316         $has_usleep++;
 317     } elsif (has_x ("usleep (0)")) {
 318         $has_usleep++;
 319         $DEFINE .= ' -DHAS_USLEEP';
 320     }
 321
 322     if ($has_usleep) {
 323         print "found.\n";
 324     } else {
 325         print "NOT found.\n";
 326         print "Let's see if you have select()... ";
 327         if ($Config{'d_select'} eq 'define') {
 328             print "found.\n";
 329             print "We can make a Time::HiRes::usleep().\n";
 330         } else {
 331             print "NOT found.\n";
 332             print "You won't have a Time::HiRes::usleep().\n";
 333         }
 334     }
 335
 336     print "Looking for nanosleep()... ";
 337     my $has_nanosleep;
 338     if ($Config{d_nanosleep}) {
 339         $has_nanosleep++;
 340         $DEFINE .= ' -DTIME_HIRES_NANOSLEEP';
 341     } elsif (has_x ("nanosleep (NULL, NULL)")) {
 342         $has_nanosleep++;
 343         $DEFINE .= ' -DTIME_HIRES_NANOSLEEP';
 344     }
 345
 346     if ($has_nanosleep) {
 347         print "found.\n";
 348         print "You can mix subsecond sleeps with signals.\n";
 349     } else {
 350         print "NOT found.\n";
 351         my $nt = ($^O eq 'os2' ? '' : 'not');
 352         print "You can$nt mix subsecond sleeps with signals.\n";
 353     }
 354
 355     if ($DEFINE) {
 356         $DEFINE =~ s/^\s+//;
 357         if (open(XDEFINE, ">xdefine")) {
 358             print XDEFINE $DEFINE, "\n";
 359             close(XDEFINE);
 360         }
 361     }
 362 }
 363
 364 sub doMakefile {
 365     my @makefileopts = ();
 366
 367     if ($] >= 5.005) {
 368         push (@makefileopts,
 369             'AUTHOR'    => 'Jarkko Hietaniemi <jhi@iki.fi>',
 370             'ABSTRACT_FROM' => 'HiRes.pm',
 371         );
 372         $DEFINE .= " -DATLEASTFIVEOHOHFIVE";
 373     }
 374
 375     push (@makefileopts,
 376         'NAME'  => 'Time::HiRes',
 377         'VERSION_FROM' => 'HiRes.pm', # finds $VERSION
 378         'LIBS'  => $LIBS,   # e.g., '-lm'
 379         'DEFINE'        => $DEFINE,     # e.g., '-DHAS_SOMETHING'
 380         'XSOPT' => $XSOPT,
 381     # do not even think about 'INC' => '-I/usr/ucbinclude', Solaris will avenge.
 382         'INC'   => '',     # e.g., '-I/usr/include/other'
 383         'INSTALLDIRS' => 'perl',
 384         'dist'      => {
 385             'CI'       => 'ci -l',
 386             'COMPRESS' => 'gzip -9f',
 387             'SUFFIX'   => 'gz',
 388         },
 389         clean => { FILES => "xdefine" },
 390         realclean => {FILES=> 'const-c.inc const-xs.inc'},
 391     );
 392
 393     if ($ENV{PERL_CORE}) {
 394         push @makefileopts, MAN3PODS => {};
 395     }
 396
 397     WriteMakefile(@makefileopts);
 398 }
 399
 400 sub doConstants {
 401     if (eval {require ExtUtils::Constant; 1}) {
 402         my @names = (qw(ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF
 403                         ITIMER_REALPROF));
 404         foreach (qw (d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
 405                      d_nanosleep)) {
 406             my $macro = $_;
 407             $macro =~ s/d_(.*)/HAS_\U$1/;
 408             push @names, {name => $_, macro => $macro, value => 1,
 409                           default => ["IV", "0"]};
 410         }
 411         ExtUtils::Constant::WriteConstants(
 412                                            NAME => 'Time::HiRes',
 413                                            NAMES => \@names,
 414                                           );
 415     } else {
 416         foreach my $file ('const-c.inc', 'const-xs.inc') {
 417             my $fallback = File::Spec->catfile('fallback', $file);
 418             local $/;
 419             open IN, "<$fallback" or die "Can't open $fallback: $!";
 420             open OUT, ">$file" or die "Can't open $file: $!";
 421             print OUT <IN> or die $!;
 422             close OUT or die "Can't close $file: $!";
 423             close IN or die "Can't close $fallback: $!";
 424         }
 425     }
 426 }
 427
 428 sub main {
 429     print "Configuring Time::HiRes...\n";
 430
 431     if ($^O =~ /Win32/i) {
 432       $DEFINE = '-DSELECT_IS_BROKEN';
 433       $LIBS = [];
 434     } else {
 435       init();
 436     }
 437     doMakefile;
 438     doConstants;
 439     my $make = $Config{'make'} || "make";
 440     unless ($ENV{PERL_CORE}) {
 441         print  <<EOM;
 442 Now you may issue '$make'.  Do not forget also '$make test'.
 443 EOM
 444     }
 445 }
 446
 447 &main;
 448
 449 # EOF