Subversion Repositories DevTools

Rev

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

Rev 255 Rev 285
Line 23... Line 23...
23 
 
 23 
 
24 
package JatsDPackage;
 24 
package JatsDPackage;
25 
use JatsError;
 25 
use JatsError;
26 
use Data::Dumper;
 26 
use Data::Dumper;
27 
use ConfigurationFile;
 27 
use ConfigurationFile;
- 
 
 28 
use FileUtils;
28 
 
 29 
 
29 
our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
 30 
our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
30 
use Exporter;
 31 
use Exporter;
31 
 
 32 
 
32 
$VERSION = 1.00;
 33 
$VERSION = 1.00;
Line 155... Line 156...
155 
#
 156 
#
156 
#                   This function must be called after all the makefiles
 157 
#                   This function must be called after all the makefiles
157 
#                   have been rebuilt. It is only at this time that all the
 158 
#                   have been rebuilt. It is only at this time that all the
158 
#                   information has been collected.
 159 
#                   information has been collected.
159 
#
 160 
#
- 
 
 161 
# Notes           : This file may be created on multiple build machines
- 
 
 162 
#                   at slightly different times. Take care to make the
- 
 
 163 
#                   file build machine independent.
- 
 
 164 
#
160 
# Inputs          : None
 165 
# Inputs          : None
161 
#
 166 
#
162 
# Returns         : Nothing
 167 
# Returns         : Nothing
163 
#
 168 
#
164 
sub DPackageGenerate
 169 
sub DPackageGenerate
Line 196... Line 201...
196 
    #   Delete and then re-create the the DPACKAGE file
 201 
    #   Delete and then re-create the the DPACKAGE file
197 
    #
 202 
    #
198 
    my $fname = "$ScmRoot/$::ScmSrcDir/DPACKAGE";
 203 
    my $fname = "$ScmRoot/$::ScmSrcDir/DPACKAGE";
199 
    unlink $fname;
 204 
    unlink $fname;
200 
 
 205 
 
201 
    my $fh = ConfigurationFile::New( $fname );
 206 
    my $fh = ConfigurationFile::New( $fname, '--NoTime' );
202 
    $fh->Header( "Auto-generated DPACKAGE",
 207 
    $fh->Header( "Auto-generated DPACKAGE",
203 
                              "JatsDPackage (version $VERSION)" );
 208 
                              "JatsDPackage (version $VERSION)" );
204 
 
 209 
 
205 
    $fh->Write( "\n", "Version( 1, 0 );    # Interface version\n\n" );
 210 
    $fh->Write( "\n", "Version( 1, 0 );    # Interface version\n\n" );
206 
 
 211 
 
Line 212... Line 217...
212 
    foreach my $mkfile (keys %DPackageLibraryDataStore )
 217 
    foreach my $mkfile (keys %DPackageLibraryDataStore )
213 
    {
 218 
    {
214 
        my $pmkfile = $DPackageLibraryDataStore{$mkfile};
 219 
        my $pmkfile = $DPackageLibraryDataStore{$mkfile};
215 
 
 220 
 
216 
        $fh->Write( "\n#\n" );
 221 
        $fh->Write( "\n#\n" );
217 
        $fh->Write( "# Defined in: $mkfile\n" );
 222 
        $fh->Write( "# Defined in ScmRoot : ", RelPath($mkfile,$ScmRoot ), "\n" );
- 
 
 223 
 
218 
        $fh->Write( "#\n" );
 224 
        $fh->Write( "#\n" );
219 
        foreach my $using ( keys %{$pmkfile}  )
 225 
        foreach my $using ( keys %{$pmkfile}  )
220 
        {
 226 
        {
221 
            my $uentry = $pmkfile->{$using};
 227 
            my $uentry = $pmkfile->{$using};
222 
            $fh->Write( "Using( '$using' );    # Usage name\n" );
 228 
            $fh->Write( "Using( '$using' );    # Usage name\n" );