This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.25
[perl5.git] / lib / ExtUtils / MM_MacOS.pm
index 4d32dbb..de578f8 100644 (file)
-#   MM_MacOS.pm
-#   MakeMaker default methods for MacOS
-#   This package is inserted into @ISA of MakeMaker's MM before the
-#   built-in ExtUtils::MM_Unix methods if MakeMaker.pm is run under MacOS.
-#
-#   Author:  Matthias Neeracher <neeracher@mac.com>
-
 package ExtUtils::MM_MacOS;
-require ExtUtils::MM_Any;
-require ExtUtils::MM_Unix;
-@ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
 
-use Config;
-use Cwd 'cwd';
-require Exporter;
-use File::Basename;
-use File::Spec;
-use vars qw(%make_data);
+$VERSION = 1.08;
 
-use ExtUtils::MakeMaker qw($Verbose &neatvalue);
+sub new {
+    die <<'UNSUPPORTED';
+MacOS Classic (MacPerl) is no longer supported by MakeMaker.
+Please use Module::Build instead.
+UNSUPPORTED
+}
 
 =head1 NAME
 
-ExtUtils::MM_MacOS - methods to override UN*X behaviour in ExtUtils::MakeMaker
+ExtUtils::MM_MacOS - once produced Makefiles for MacOS Classic
 
 =head1 SYNOPSIS
 
- use ExtUtils::MM_MacOS; # Done internally by ExtUtils::MakeMaker if needed
+  # MM_MacOS no longer contains any code.  This is just a stub.
 
 =head1 DESCRIPTION
 
