Changeset 30352 for gs2-extensions

Timestamp:

2015-12-16T15:44:15+13:00 (8 years ago)

Author:

jmt12

Message:

Adding in a function to test whether a File driver has a certain function. Also adding in support for an optional driver funtion to determine if a certain path is special (and so shouldn't be changed) or not

File:

• gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm (modified) (3 diffs)

gs2-extensions/parallel-building/trunk/src/perllib/FileUtils.pm

@@ -77 +77 @@
 }
 ## callFunction()
+
+
+## @function _hasFunction()
+#
+sub _hasFunction
+{
+    my $driver_name = shift(@_);
+    my $function_name = shift(@_);
+    # Need to look within fileutils directory
+    my $package_name = 'FileUtils::' . $driver_name;
+    # Try to load the requested infodb type
+    if (!&_loadDriver($package_name))
+    {
+    &printError('Failed to load requested file protocol driver: ' . $package_name, 1);
+    }
+    # Then make call to the newly created package
+    no strict;
+    # Check if the function call exists
+    my $symbol = qualify($function_name, $package_name);
+    return defined &{$symbol};
+}
+## _hasFunction()
+
 
 ## @function _prettyPrint()
@@ -433 +456 @@
       $first = 0;
       $dirsofar .= $dirname;
-      next if $dirname =~ /^(|[a-z]:)$/i;
+      next if $dirname =~ /^(|[a-z]+:)$/i;
+      # we can't create some directories (drivers specific)
+      if (&isSpecialDirectory($dirsofar)) {
+      next;
+      }
       if (!&directoryExists($dirsofar))
       {
@@ -600 +627 @@
 }
 ## isHDFS()
+
+
+## @function isSpecialDirectory()
+#
+sub isSpecialDirectory
+{
+    my $path = shift(@_);
+    my $driver = &FileUtils::_determineDriver($path);
+    my $result = 0; # not special
+    if (&FileUtils::_hasFunction($driver, 'isSpecialDirectory'))
+    {
+    $result = &FileUtils::_callFunction($driver, 'isSpecialDirectory', $path);
+    }
+    return $result;
+}
+## isSpecialDirectory()
+
 
 ## @function isSymbolicLink()