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.1 by williamc, Mon Mar 1 10:37:52 1999 UTC vs.
Revision 1.4 by williamc, Wed Mar 3 17:04:13 1999 UTC

# Line 1 | Line 1
1 – #!/usr/local/bin/perl5
2 – #
3 –
1   package BuildFile;
2 + require 5.001;
3   require Exporter;
4   @ISA    = qw(Exporter);
5   @EXPORT = qw(CheckBuildFile ParseBuildFile @BlockClassA $DefaultBuildFile);
# Line 9 | 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 36 | Line 34 | sub ParseBuildFile {
34                  'ClassPath' => \&OutToMakefile,
35                  'ClassPath_StartTag' => \&setBlockClassPath
36          };
37 <        use Switcher;
37 >        use Utilities::Switcher;
38          $switch=Switcher->new($SupportedTags, $fullfilename);
39          $switch->{Strict_no_cr}='no';
40          #open a temporary gnumakefile to store output.
41 <        use AddDir;
42 <        adddir("$ENV{LOCALTOP}/$ENV{INTwork}/${path}");
41 >        use Utilities::AddDir;
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 110 | 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 163 | Line 163 | sub Use_start {
163          my @vars=@_;
164          my $hashref;
165          my $filename;
166 <        use SCRAMUtils;
166 >        use Utilities::SCRAMUtils;
167          
168          $hashref=$switch->SetupValueHash(\@vars);
169          $switch->checkparam($hashref, $name, "name");

Diff Legend

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