kc3-lang/automake/bin/gen-perl-protos

• Show log

  Commit

• Hash : ce70cf4b
  Author :
  Date : 2013-05-09T11:57:20
  

  build: move automake and aclocal in 'bin' subdir
  
  * automake.in: Rename ...
  * bin/automake.in: ... like this.
  * aclocal.in: Rename ...
  * bin/aclocal.in: ... like this.
  * Makefile.am: Move parts that dealt with the building/distribution
  of aclocal and Automake ..
  * bin/Makefile.inc): ... in this new included fragment.  Adjust as
  needed, and make deliberate use of the '%D%' substitution.
  * lib/gen-perl-protos: Move ...
  * bin/gen-perl-protos: ... here.
  * bootstrap.sh, configure.ac, maintainer/rename-tests,
  t/wrap/aclocal.in, t/wrap/automake.in, doc/Makefile.inc,
  t/ax/tap-setup.sh, .gitignore: Adjust.
  * maintainer/syntax-checks.mk: Likewise, and enhance a little.
  
  Signed-off-by: Stefano Lattarini <stefano.lattarini@gmail.com>
  

Download

• bin/gen-perl-protos

• #!/usr/bin/env perl
  #
  # Copyright (C) 2013 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;
        }
    }
  

Download