Main Page
Related Pages
Modules
Namespaces
Classes
Files
File List
File Members
All
Classes
Namespaces
Files
Functions
Variables
Typedefs
Enumerations
Enumerator
Friends
Macros
Groups
Pages
srcs
larsoft
bin
v07_10_00
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
qw
use File::Basename qw(fileparse)
$inc
foreach my $inc(sort keys%subdir_list)
Definition:
fix_headers.pl:100
my
my($xml, $fcl, $workdir, $check, $merge)
BEGIN
BEGIN
Definition:
fix_cmake.pl:4
strict
use strict
Definition:
SubmitCommand.pl:8
s
then echo File list $list not found else cat $list while read file do echo $file sed s
Definition:
file_to_url.sh:60
Generated by
1.8.5