ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/BuildSystem/BuildSetup.pm
(Generate patch)

Comparing COMP/SCRAM/src/BuildSystem/BuildSetup.pm (file contents):
Revision 1.8 by williamc, Fri Sep 29 06:45:51 2000 UTC vs.
Revision 1.9 by williamc, Fri Sep 29 10:32:18 2000 UTC

# Line 31 | Line 31 | sub new {
31          }
32          $self->{releasetop}=$self->{releasearea}->location();
33          $self->{buildfilename}="BuildFile";
34 +        #$self->verbosity(1);
35          $self->_configurationsetup();
36          return $self;
37   }
# Line 127 | Line 128 | sub classsetup {
128                  my $classbf=BuildSystem::BuildFile->new($self->{area});
129                  undef $ENV{LatestBuildFile}; # gets set by BuildFile
130                  $classbf->GenerateMakefile($classbuildfile, $classmakefile);
131 +                undef $ENV{LatestBuildFile}; # gets set by BuildFile
132                }
133          }
134          else {
# Line 173 | Line 175 | sub BuildDir {
175          my @Targets=@_;
176          my $DefaultBuildFile="";
177  
176 –
178          # -- Setup Class specifics
179          ($Class,$ClassDir,$classmakefile)=$self->classsetup($THISDIR);
180          $ENV{classmakefile}=$classmakefile;
# Line 390 | Line 391 | sub _topbuildfile {
391                  ."/".$self->{buildfilename});
392      # -- generate top level makefile
393      $self->verbose("Generating Top Level BuildFile");
394 +    undef $ENV{LatestBuildFile};
395      $self->{topbf}->ParseBuildFile($self->{localtop},
396                          $self->{projconfigdir},$self->{buildfilename});
397  
# Line 420 | Line 422 | sub _checkdatestampindir {
422            my @releasedsfiles= grep /^.*\.ds$/, readdir $fh;
423            foreach $file ( @releasedsfiles ) {
424                  use File::Copy;
425 +                $self->verbose("Copying $file from $rdir to $ldir");
426                  copy($rdir."/".$file,$ldir."/".$file);
427            }
428            $fh->close();
# Line 429 | Line 432 | sub _checkdatestampindir {
432          # -- process ds files
433          my $file;
434          foreach $datafile ( @dsfiles ) {
435 <          my $ds=BuildSystem::DateStampRecord->new($datafile);
435 >          $self->verbose("Processing $ldir/$datafile\n");
436 >          my $ds=BuildSystem::DateStampRecord->new($ldir."/".$datafile);
437 >          $ds->verbosity($self->verbosity());
438            my $needsupdate;
439            my $productfile=$ds->product();
440            my (%files,%moddate);
# Line 437 | Line 442 | sub _checkdatestampindir {
442            # now get dates in our dependency list
443            my @datedfiles=$ds->dated();
444            if ( $#datedfiles >= 0 ) {
445 +            
446               $needsupdate=1;
447               $date=$datedfiles[0][1]-1;
448            }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines