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.6 by williamc, Thu Mar 18 12:53:57 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 119 | Line 121 | sub External_StartTag {
121		my $hashref;
122
123		$hashref=$switch->SetupValueHash(\@vars);
124	+	$$hashref{'ref'}=~tr[A-Z][a-z];
125		print GNUmakefile $$hashref{'ref'};
126		if ( defined $$hashref{'version'} ) {
127		print GNUmakefile "_V_".$$hashref{'version'};
#	Line 172 | Line 175 | sub Use_start {
175		print GNUmakefile "local__$$hashref{name}=true\n";
176		}
177
178	<	sub CheckBuildFile($directory) {
178	>	sub CheckBuildFile {
179		my $classdir=shift;
180		$ClassName="";
181		$thisfile="$classdir/$buildfile";
#	Line 203 | Line 206 | sub AssociateGroup {
206		}
207
208		# Split up the Class Block String into a useable array
209	<	sub _CutBlock($string) {
209	>	sub _CutBlock {
210		my $string= shift @_;
211		@BlockClassA = split /\//, $string;
212		}

Diff Legend

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