From d5eb7d64c68fb5907187eecc99cbdb379280b15b Mon Sep 17 00:00:00 2001
From: James David Berry <jberry@apache.org>
Date: Wed, 6 Sep 2000 21:55:40 +0000
Subject: [PATCH] Allow ShortenFiles to work even when the destination
directory already exists
git-svn-id: https://svn.apache.org/repos/asf/xerces/c/trunk@172371 13f79535-47bb-0310-9956-ffa450edef68
---
Projects/MacOS/ShortenFiles.pl | 34 ++++++++++++++++++++++++++--------
1 file changed, 26 insertions(+), 8 deletions(-)
diff --git a/Projects/MacOS/ShortenFiles.pl b/Projects/MacOS/ShortenFiles.pl
index d469c9b0d..b78702e5a 100644
--- a/Projects/MacOS/ShortenFiles.pl
+++ b/Projects/MacOS/ShortenFiles.pl
@@ -1,3 +1,17 @@
+#
+# ShortenFiles.pl
+#
+# Shorten file names to fit Mac HFS 31 character name limit. Names
+# are shortened using a table of hints.
+#
+
+#
+# $Log$
+# Revision 1.4 2000/09/06 21:55:40 jberry
+# Allow ShortenFiles to work even when the destination directory already exists
+#
+#
+
use Config;
use FindBin;
use File::Find;
@@ -37,13 +51,13 @@ $gDstBase = $gScriptBase.$gPathSep."MacSrc";
["Parent", "Par" ],
["Fragment", "Frag" ],
["Construction", "Constr" ],
- ["Default", "Def" ],
+ ["Default", "Def" ],
["Processor", "Proc" ],
- ["Compare", "Comp" ],
+ ["Compare", "Comp" ],
["Execution", "Exe" ],
- ["Functor", "Func" ],
+ ["Functor", "Func" ],
["Collation", "Col" ],
- ["Element", "El" ],
+ ["Element", "El" ],
);
sub GetPathSeparator
@@ -146,11 +160,14 @@ sub Copy
#print "srcName $srcName, dstName $dstName, srcPath $srcPath, dstPath $dstPath\n";
- if (-d $srcPath && not -e $dstPath)
+ if (-d $srcPath)
{
- # make the dst directory
- print "Making directory $dstPath\n";
- mkpath($dstPath);
+ # make the dst directory if it doesn't already exist
+ if (not -e $dstPath)
+ {
+ print "Making directory $dstPath\n";
+ mkpath($dstPath);
+ }
}
else
{
@@ -216,6 +233,7 @@ print "Destination Directory: $gDstBase\n";
print "\n";
#-- Scan phase
+#NOTE: we actually don't limit our processing to the file types listed here!!!
#for each .cpp or .hpp or .c or .cc file in tree
# if name too long
# shorten the name
--
GitLab