Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / auto / Inline / install.al

# NOTE: Derived from blib/lib/Inline.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Inline;

#line 874 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/install.al)"
#==============================================================================
# Set things up so that the extension gets installed into the blib/arch.
# Then 'make install' will do the right thing.
#==============================================================================
sub install {
   my ($module, $DIRECTORY);
   my $o = shift;

   croak M64_install_not_c($o->{API}{language_id})
     unless uc($o->{API}{language_id}) =~ /^(C|CPP)$/ ;
   croak M36_usage_install_main()
     if ($o->{API}{pkg} eq 'main');
   croak M37_usage_install_auto()
     if $o->{CONFIG}{AUTONAME};
   croak M38_usage_install_name()
     unless $o->{CONFIG}{NAME};
   croak M39_usage_install_version()
     unless $o->{CONFIG}{VERSION};
   croak M40_usage_install_badname($o->{CONFIG}{NAME}, $o->{API}{pkg})
     unless $o->{CONFIG}{NAME} eq $o->{API}{pkg};
#             $o->{CONFIG}{NAME} =~ /^$o->{API}{pkg}::\w(\w|::)+$/
#            );

   my ($mod_name, $mod_ver, $ext_name, $ext_ver) = 
     ($o->{API}{pkg}, $ARGV[0], @{$o->{CONFIG}}{qw(NAME VERSION)});
   croak M41_usage_install_version_mismatch($mod_name, $mod_ver, 
                                            $ext_name, $ext_ver)
     unless ($mod_ver eq $ext_ver);
   $o->{INLINE}{INST_ARCHLIB} = $ARGV[1];

   $o->{API}{version} = $o->{CONFIG}{VERSION};
   $o->{API}{module} = $o->{CONFIG}{NAME};
   my @modparts = split(/::/,$o->{API}{module});
   $o->{API}{modfname} = $modparts[-1];
   $o->{API}{modpname} = File::Spec->catdir(@modparts);
   $o->{API}{suffix} = $o->{INLINE}{ILSM_suffix};
   $o->{API}{build_dir} = File::Spec->catdir($o->{INLINE}{DIRECTORY},'build',
                                             $o->{API}{modpname});
   $o->{API}{directory} = $o->{INLINE}{DIRECTORY};
   my $cwd = Cwd::cwd();
   $o->{API}{install_lib} = 
     File::Spec->catdir($cwd,$o->{INLINE}{INST_ARCHLIB});
   $o->{API}{location} =
     File::Spec->catfile($o->{API}{install_lib},"auto",$o->{API}{modpname},
                         "$o->{API}{modfname}.$o->{INLINE}{ILSM_suffix}");
   unshift @::INC, $o->{API}{install_lib};
   $o->{INLINE}{object_ready} = 0;
}

# end of Inline::install
1;