summaryrefslogtreecommitdiff
path: root/bin/MakeProjectCreator/modules/FeatureParser.pm
diff options
context:
space:
mode:
Diffstat (limited to 'bin/MakeProjectCreator/modules/FeatureParser.pm')
-rw-r--r--bin/MakeProjectCreator/modules/FeatureParser.pm79
1 files changed, 0 insertions, 79 deletions
diff --git a/bin/MakeProjectCreator/modules/FeatureParser.pm b/bin/MakeProjectCreator/modules/FeatureParser.pm
deleted file mode 100644
index 4f232b63e8e..00000000000
--- a/bin/MakeProjectCreator/modules/FeatureParser.pm
+++ /dev/null
@@ -1,79 +0,0 @@
-package FeatureParser;
-
-# ************************************************************
-# Description : Reads the feature files and store the values
-# Author : Chad Elliott
-# Create Date : 5/21/2003
-# ************************************************************
-
-# ************************************************************
-# Pragmas
-# ************************************************************
-
-use strict;
-
-use Parser;
-
-use vars qw(@ISA);
-@ISA = qw(Parser);
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-
-sub new {
- my($class) = shift;
- my($global_file) = shift;
- my($file) = shift;
- my($self) = $class->SUPER::new();
-
- ## Set the values associative array
- $self->{'values'} = {};
-
- ## Process each feature file
- foreach my $f ($global_file, $file) {
- if (defined $f) {
- my($status, $warn) = $self->read_file($f);
- if (!$status) {
- ## We only want to warn the user about problems
- ## with the feature file.
- my($lnumber) = $self->line_number();
- $warn =~ s/ERROR/WARNING/;
- print "$f: line $lnumber:\n$warn\n";
- }
- }
- }
-
- return $self;
-}
-
-
-sub parse_line {
- my($self) = shift;
- my($if) = shift;
- my($line) = shift;
- my($status) = 1;
- my($error) = '';
-
- if ($line eq '') {
- }
- elsif ($line =~ /^(\w+)\s*=\s*(\d+)$/) {
- $self->{'values'}->{$1} = $2;
- }
- else {
- $status = 0;
- $error = "ERROR: Unrecognized line: $line";
- }
-
- return $status, $error;
-}
-
-
-sub get_value {
- my($self) = shift;
- my($tag) = shift;
- return $self->{'values'}->{$tag};
-}
-
-
-1;