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