1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
package ExtUtils::Builder::Compiler::MSVC;
$ExtUtils::Builder::Compiler::MSVC::VERSION = '0.032';
use strict;
use warnings;
use parent qw/ExtUtils::Builder::Compiler ExtUtils::Builder::MultiLingual/;
sub _init {
my ($self, %args) = @_;
$args{cc} //= ['cl'];
$self->ExtUtils::Builder::Compiler::_init(%args);
$self->ExtUtils::Builder::MultiLingual::_init(%args);
return;
}
sub compile_flags {
my ($self, $from, $to) = @_;
my @ret;
push @ret, $self->new_argument(ranking => 5, value => ['/NOLOGO']);
push @ret, $self->new_argument(ranking => 10, value => [qw{/TP /EHsc}]) if $self->language eq 'C++';
push @ret, $self->new_argument(ranking => 75, value => [ "/Fo$to", '/c', $from ]);
push @ret, map { $self->new_argument(ranking => $_->{ranking}, value => [ "/I$_->{value}" ]) } @{ $self->{include_dirs} };
for my $entry (@{ $self->{defines} }) {
my $key = $entry->{key};
my $value = defined $entry->{value} ? $entry->{value} ne '' ? "/D$key=$entry->{value}" : "/D$key" : "/U$key";
push @ret, $self->new_argument(ranking => $entry->{ranking}, value => [$value]);
}
return @ret;
}
1;
# ABSTRACT: Class for compiling with Microsoft Visual C
__END__
=pod
=encoding UTF-8
=head1 NAME
ExtUtils::Builder::Compiler::MSVC - Class for compiling with Microsoft Visual C
=head1 VERSION
version 0.032
=head1 AUTHOR
Leon Timmermans <fawaka@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by Leon Timmermans.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
