modules/FeatureParser.pm

   1 package FeatureParser;
   2
   3 # ************************************************************
   4 # Description   : Reads the feature files and store the values
   5 # Author        : Chad Elliott
   6 # Create Date   : 5/21/2003
   7 # ************************************************************
   8
   9 # ************************************************************
  10 # Pragmas
  11 # ************************************************************
  12
  13 use strict;
  14
  15 use Parser;
  16
  17 use vars qw(@ISA);
  18 @ISA = qw(Parser);
  19
  20 # ************************************************************
  21 # Subroutine Section
  22 # ************************************************************
  23
  24 sub new {
  25   my $class    = shift;
  26   my $features = shift;
  27   my @files    = @_;
  28   my $self     = $class->SUPER::new();
  29
  30   ## Set the values associative array
  31   $self->{'values'} = {};
  32
  33   ## Process each feature file
  34   foreach my $f (@files) {
  35     if (defined $f) {
  36       my($status, $warn) = $self->read_file($f);
  37       if (!$status) {
  38         ## We only want to warn the user about problems
  39         ## with the feature file.
  40         my $lnumber = $self->get_line_number();
  41         $self->warning($self->mpc_basename($f) . ": line $lnumber: $warn");
  42       }
  43     }
  44   }
  45
  46   ## Process each feature definition
  47   foreach my $feature (@$features) {
  48     my($status, $warn) = $self->parse_line(undef, $feature);
  49     ## We only want to warn the user about problems
  50     ## with the -feature option.
  51     $self->warning("-features parameter: $warn") if (!$status);
  52   }
  53
  54   return $self;
  55 }
  56
  57
  58 sub parse_line {
  59   my($self, $if, $line) = @_;
  60   my $error;
  61
  62   if ($line eq '') {
  63   }
  64   elsif ($line =~ /^(\w+)\s*=\s*(\d+)$/) {
  65     ## This is a valid value, so we can store it.
  66     $self->{'values'}->{lc($1)} = $2;
  67   }
  68   else {
  69     $error = "Unrecognized line: $line";
  70   }
  71
  72   return (defined $error ? 0 : 1), $error;
  73 }
  74
  75
  76 sub get_names {
  77   my @names = sort keys %{$_[0]->{'values'}};
  78   return \@names;
  79 }
  80
  81
  82 sub get_value {
  83   ## All feature names are case-insensitive.
  84   my($self, $tag) = @_;
  85   return $self->{'values'}->{lc($tag)};
  86 }
  87
  88
  89 1;