ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/BuildSystem/ToolBox.pm

Comparing COMP/SCRAM/src/BuildSystem/ToolBox.pm (file contents):
Revision 1.6 by williamc, Wed Nov 15 10:50:56 2000 UTC vs.
Revision 1.10 by sashby, Fri Nov 16 16:29:48 2001 UTC

#	Line 41 | Line 41 | sub new {
41		my $self={};
42		bless $self, $class;
43		$self->{arch}=shift;
44	–	#$self->verbosity(1);
44		$self->init($area);
45		return $self;
46		}
#	Line 58 | Line 57 | sub init {
57		}
58		$self->{toolfiledir}="$top/.SCRAM/ToolFiles";
59		$self->{datastore}=$top."/.SCRAM/".$self->{arch};
61	–	#$self->{datastore}=$area->archdir();
60		$self->{tooladmin}=$self->{datastore}."/admin";
61		AddDir::adddir($self->{toolfiledir});
62		if ( -f $self->{tooladmin} ) {
#	Line 99 | Line 97 | sub tools {
97		}
98
99		sub toolsetup {
100	<	my $self=shift;
101	<	my $name=shift;
102	<
103	<	AddDir::adddir($self->{datastore});
100	>	my $self=shift;
101	>	my $name=shift;
102	>
103	>	AddDir::adddir($self->{datastore});
104		$name=~tr[A-Z][a-z];
105		my $rv=0;
106		# -- get version
#	Line 136 | Line 134 | sub toolsetup {
134		$filename=$self->_download($url, $name, $version);
135
136		# -- the tool setup
137	<	print "\n ----------- Setting Up $name $version ---------------\n";
137	>	print "\n----------- Setting Up $name $version -----------------------------------------------\n\n";
138		require BuildSystem::ToolDoc;
139		my $doc=BuildSystem::ToolDoc->new();
140		$doc->tool($tool);
#	Line 166 | Line 164 | sub toolsetup {
164		$self->error("Unable to find $name $version in $url");
165		}
166		undef $doc;
169	–
167		return $rv;
168		}
169
#	Line 371 | Line 368 | sub _toolobject {
368		$self->{tools}{$product}{$version}->version($version);
369		$self->verbose("Tool $product $version needs set up");
370		}
374	–	#   push @{$self->{toollist}}, [$product, $version];
371		}
372		return ($self->{tools}{$product}{$version}, $rv);
373		}

Diff Legend

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