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