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

+            #
             %package_entry = ();
             $package_entry{'lib'} = $lib;
             $package_entry{'dir'} = $dir;
-            if ( my $libfile = $SRCS{$lib} )
+            if ( my $libfile = $SRCS{$org_lib} )
+            {
+                #
                 #   Allow the user to package a sourced file as a library
                 #   But must be the un-massaged name of the file.
+                #
     Debug3( " ActivePlatform(@_ == $ScmPlatform) = FALSE" );
     return 0;
+}
 #-------------------------------------------------------------------------------
+# Function        : If
+#
+# Description     : Function for embedding arguments in directives
+#                   To be used within another directive
+#                   ie:
+#                       AnyDirective ('*',  arg1, arg2, ...
+#                                           If (SomePlatform, arg1, .. ,argn))
+#
+# Inputs          : $platform               - Active Platform speciifier
+#                   @args                   - Args
+#
+# Returns         : @args or nothing
+#
+sub  If
+{
+    my $platform = shift;
+    return @_
+        if ( ActivePlatform( $platform ));
+    return;
+}
+#-------------------------------------------------------------------------------
 # Function        : RegisterMakefileGenerate
+#
 # Description     : Register a function to be called at the start of the
 #                   makefile generation process
+#

Subversion Repositories DevTools