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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
package VC8ProjectCreator;
# ************************************************************
# Description : A VC8 Project Creator
# Author : Johnny Willemsen
# Create Date : 4/21/2004
# $Id: VC8ProjectCreator.pm 2035 2011-10-06 15:05:21Z johnnyw $
# ************************************************************
# ************************************************************
# Pragmas
# ************************************************************
use strict;
use VC7ProjectCreator;
use vars qw(@ISA);
@ISA = qw(VC7ProjectCreator);
# ************************************************************
# Data Section
# ************************************************************
## NOTE: We call the constant as a function to support Perl 5.6.
my %info = (Creator::cplusplus() => {'ext' => '.vcproj',
'dllexe' => 'vc8exe',
'libexe' => 'vc8libexe',
'dll' => 'vc8dll',
'lib' => 'vc8lib',
'template' => 'vc8',
},
Creator::csharp() => {'ext' => '.csproj',
'dllexe' => 'vc8csharp',
'libexe' => 'vc8csharp',
'dll' => 'vc8csharp',
'lib' => 'vc8csharp',
'template' => 'vc8csharp',
},
Creator::java() => {'ext' => '.vjsproj',
'dllexe' => 'vc8java',
'libexe' => 'vc8java',
'dll' => 'vc8java',
'lib' => 'vc8java',
'template' => 'vc8java',
},
Creator::vb() => {'ext' => '.vbproj',
'dllexe' => 'vc8vb',
'libexe' => 'vc8vb',
'dll' => 'vc8vb',
'lib' => 'vc8vb',
'template' => 'vc8vb',
},
);
my %config = ('vcversion' => '8.00');
# ************************************************************
# Subroutine Section
# ************************************************************
sub languageSupported {
return defined $info{$_[0]->get_language()};
}
sub webapp_supported {
#my $self = shift;
return 1;
}
sub require_dependencies {
## With vc8, they fixed it such that static libraries that depend on
## other static libraries will not be included into the target library
## by default. Way to go Microsoft!
return 1;
}
sub post_file_creation {
my($self, $file) = @_;
## VC8 stores information in a .user file that may conflict
## with information stored in the project file. If we have
## created a new project file, we will remove the corresponding
## .user file to avoid strange conflicts.
unlink("$file.user");
return undef;
}
sub get_configurable {
#my($self, $name) = @_;
return $config{$_[1]};
}
sub get_info_hash {
my($self, $key) = @_;
## If we have the setting in our information map, the use it.
return $info{$key} if (defined $info{$key});
## Otherwise, see if our parent type can take care of it.
return $self->SUPER::get_info_hash($key);
}
sub translate_value {
my($self, $key, $val) = @_;
## Microsoft uses AnyCPU in the project file, but uses Any CPU in the
## solution file.
$val = 'Any CPU' if ($key eq 'platform' && $val eq 'AnyCPU');
return $self->SUPER::translate_value($key, $val);
}
1;
|
