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
|
package WinProjectBase;
# ************************************************************
# Description : A Windows base module for Project Creators
# Author : Chad Elliott
# Create Date : 1/4/2005
# ************************************************************
# ************************************************************
# Pragmas
# ************************************************************
use strict;
use WinPropertyBase;
use vars qw(@ISA);
@ISA = qw(WinPropertyBase);
# ************************************************************
# Data Section
# ************************************************************
my $max_win_env = 'MPC_MAX_WIN_FILE_LENGTH';
# ************************************************************
# Subroutine Section
# ************************************************************
sub convert_slashes {
#my $self = shift;
return 1;
}
sub case_insensitive {
#my $self = shift;
return 1;
}
sub translate_directory {
my($self, $dir) = @_;
## Call the base class version
$dir = $self->DirectoryManager::translate_directory($dir);
## Change drive letters and $() macros
$dir =~ s/^([A-Z]):/$1/i;
$dir =~ s/\$\(([^\)]+)\)/$1/g;
## We need to make sure that we do not exceed the maximum file name
## limitation (including the cwd (- c:\) and object file name). So, we
## check the total length against a predetermined "acceptable" value.
## This acceptable value is modifiable through the environment.
my $maxenv = $ENV{$max_win_env};
my $maxlen = (defined $maxenv && $maxenv =~ /^\d+$/ ? $maxenv : 128) + 3;
my $dirlen = length($dir);
my $diff = (length($self->getcwd()) + $dirlen + 1) - $maxlen;
if ($diff > 0) {
if ($diff > $dirlen) {
$dir = substr($dir, $dirlen - 1);
}
else {
$dir = substr($dir, $diff);
}
while($dir =~ s/^\\//) {
}
}
return $dir;
}
sub validated_directory {
my($self, $dir) = @_;
## $(...) could contain a drive letter and Windows can not
## make a directory that resembles a drive letter. So, we have
## to exclude those directories with $(...).
if ($dir =~ /\$\([^\)]+\)/ || $dir =~ /\.\.\\/ || $dir =~ /^[A-Z]:/i) {
return '.';
}
else {
return $dir;
}
}
sub crlf {
return $_[0]->windows_crlf();
}
sub get_cmdsep_symbol {
#my $self = shift;
return '&';
}
sub file_sorter {
#my $self = shift;
#my $left = shift;
#my $right = shift;
return lc($_[1]) cmp lc($_[2]);
}
1;
|