-MM_MacOS currently only produces an approximation to the correct Makefile.
-
-=cut
-
-sub new {
-    my($class,$self) = @_;
-    my($key);
-    my($cwd) = cwd();
-
-    print STDOUT "Mac MakeMaker (v$ExtUtils::MakeMaker::VERSION)\n" if $Verbose;
-    if (-f "MANIFEST" && ! -f "Makefile.mk"){
-       ExtUtils::MakeMaker::check_manifest();
-    }
-
-    mkdir("Obj", 0777) unless -d "Obj";
-    
-    $self = {} unless (defined $self);
-
-    my(%initial_att) = %$self; # record initial attributes
-
-    if (defined $self->{CONFIGURE}) {
-       if (ref $self->{CONFIGURE} eq 'CODE') {
-           $self = { %$self, %{&{$self->{CONFIGURE}}}};
-       } else {
-           Carp::croak "Attribute 'CONFIGURE' to WriteMakefile() not a code reference\n";
-       }
-    }
-
-    $class = ++$ExtUtils::MakeMaker::PACKNAME;
-    {
-       print "Blessing Object into class [$class]\n" if $Verbose>=2;
-       ExtUtils::MakeMaker::mv_all_methods("MY",$class);
-       bless $self, $class;
-       push @Parent, $self;
-       @{"$class\:\:ISA"} = 'MM';
-    }
-
-    if (defined $Parent[-2]){
-       $self->{PARENT} = $Parent[-2];
-       my $key;
-       for $key (keys %Prepend_dot_dot) {
-           next unless defined $self->{PARENT}{$key};
-           $self->{$key} = $self->{PARENT}{$key};
-           $self->{$key} = File::Spec->catdir("::",$self->{$key})
-               unless File::Spec->file_name_is_absolute($self->{$key});
-       }
-       $self->{PARENT}->{CHILDREN}->{$class} = $self if $self->{PARENT};
-    } else {
-       $self->parse_args(@ARGV);
-    }
-
-    $self->{NAME} ||= $self->guess_name;
-
-    ($self->{NAME_SYM} = $self->{NAME}) =~ s/\W+/_/g;
-
-    $self->init_main();
-    $self->init_dirscan();
-    $self->init_others();
-
-    push @{$self->{RESULT}}, <<END;
-# This Makefile is for the $self->{NAME} extension to perl.
-#
-# It was generated automatically by MakeMaker version
-# $VERSION (Revision: $Revision) from the contents of
-# Makefile.PL. Don't edit this file, edit Makefile.PL instead.
-#
-#      ANY CHANGES MADE HERE WILL BE LOST!
-#
-#   MakeMaker Parameters:
-END
-
-    foreach $key (sort keys %initial_att){
-       my($v) = neatvalue($initial_att{$key});
-       $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
-       $v =~ tr/\n/ /s;
-       push @{$self->{RESULT}}, "#     $key => $v";
-    }
-
-    # turn the SKIP array into a SKIPHASH hash
-    my (%skip,$skip);
-    for $skip (@{$self->{SKIP} || []}) {
-       $self->{SKIPHASH}{$skip} = 1;
-    }
-    delete $self->{SKIP}; # free memory
-
-    # We skip many sections for MacOS, but we don't say anything about it in the Makefile
-    for (qw/post_initialize const_config tool_autosplit
-           tool_xsubpp tools_other dist macro depend post_constants
-           pasthru c_o xs_c xs_o top_targets linkext 
-           dynamic_bs dynamic_lib static_lib manifypods
-           installbin subdirs dist_basics dist_core
-           dist_dir dist_test dist_ci install force perldepend makefile
-           staticmake test pm_to_blib selfdocument cflags 
-           const_loadlibs const_cccmd
-    /) 
-    {
-       $self->{SKIPHASH}{$_} = 2;
-    }
-    push @ExtUtils::MakeMaker::MM_Sections, "rulez" 
-       unless grep /rulez/, @ExtUtils::MakeMaker::MM_Sections;
-    
-    if ($self->{PARENT}) {
-       for (qw/install dist dist_basics dist_core dist_dir dist_test dist_ci/) {
-           $self->{SKIPHASH}{$_} = 1;
-       }
-    }
-
-    # We run all the subdirectories now. They don't have much to query
-    # from the parent, but the parent has to query them: if they need linking!
-    unless ($self->{NORECURS}) {
-       $self->eval_in_subdirs if @{$self->{DIR}};
-    }
-
-    my $section;
-    foreach $section ( @ExtUtils::MakeMaker::MM_Sections ){
-       next if ($self->{SKIPHASH}{$section} == 2);
-       print "Processing Makefile '$section' section\n" if ($Verbose >= 2);
-       $self->{ABSTRACT_FROM} = macify($self->{ABSTRACT_FROM})
-               if $self->{ABSTRACT_FROM};
-       my($skipit) = $self->skipcheck($section);
-       if ($skipit){
-           push @{$self->{RESULT}}, "\n# --- MakeMaker $section section $skipit.";
-       } else {
-           my(%a) = %{$self->{$section} || {}};
-           push @{$self->{RESULT}}, "\n# --- MakeMaker $section section:";
-           push @{$self->{RESULT}}, "# " . join ", ", %a if $Verbose && %a;
-           push @{$self->{RESULT}}, $self->nicetext($self->$section( %a ));
-       }
-    }
-
-    push @{$self->{RESULT}}, "\n# End.";
-    pop @Parent;
-
-    $ExtUtils::MM_MacOS::make_data{$cwd} = $self;
-    $self;
-}
-
-sub skipcheck {
-    my($self) = shift;
-    my($section) = @_;
-    return 'skipped' if $self->{SKIPHASH}{$section};
-    return '';
-}
-
-=item maybe_command
-
-Returns true, if the argument is likely to be a command.
-
-=cut
-
-sub maybe_command {
-    my($self,$file) = @_;
-    return $file if ! -d $file;
-    return;
-}
-
-=item guess_name
-
-Guess the name of this package by examining the working directory's
-name. MakeMaker calls this only if the developer has not supplied a
-NAME attribute.
-
-=cut
-
-sub guess_name {
-    my($self) = @_;
-    my $name = cwd();
-    $name =~ s/.*:// unless ($name =~ s/^.*:ext://);
-    $name =~ s#:#::#g;
-    $name =~  s#[\-_][\d.\-]+$##;  # this is new with MM 5.00
-    $name;
-}
-
-=item macify
-
-Translate relative path names into Mac names.
-
-=cut
-
-sub macify {
-    # mmm, better ... and this condition should always be satisified,
-    # as the module is now distributed with MacPerl, but leave in anyway
-    if (do 'Mac/FileSpec/Unixish.pm') {
-        return Mac::FileSpec::Unixish::nativize($_[0]);
-    }
-
-    my($unix) = @_;
-    my(@mac);
-
-    $unix =~ s|^\./||;
-
-    foreach (split(/[ \t\n]+/, $unix)) {
-       if (m|/|) {
-           $_ = ":$_";
-           s|/|:|g;
-       } 
-       push(@mac, $_);
-    }
-    
-    return "@mac";
-}
-
-=item patternify
-
-Translate to Mac names & patterns
-
-=cut
-
-sub patternify {
-    my($unix) = @_;
-    my(@mac);
-    
-    foreach (split(/[ \t\n]+/, $unix)) {
-       if (m|/|) {
-           $_ = ":$_";
-           s|/|:|g;
-           s|\*|Å|g;
-           $_ = "'$_'" if /[?Å]/;
-           push(@mac, $_);
-       }
-    }
-    
-    return "@mac";
-}
+Once upon a time, MakeMaker could produce an approximation of a correct
+Makefile on MacOS Classic (MacPerl).  Due to a lack of maintainers, this
+fell out of sync with the rest of MakeMaker and hadn't worked in years.
+Since there's little chance of it being repaired, MacOS Classic is fading
+away, and the code was icky to begin with, the code has been deleted to
+make maintenance easier.
 
