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.3 by williamc, Tue Mar 2 10:58:07 1999 UTC vs.
Revision 1.8 by williamc, Tue Mar 23 08:42:09 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 29 | Line 29 | sub ParseBuildFile {
29                  'ConfigurationClass' => \&OutToMakefile,
30                  'AssociateGroup' => \&AssociateGroup,
31                  'none' => \&OutToMakefile,
32 <                'Bin' => \&OutToMakefile,
32 >                'Bin' => 'none',
33                  'Bin_StartTag' => \&Bin_start,
34                  'ClassPath' => \&OutToMakefile,
35                  'ClassPath_StartTag' => \&setBlockClassPath
# 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 "bin_debug::$$hashref{name}\n";
116 >        print GNUmakefile "$$hashref{name}::$$hashref{file}\n";
117   }
118  
119   sub External_StartTag {
# Line 119 | Line 122 | sub External_StartTag {
122          my $hashref;
123          
124          $hashref=$switch->SetupValueHash(\@vars);
125 +        $$hashref{'ref'}=~tr[A-Z][a-z];
126          print GNUmakefile $$hashref{'ref'};
127          if ( defined $$hashref{'version'} ) {
128                  print GNUmakefile "_V_".$$hashref{'version'};
# Line 172 | Line 176 | sub Use_start {
176          print GNUmakefile "local__$$hashref{name}=true\n";
177   }
178  
179 < sub CheckBuildFile($directory) {
179 > sub CheckBuildFile {
180           my $classdir=shift;
181           $ClassName="";
182           $thisfile="$classdir/$buildfile";
# Line 203 | Line 207 | sub AssociateGroup {
207   }
208  
209   # Split up the Class Block String into a useable array
210 < sub _CutBlock($string) {
210 > sub _CutBlock {
211      my $string= shift @_;
212      @BlockClassA = split /\//, $string;
213   }

Diff Legend

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