diff options
Diffstat (limited to 'util/extract-names.pl')
| -rw-r--r-- | util/extract-names.pl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/util/extract-names.pl b/util/extract-names.pl deleted file mode 100644 index 2a24e1a99b..0000000000 --- a/util/extract-names.pl +++ /dev/null @@ -1,33 +0,0 @@ -#! /usr/bin/env perl -# Copyright 2002-2016 The OpenSSL Project Authors. All Rights Reserved. -# -# Licensed under the OpenSSL license (the "License"). You may not use -# this file except in compliance with the License. You can obtain a copy -# in the file LICENSE in the source distribution or at -# https://www.openssl.org/source/license.html - - -$/ = ""; # Eat a paragraph at once. -while(<STDIN>) { - s|\R$||; - 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"; - |