ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Scram/ScramFunctions.pm

Comparing COMP/SCRAM/src/Scram/ScramFunctions.pm (file contents):
Revision 1.11 by sashby, Wed May 30 12:47:01 2001 UTC vs.
Revision 1.14 by sashby, Wed Jul 11 15:48:17 2001 UTC

#	Line 86 | Line 86 | sub setuptoolsinarea {
86		my $self=shift;
87		my $area=shift;
88
89	<	# -- initialise
89	>	# -- initialise
90	>	print "Initialising setup procedure......","\n";
91		$self->_allprojectinitsearcher();
92
93		# -- create a new toolbox object
#	Line 241 | Line 242 | sub addareatoDB {
242		$self->scramprojectdb()->addarea($tagname,$version,$area);
243		}
244
244	–	sub spawnversion {
245	–	my $self=shift;
246	–	my $version=shift;
245
246	<	my $rv=0;
247	<	my $thisversion=$self->getversion();
248	<	if ( defined $version ) {
249	<	if ( $version ne $thisversion ) {
250	<	# first try to use the correct version
251	<	if ( -d $self->{scram_top}."/".$version ) {
252	<	$ENV{SCRAM_HOME}=$self->{scram_top}."/".$version;
253	<	$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src";
254	<	$self->verbose("Spawning SCRAM version $version");
255	<	my $rv=system("scram", @_)/256;
256	<	exit $rv;
257	<	}
258	<	else { # if not then simply warn
259	<	print "******* Warning : scram version inconsistent ********\n";
260	<	print "This version: $thisversion; Required version: $version\n";
261	<	print "*****************************************************\n";
262	<	print "\n";
263	<	}
264	<	}
265	<	}
266	<	else {
267	<	$self->error("Undefined value for version requested");
268	<	$rv=1;
269	<	}
270	<	return $rv;
271	<	}
246	>	sub removeareafromDB
247	>	{
248	>	###############################################################
249	>	# removearefromDB()                                           #
250	>	###############################################################
251	>	# modified : Thu Jun 14 10:46:22 2001 / SFA                   #
252	>	# params   : projectname, projectversion                      #
253	>	#          :                                                  #
254	>	#          :                                                  #
255	>	#          :                                                  #
256	>	# function : Remove project <projectname> from DB file.       #
257	>	#          :                                                  #
258	>	#          :                                                  #
259	>	###############################################################
260	>	my $self=shift;
261	>	my $projname=shift;
262	>	my $version=shift;
263	>
264	>	# -- Remove from the DB:
265	>	$self->scramprojectdb()->removearea($projname,$version);
266	>	}
267	>
268	>
269	>	sub spawnversion
270	>	{
271	>	my $self=shift;
272	>	my $version=shift;
273	>	my $rv=0;
274	>
275	>	my $thisversion=$self->getversion();
276	>
277	>	if ( defined $version )
278	>	{
279	>	if ( $version ne $thisversion )
280	>	{
281	>	# first try to use the correct version
282	>	if ( -d $self->{scram_top}."/".$version )
283	>	{
284	>	$ENV{SCRAM_HOME}=$self->{scram_top}."/".$version;
285	>	$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src";
286	>	$self->verbose("Spawning SCRAM version $version");
287	>	my $rv=system("scram", @_)/256;
288	>	exit $rv;
289	>	}
290	>	else
291	>	{ # if not then simply warn
292	>	print "******* Warning : scram version inconsistent ********\n";
293	>	print "This version: $thisversion; Required version: $version\n";
294	>	print "*****************************************************\n";
295	>	print "\n";
296	>	}
297	>	}
298	>	}
299	>	else
300	>	{
301	>	$self->error("Undefined value for version requested");
302	>	$rv=1;
303	>	}
304	>	return $rv;
305	>	}
306
307		sub globalcache {
308		my $self=shift;

Diff Legend

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