3 use vars
qw(%subdir_list);
4 use vars
qw(%header_list);
6 # explicit headers to avoid conflicts with experiment code
8 "lardata/DetectorInfo/ClockConstants.h" =>
"lardataalg/DetectorInfo/ClockConstants.h",
9 "lardata/DetectorInfo/DetectorClocksException.h" =>
"lardataalg/DetectorInfo/DetectorClocksException.h",
10 "lardata/DetectorInfo/DetectorClocks.h" =>
"lardataalg/DetectorInfo/DetectorClocks.h",
11 "lardata/DetectorInfo/DetectorClocksStandard.h" =>
"lardataalg/DetectorInfo/DetectorClocksStandard.h",
12 "lardata/DetectorInfo/DetectorClocksStandardTestHelpers.h" =>
"lardataalg/DetectorInfo/DetectorClocksStandardTestHelpers.h",
13 "lardata/DetectorInfo/DetectorClocksStandardTriggerLoader.h" =>
"lardataalg/DetectorInfo/DetectorClocksStandardTriggerLoader.h",
14 "lardata/DetectorInfo/DetectorProperties.h" =>
"lardataalg/DetectorInfo/DetectorProperties.h",
15 "lardata/DetectorInfo/DetectorPropertiesStandard.h" =>
"lardataalg/DetectorInfo/DetectorPropertiesStandard.h",
16 "lardata/DetectorInfo/DetectorPropertiesStandardTestHelpers.h" =>
"lardataalg/DetectorInfo/DetectorPropertiesStandardTestHelpers.h",
17 "lardata/DetectorInfo/ElecClock.h" =>
"lardataalg/DetectorInfo/ElecClock.h",
18 "lardata/DetectorInfo/LArProperties.h" =>
"lardataalg/DetectorInfo/LArProperties.h",
19 "lardata/DetectorInfo/LArPropertiesStandard.h" =>
"lardataalg/DetectorInfo/LArPropertiesStandard.h",
20 "lardata/DetectorInfo/LArPropertiesStandardTestHelpers.h" =>
"lardataalg/DetectorInfo/LArPropertiesStandardTestHelpers.h",
21 "lardata/DetectorInfo/RunHistory.h" =>
"lardataalg/DetectorInfo/RunHistory.h",
22 "lardata/DetectorInfo/RunHistoryStandard.h" =>
"lardataalg/DetectorInfo/RunHistoryStandard.h"
25 foreach my $inc (sort keys %header_list) {
26 s&^(
\s*#
include\s+[
"<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
use File::Basename qw(fileparse)
my($xml, $fcl, $workdir, $check, $merge)
then echo File list $list not found else cat $list while read file do echo $file sed s