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

Comparing COMP/SCRAM/src/BuildFile.pm (file contents):
Revision 1.2 by williamc, Mon Mar 1 11:01:41 1999 UTC vs.
Revision 1.5 by williamc, Thu Mar 18 10:32:03 1999 UTC

# Line 7 | Line 7 | require Exporter;
7   BEGIN {
8   use ToolBox;
9   $buildfile="BuildFile";
10 < #$toolbox=ToolBox->new();
10 > $toolbox=ToolBox->new();
11   }
12  
13   #Parse the BuildFile
# Line 39 | Line 39 | sub ParseBuildFile {
39          $switch->{Strict_no_cr}='no';
40          #open a temporary gnumakefile to store output.
41          use Utilities::AddDir;
42 <        adddir("$ENV{LOCALTOP}/$ENV{INTwork}/${path}");
42 >        AddDir::adddir("$ENV{LOCALTOP}/$ENV{INTwork}/${path}");
43          open ( GNUmakefile, ">$ENV{LOCALTOP}/$ENV{INTwork}/${path}/BuildFile.mk") or die 'Unable to open /$ENV{INTwork}/${path}/BuildFile.mk $!\n';
44          if ( -e $ENV{LatestBuildFile} ) {
45            print GNUmakefile "include $ENV{LatestBuildFile}\n";
# Line 108 | Line 108 | sub Bin_start {
108          if ( ! defined $$hashref{name} ) {
109                  ($$hashref{name}=$$hashref{file})=~s/\..*//;
110          }
111 <        $fileclass=getclass($file);
112 <        $toolbox->maketargets("exe",$fileclass, $$hashref{name}, $file );
113 <        print GNUmakefile "bin::$file\n\n";
111 >        # This stuff for later
112 >        #$fileclass=$toolbox->getclass($file);
113 >        #$toolbox->maketargets("exe",$fileclass, $$hashref{name}, $file );
114 >        print GNUmakefile "bin::$$hashref{name}\n";
115 >        print GNUmakefile "$$hashref{name}::$$hashref{file}\n";
116   }
117  
118   sub External_StartTag {
# Line 172 | Line 174 | sub Use_start {
174          print GNUmakefile "local__$$hashref{name}=true\n";
175   }
176  
177 < sub CheckBuildFile($directory) {
177 > sub CheckBuildFile {
178           my $classdir=shift;
179           $ClassName="";
180           $thisfile="$classdir/$buildfile";
# Line 203 | Line 205 | sub AssociateGroup {
205   }
206  
207   # Split up the Class Block String into a useable array
208 < sub _CutBlock($string) {
208 > sub _CutBlock {
209      my $string= shift @_;
210      @BlockClassA = split /\//, $string;
211   }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines