Subversion Repositories DevTools

Rev

Rev 317 | Rev 325 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 317 Rev 321
Line 5746... Line 5746...
5746
            #
5746
            #
5747
            %package_entry = ();
5747
            %package_entry = ();
5748
            $package_entry{'lib'} = $lib;
5748
            $package_entry{'lib'} = $lib;
5749
            $package_entry{'dir'} = $dir;
5749
            $package_entry{'dir'} = $dir;
5750
 
5750
 
5751
            if ( my $libfile = $SRCS{$lib} )
5751
            if ( my $libfile = $SRCS{$org_lib} )
5752
            {
5752
            {
5753
                #
5753
                #
5754
                #   Allow the user to package a sourced file as a library
5754
                #   Allow the user to package a sourced file as a library
5755
                #   But must be the un-massaged name of the file.
5755
                #   But must be the un-massaged name of the file.
5756
                #
5756
                #
Line 7942... Line 7942...
7942
    Debug3( " ActivePlatform(@_ == $ScmPlatform) = FALSE" );
7942
    Debug3( " ActivePlatform(@_ == $ScmPlatform) = FALSE" );
7943
    return 0;
7943
    return 0;
7944
}
7944
}
7945
 
7945
 
7946
#-------------------------------------------------------------------------------
7946
#-------------------------------------------------------------------------------
-
 
7947
# Function        : If
-
 
7948
#
-
 
7949
# Description     : Function for embedding arguments in directives
-
 
7950
#                   To be used within another directive
-
 
7951
#                   ie:
-
 
7952
#                       AnyDirective ('*',  arg1, arg2, ...
-
 
7953
#                                           If (SomePlatform, arg1, .. ,argn))
-
 
7954
#
-
 
7955
# Inputs          : $platform               - Active Platform speciifier
-
 
7956
#                   @args                   - Args
-
 
7957
#
-
 
7958
# Returns         : @args or nothing
-
 
7959
#
-
 
7960
sub  If
-
 
7961
{
-
 
7962
    my $platform = shift;
-
 
7963
    return @_
-
 
7964
        if ( ActivePlatform( $platform ));
-
 
7965
    return;
-
 
7966
}
-
 
7967
 
-
 
7968
#-------------------------------------------------------------------------------
7947
# Function        : RegisterMakefileGenerate
7969
# Function        : RegisterMakefileGenerate
7948
#
7970
#
7949
# Description     : Register a function to be called at the start of the
7971
# Description     : Register a function to be called at the start of the
7950
#                   makefile generation process
7972
#                   makefile generation process
7951
#
7973
#