| 131 |
|
: $self->{SCRAM_PROJECT}; |
| 132 |
|
} |
| 133 |
|
|
| 134 |
+ |
sub scram_compiler() |
| 135 |
+ |
{ |
| 136 |
+ |
my $self=shift; |
| 137 |
+ |
@_ ? $self->{SCRAM_COMPILER} = shift |
| 138 |
+ |
: $self->{SCRAM_COMPILER}; |
| 139 |
+ |
} |
| 140 |
+ |
|
| 141 |
|
sub variable_data() |
| 142 |
|
{ |
| 143 |
|
my $self=shift; |
| 241 |
|
($self->scram_project() == 1) ? print "yes" : print "no"; |
| 242 |
|
print "\n"; |
| 243 |
|
|
| 244 |
+ |
# A compiler tool? |
| 245 |
+ |
if ($self->scram_compiler() == 1) |
| 246 |
+ |
{ |
| 247 |
+ |
print "SCRAM_COMPILER=yes\n"; |
| 248 |
+ |
} |
| 249 |
+ |
|
| 250 |
|
# Print out any variables: |
| 251 |
|
foreach my $var (@variables) |
| 252 |
|
{ |
| 280 |
|
# Finally, look for runtime vars: |
| 281 |
|
if (exists($self->{'RUNTIME'}) && (my ($nkeys) = scalar(keys %{$self->{'RUNTIME'}}) > 0 )) |
| 282 |
|
{ |
| 283 |
< |
while (my ($rt,$val) = each %{$self->{$feature}}) |
| 283 |
> |
while (my ($rt,$val) = each %{$self->{'RUNTIME'}}) |
| 284 |
|
{ |
| 285 |
|
if ($rt =~ /:/) |
| 286 |
|
{ |
