generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

This commit was manufactured by cvs2svn to create branch

Browse Source 
'OpenSSL_0_9_7-stable'.
This commit is contained in:
cvs2svn 2002-11-29 15:01:01 +00:00
commit d5c79928ef
1 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
util/extract-names.pl Normal file
View File

@ -0,0 +1,22 @@
#!/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";