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.9 by sashby, Mon Dec 3 19:02:04 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	>	$self->verbose(">> Adding tool $tool to list of selected tools");
78	>	push @toollist, $tool;
79	>	}
80	>	$self->verbose(">> Tool $tool was deselected");
81	>	}
82	>	return @toollist;
83	>	}
84
85		sub toolcomment {
86		my $self=shift;
#	Line 303 | Line 307 | sub require_end {
307		}
308		}
309
310	<	sub select_start {
311	<	my $self=shift;
312	<	my $name=shift;
313	<	my $hashref=shift;
314	<
315	<	$self->{switch}->checktag( $name, $hashref, 'name');
316	<	$$hashref{'name'}=~tr[A-Z][a-z];
317	<	if ( $self->{Arch} ) {
318	<	$self->verbose("Selecting ".$$hashref{'name'});
319	<	$self->{selected}{$$hashref{'name'}}=1;
320	<	}
321	<	}
322	<
323	<	sub deselect_start {
324	<	my $self=shift;
325	<	my $name=shift;
326	<	my $hashref=shift;
327	<
328	<	$self->{switch}->checktag( $name, $hashref, 'name');
329	<	$$hashref{'name'}=~tr[A-Z][a-z];
330	<	if ( $self->{Arch} ) {
331	<	$self->verbose("Deselecting ".$$hashref{'name'});
332	<	$self->{selected}{$$hashref{'name'}}=0;
333	<	}
334	<	}
310	>	sub select_start
311	>	{
312	>	my $self=shift;
313	>	my $name=shift;
314	>	my $hashref=shift;
315	>
316	>	$self->{switch}->checktag( $name, $hashref, 'name');
317	>	$$hashref{'name'}=~tr[A-Z][a-z];
318	>	if ( $self->{Arch} )
319	>	{
320	>	$self->verbose("Selecting ".$$hashref{'name'});
321	>	$self->{selected}{$$hashref{'name'}} = "SELECTED";
322	>	$self->verbose(">> Tool select flag = ".$self->{selected}{$$hashref{'name'}}."\n");
323	>	}
324	>	}
325	>
326	>	sub deselect_start
327	>	{
328	>	my $self=shift;
329	>	my $name=shift;
330	>	my $hashref=shift;
331	>
332	>	$self->{switch}->checktag( $name, $hashref, 'name');
333	>	$$hashref{'name'}=~tr[A-Z][a-z];
334	>	if ( $self->{Arch} )
335	>	{
336	>	$self->verbose("Deselecting ".$$hashref{'name'});
337	>	$self->{selected}{$$hashref{'name'}} = "DESELECTED";
338	>	$self->verbose(">> Tool select flag = ".$self->{selected}{$$hashref{'name'}}."\n");
339	>	}
340	>	}
341
342		sub Arch_Start {
343		my $self=shift;

Diff Legend

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