Subversion Repositories DevTools

Rev

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

Rev 285 Rev 299
Line 8... Line 8...
8 
# Environment(s): jats
 8 
# Environment(s): jats
9 
#
 9 
#
10 
# Description   : This package contains functions to manipulate
 10 
# Description   : This package contains functions to manipulate
11 
#                 the information required to create a DPACKAGE file
 11 
#                 the information required to create a DPACKAGE file
12 
#
 12 
#
- 
 
 13 
#                 The true name of the DPACKAGE file has a GBE_MACHTYPE
- 
 
 14 
#                 appended to allow multi-machine builds.
- 
 
 15 
#
13 
#......................................................................#
 16 
#......................................................................#
14 
 
 17 
 
15 
use 5.006_001;
 18 
use 5.006_001;
16 
use strict;
 19 
use strict;
17 
use warnings;
 20 
use warnings;
Line 24... Line 27...
24 
package JatsDPackage;
 27 
package JatsDPackage;
25 
use JatsError;
 28 
use JatsError;
26 
use Data::Dumper;
 29 
use Data::Dumper;
27 
use ConfigurationFile;
 30 
use ConfigurationFile;
28 
use FileUtils;
 31 
use FileUtils;
- 
 
 32 
use JatsEnv;
29 
 
 33 
 
30 
our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
 34 
our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
31 
use Exporter;
 35 
use Exporter;
32 
 
 36 
 
33 
$VERSION = 1.00;
 37 
$VERSION = 1.00;
Line 180... Line 184...
180 
 
 184 
 
181 
    #
 185 
    #
182 
    #   Validate globals
 186 
    #   Validate globals
183 
    #
 187 
    #
184 
    Error ("ScmSrcDir not present") unless ( $::ScmSrcDir );
 188 
    Error ("ScmSrcDir not present") unless ( $::ScmSrcDir );
- 
 
 189 
    EnvImport('GBE_MACHTYPE');
185 
 
 190 
 
186 
    #
 191 
    #
187 
    #   User status information
 192 
    #   User status information
188 
    #
 193 
    #
189 
    Message ("Generating DPACKAGE");
 194 
    Message ("Generating DPACKAGE ($::GBE_MACHTYPE)");
190 
 
 195 
 
191 
    #
 196 
    #
192 
    #   Read in accumulated information for the creation of the DPACKAGE file
 197 
    #   Read in accumulated information for the creation of the DPACKAGE file
193 
    #
 198 
    #
194 
    $::CurrentTime = localtime;
 - 
 
195 
    Require ( "$ScmRoot/$ScmInterface", "Dpackage.cfg",
 199 
    Require ( "$ScmRoot/$ScmInterface", "Dpackage.cfg",
196 
                "JATS internal file missing. Rebuild required" );
 200 
                "JATS internal file missing. Rebuild required" );
197 
 
 201 
 
198 
#    DebugDumpData("%::DPackageLibraryData",\%DPackageLibraryDataStore );
 202 
#    DebugDumpData("%::DPackageLibraryData",\%DPackageLibraryDataStore );
199 
 
 203 
 
200 
    #
 204 
    #
201 
    #   Delete and then re-create the the DPACKAGE file
 205 
    #   Delete and then re-create the the DPACKAGE file
202 
    #
 206 
    #
203 
    my $fname = "$ScmRoot/$::ScmSrcDir/DPACKAGE";
 207 
    my $fname = "$ScmRoot/$::ScmSrcDir/DPACKAGE.$::GBE_MACHTYPE";
204 
    unlink $fname;
 208 
    unlink $fname;
205 
 
 209 
 
206 
    my $fh = ConfigurationFile::New( $fname, '--NoTime' );
 210 
    my $fh = ConfigurationFile::New( $fname, '--NoTime' );
207 
    $fh->Header( "Auto-generated DPACKAGE",
 211 
    $fh->Header( "Auto-generated DPACKAGE",
208 
                              "JatsDPackage (version $VERSION)" );
 212 
                              "JatsDPackage (version $VERSION) ( machine $::GBE_MACHTYPE )" );
209 
 
 213 
 
210 
    $fh->Write( "\n", "Version( 1, 0 );    # Interface version\n\n" );
 214 
    $fh->Write( "\n", "Version( 1, 0 );    # Interface version\n\n" );
211 
 
 215 
 
212 
    #
 216 
    #
213 
    #   Process each "Using" entry
 217 
    #   Process each "Using" entry