Subversion Repositories DevTools

Rev

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

Rev 243 Rev 247
Line 87... Line 87...
87
our %PKGRULES               = ();               # Package include and link rules
87
our %PKGRULES               = ();               # Package include and link rules
88
our @BUILDTOOLS             = ();               # Extended tool path
88
our @BUILDTOOLS             = ();               # Extended tool path
89
our $BUILDPHASE             = 0;                # In Build Phase
89
our $BUILDPHASE             = 0;                # In Build Phase
90
our @CLOBBERDIRS            = ();               # Directories to clobber
90
our @CLOBBERDIRS            = ();               # Directories to clobber
91
our @CLOBBERFILES           = ();               # Files to clobber
91
our @CLOBBERFILES           = ();               # Files to clobber
-
 
92
our %BUILD_KNOWNFILES       = ();               # Files that will be known
92
 
93
 
93
our $Makelib                = "";
94
our $Makelib                = "";
94
 
95
 
95
 
96
 
96
my  $DeleteDPACKAGE         = 0;                # Must clobber DPACKAGE
97
my  $DeleteDPACKAGE         = 0;                # Must clobber DPACKAGE
Line 2970... Line 2971...
2970
#
2971
#
2971
sub BuildDescpkg
2972
sub BuildDescpkg
2972
{
2973
{
2973
    StartBuildPhase();                          # Starting the build phase. No more data collection
2974
    StartBuildPhase();                          # Starting the build phase. No more data collection
2974
 
2975
 
2975
    my $pkgfile = "$Srcdir/descpkg";
-
 
2976
    if ( $Clobber )                             # clobber mode ?
-
 
2977
    {
2976
    #
2978
        System( "$::GBE_BIN/rm -f $pkgfile" );
2977
    #   Store the files location for use at runtime
2979
        return;
2978
    #   It will be a file that is 'known' to JATS
2980
    }
2979
    #
-
 
2980
    my $pkgfile = BuildAddKnownFile ( $Srcdir, 'descpkg' );
-
 
2981
    return if ( $Clobber );                 # clobber mode ?
2981
 
2982
 
2982
    open( DESCPKG, ">$pkgfile" ) ||
2983
    open( DESCPKG, ">$pkgfile" ) ||
2983
        Error( "cannot create $pkgfile" );
2984
        Error( "Cannot create $pkgfile. $!" );
2984
 
2985
 
2985
    print DESCPKG "Package Name: $BUILDNAME_PACKAGE\n";
2986
    print DESCPKG "Package Name: $BUILDNAME_PACKAGE\n";
2986
    print DESCPKG "Version:      $BUILDVERSION\n";
2987
    print DESCPKG "Version:      $BUILDVERSION\n";
2987
    print DESCPKG "Released By:  $::USER\n";
2988
    print DESCPKG "Released By:  $::USER\n";
2988
    print DESCPKG "Released On:  $::CurrentTime\n";
2989
    print DESCPKG "Released On:  $::CurrentTime\n";
Line 3004... Line 3005...
3004
        push @attributes, "build=\"true\"" if $type =~ /Build/i;
3005
        push @attributes, "build=\"true\"" if $type =~ /Build/i;
3005
 
3006
 
3006
        print DESCPKG "<sandbox @attributes/>\n";
3007
        print DESCPKG "<sandbox @attributes/>\n";
3007
    }
3008
    }
3008
    close DESCPKG;
3009
    close DESCPKG;
-
 
3010
 
3009
}
3011
}
3010
 
3012
 
3011
#-------------------------------------------------------------------------------
3013
#-------------------------------------------------------------------------------
3012
# Function        : BuildIncpkg
3014
# Function        : BuildIncpkg
3013
#
3015
#
Line 3217... Line 3219...
3217
#       Complete TARGET Information
3219
#       Complete TARGET Information
3218
#
3220
#
3219
    $fh->DumpData(
3221
    $fh->DumpData(
3220
        "# Extended build information.\n#\n",
3222
        "# Extended build information.\n#\n",
3221
        "BUILDINFO", \%active_build_info );
3223
        "BUILDINFO", \%active_build_info );
-
 
3224
 
-
 
3225
#
-
 
3226
#   BUILD_KNOWNFILES
-
 
3227
#       All paths are relative to the project root directory
-
 
3228
#       ie: The directory that conatins the build.pl file
3222
    
3229
#
-
 
3230
    $fh->DumpData(
-
 
3231
        "# Generated Files that may be known when used as Src files.\n#\n",
-
 
3232
        "BUILD_KNOWNFILES", \%BUILD_KNOWNFILES );
3223
 
3233
 
3224
#
3234
#
3225
#   Close out the file
3235
#   Close out the file
3226
#
3236
#
3227
    $fh->Close();
3237
    $fh->Close();
Line 3530... Line 3540...
3530
    #
3540
    #
3531
    return @paths;
3541
    return @paths;
3532
}
3542
}
3533
 
3543
 
3534
#-------------------------------------------------------------------------------
3544
#-------------------------------------------------------------------------------
-
 
3545
# Function        : BuildAddKnownFile
-
 
3546
#
-
 
3547
# Description     : Save the file as a file that will be known  to the JATS
-
 
3548
#                   makefiles. It will be available SRCS, but will not be a
-
 
3549
#                   part of any object list.
-
 
3550
#
-
 
3551
#                   Known Files will be deleted on clobber
-
 
3552
#
-
 
3553
# Inputs          : $path
-
 
3554
#                   $file
-
 
3555
#
-
 
3556
# Returns         : Path and filename
-
 
3557
#
-
 
3558
 
-
 
3559
sub BuildAddKnownFile
-
 
3560
{
-
 
3561
    my ($path, $file) = @_;
-
 
3562
    $path .= '/'. $file;
-
 
3563
    $BUILD_KNOWNFILES {$file} = $path;
-
 
3564
    push @CLOBBERFILES, $path;
-
 
3565
    
-
 
3566
    return $path;
-
 
3567
}
-
 
3568
 
-
 
3569
 
-
 
3570
#-------------------------------------------------------------------------------
3535
# Function        : Usage
3571
# Function        : Usage
3536
#
3572
#
3537
# Description     : Display program usage information
3573
# Description     : Display program usage information
3538
#
3574
#
3539
# Inputs          : args            - Text message to display
3575
# Inputs          : args            - Text message to display