1 files changed, 0 insertions, 127 deletions
diff --git a/samwise/sam.pl b/samwise/sam.pl
deleted file mode 100755
index 511d11398ba..00000000000
--- a/samwise/sam.pl
+++ /dev/null
@@ -1,127 +0,0 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
-    & eval 'exec perl -S $0 $argv:q'
-    if 0;
-
-# $Id$
-
-use FindBin;
-use lib $FindBin::Bin;
-use PerlSam::Parser;
-use PerlSam::Generator;
-
-use strict;
-
-package main;
-
-$main::verbose = 0;
-
-################################################################################
-
-my $parser_name;
-my @target_names;
-my @file_names;
-
-################################################################################
-# Parse Args
-
-sub print_usage ()
-{
-    print "Compiles SAM files into Makefiles/Projects\n";
-    print "\n";
-    print "sam.pl [-parser <name>] [-target <name>] [-target <name>]... [files...]\n";
-    print "\n";
-    print " -parser <name>      Use <name> parser instead of the default\n";
-    print " -target <name>      Add <name> as a target\n";
-    print " files               Files that should be compiled (defaults to sam.xml)\n";
-}
-
-# Read in ARGV
-
-while ($#ARGV >= 0)
-{
-    if ($ARGV[0] =~ m/^-parser/i) {
-        if (defined $parser_name) {
-            print STDERR "Error:  Only one parser allowed\n";
-            exit 1;
-        }
-        $parser_name = $ARGV[1];
-        shift;
-    }
-    elsif ($ARGV[0] =~ m/^-target/i) {
-        push @target_names, $ARGV[1];
-        shift;
-    }
-    elsif ($ARGV[0] =~ m/^-v/i) {
-        shift;
-        if (!defined $ARGV[0] || $ARGV[0] =~ m/^-/) {
-            print STDERR "Error:  Expecting a positive verbosity level\n";
-            exit 1;
-        }
-        $main::verbose = $ARGV[0];
-    }
-    elsif ($ARGV[0] =~ m/^-(\?|h)/i) {
-        print_usage ();
-        exit;
-    }
-    elsif ($ARGV[0] =~ m/^-/) {
-        print "Error: Unknown option $ARGV[0]\n";
-        exit 1;
-    }
-    else {
-        push @file_names, $ARGV[0];
-    }
-    shift;
-}
-
-# Check for valid parameters
-
-if (!defined $parser_name) {
-    $parser_name = PerlSam::Parser::GetDefault ();
-}
-
-if ($#target_names < 0) {
-    @target_names = PerlSam::Generator::GetDefaults ();
-}
-
-if ($#file_names < 0) {
-    @file_names = ('sam.xml');
-}
-
-# Print out verbose info
-
-if ($main::verbose >= 1) {
-    print "Parser Name: ", $parser_name, "\n";
-    print "Target Names: ", join (' ', @target_names), "\n";
-    print "File Names: ", join (' ', @file_names), "\n";
-}
-
-################################################################################
-# Parse and Generate
-
-if ($main::verbose >= 1) {
-    print "=== Parse and Generate\n";
-}
-
-foreach my $file (@file_names) {
-    my $parser = new PerlSam::Parser ($parser_name);
-    my $generator = new PerlSam::Generator (@target_names);
-
-    print "Compiling $file\n";
-    my %data;
-    my %libdata;
-
-    if ($parser->Parse ($file, \%data)) {
-        if ($parser->ParseLibraryFile ("$FindBin::Bin/libs.xml", \%libdata)) {
-            $generator->SetLibraryInfo (\%libdata);
-            $generator->GenerateDependencies (\%data);
-            $generator->GenerateWorkspace (\%data);
-            $generator->GenerateProjects (\%data);
-        }
-        else {
-            print STDERR "Error: Unable to parse library file\n";
-        }
-    }
-    else {
-        print STDERR "Error: Unable to parse file <$file>\n";
-    }
-}