ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

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

Comparing COMP/SCRAM/src/BuildSystem/Requirements.pm (file contents):
Revision 1.6 by sashby, Thu Nov 15 21:18:15 2001 UTC vs.
Revision 1.8 by sashby, Thu Nov 29 12:56:11 2001 UTC

#	Line 47 | Line 47 | sub url {
47		return $self->{file}
48		}
49
50	<	sub setup {
51	<	my $self=shift;
52	<	my $toolbox=shift;
53	<	print ">> In Requirements: setup()\n";
54	<	my $tool;
55	<	print ">> Looping over tools: ";
56	<	foreach $tool ( $self->selectedtools() )
57	<	{
58	<	print "\t\t Tool: ",$tool,"\n";
59	<	$self->verbose("Setting Up Tool $tool");
60	<	print "\t\t\tGoing to run toolsetup...using $toolbox","\n";
61	<	$toolbox->toolsetup($tool, $self->version($tool), $self->toolurl($tool));
62	<	}
63	<	}
50	>	sub setup
51	>	{
52	>	my $self=shift;
53	>	my $toolbox=shift;
54	>	my $tool;
55	>
56	>	foreach $tool ( $self->selectedtools() )
57	>	{
58	>	$self->verbose("Setting Up Tool $tool");
59	>	$toolbox->toolsetup($tool, $self->version($tool), $self->toolurl($tool));
60	>	}
61	>	}
62
63		sub tools {
64		my $self=shift;
65		return @{$self->{tools}};
66		}
67
68	<	sub selectedtools {
69	<	my $self=shift;
70	<	my @toollist=();
71	<	foreach $tool (  @{$self->{tools}} ) {
72	<	if ( $self->{selected}{$tool} == 1 ) {
73	<	push @toollist, $tool;
74	<	}
75	<	}
76	<	return @toollist;
77	<	}
68	>	sub selectedtools
69	>	{
70	>	my $self=shift;
71	>	my @toollist=();
72	>
73	>	foreach $tool (  @{$self->{tools}} )
74	>	{
75	>	if ( $self->{selected}{$tool} eq "SELECTED" )
76	>	{
77	>	push @toollist, $tool;
78	>	}
79	>	}
80	>	return @toollist;
81	>	}
82
83		sub toolcomment {
84		my $self=shift;
#	Line 303 | Line 305 | sub require_end {
305		}
306		}
307
308	<	sub select_start {
309	<	my $self=shift;
310	<	my $name=shift;
311	<	my $hashref=shift;
312	<
313	<	$self->{switch}->checktag( $name, $hashref, 'name');
314	<	$$hashref{'name'}=~tr[A-Z][a-z];
315	<	if ( $self->{Arch} ) {
316	<	$self->verbose("Selecting ".$$hashref{'name'});
317	<	$self->{selected}{$$hashref{'name'}}=1;
318	<	}
319	<	}
320	<
321	<	sub deselect_start {
322	<	my $self=shift;
323	<	my $name=shift;
324	<	my $hashref=shift;
325	<
326	<	$self->{switch}->checktag( $name, $hashref, 'name');
327	<	$$hashref{'name'}=~tr[A-Z][a-z];
328	<	if ( $self->{Arch} ) {
329	<	$self->verbose("Deselecting ".$$hashref{'name'});
330	<	$self->{selected}{$$hashref{'name'}}=0;
331	<	}
332	<	}
308	>	sub select_start
309	>	{
310	>	my $self=shift;
311	>	my $name=shift;
312	>	my $hashref=shift;
313	>
314	>	$self->{switch}->checktag( $name, $hashref, 'name');
315	>	$$hashref{'name'}=~tr[A-Z][a-z];
316	>	if ( $self->{Arch} )
317	>	{
318	>	$self->verbose("Selecting ".$$hashref{'name'});
319	>	$self->{selected}{$$hashref{'name'}} = "SELECTED";
320	>	$self->verbose(">> Tool select flag = ".$self->{selected}{$$hashref{'name'}}."\n");
321	>	}
322	>	}
323	>
324	>	sub deselect_start
325	>	{
326	>	my $self=shift;
327	>	my $name=shift;
328	>	my $hashref=shift;
329	>
330	>	$self->{switch}->checktag( $name, $hashref, 'name');
331	>	$$hashref{'name'}=~tr[A-Z][a-z];
332	>	if ( $self->{Arch} )
333	>	{
334	>	$self->verbose("Deselecting ".$$hashref{'name'});
335	>	$self->{selected}{$$hashref{'name'}} = "DESELECTED";
336	>	$self->verbose(">> Tool select flag = ".$self->{selected}{$$hashref{'name'}}."\n");
337	>	}
338	>	}
339
340		sub Arch_Start {
341		my $self=shift;

Diff Legend

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