[commit: ghc] master: utils/genargs: delete unused tool (6c816c5)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/6c816c56c674221173e725b5718c8052dda0c8f4/ghc

>---------------------------------------------------------------

commit 6c816c56c674221173e725b5718c8052dda0c8f4
Author: Sergei Trofimovich <siarheit at google.com>
Date:   Sat Dec 17 22:19:29 2016 +0000

    utils/genargs: delete unused tool
    
    The tool was added in 2003 but never used at least in ghc tree.
    
    Signed-off-by: Sergei Trofimovich <siarheit at google.com>


>---------------------------------------------------------------

6c816c56c674221173e725b5718c8052dda0c8f4
 utils/genargs/Makefile   |  8 ------
 utils/genargs/genargs.pl | 65 ------------------------------------------------
 2 files changed, 73 deletions(-)

diff --git a/utils/genargs/Makefile b/utils/genargs/Makefile
deleted file mode 100644
index 3c31e6a..0000000
--- a/utils/genargs/Makefile
+++ /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
index 33dd2a0..0000000
--- a/utils/genargs/genargs.pl
+++ /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
-    }
-  }
-}