| 2 |
|
# |
| 3 |
|
# Interface |
| 4 |
|
# --------- |
| 5 |
< |
# new(file,URLcache) : new requirements doc |
| 5 |
> |
# new(file,URLcache,ObjectStore) : new requirements doc |
| 6 |
|
# setup(toolbox): set up the requirements into the specified toolbox object |
| 7 |
|
# download(toolbox) : download description files (into toolbox cache) |
| 8 |
|
# tools() : Return list of requirements (ordered) |
| 10 |
|
# url(tool) : return the url of a given tool |
| 11 |
|
|
| 12 |
|
package BuildSystem::Requirements; |
| 13 |
< |
use ActiveDoc::SimpleURLDoc; |
| 13 |
> |
use ActiveDoc::ActiveDoc; |
| 14 |
|
use Utilities::Verbose; |
| 15 |
|
|
| 16 |
|
require 5.004; |
| 22 |
|
bless $self, $class; |
| 23 |
|
$self->{file}=shift; |
| 24 |
|
$self->{cache}=shift; |
| 25 |
+ |
$self->{dbstore}=shift; |
| 26 |
|
$self->{mydocversion}="2.0"; |
| 27 |
|
$self->{Arch}=1; |
| 28 |
|
push @{$self->{ARCHBLOCK}}, $self->{Arch}; |
| 62 |
|
my $self=shift; |
| 63 |
|
my $file=shift; |
| 64 |
|
|
| 65 |
< |
my $switch=ActiveDoc::SimpleURLDoc->new($self->{cache}); |
| 65 |
> |
my $switch=ActiveDoc::ActiveDoc->new($self->{cache}); |
| 66 |
|
$switch->filetoparse($file); |
| 67 |
|
$switch->newparse("doc"); |
| 68 |
|
$switch->addtag("doc","Doc", \&Doc_start,$self,"",$self,"",$self); |
