diff options
Diffstat (limited to 'utils/genargs')
| -rw-r--r-- | utils/genargs/Makefile | 8 | ||||
| -rw-r--r-- | utils/genargs/genargs.pl | 62 |
2 files changed, 70 insertions, 0 deletions
diff --git a/utils/genargs/Makefile b/utils/genargs/Makefile new file mode 100644 index 0000000000..3c31e6a39f --- /dev/null +++ b/utils/genargs/Makefile @@ -0,0 +1,8 @@ +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 new file mode 100644 index 0000000000..2ef2dfa3e6 --- /dev/null +++ b/utils/genargs/genargs.pl @@ -0,0 +1,62 @@ +#!/usr/bin/perl +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 + } + } +} |