diff options
author | cvs2svn <cvs2svn> | 2002-11-29 15:01:01 +0000 |
---|---|---|
committer | cvs2svn <cvs2svn> | 2002-11-29 15:01:01 +0000 |
commit | d5c79928efbd213b5d4dbbba3dc51624c6a1709e (patch) | |
tree | 39537bf107d4f410ae6415caaca5f0f350349ff3 /util | |
parent | 37529750e2a0d927df2926a9e5179680971488a9 (diff) | |
parent | db3758923b4db690feb6ca64562d21cc3d1f3abe (diff) |
This commit was manufactured by cvs2svn to create branch
'OpenSSL_0_9_7-stable'.
Diffstat (limited to 'util')
-rw-r--r-- | util/extract-names.pl | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/util/extract-names.pl b/util/extract-names.pl new file mode 100644 index 0000000000..d413a045cc --- /dev/null +++ b/util/extract-names.pl @@ -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"; + |