01c0275876
Change menuGlobal.dbd and stdRecords.dbd to be generated as a list of unexpanded include statements, not expanded out as they have been recently on this branch. This means any .dbd.pod files in those lists don't have to have been filtered to remove the POD statements which significantly simplifies the dependency graph. I had experienced build loops at times, which this change should prevent.
35 lines
904 B
Perl
35 lines
904 B
Perl
#!/usr/bin/env perl
|
|
#*************************************************************************
|
|
# Copyright (c) 2014 UChicago Argonne LLC, as Operator of Argonne
|
|
# National Laboratory.
|
|
# EPICS BASE is distributed subject to a Software License Agreement found
|
|
# in file LICENSE that is included with this distribution.
|
|
#*************************************************************************
|
|
#
|
|
# $Revision-Id$
|
|
|
|
use strict;
|
|
use File::Basename;
|
|
|
|
sub Usage {
|
|
my $txt = shift;
|
|
|
|
print "Usage: makeIncludeDbd.pl input file list ... outfile\n";
|
|
print "Error: $txt\n" if $txt;
|
|
exit 2;
|
|
}
|
|
|
|
Usage("No input files specified")
|
|
unless $#ARGV > 1;
|
|
|
|
my $target = pop @ARGV;
|
|
my @inputs = map { basename($_); } @ARGV;
|
|
|
|
open(my $OUT, '>', $target)
|
|
or die "$0: Can't create $target, $!\n";
|
|
|
|
print $OUT "# Generated file $target\n\n";
|
|
print $OUT map { "include \"$_\"\n"; } @inputs;
|
|
|
|
close $OUT;
|