unused import
[ghc-hetmet.git] / utils / genargs / genargs.pl
1 #!/usr/bin/perl
2 my $quote_open = 0;
3 my $quote_char = '';
4 my $accum = "";
5 my $once = 1;
6 my $c;
7
8 # This program generates a partial Haskell list of Strings from
9 # words passed via stdin suitable for use in package.conf, e.g.:
10 #
11 #   foo bar   --> "foo", "bar"
12 #   "foo bar" --> "foo bar"
13 #   foo\"bar  --> "foo\"bar"
14 #
15 # Invoking genargs.pl with -comma will print an initial comma if
16 # there's anything to print at all.
17 #
18 # Sample application in a Makefile:
19 #  HSIFIED_EXTRA_LD_OPTS= `echo "$(EXTRA_LD_OPTS)" | $(PERL) genargs.pl`
20 #  PACKAGE_CPP_OPTS += -DHSIFIED_EXTRA_LD_OPTS="$(HSIFIED_EXTRA_LD_OPTS)"
21
22 sub printaccum {
23   if ($once) {
24     if ($ARGV[0] eq "-comma") {
25       print ", ";
26     }
27   } else {
28     print ", ";
29   }
30   $once=0;
31   print '"';
32   print $accum;
33   print '"';
34 }
35
36 while ($c = getc) {
37   if ($quote_open) {
38     if ($c eq $quote_char) {
39       $quote_open = 0;
40     } elsif ($c eq '"') {
41       $accum .= '\"';
42     } else {
43       $accum .= $c;
44     }
45   } else {
46     if (($c eq ' ') || ($c eq "\n")) {
47       if (!($accum eq "")) {
48         printaccum;
49         $accum = "";
50       }
51     } elsif ($c eq "\\") {
52       $accum .= $c;
53       $c = getc;
54       $accum .= $c;
55     } elsif (($c eq '"') || ($c eq "\'")) {
56       $quote_open = 1;
57       $quote_char = $c;
58     } else {
59       $accum .= $c
60     }
61   }
62 }