fix EC_GROUP_copy for EC_GFp_nist_method()
[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/[ \t,]+/ /g;
13             push @words, split ' ';
14         }
15     }
16     if (/^=head1 *NAME *$/) {
17         $name = 1;
18     }
19 }
20
21 print join("\n", @words),"\n";
22