blob: bdb9954ff2ae362f0d1b6aed21470477eeeda295 (
plain)
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
|
package VC6WorkspaceCreator;
# ************************************************************
# Description : A VC6 Workspace Creator
# Author : Chad Elliott
# Create Date : 5/13/2002
# ************************************************************
# ************************************************************
# Pragmas
# ************************************************************
use strict;
use VC6ProjectCreator;
use WorkspaceCreator;
use vars qw(@ISA);
@ISA = qw(WorkspaceCreator);
# ************************************************************
# Subroutine Section
# ************************************************************
sub crlf {
my($self) = shift;
return $self->windows_crlf();
}
sub workspace_file_name {
my($self) = shift;
return $self->get_workspace_name() . '.dsw';
}
sub pre_workspace {
my($self) = shift;
my($fh) = shift;
my($crlf) = $self->crlf();
print $fh "Microsoft Developer Studio Workspace File, Format Version 6.00$crlf" .
"# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!$crlf" .
$crlf;
}
sub write_comps {
my($self) = shift;
my($fh) = shift;
my($projects) = $self->get_projects();
my($pjs) = $self->get_project_info();
my($crlf) = $self->crlf();
my(%names) = ();
my($dupfound) = 0;
foreach my $project (@$projects) {
my($pi) = $$pjs{$project};
my($name, $deps) = @$pi;
if (defined $names{$name}) {
## Having duplicate project names is an error in a VC6 Workspace.
## We will create the project, but we will warn the user that
## the project has duplicate names and will not load properly.
print "WARNING: A project with the following name " .
"has already been added: '$name'\n";
++$dupfound;
}
else {
$names{$name} = 1;
}
## Convert all /'s to \
$project = $self->slash_to_backslash($project);
print $fh "###############################################################################$crlf" .
$crlf .
"Project: \"$name\"=$project - Package Owner=<4>$crlf" .
$crlf .
"Package=<5>$crlf" .
"{{{$crlf" .
"}}}$crlf" .
$crlf .
"Package=<4>$crlf" .
"{{{$crlf";
if (defined $deps && $deps ne '') {
my($darr) = $self->create_array($deps);
foreach my $dep (@$darr) {
## Avoid cirular dependencies
if ($name ne $dep) {
print $fh " Begin Project Dependency$crlf" .
" Project_Dep_Name $dep$crlf" .
" End Project Dependency$crlf";
}
}
}
print $fh "}}}$crlf$crlf";
}
if ($dupfound > 0) {
print "WARNING: $dupfound duplicate project" .
($dupfound == 1 ? '' : 's') .
" found. This workspace will not load properly.\n";
}
}
sub post_workspace {
my($self) = shift;
my($fh) = shift;
my($crlf) = $self->crlf();
print $fh "###############################################################################$crlf" .
$crlf .
"Global:$crlf" .
$crlf .
"Package=<5>$crlf" .
"{{{$crlf" .
"}}}$crlf" .
$crlf .
"Package=<3>$crlf" .
"{{{$crlf" .
"}}}$crlf" .
$crlf .
"###############################################################################$crlf" .
$crlf;
}
1;
|
