utils/genargs: delete unused tool
authorSergei Trofimovich <siarheit@google.com>
Sat, 17 Dec 2016 22:19:29 +0000 (22:19 +0000)
committerSergei Trofimovich <siarheit@google.com>
Sat, 17 Dec 2016 22:49:25 +0000 (22:49 +0000)
The tool was added in 2003 but never used at least in ghc tree.

Signed-off-by: Sergei Trofimovich <siarheit@google.com>
utils/genargs/Makefile [deleted file]
utils/genargs/genargs.pl [deleted file]

diff --git a/utils/genargs/Makefile b/utils/genargs/Makefile
deleted file mode 100644 (file)
index 3c31e6a..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-comma = ,
-BAR= "-L\"foo bar\""
-FOO= $(patsubst %,$(comma)"%",$(BAR))
-
-test:
-       @echo "$(FOO)"
-       @echo "$(BAR)" | $(PERL) genargs.pl -comma
-       @echo
diff --git a/utils/genargs/genargs.pl b/utils/genargs/genargs.pl
deleted file mode 100644 (file)
index 33dd2a0..0000000
+++ /dev/null
@@ -1,65 +0,0 @@
-#!/usr/bin/env perl
-
-use warnings;
-
-my $quote_open = 0;
-my $quote_char = '';
-my $accum = "";
-my $once = 1;
-my $c;
-
-# This program generates a partial Haskell list of Strings from
-# words passed via stdin suitable for use in package.conf, e.g.:
-#
-#   foo bar   --> "foo", "bar"
-#   "foo bar" --> "foo bar"
-#   foo\"bar  --> "foo\"bar"
-#
-# Invoking genargs.pl with -comma will print an initial comma if
-# there's anything to print at all.
-#
-# Sample application in a Makefile:
-#  HSIFIED_EXTRA_LD_OPTS= `echo "$(EXTRA_LD_OPTS)" | $(PERL) genargs.pl`
-#  PACKAGE_CPP_OPTS += -DHSIFIED_EXTRA_LD_OPTS="$(HSIFIED_EXTRA_LD_OPTS)"
-
-sub printaccum {
-  if ($once) {
-    if ($ARGV[0] eq "-comma") {
-      print ", ";
-    }
-  } else {
-    print ", ";
-  }
-  $once=0;
-  print '"';
-  print $accum;
-  print '"';
-}
-
-while ($c = getc) {
-  if ($quote_open) {
-    if ($c eq $quote_char) {
-      $quote_open = 0;
-    } elsif ($c eq '"') {
-      $accum .= '\"';
-    } else {
-      $accum .= $c;
-    }
-  } else {
-    if (($c eq ' ') || ($c eq "\n")) {
-      if (!($accum eq "")) {
-       printaccum;
-       $accum = "";
-      }
-    } elsif ($c eq "\\") {
-      $accum .= $c;
-      $c = getc;
-      $accum .= $c;
-    } elsif (($c eq '"') || ($c eq "\'")) {
-      $quote_open = 1;
-      $quote_char = $c;
-    } else {
-      $accum .= $c
-    }
-  }
-}