arch/nios2nommu/scripts/PTF/PTFSection.pm

   1 package PTFSection;
   2
   3 use strict;
   4
   5 # Fields:
   6 #  type = type of PTF Section
   7 #  name = name of PTF Section (can be blank)
   8 #  sections = array of section references
   9 #  assignments = hash of assignments
  10
  11 sub new {
  12         my $invocant = shift;
  13         my $class = ref($invocant) || $invocant;
  14         my $self = {
  15                 @_,
  16                 sections => [],
  17                 assignments => {},
  18         };
  19         bless ($self, $class);
  20         return $self;
  21 }
  22
  23 sub addSection {
  24         my ($self, $section) = @_;
  25         push @{$self->{sections}}, $section;
  26 }
  27
  28 sub getSections {
  29         my ($self, $type) = @_;
  30
  31         if (! $type) {
  32                 return @{$self->{sections}};
  33         }
  34
  35         my @matchedSections;
  36         foreach my $section (@{$self->{sections}}) {
  37                 if ($section->type eq $type) {
  38                         push @matchedSections, $section;
  39                 }
  40         }
  41
  42         return @matchedSections;
  43 }
  44
  45 sub getSection {
  46         my ($self, $type, $name) = @_;
  47
  48         if (! $name) {
  49                 $name = "";
  50         }
  51
  52         foreach my $section (@{$self->{sections}}) {
  53                 if ($section->type eq $type and $section->name eq $name) {
  54                         return $section;
  55                 }
  56         }
  57
  58 }
  59
  60 sub addAssignment {
  61         my ($self, $name, $value) = @_;
  62         $self->{assignments}{$name} = $value;
  63 }
  64
  65 sub getAssignment {
  66         my ($self, $name) = @_;
  67         return $self->{assignments}{$name};
  68 }
  69
  70 sub type {
  71         my $self = shift;
  72         return $self->{type};
  73 }
  74
  75 sub name {
  76         my $self = shift;
  77         return $self->{name};
  78 }
  79
  80
  81 1;