diff -r 000000000000 -r 7f656887cf89 tools/fshu.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tools/fshu.pm	Wed Jun 23 15:52:26 2010 +0100
@@ -0,0 +1,165 @@
+#!perl
+# fshu.pm
+# 
+# Copyright (c) 2007 - 2010 Accenture. All rights reserved.
+# This component and the accompanying materials are made available
+# under the terms of the "Eclipse Public License v1.0"
+# which accompanies this distribution, and is available
+# at the URL "http://www.eclipse.org/legal/epl-v10.html".
+# 
+# Initial Contributors:
+# Accenture - Initial contribution
+#
+
+# Description:
+# fshu.pm - A collection of common utility sub-routines used by other fshell scripts.
+
+package fshu;
+use strict;
+use File::Path;
+use File::Copy;
+use File::Basename;
+
+#
+# Subs.
+#
+
+sub RelativePath {
+  my $path = TidyPath(shift);
+  my $relativeTo = TidyPath(shift);
+  die "Error: \"$relativeTo\" is not absolute\n" unless ($relativeTo =~ /^([a-zA-Z]:)?\\/);
+  $relativeTo =~ s/^([a-zA-Z]:)?\\//; # Remove drive letter and leading '\'.
+  $path =~ s/^([a-zA-Z]:)?\\//; # Remove leading '\' and drive letter if present.
+  foreach (split /\\/, $relativeTo) {
+    $path = "..\\$path";
+  }
+  return $path;
+}
+
+sub AbsolutePath {
+  my $path = TidyPath(shift);
+  my $absoluteTo = TidyPath(shift);
+
+  my @workingDir = ($path =~ /^\\/) ? () : split(/\\/, $absoluteTo);
+  my @path = split(/\\/, $path);
+	
+  foreach my $pathBit (@path) {
+    next if ($pathBit eq '.');
+    if ($pathBit eq '..') {
+      pop @workingDir;
+      next;
+    }
+    push @workingDir, $pathBit;
+  }
+
+  return join('\\', @workingDir);
+}
+
+sub TidyPath {
+  my $path = shift;
+  $path =~ s/\//\\/g;        # Change forward slashes to back slashes.
+  $path =~ s/\\\.\\/\\/g;    # Change "\.\" into "\".
+  $path =~ s/\\$//;          # Removing trailing slash.
+
+  if ($path =~ /^\\\\/) {    # Test for UNC paths.
+    $path =~ s/\\\\/\\/g;    # Change "\\" into "\".
+    $path =~ s/^\\/\\\\/;    # Add back a "\\" at the start so that it remains a UNC path.
+  }
+  else {
+    $path =~ s/\\\\/\\/g;    # Change "\\" into "\".
+  }
+
+  # Remove leading ".\" if doing so doesn't empty the string.
+  $path =~ s/^\.\\(.+)/$1/;
+
+  # Collapse ".."s in the middle of the path.
+  my $foundFirstDirName = 0;
+  my @path = split(/\\/, $path);
+  my @collapsedPath;
+  foreach my $pathBit (@path) {
+    if (not $foundFirstDirName) {
+      if ($pathBit ne '..') {
+	$foundFirstDirName = 1;
+      }
+      push (@collapsedPath, $pathBit);
+    }
+    else {
+      if ($pathBit eq '..') {
+	pop (@collapsedPath);
+      }
+      else {
+	push (@collapsedPath, $pathBit);
+      }
+    }
+  }
+  $path = join('\\', @collapsedPath);
+
+  return $path;
+}
+
+sub MakePath ($) {
+  my $dir = shift;
+  $dir =~ s/\//\\/g; # Convert all forward slashes to back slashes in path.
+  unless (-e $dir) {
+    if ($dir =~ /^\\\\/) {
+      # This is a UNC path - make path manually because UNC isn't supported by mkpath.
+      my $dirToMake = '';
+      my @dirs = split /\\/, $dir;
+      shift @dirs;  # Get rid of undefined dir.
+      shift @dirs;  # Get rid of undefined dir.
+      my $server = shift @dirs;
+      my $share = shift @dirs;
+      $dirToMake .= "\\\\$server\\$share";
+      unless (-e $dirToMake) {
+	die "Network share \"$dirToMake\" does not exist\n";
+      }
+      foreach my $thisDir (@dirs) {
+	$dirToMake .=  "\\$thisDir";
+	unless (-e $dirToMake) {
+	  mkdir($dirToMake,0) or die "Couldn't make directory $dirToMake: $!\n";
+	}
+      }
+    }
+    else {
+      mkpath($dir) or die "Couldn't make path \"$dir\": $!\n";
+    }
+  }
+}
+
+sub CopyFile {
+  my $from = TidyPath(shift);
+  my $to = TidyPath(shift);
+  my $verbose = shift;
+
+  MakePath(dirname($to));
+  print "Copying '$from' to '$to'...\n" if $verbose;
+  copy ($from, $to) or die "Error: Couldn't copy '$from' to '$to' - $!\n";
+}
+
+sub Version {
+  my $version = 'Unknown';
+  my $kChangeHistoryFileName = "../../documentation/change_history.pod";
+  open (HISTORY, $kChangeHistoryFileName) or die "Error: Couldn't open \"$kChangeHistoryFileName\" for reading: $!\n";
+  while (my $line = <HISTORY>) {
+    if ($line =~ /(Release \d+.*)/i) {
+      $version = $1;
+      last;
+    }
+  }
+  close (HISTORY);
+  return $version;
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+fshu.pm - A collection of common utility sub-routines used by other fshell scripts.
+
+=head1 COPYRIGHT
+
+Copyright (c) 2007-2010 Accenture. All rights reserved.
+
+=cut