Experimental support for import of more options from Configure
[openssl.git] / util / extract-names.pl
1 #!/usr/bin/perl
2
3 $/ = "";                        # Eat a paragraph at once.
4 while(<STDIN>) {
5     chop;
6     s/\n/ /gm;
7     if (/^=head1 /) {
8         $name = 0;
9     } elsif ($name) {
10         if (/ - /) {
11             s/ - .*//;
12             s/,\s+/,/g;
13             s/\s+,/,/g;
14             s/^\s+//g;
15             s/\s+$//g;
16             s/\s/_/g;
17             push @words, split ',';
18         }
19     }
20     if (/^=head1 *NAME *$/) {
21         $name = 1;
22     }
23 }
24
25 print join("\n", @words),"\n";
26