From eca4feb580cffd6af474f599efe3fe99505a525c Mon Sep 17 00:00:00 2001
From: Rob Austein <sra@hactrn.net>
Date: Tue, 20 Jun 2006 17:32:05 +0000
Subject: Importing OpenSSL 0.9.8b

svn path=/openssl/vendor/current/CHANGES; revision=1
---
 openssl/vendor/current/util/extract-names.pl | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 openssl/vendor/current/util/extract-names.pl

(limited to 'openssl/vendor/current/util/extract-names.pl')

diff --git a/openssl/vendor/current/util/extract-names.pl b/openssl/vendor/current/util/extract-names.pl
new file mode 100644
index 00000000..35bd6ed8
--- /dev/null
+++ b/openssl/vendor/current/util/extract-names.pl
@@ -0,0 +1,26 @@
+#!/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";
+
-- 
cgit v1.2.3