All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
fix_headers_v07_10_00.pl
Go to the documentation of this file.
1 use strict;
2 
3 use vars qw(%subdir_list);
4 use vars qw(%header_list);
5 
6 # explicit headers to avoid conflicts with experiment code
7 BEGIN { %header_list = (
8 "larpandora/LArPandoraObjects/PFParticleMetadata.h" => "lardataobj/RecoBase/PFParticleMetadata.h",
9 "larsim/LArG4/ParticleFilters.h" => "larcorealg/CoreUtils/ParticleFilters.h"
10  ); }
11 
12 foreach my $inc (sort keys %header_list) {
13  s&^(\s*#include\s+["<])\Q$inc\E(.*)&${1}$header_list{$inc}${2}& and last;
14 }
15 
16 # also deal with namespace
17 s/larg4::PositionInVolumeFilter/util::PositionInVolumeFilter/g;
18 s/larpandoraobj::PFParticleMetadata/recob::PFParticleMetadata/g;
19 
use File::Basename qw(fileparse)
foreach my $inc(sort keys%subdir_list)
Definition: fix_headers.pl:100
my($xml, $fcl, $workdir, $check, $merge)
BEGIN
Definition: fix_cmake.pl:4
use strict
Definition: SubmitCommand.pl:8
then echo File list $list not found else cat $list while read file do echo $file sed s
Definition: file_to_url.sh:60