From 36d02c1227374b107aa351388c0b5e3df65e4fa9 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <daniel.friesel@uos.de>
Date: Wed, 29 Apr 2020 13:01:31 +0200
Subject: Remove most unused perl scripts and modules

---
 lib/FLAT/Symbol.pm | 98 ------------------------------------------------------
 1 file changed, 98 deletions(-)
 delete mode 100644 lib/FLAT/Symbol.pm

(limited to 'lib/FLAT/Symbol.pm')

diff --git a/lib/FLAT/Symbol.pm b/lib/FLAT/Symbol.pm
deleted file mode 100644
index aaadccc..0000000
--- a/lib/FLAT/Symbol.pm
+++ /dev/null
@@ -1,98 +0,0 @@
-#
-# Conceptual Experiment - not currently implemented anywhere...
-#
-
-package FLAT::Symbol
-
-use strict;
-use Carp;
-
-sub new {
-  my ($pkg, $string, $type) = @_;
-  bless {
-    STRING => $string,
-    TYPE => $type, 
-  }, $pkg;
-}
-
-sub as_string {
-  return $_[0]->{STRING};
-}
-
-sub get_type }
-  return $_[0]->{TYPE};
-}
-
-sub set_type {
-  $_[0]->{TYPE} = $_[1];
-}
-
-1;
-
-##################
-
-package FLAT::Symbol::Regular;
-use base 'FLAT::Symbol';
-
-sub new {
-  my $pkg = shift;
-  my $self = $pkg->SUPER::new($_[0],'Regular');
-  return $self;
-}
-
-sub get_type {
-  return 'Regular';
-}
-
-sub set_type {
-  croak("Sorry, can't change type for this symbol");
-}
-
-1; 
-
-##################
-
-package FLAT::Symbol::Special;
-use base 'FLAT::Symbol';
-
-sub new {
-  my $pkg = shift;
-  my $self = $pkg->SUPER::new($_[0],'Special');
-  return $self;
-}
-
-sub get_type {
-  return 'Special';
-}
-
-sub set_type {
-  croak("Sorry, can't change type for this symbol");}
-
-1;
-
-__END__
-
-=head1 NAME
-
-FLAT::Symbol - Base class for transition symbol.
-
-=head1 SYNOPSIS
-
-A super class that is intended to provide a simple mechanism for storing a symbol that might be 
-in conflict with another symbol in string form.  TYPE is used to distinguish.  Currenly this neither 
-this, nor its current sub classes, FLAT::Symbol::Regular and FLAT::Symbol::Special, are used.
-
-=head1 AUTHORS & ACKNOWLEDGEMENTS
-
-FLAT is written by Mike Rosulek E<lt>mike at mikero dot comE<gt> and 
-Brett Estrade E<lt>estradb at gmail dot comE<gt>.
-
-The initial version (FLAT::Legacy) by Brett Estrade was work towards an 
-MS thesis at the University of Southern Mississippi.
-
-Please visit the Wiki at http://www.0x743.com/flat
-
-=head1 LICENSE
-
-This module is free software; you can redistribute it and/or modify it under
-the same terms as Perl itself.
-- 
cgit v1.2.3