SCRAM/src/Tool.pm

# Tool Class: Tool Environmnet and functinality
#
#

package Tool;
require 5.001;
require Exporter;
@ISA=qw(Exporter);
use Carp;
use Utilities::SCRAMUtils;

# A new tool object
sub new {
        $self = {};
        bless $self;
        $self->{toolname}=shift;
        $self->{toolversion}=shift;
        $self->{TEnv}={};
        return $self;   
}

# Add to a tool Env Variable
sub addenv {
        my $self=shift;
        my $name=shift;
        my $value=shift;
        ${$self->{TEnv}}{$name}=${$self->{TEnv}}{$name}." ".$value;
}

# Set a tool Env variable
sub env {
        my $self=shift;
        my $name=shift;
        my $value=shift;
        ${$self->{TEnv}}{$name}=$value;
}

#
# Write out the environment as a makefile
#   --- Pass FILEHANDLE reference of open makefile
#
sub envtomake {
        my $self=shift;
        my $FILEHANDLE=shift;
        foreach $i ( keys %{$self->{TEnv}} ) {  
           print $FILEHANDLE "$i+=${$self->{TEnv}}{$i}\n";
        }
}
Revision:	1.2
Committed:	Wed Apr 14 09:46:31 1999 UTC (26 years, 1 month ago) by williamc
Content type:	text/plain
Branch:	MAIN
CVS Tags:	V0_11_1, V0_11_0, V0_10_19, V0_10_18, V0_10_17, V0_10_16, V0_10_15, V0_10_14, V0_10_13, V0_10_12, V0_10_11, V0_10_10, V0_10_9, V0_10_8, V0_10_7, V0_10_6, V0_10_5, V0_10_4, V0_10_3, V0_10_2, V0_10_1, V0_10_0, V0_10_0beta, V0_9_42, V0_9_41, V0_9_40, V0_9_39, V0_9_38, V0_9_37, V0_9_36, V0_9_35, V0_9_34, V0_9_33, V0_9_32, V0_9_31, V0_9_30, V0_9_29, V0_9_28, V0_9_27, V0_9_26, V0_9_25, V0_9_24, V0_9_23, V0_9_22, V0_9_21, V0_9_20, V0_9_19, V0_9_18, V0_9_17, V0_9_16, V0_9_15, V0_9_14, V0_9_13, V0_9_12, V0_9_11, V0_9_10, V0_9_9, V0_9_8, V0_9_7, V0_9_6, V0_9_5, V0_9_4, V0_9_3, V0_9_2, V0_9_1, V0_9
Branch point for:	V0_9branch
Changes since 1.1:	+0 -1 lines
Log Message:	Remove debug printout
#	Content
1	# Tool Class: Tool Environmnet and functinality
2	#
3	#
4
5	package Tool;
6	require 5.001;
7	require Exporter;
8	@ISA=qw(Exporter);
9	use Carp;
10	use Utilities::SCRAMUtils;
11
12	# A new tool object
13	sub new {
14	$self = {};
15	bless $self;
16	$self->{toolname}=shift;
17	$self->{toolversion}=shift;
18	$self->{TEnv}={};
19	return $self;
20	}
21
22	# Add to a tool Env Variable
23	sub addenv {
24	my $self=shift;
25	my $name=shift;
26	my $value=shift;
27	${$self->{TEnv}}{$name}=${$self->{TEnv}}{$name}." ".$value;
28	}
29
30	# Set a tool Env variable
31	sub env {
32	my $self=shift;
33	my $name=shift;
34	my $value=shift;
35	${$self->{TEnv}}{$name}=$value;
36	}
37
38	#
39	# Write out the environment as a makefile
40	# --- Pass FILEHANDLE reference of open makefile
41	#
42	sub envtomake {
43	my $self=shift;
44	my $FILEHANDLE=shift;
45	foreach $i ( keys %{$self->{TEnv}} ) {
46	print $FILEHANDLE "$i+=${$self->{TEnv}}{$i}\n";
47	}
48	}