ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

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

Comparing COMP/SCRAM/src/BuildSystem/ToolData.pm (file contents):
Revision 1.3 by sashby, Wed Feb 2 16:31:11 2005 UTC vs.
Revision 1.5 by sashby, Fri Jul 15 15:27:27 2005 UTC

#	Line 118 | Line 118 | sub flags()
118		}
119		}
120
121	+	sub updateflags()
122	+	{
123	+	my $self=shift;
124	+	my ($flag,$flagvalue) = @_;
125	+	# Reset:
126	+	if (exists $self->{FLAGS}->{$flag})
127	+	{
128	+	delete $self->{FLAGS}->{$flag};
129	+	}
130	+	# Reinsert:
131	+	$self->flags($flag,$flagvalue);
132	+	}
133	+
134		sub allflags()
135		{
136		my $self=shift;
#	Line 131 | Line 144 | sub scram_project()
144		: $self->{SCRAM_PROJECT};
145		}
146
147	+	sub scram_compiler()
148	+	{
149	+	my $self=shift;
150	+	@_ ? $self->{SCRAM_COMPILER} = shift
151	+	: $self->{SCRAM_COMPILER};
152	+	}
153	+
154		sub variable_data()
155		{
156		my $self=shift;
#	Line 234 | Line 254 | sub summarize_features()
254		($self->scram_project() == 1) ? print "yes" : print "no";
255		print "\n";
256
257	+	# A compiler tool?
258	+	if ($self->scram_compiler() == 1)
259	+	{
260	+	print "SCRAM_COMPILER=yes\n";
261	+	}
262	+
263		# Print out any variables:
264		foreach my $var (@variables)
265		{

Diff Legend

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