diff options
author | Mathieu Lirzin <mthl@gnu.org> | 2017-08-31 19:23:42 +0200 |
---|---|---|
committer | Mathieu Lirzin <mthl@gnu.org> | 2017-08-31 19:23:42 +0200 |
commit | f389ecb89acb7f51b6a9e8f41ebad3e45ac905a2 (patch) | |
tree | 9380abfd73fe36221b5378562629ef2da539e862 /bin/gen-perl-protos | |
parent | cc7231cc3668a387ae36905efca11f9d236c8df6 (diff) | |
parent | e94c0186d98d70df2f18c17622ee75f80f95e17b (diff) | |
download | automake-f389ecb89acb7f51b6a9e8f41ebad3e45ac905a2.tar.gz |
Merge branch 'minor'
Diffstat (limited to 'bin/gen-perl-protos')
-rwxr-xr-x | bin/gen-perl-protos | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/bin/gen-perl-protos b/bin/gen-perl-protos deleted file mode 100755 index 215d275b8..000000000 --- a/bin/gen-perl-protos +++ /dev/null @@ -1,36 +0,0 @@ -#!/usr/bin/env perl -# -# Copyright (C) 2013-2017 Free Software Foundation, Inc. -# -# This program is free software: you can redistribute it and/or modify -# it under the terms of the GNU General Public License as published by -# the Free Software Foundation; either version 3, or (at your option) -# any later version. -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program. If not, see <http://www.gnu.org/licenses/>. - -use warnings; -use strict; - -my @lines = <>; -my @protos = map { /^(sub \w+\s*\(.*\))/ ? ("$1;") : () } @lines; - -while (defined ($_ = shift @lines)) - { - if (/^#!.* prototypes/i) - { - print "# BEGIN AUTOMATICALLY GENERATED PROTOTYPES\n"; - print join ("\n", sort @protos) . "\n"; - print "# END AUTOMATICALLY GENERATED PROTOTYPES\n"; - } - else - { - print; - } - } |