#                              -*- Mode: Perl -*- 
# $Basename: Makefile.PL $
# $Revision: 1.8 $
# Author          : Ulrich Pfeifer
# Created On      : Sat Dec 20 14:42:50 1997
# Last Modified By: Ulrich Pfeifer
# Last Modified On: Tue Dec 19 21:59:27 2000
# Language        : CPerl
# Update Count    : 44
# Status          : Unknown, Use with caution!
# 
# (C) Copyright 1997, Ulrich Pfeifer, all rights reserved.
# 
# 

use ExtUtils::MakeMaker;

my (%conf, $LIBDIR, $INCDIR);

%conf = find_math_installation();

unless ($conf{bindir}) {
  print
    "Using hardcoded paths! You probably will have to edit line ",
    (__LINE__+ 3), " to line ", (__LINE__+ 5), "\nin $0\n";
  
  my $MLINKDIR  = '/usr/local/mathematica/AddOns/MathLink/DevelopersKits';
  my $SYS       = 'Linux';
  my $ADDONSDIR = "${MLINKDIR}/${SYS}/CompilerAdditions";
  $INCDIR    = $ADDONSDIR;
  $LIBDIR    = $ADDONSDIR;
} else {
  $INCDIR    = $conf{bindir};
  $LIBDIR    = $conf{bindir};
}

WriteMakefile
  (
   'NAME'	=> 'Math::ematica',
   # $Format: "   'VERSION'    => sprintf('%5.3f', $ProjectMajorVersion$/10 + ($ProjectMinorVersion$-1)/1000),"$ 
   'VERSION'    => sprintf('%5.3f', 11/10 + (9-1)/1000),
   'dist'       => {COMPRESS => 'gzip -9f'},
   'LIBS'	=> ["-L$LIBDIR -lML", '-lm'],
   'DEFINE'	=> '',
   'INC'	=> "-I$INCDIR",
   'OBJECT'     => 'ematica.o constants.o',
   'MAN3PODS'   => { 'ematica.pm' => 'blib/man3/Math::ematica.3'},
   'XSPROTOARG' => '-prototypes',
   'dist'       => {
                    COMPRESS => 'gzip -9f',
                    PREOP    => 'pod2text ematica.pm > README',
                   },
  );

sub find_math_installation {
  my $mcc;
  my %var;

  # look for mcc
  for (split /:/, $ENV{PATH}) {
    if (-x "$_/mcc") {
      $mcc = "$_/mcc";
    }
  }
  unless ($mcc) {
    warn "Could not find mcc in your \$PATH\n";
    return;
  }

  # Read mcc script and exract path information
  open(MCC, "< $mcc") or die "Could not open '$mcc' for reading\n";
  while (<MCC>) {
    if (m{^ \s* (\w+) \s* = \s* (\S+)}x) {
      my ($var_name, $value) = ($1, $2);
      $value =~ s/\$(\w+)/$var{$1}/eg;
      $var{$var_name} = $value;
    }
  }
  close MCC;

  %var;
}