1 files changed, 0 insertions, 143 deletions
diff --git a/bin/MakeProjectCreator/modules/TemplateInputReader.pm b/bin/MakeProjectCreator/modules/TemplateInputReader.pm
deleted file mode 100644
index 40f663ca253..00000000000
--- a/bin/MakeProjectCreator/modules/TemplateInputReader.pm
+++ /dev/null
@@ -1,143 +0,0 @@
-package TemplateInputReader;
-
-# ************************************************************
-# Description   : Reads the template input and stores the values
-# Author        : Chad Elliott
-# Create Date   : 5/16/2002
-# ************************************************************
-
-# ************************************************************
-# Pragmas
-# ************************************************************
-
-use strict;
-
-use Parser;
-
-use vars qw(@ISA);
-@ISA = qw(Parser);
-
-# ************************************************************
-# Data Section
-# ************************************************************
-
-my($mpt)  = 'mpt';
-
-# ************************************************************
-# Subroutine Section
-# ************************************************************
-
-sub new {
-  my($class) = shift;
-  my($inc)   = shift;
-  my($self)  = Parser::new($class, $inc);
-
-  $self->{'values'}  = {};
-  $self->{'cindex'}  = 0;
-  $self->{'current'} = [ $self->{'values'} ];
-
-  return $self;
-}
-
-
-sub parse_line {
-  my($self)        = shift;
-  my($ih)          = shift;
-  my($line)        = shift;
-  my($status)      = 1;
-  my($errorString) = '';
-  my($current)     = $self->{'current'};
-
-  if ($line eq '') {
-  }
-  elsif ($line =~ /^([\w\s]+)\s*{$/) {
-    ## Entering a new scope
-    my($name) = $1;
-    $name =~ s/\s+$//;
-    if (!defined $$current[$self->{'cindex'}]->{$name}) {
-      $$current[$self->{'cindex'}]->{$name} = {};
-    }
-    push(@$current, $$current[$self->{'cindex'}]->{$name});
-    $self->{'cindex'}++;
-  }
-  elsif ($line =~ /^}$/) {
-    if ($self->{'cindex'} > 0) {
-      pop(@$current);
-      $self->{'cindex'}--;
-    }
-    else {
-      $status = 0;
-      $errorString = 'ERROR: Unmatched curly brace';
-    }
-  }
-  elsif ($line =~ /^(\w+)\s*(\+=|=)\s*(.*)?/) {
-    my($name)  = $1;
-    my($op)    = $2;
-    my($value) = $3;
-
-    if (defined $value) {
-      $value = $self->create_array($value);
-    }
-    else {
-      $value = '';
-    }
-
-    if ($op eq '+=') {
-      my($ref) = $$current[$self->{'cindex'}]->{$name};
-      if (defined $ref) {
-        if (UNIVERSAL::isa($ref, 'ARRAY')) {
-          if (UNIVERSAL::isa($value, 'ARRAY')) {
-            push(@$ref, @$value);
-          }
-          else {
-            push(@$ref, $value);
-          }
-        }
-        else {
-          if (UNIVERSAL::isa($value, 'ARRAY')) {
-            $$current[$self->{'cindex'}]->{$name} .= " @$value";
-          }
-          else {
-            $$current[$self->{'cindex'}]->{$name} .= $value;
-          }
-        }
-      }
-      else {
-        $$current[$self->{'cindex'}]->{$name} = $value;
-      }
-    }
-    else {
-      if (!$$current[$self->{'cindex'}]->{$name}) {
-        $$current[$self->{'cindex'}]->{$name} = $value;
-      }
-      else {
-        $status = 0;
-        $errorString = "ERROR: Redifinition of '$name'";
-      }
-    }
-  }
-  elsif ($line =~ /^conditional_include\s+"([\w\s\-\+\/\\\.]+)"$/) {
-    my($file) = $self->search_include_path("$1.$mpt");
-    if (defined $file) {
-      my($ol) = $self->{'line_number'};
-      ($status, $errorString) = $self->read_file($file);
-      $self->{'line_number'} = $ol;
-    }
-  }
-  else {
-    $status = 0;
-    $errorString = "ERROR: Unrecognized line: $line";
-  }
-
-  return $status, $errorString;
-}
-
-
-sub get_value {
-  my($self) = shift;
-  my($tag)  = shift;
-  return $self->{'values'}->{$tag};
-}
-
-
-1;