Commit 6c816c56 authored by Sergei Trofimovich's avatar Sergei Trofimovich

utils/genargs: delete unused tool

The tool was added in 2003 but never used at least in ghc tree.
Signed-off-by: default avatarSergei Trofimovich <siarheit@google.com>
parent 87c3b1d4
comma = ,
BAR= "-L\"foo bar\""
FOO= $(patsubst %,$(comma)"%",$(BAR))
test:
@echo "$(FOO)"
@echo "$(BAR)" | $(PERL) genargs.pl -comma
@echo
#!/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
}
}
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment