[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / CBuilder / Platform / VMS.pm

package ExtUtils::CBuilder::Platform::VMS;

use strict;
use ExtUtils::CBuilder::Base;

use vars qw($VERSION @ISA);
$VERSION = '0.01';
@ISA = qw(ExtUtils::CBuilder::Base);

sub need_prelink { 0 }

sub arg_include_dirs {
  my $self = shift;
  return '/include=(' . join(',', @_) . ')';
}

sub arg_nolink { return; }

sub arg_object_file {
  my ($self, $file) = @_;
  return "/obj=$file";
}

sub arg_exec_file {
  my ($self, $file) = @_;
  return ("/exe=$file");
}

sub arg_share_object_file {
  my ($self, $file) = @_;
  return ("$self->{config}{lddlflags}=$file");
}

1;
Commit	Line	Data
6b09c160	1	package ExtUtils::CBuilder::Platform::VMS;
	2
	3	use strict;
	4	use ExtUtils::CBuilder::Base;
	5
	6	use vars qw($VERSION @ISA);
	7	$VERSION = '0.01';
	8	@ISA = qw(ExtUtils::CBuilder::Base);
	9
	10	sub need_prelink { 0 }
	11
	12	sub arg_include_dirs {
	13	my $self = shift;
	14	return '/include=(' . join(',', @_) . ')';
	15	}
	16
	17	sub arg_nolink { return; }
	18
	19	sub arg_object_file {
	20	my ($self, $file) = @_;
	21	return "/obj=$file";
	22	}
	23
	24	sub arg_exec_file {
	25	my ($self, $file) = @_;
	26	return ("/exe=$file");
	27	}
	28
	29	sub arg_share_object_file {
	30	my ($self, $file) = @_;
	31	return ("$self->{config}{lddlflags}=$file");
	32	}
	33
	34	1;