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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
package WixWorkspaceCreator;
# ************************************************************
# Description : A Wix Workspace creator
# Author : James H. Hill
# Create Date : 6/23/2009
# ************************************************************
# ************************************************************
# Pragmas
# ************************************************************
use strict;
use WixProjectCreator;
use WorkspaceCreator;
use WinWorkspaceBase;
use File::Basename;
use vars qw(@ISA);
@ISA = qw(WinWorkspaceBase WorkspaceCreator);
# ************************************************************
# Data Section
# ************************************************************
# ************************************************************
# Subroutine Section
# ************************************************************
sub workspace_file_extension {
return '.wxs';
}
sub workspace_file_name {
my $self = shift;
return $self->get_modified_workspace_name($self->get_workspace_name(),
'.wxi');
}
sub pre_workspace {
my($self, $fh) = @_;
my $crlf = $self->crlf();
my $name = $self->get_workspace_name();
## Begin the project definition for the workspace
print $fh '<?xml version="1.0" encoding="utf-8" standalone="yes"?>', $crlf,
'<Include>', $crlf;
}
sub write_comps {
my($self, $fh) = @_;
my $crlf = $self->crlf();
# print the target for clean
foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
print $fh " <?include $project ?>", $crlf;
}
}
sub normalize {
my $val = shift;
$val =~ tr/ \t\/\\\-$()./_/;
return $val;
}
sub post_workspace {
my($self, $fh, $gen) = @_;
my $info = $self->get_project_info();
my $crlf = $self->crlf();
# Create a component group consisting of all the projects.
print $fh $crlf,
' <Fragment>', $crlf,
' <ComponentGroup Id="',
$self->get_workspace_name(), '">', $crlf;
foreach my $project ($self->sort_dependencies($self->get_projects(), 0)) {
print $fh ' <ComponentGroupRef Id="ComponentGroup.',
$$info{$project}->[ProjectCreator::PROJECT_NAME], '" />',
$crlf;
}
print $fh ' </ComponentGroup>', $crlf,
' </Fragment>', $crlf;
print $fh $crlf;
# For every project marked with "make_group", create a ComponentGroup that references all dependencies
my %project_dependencies = ();
my $projects = $self->get_projects();
my @list = $self->sort_dependencies($projects, 0);
foreach my $project (@list) {
my $deps = $self->get_validated_ordering($project);
$project_dependencies{$project} = [ @$deps ];
}
# for each project, find all dependencies
foreach my $project (keys %project_dependencies) {
# foreach my $cfg (@cfgs_main) -> <configuration|platform> could be <Debug|AnyCPU Release|AnyCPU> or <Debug|Win32 Release|Win32 Debug|x64 Release|x64>
my($pname_main, $make_group_main, @cfgs_main) =
$gen->access_pi_values($info, $project,
ProjectCreator::PROJECT_NAME,
ProjectCreator::MAKE_GROUP,
ProjectCreator::CONFIGURATIONS);
# only generate a group if "make_group = 1"
if ($make_group_main) {
# all dependencies used by any project referenced by $project
my %all_deps;
my @dep_stack = ($project);
while (my $top = pop @dep_stack) {
# add current project to dependencies (use hash key as set)
$all_deps{$top} = 1;
my $deps = $project_dependencies{$top};
foreach my $dep (@$deps) {
# add current project's dependencies to stack for processing, if not already processed
push(@dep_stack, $dep) if !exists $all_deps{$dep};
}
}
# for every config/platform pairing, emit a MainGroup
foreach my $cfg (@cfgs_main) {
my ($config, $platform) = split('\|', $cfg);
print $fh ' <Fragment>', $crlf,
' <ComponentGroup Id="MainGroup.', normalize($config),
'_', normalize($platform), '_', $pname_main, '">', $crlf;
# add main project - pattern is "ComponentGroup.<Debug|Release>_<Win32|x64|AnyCPU>_<projectname>"
print $fh ' <ComponentGroupRef Id="ComponentGroup.',
normalize($config), '_', normalize($platform), '_',
$pname_main, '" />', $crlf;
# loop over each dependency, and obtain its parameters
foreach my $dep (keys %all_deps) {
foreach my $p (@{$self->{'projects'}}) {
if ($dep eq $info->{$p}->[ProjectCreator::PROJECT_NAME] ||
$dep eq $self->mpc_basename($p)) {
my($pname_dep, @cfgs_dep) =
$gen->access_pi_values($info, $p,
ProjectCreator::PROJECT_NAME,
ProjectCreator::CONFIGURATIONS);
# add dependency - include AnyCPU if no dependency configuration matches exactly (if the AnyCPU platform exists, that is)
my $pform = $platform;
if (!exists {map { $_ => 1 } @cfgs_dep}->{$config.'|'.$pform}) {
$pform = 'AnyCPU';
}
if (exists {map { $_ => 1 } @cfgs_dep}->{$config.'|'.$pform}) {
print $fh ' <ComponentGroupRef Id="ComponentGroup.',
normalize($config), '_', normalize($pform),
'_', $pname_dep, '" />', $crlf;
}
last;
}
}
}
print $fh ' </ComponentGroup>', $crlf,
' </Fragment>', $crlf, $crlf;
}
}
}
print $fh '</Include>', $crlf;
}
1;
|
