WebSVN – DevTools – Diff – /core_devl/trunk/TOOLS/makelib.pl2

+    #
     #   Take the project name and convert it into a full path
+    #
     my $project = MakeSrcResolve ( $proj );
     $proj = StripDir( $project );
+    Error ("Project File Not found: $project") unless ( -f $project );
     my $basedir = StripFileExt( $project );
+    #
     #   Collect user arguments
     #   Take the project name and convert it into a full path
+    #
     my $project;
     $project = MakeSrcResolve ( $proj );
     $proj = StripDir( $project );
+    Error ("Build File Not found: $project") unless ( -f $project );
     my $basedir = StripFileExt( $project );
+    #
     #   Collect user arguments
 sub MakeResolve
+{
     my( $dirs, $source ) = @_;
     my( $first, $dir, $count, $temp );
+    #
+    #   If the path contains a '$' then its assumed to be
-#.. contain variables, abs path, leading . or /
+    #   a variable name in the path. Just assume that it exists
+    #
+    return $source if ( $source =~ m#\$# );
-#
-    sub is_var_path {
+    #
-        local ( $_ ) = @_;
+    #   If the path is absolute or contains a leading ., then don't search
-        return m#\$#;
+    #   Warn if it can't be found
-    }
+    #
-    sub is_abs_path {
+    if ( $source =~ m#^(/|\.)# )
+    {
-        local ( $_ ) = @_;
+        Warning( "Unable to resolve '$source' path" ) unless -f $source;
-        return m#^(/|\.)#;
+        return $source;
+    }
-    return "$source"
-        if (is_var_path($source) || is_abs_path($source));
 #.. search local path first
+#
     $count = 0;
     $first = "";

Subversion Repositories DevTools

(root)/core_devl/trunk/TOOLS/makelib.pl2 – Rev 227 → 237