# Copyright (C) 2011 D. V. Wiebe
#
##########################################################################
#
# This file is part of the GetData project.
#
# GetData is free software; you can redistribute it and/or modify it under
# the terms of the GNU Lesser General Public License as published by the
# Free Software Foundation; either version 2.1 of the License, or (at your
# option) any later version.
#
# GetData 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 Lesser General Public
# License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with GetData; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
#
use strict;
use strict;
use warnings;

my $preamble = 1;

# Generate the list
my @funclist;
for (<>) {
  $preamble = 0 if (/^MODULE/);
  next if $preamble;
  next unless /^(\w*)\(/;
  push @funclist, $1;
}
my $funclist = join(' ', sort @funclist);

for (<STDIN>) {
  s/\@FUNCLIST@/$funclist/g;
  print $_;
}
