K2.6 patches and update.

[tomato.git] / release / src / router / openssl / util / extract-names.pl

#!/usr/bin/perl

$/ = "";                        # Eat a paragraph at once.
while(<STDIN>) {
    chop;
    s/\n/ /gm;
    if (/^=head1 /) {
        $name = 0;
    } elsif ($name) {
        if (/ - /) {
            s/ - .*//;
            s/,\s+/,/g;
            s/\s+,/,/g;
            s/^\s+//g;
            s/\s+$//g;
            s/\s/_/g;
            push @words, split ',';
        }
    }
    if (/^=head1 *NAME *$/) {
        $name = 1;
    }
}

print join("\n", @words),"\n";