diff options
Diffstat (limited to 'samwise/PerlSam/Parser.pm')
-rw-r--r-- | samwise/PerlSam/Parser.pm | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/samwise/PerlSam/Parser.pm b/samwise/PerlSam/Parser.pm deleted file mode 100644 index 08ce79a1f91..00000000000 --- a/samwise/PerlSam/Parser.pm +++ /dev/null @@ -1,57 +0,0 @@ -# $Id$ - -package PerlSam::Parser; - -use PerlSam::Parser::Simple; -use strict; - -############################################################################### -# Global methods - -# Return the default parser -sub GetDefault () -{ - return 'simple'; -} - -############################################################################### -# Constructor - -sub new ($) -{ - my $proto = shift; - my $class = ref ($proto) || $proto; - my $self = {}; - - my $name = shift; - - if ($name eq 'simple') { - $self->{PARSER} = new PerlSam::Parser::Simple; - } - else { - print STDERR "Error: Unrecognized Parser <$name>\n"; - exit 1; - } - - bless ($self, $class); - return $self; -} - -############################################################################### -# Methods - -sub Parse ($\%) -{ - my $self = shift; - - return $self->{PARSER}->Parse (@_); -} - -sub ParseLibraryFile ($\%) -{ - my $self = shift; - - return $self->{PARSER}->ParseLibraryFile (@_); -} - -1;
\ No newline at end of file |