Commit d5c79928 authored by cvs2svn's avatar cvs2svn
Browse files

This commit was manufactured by cvs2svn to create branch 

'OpenSSL_0_9_7-stable'.
parents 37529750 db375892

util/extract-names.pl

0 → 100644
+22 −0
Original line number Diff line number Diff line 
#!/usr/bin/perl



$/ = "";			# Eat a paragraph at once.

while(<STDIN>) {

    chop;

    s/\n/ /gm;

    if (/^=head1 /) {

	$name = 0;

    } elsif ($name) {

	if (/ - /) {

	    s/ - .*//;

	    s/[ \t,]+/ /g;

	    push @words, split ' ';

	}

    }

    if (/^=head1 *NAME *$/) {

	$name = 1;

    }

}



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