| 25 |
|
# dependencies() : return a list of dependency objects |
| 26 |
|
# store(location) : Save object to given file |
| 27 |
|
# restore(location) : Restore object from specified file |
| 28 |
+ |
# reset() : Clean out all the features |
| 29 |
|
|
| 30 |
|
package BuildSystem::Tool; |
| 31 |
|
require 5.004; |
| 100 |
|
@{$self->{features}{$name}}=@value; |
| 101 |
|
} |
| 102 |
|
|
| 103 |
+ |
sub reset { |
| 104 |
+ |
my $self=shift; |
| 105 |
+ |
undef $self->{features}; |
| 106 |
+ |
undef $self->{'features_ordered'}; |
| 107 |
+ |
undef $self->{reqobjs}; |
| 108 |
+ |
undef $self->{requireposition}; |
| 109 |
+ |
} |
| 110 |
|
|
| 111 |
|
sub _newfeature { |
| 112 |
|
my $self=shift; |
| 182 |
|
$!."\n"; |
| 183 |
|
print $fh "name:".$self->name().":_sys\n"; |
| 184 |
|
print $fh "version:".$self->version().":_sys\n"; |
| 185 |
+ |
print $fh "url:".$self->url().":_sys\n"; |
| 186 |
|
foreach $f ( $self->features()) { |
| 187 |
|
foreach $val ( $self->getfeature($f) ) { |
| 188 |
|
print $fh $f.":".$val.":".$self->type($f)."\n"; |
