More general titles

[pciids.git] / PciIds / Address / Base.pm

diff --git a/PciIds/Address/Base.pm b/PciIds/Address/Base.pm
index 5f78ec95585b26c0c11c82ab537dc671e1d87fdf..8b40461dfe3e5921c893176f328bc69e161da249 100644 (file)
--- a/PciIds/Address/Base.pm
+++ b/PciIds/Address/Base.pm
@@ -25,7 +25,7 @@ sub tail( $ ) {
        return $new;
 }
 
-sub canAddComment( $ ) {
+sub canDiscuss( $ ) {
        return 1; #By default, comments can be added anywhere
 }
 
@@ -35,4 +35,27 @@ sub defaultRestrict( $ ) { return "" };
 
 sub defaultRestrictList( $ ) { return [] };
 
+sub path( $ ) {
+       my( $self ) = @_;
+       my @result;
+       my $address = $self;
+       while( defined( $address = $address->parent() ) ) {
+               push @result, $address;
+       }
+       return \@result;
+}
+
+sub helpName( $ ) {
+       return undef;
+}
+
+sub addressDeps( $ ) {
+       return [];
+}
+
+sub top( $ ) {
+       my( $topAd ) = shift->get() =~ /^([^\/]+)/;
+       return PciIds::Address::new( $topAd );
+}
+
 1;