ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/BuildFile.pm

Comparing COMP/SCRAM/src/BuildFile.pm (file contents):
Revision 1.2 by williamc, Mon Mar 1 11:01:41 1999 UTC vs.
Revision 1.7 by williamc, Mon Mar 22 18:28:45 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 "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