lib/ExtUtils/CBuilder/Platform/VMS.pm

   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;