-=item init_main
+Those interested in writing modules for MacPerl should use Module::Build
+which works better than MakeMaker ever did.
 
-Initializes some of NAME, FULLEXT, BASEEXT, ROOTEXT, DLBASE, PERL_SRC,
-PERL_LIB, PERL_ARCHLIB, PERL_INC, INSTALLDIRS, INST_*, INSTALL*,
-PREFIX, CONFIG, AR, AR_STATIC_ARGS, LD, OBJ_EXT, LIB_EXT, MAP_TARGET,
-LIBPERL_A, VERSION_FROM, VERSION, DISTNAME, VERSION_SYM.
+Anyone interested in resurrecting this file should pull the old version
+from the MakeMaker CVS repository and contact makemaker@perl.org, but we
+really encourage you to work on Module::Build instead.
 
 =cut
 
-sub init_main {
-    my($self) = @_;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-
-    # --- Initialize Module Name and Paths
-
-    # NAME    = The perl module name for this extension (eg DBD::Oracle).
-    # FULLEXT = Pathname for extension directory (eg DBD/Oracle).
-    # BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
-    # ROOTEXT = Directory part of FULLEXT with trailing :.
-    ($self->{FULLEXT} =
-     $self->{NAME}) =~ s!::!:!g ;                   #eg. BSD:Foo:Socket
-    ($self->{BASEEXT} =
-     $self->{NAME}) =~ s!.*::!! ;                           #eg. Socket
-    ($self->{ROOTEXT} =
-     $self->{FULLEXT}) =~ s#:?\Q$self->{BASEEXT}\E$## ;      #eg. BSD:Foo
-    $self->{ROOTEXT} .= ":" if ($self->{ROOTEXT});
-
-    # --- Initialize PERL_LIB, INST_LIB, PERL_SRC
-
-    # *Real* information: where did we get these two from? ...
-    my $inc_config_dir = dirname($INC{'Config.pm'});
-    my $inc_carp_dir   = dirname($INC{'Carp.pm'});
-
-    unless ($self->{PERL_SRC}){
-       my($dir);
-       foreach $dir (qw(:: ::: :::: ::::: ::::::)){
-           if (-f "${dir}perl.h") {
-               $self->{PERL_SRC}=$dir ;
-               last;
-           }
-       }
-       if (!$self->{PERL_SRC} && -f "$ENV{MACPERL}CORE:perl:perl.h") {
-           # Mac pathnames may be very nasty, so we'll install symlinks
-           unlink(":PerlCore", ":PerlLib");
-           symlink("$ENV{MACPERL}CORE:", "PerlCore");
-           symlink("$ENV{MACPERL}lib:", "PerlLib");
-           $self->{PERL_SRC} = ":PerlCore:perl:" ;
-           $self->{PERL_LIB} = ":PerlLib:";
-       }
-    }
-    if ($self->{PERL_SRC}){
-       $self->{MACPERL_SRC}  = File::Spec->catdir("$self->{PERL_SRC}","macos:");
-       $self->{MACPERL_LIB}  ||= File::Spec->catdir("$self->{MACPERL_SRC}","lib");
-       $self->{PERL_LIB}     ||= File::Spec->catdir("$self->{PERL_SRC}","lib");
-       $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
-       $self->{PERL_INC}     = $self->{PERL_SRC};
-       $self->{MACPERL_INC}  = $self->{MACPERL_SRC};
-    } else {
-# hmmmmmmm ... ?
-    $self->{PERL_LIB} ||= "$ENV{MACPERL}site_perl";
-       $self->{PERL_ARCHLIB} = $self->{PERL_LIB};
-       $self->{PERL_INC}     = $ENV{MACPERL};
-#      die <<END;
-#On MacOS, we need to build under the Perl source directory or have the MacPerl SDK
-#installed in the MacPerl folder.
-#END
-    }
-
-    $self->{INSTALLDIRS} = "perl";
-    $self->{INST_LIB} = $self->{INST_ARCHLIB} = $self->{PERL_LIB};
-    $self->{INST_MAN1DIR} = $self->{INSTALLMAN1DIR} = "none";
-    $self->{MAN1EXT} ||= $Config::Config{man1ext};
-    $self->{INST_MAN3DIR} = $self->{INSTALLMAN3DIR} = "none";
-    $self->{MAN3EXT} ||= $Config::Config{man3ext};
-    $self->{MAP_TARGET} ||= "perl";
-
-    # make a simple check if we find Exporter
-    # hm ... do we really care?  at all?
-#    warn "Warning: PERL_LIB ($self->{PERL_LIB}) seems not to be a perl library directory
-#        (Exporter.pm not found)"
-#      unless -f File::Spec->catfile("$self->{PERL_LIB}","Exporter.pm") ||
-#        $self->{NAME} eq "ExtUtils::MakeMaker";
-
-    # Determine VERSION and VERSION_FROM
-    ($self->{DISTNAME}=$self->{NAME}) =~ s#(::)#-#g unless $self->{DISTNAME};
-    if ($self->{VERSION_FROM}){
-       local *FH;
-       open(FH,macify($self->{VERSION_FROM})) or
-           die "Could not open '$self->{VERSION_FROM}' (attribute VERSION_FROM): $!";
-       while (<FH>) {
-           chop;
-           next unless /\$([\w:]*\bVERSION)\b.*=/;
-           local $ExtUtils::MakeMaker::module_version_variable = $1;
-           my($eval) = "$_;";
-           eval $eval;
-           die "Could not eval '$eval': $@" if $@;
-           if ($self->{VERSION} = $ {$ExtUtils::MakeMaker::module_version_variable}){
-               print "$self->{NAME} VERSION is $self->{VERSION} (from $self->{VERSION_FROM})\n" if $Verbose;
-           } else {
-               # XXX this should probably croak
-               print "WARNING: Setting VERSION via file '$self->{VERSION_FROM}' failed\n";
-           }
-           last;
-       }
-       close FH;
-    }
-
-    if ($self->{VERSION}) {
-       $self->{VERSION} =~ s/^\s+//;
-       $self->{VERSION} =~ s/\s+$//;
-    }
-
-    $self->{VERSION} = "0.10" unless $self->{VERSION};
-    ($self->{VERSION_SYM} = $self->{VERSION}) =~ s/\W/_/g;
-
-
-    # Graham Barr and Paul Marquess had some ideas how to ensure
-    # version compatibility between the *.pm file and the
-    # corresponding *.xs file. The bottomline was, that we need an
-    # XS_VERSION macro that defaults to VERSION:
-    $self->{XS_VERSION} ||= $self->{VERSION};
-
-    # --- Initialize Perl Binary Locations
-
-    # Find Perl 5. The only contract here is that both 'PERL' and 'FULLPERL'
-    # will be working versions of perl 5. miniperl has priority over perl
-    # for PERL to ensure that $(PERL) is usable while building ./ext/*
-    my ($component,@defpath);
-    foreach $component ($self->{PERL_SRC}, File::Spec->path(), $Config::Config{binexp}) {
-       push @defpath, $component if defined $component;
-    }
-    $self->{PERL} = "$self->{PERL_SRC}miniperl";
-    $self->{FULLPERL} = "$self->{PERL_SRC}perl";
-    $self->{MAKEFILE} = "Makefile.mk";
-}
-
-=item init_others
-
-Initializes LDLOADLIBS, LIBS
-
-=cut
-
-sub init_others {      # --- Initialize Other Attributes
-    my($self) = shift;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-
-    if ( !$self->{OBJECT} ) {
-       # init_dirscan should have found out, if we have C files
-       $self->{OBJECT} = "";
-       $self->{OBJECT} = "$self->{BASEEXT}.c" if @{$self->{C}||[]};
-    } else {
-       $self->{OBJECT} =~ s/\$\(O_FILES\)/@{$self->{C}||[]}/;
-    }
-    my($src);
-    foreach (split(/[ \t\n]+/, $self->{OBJECT})) {
-       if (/^$self->{BASEEXT}\.o(bj)?$/) {
-           $src .= " $self->{BASEEXT}.c";
-       } elsif (/^(.*\..*)\.o$/) {
-           $src .= " $1";
-       } elsif (/^(.*)(\.o(bj)?|\$\(OBJ_EXT\))$/) {
-           if (-f "$1.cp") {
-               $src .= " $1.cp";
-           } else {
-               $src .= " $1.c";
-           }
-       } else {
-           $src .= " $_";
-       }
-    }
-    $self->{SOURCE} = $src;
-}
-
-
-=item init_dirscan
-
-Initializes DIR, XS, PM, C, O_FILES, H, PL_FILES, MAN*PODS, EXE_FILES.
-
-=cut
-
-sub init_dirscan {     # --- File and Directory Lists (.xs .pm .pod etc)
-    my($self) = @_;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    my($name, %dir, %xs, %c, %h, %ignore, %pl_files, %manifypods);
-    local(%pm); #the sub in find() has to see this hash
-
-    # in case we don't find it below!
-    if ($self->{VERSION_FROM}) {
-        my $version_from = macify($self->{VERSION_FROM});
-        $pm{$version_from} = File::Spec->catfile('$(INST_LIBDIR)',
-            $version_from);
-    }
-
-    $ignore{'test.pl'} = 1;
-    foreach $name ($self->lsdir(":")){
-       next if ($name =~ /^\./ or $ignore{$name});
-       next unless $self->libscan($name);
-       if (-d $name){
-           $dir{$name} = $name if (-f ":$name:Makefile.PL");
-       } elsif ($name =~ /\.xs$/){
-           my($c); ($c = $name) =~ s/\.xs$/.c/;
-           $xs{$name} = $c;
-           $c{$c} = 1;
-       } elsif ($name =~ /\.c(p|pp|xx|c)?$/i){  # .c .C .cpp .cxx .cc .cp
-           $c{$name} = 1
-               unless $name =~ m/perlmain\.c/; # See MAP_TARGET
-       } elsif ($name =~ /\.h$/i){
-           $h{$name} = 1;
-       } elsif ($name =~ /\.(p[ml]|pod)$/){
-           $pm{$name} = File::Spec->catfile('$(INST_LIBDIR)',$name);
-       } elsif ($name =~ /\.PL$/ && $name ne "Makefile.PL") {
-           ($pl_files{$name} = $name) =~ s/\.PL$// ;
-       }
-    }
-
-    # Some larger extensions often wish to install a number of *.pm/pl
-    # files into the library in various locations.
-
-    # The attribute PMLIBDIRS holds an array reference which lists
-    # subdirectories which we should search for library files to
-    # install. PMLIBDIRS defaults to [ 'lib', $self->{BASEEXT} ].  We
-    # recursively search through the named directories (skipping any
-    # which don't exist or contain Makefile.PL files).
-
-    # For each *.pm or *.pl file found $self->libscan() is called with
-    # the default installation path in $_[1]. The return value of
-    # libscan defines the actual installation location.  The default
-    # libscan function simply returns the path.  The file is skipped
-    # if libscan returns false.
-
-    # The default installation location passed to libscan in $_[1] is:
-    #
-    #  ./*.pm          => $(INST_LIBDIR)/*.pm
-    #  ./xyz/...       => $(INST_LIBDIR)/xyz/...
-    #  ./lib/...       => $(INST_LIB)/...
-    #
-    # In this way the 'lib' directory is seen as the root of the actual
-    # perl library whereas the others are relative to INST_LIBDIR
-    # (which includes ROOTEXT). This is a subtle distinction but one
-    # that's important for nested modules.
-
-    $self->{PMLIBDIRS} = ['lib', $self->{BASEEXT}]
-       unless $self->{PMLIBDIRS};
-
-    #only existing directories that aren't in $dir are allowed
-
-    my (@pmlibdirs) = map { macify ($_) } @{$self->{PMLIBDIRS}};
-    my ($pmlibdir);
-    @{$self->{PMLIBDIRS}} = ();
-    foreach $pmlibdir (@pmlibdirs) {
-       -d $pmlibdir && !$dir{$pmlibdir} && push @{$self->{PMLIBDIRS}}, $pmlibdir;
-    }
-
-    if (@{$self->{PMLIBDIRS}}){
-       print "Searching PMLIBDIRS: @{$self->{PMLIBDIRS}}\n"
-           if ($Verbose >= 2);
-       require File::Find;
-       File::Find::find(sub {
-           if (-d $_){
-               if ($_ eq "CVS" || $_ eq "RCS"){
-                   $File::Find::prune = 1;
-               }
-               return;
-           }
-           my($path, $prefix) = ($File::Find::name, '$(INST_LIBDIR)');
-           my($striplibpath,$striplibname);
-           $prefix =  '$(INST_LIB)' if (($striplibpath = $path) =~ s:^(\W*)lib\W:$1:);
-           ($striplibname,$striplibpath) = fileparse($striplibpath);
-           my($inst) = File::Spec->catfile($prefix,$striplibpath,$striplibname);
-           local($_) = $inst; # for backwards compatibility
-           $inst = $self->libscan($inst);
-           print "libscan($path) => '$inst'\n" if ($Verbose >= 2);
-           return unless $inst;
-           $pm{$path} = $inst;
-       }, @{$self->{PMLIBDIRS}});
-    }
-
-    $self->{DIR} = [sort keys %dir] unless $self->{DIR};
-    $self->{XS}  = \%xs             unless $self->{XS};
-    $self->{PM}  = \%pm             unless $self->{PM};
-    $self->{C}   = [sort keys %c]   unless $self->{C};
-    $self->{H}   = [sort keys %h]   unless $self->{H};
-    $self->{PL_FILES} = \%pl_files unless $self->{PL_FILES};
-
-    # Set up names of manual pages to generate from pods
-    unless ($self->{MAN1PODS}) {
-       $self->{MAN1PODS} = {};
-    }
-    unless ($self->{MAN3PODS}) {
-       $self->{MAN3PODS} = {};
-    }
-}
-
-=item libscan (o)
-
-Takes a path to a file that is found by init_dirscan and returns false
-if we don't want to include this file in the library. Mainly used to
-exclude RCS, CVS, and SCCS directories from installation.
-
-=cut
-
-# ';
-
-sub libscan {
-    my($self,$path) = @_;
-    return '' if $path =~ m/:(RCS|CVS|SCCS):/ ;
-    $path;
-}
-
-=item constants (o)
-
-Initializes lots of constants and .SUFFIXES and .PHONY
-
-=cut
-
-sub constants {
-    my($self) = @_;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    my(@m,$tmp);
-
-    for $tmp (qw/
-             NAME DISTNAME NAME_SYM VERSION VERSION_SYM XS_VERSION
-             INST_LIB INST_ARCHLIB PERL_LIB PERL_SRC MACPERL_SRC MACPERL_LIB PERL FULLPERL
-             XSPROTOARG MACLIBS_68K MACLIBS_PPC MACLIBS_SC MACLIBS_MRC MACLIBS_ALL_68K MACLIBS_ALL_PPC MACLIBS_SHARED SOURCE TYPEMAPS
-             / ) {
-       next unless defined $self->{$tmp};
-       push @m, "$tmp = $self->{$tmp}\n";
-    }
-
-    push @m, q{
-MODULES = }.join(" \\\n\t", sort keys %{$self->{PM}})."\n";
-    push @m, "PMLIBDIRS = @{$self->{PMLIBDIRS}}\n" if @{$self->{PMLIBDIRS}};
-
-    push @m, '
-
-.INCLUDE : $(MACPERL_SRC)BuildRules.mk
-
-';
-
-    push @m, qq{
-VERSION_MACRO = VERSION
-DEFINE_VERSION = -d \$(VERSION_MACRO)="¶"\$(VERSION)¶""
-XS_VERSION_MACRO = XS_VERSION
-XS_DEFINE_VERSION = -d \$(XS_VERSION_MACRO)="¶"\$(XS_VERSION)¶""
-};
-
-    $self->{DEFINE} .= " \$(XS_DEFINE_VERSION) \$(DEFINE_VERSION)";
-
-    push @m, qq{
-MAKEMAKER = $INC{'ExtUtils/MakeMaker.pm'}
-MM_VERSION = $ExtUtils::MakeMaker::VERSION
-};
-
-    push @m, q{
-# FULLEXT = Pathname for extension directory (eg DBD:Oracle).
-# BASEEXT = Basename part of FULLEXT. May be just equal FULLEXT.
-# ROOTEXT = Directory part of FULLEXT (eg DBD)
-# DLBASE  = Basename part of dynamic library. May be just equal BASEEXT.
-};
-
-    if ($self->{DEFINE}) {
-       $self->{DEFINE} =~ s/-D/-d /g; # Preprocessor definitions may be useful
-       $self->{DEFINE} =~ s/-I\S+//g; # UN*X includes probably are not useful
-    }
-    if ($self->{INC}) {
-       $self->{INC} =~ s/-I\S+//g; # UN*X includes probably are not useful
-    }
-    for $tmp (qw/
-             FULLEXT BASEEXT ROOTEXT DEFINE INC
-             / ) {
-       next unless defined $self->{$tmp};
-       push @m, "$tmp = $self->{$tmp}\n";
-    }
-
-    push @m, "
-# Handy lists of source code files:
-XS_FILES= ".join(" \\\n\t", sort keys %{$self->{XS}})."
-C_FILES = ".join(" \\\n\t", @{$self->{C}})."
-H_FILES = ".join(" \\\n\t", @{$self->{H}})."
-";
-
-    push @m, '
-
-.INCLUDE : $(MACPERL_SRC)ExtBuildRules.mk
-';
-
-    join('',@m);
-}
-
-=item static (o)
-
-Defines the static target.
-
-=cut
-
-sub static {
-# --- Static Loading Sections ---
-
-    my($self) = shift;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    my($extlib) = $self->{MYEXTLIB} ? "\nstatic :: myextlib\n" : "";
-    '
-all :: static
-
-install :: do_install_static
-
-install_static :: do_install_static
-' . $extlib;
-}
-
-=item dlsyms (o)
-
-Used by MacOS to define DL_FUNCS and DL_VARS and write the *.exp
-files.
-
-=cut
-
-sub dlsyms {
-    my($self,%attribs) = @_;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-
-    return '' unless !$self->{SKIPHASH}{'dynamic'};
-
-    my($funcs) = $attribs{DL_FUNCS} || $self->{DL_FUNCS} || {};
-    my($vars)  = $attribs{DL_VARS} || $self->{DL_VARS} || [];
-    my(@m);
-
-    push(@m,"
-dynamic :: $self->{BASEEXT}.exp
-
-") unless $self->{SKIPHASH}{'dynamic'};
-
-    my($extlib) = $self->{MYEXTLIB} ? " myextlib" : "";
-
-    push(@m,"
-$self->{BASEEXT}.exp: Makefile.PL$extlib
-", qq[\t\$(PERL) "-I\$(PERL_LIB)" -e 'use ExtUtils::Mksymlists; ],
-        'Mksymlists("NAME" => "',$self->{NAME},'", "DL_FUNCS" => ',
-       neatvalue($funcs),', "DL_VARS" => ', neatvalue($vars), ');\'
-');
-
-    join('',@m);
-}
-
-=item dynamic (o)
-
-Defines the dynamic target.
-
-=cut
-
-sub dynamic {
-# --- dynamic Loading Sections ---
-
-    my($self) = shift;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    '
-all :: dynamic
-
-install :: do_install_dynamic
-
-install_dynamic :: do_install_dynamic
-';
-}
-
-
-=item clean (o)
-
-Defines the clean target.
-
-=cut
-
-sub clean {
-# --- Cleanup and Distribution Sections ---
-
-    my($self, %attribs) = @_;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    my(@m,$dir);
-    push(@m, '
-# Delete temporary files but do not touch installed files. We don\'t delete
-# the Makefile here so a later make realclean still has a makefile to use.
-
-clean ::
-');
-    # clean subdirectories first
-    for $dir (@{$self->{DIR}}) {
-       push @m, 
-"      Set OldEcho \{Echo\}
-       Set Echo 0
-       Directory $dir
-       If \"\`Exists -f $self->{MAKEFILE}\`\" != \"\"
-           \$(MAKE) clean
-       End
-       Set Echo \{OldEcho\}
-       ";
-    }
-
-    my(@otherfiles) = values %{$self->{XS}}; # .c files from *.xs files
-    push(@otherfiles, patternify($attribs{FILES})) if $attribs{FILES};
-    push @m, "\t\$(RM_RF) @otherfiles\n";
-    # See realclean and ext/utils/make_ext for usage of Makefile.old
-    push(@m,
-        "\t\$(MV) $self->{MAKEFILE} $self->{MAKEFILE}.old\n");
-    push(@m,
-        "\t$attribs{POSTOP}\n")   if $attribs{POSTOP};
-    join("", @m);
-}
-
-=item realclean (o)
-
-Defines the realclean target.
-
-=cut
-
-sub realclean {
-    my($self, %attribs) = @_;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    my(@m);
-    push(@m,'
-# Delete temporary files (via clean) and also delete installed files
-realclean purge ::  clean
-');
-    # realclean subdirectories first (already cleaned)
-    my $sub = 
-"      Set OldEcho \{Echo\}
-       Set Echo 0
-       Directory %s
-       If \"\`Exists -f %s\`\" != \"\"
-           \$(MAKE) realclean
-       End
-       Set Echo \{OldEcho\}
-       ";
-    foreach(@{$self->{DIR}}){
-       push(@m, sprintf($sub,$_,"$self->{MAKEFILE}.old","-f $self->{MAKEFILE}.old"));
-       push(@m, sprintf($sub,$_,"$self->{MAKEFILE}",''));
-    }
-    my(@otherfiles) = ($self->{MAKEFILE},
-                      "$self->{MAKEFILE}.old"); # Makefiles last
-    push(@otherfiles, patternify($attribs{FILES})) if $attribs{FILES};
-    push(@m, "\t\$(RM_RF) @otherfiles\n") if @otherfiles;
-    push(@m, "\t$attribs{POSTOP}\n")       if $attribs{POSTOP};
-    join("", @m);
-}
-
-=item rulez (o)
-
-=cut
-
-sub rulez {
-    my($self) = shift;
-    unless (ref $self){
-       ExtUtils::MakeMaker::TieAtt::warndirectuse((caller(0))[3]);
-       $self = $ExtUtils::MakeMaker::Parent[-1];
-    }
-    qq'
-install install_static install_dynamic :: 
-\t\$(MACPERL_SRC)PerlInstall -l \$(PERL_LIB)
-
-.INCLUDE : \$(MACPERL_SRC)BulkBuildRules.mk
-';
-}
-
-sub xsubpp_version
-{
-    return $ExtUtils::MakeMaker::Version;
-}
-
-
-=item processPL (o)
-
-Defines targets to run *.PL files.
-
-=cut
-
-sub processPL {
-    my($self) = shift;
-    return "" unless $self->{PL_FILES};
-    my(@m, $plfile);
-    foreach $plfile (sort keys %{$self->{PL_FILES}}) {
-        my $list = ref($self->{PL_FILES}->{$plfile})
-               ? $self->{PL_FILES}->{$plfile}
-               : [$self->{PL_FILES}->{$plfile}];
-       foreach $target (@$list) {
-       push @m, "
-ProcessPL :: $target
-\t$self->{NOECHO}\$(NOOP)
-
-$target :: $plfile
-\t\$(PERL) -I\$(MACPERL_LIB) -I\$(PERL_LIB) $plfile $target
-";
-       }
-    }
-    join "", @m;
-}
-
 1;
-
-__END__