3 use vars
qw(%dir_list);
5 "larana_Calorimetry_BezierCalorimetry_module" =>
"larreco_Calorimetry_BezierCalorimetry_module",
6 "larana_Calorimetry_Calorimetry_module" =>
"larreco_Calorimetry_Calorimetry_module",
7 "larana_Calorimetry_GeneralCalorimetry_module" =>
"larreco_Calorimetry_GeneralCalorimetry_module",
8 "larana_Calorimetry_PrintCalorimetry_module" =>
"larreco_Calorimetry_PrintCalorimetry_module",
9 "larana_Calorimetry_TrackCalorimetry_module" =>
"larreco_Calorimetry_TrackCalorimetry_module",
10 "larana_OpticalDetector_LEDCalibrationAna_module" =>
"larreco_OpticalDetector_LEDCalibrationAna_module",
11 "larana_Calorimetry" =>
"larreco_Calorimetry",
12 "lardata_AnalysisAlg" =>
"larreco_Calorimetry",
13 "lardata_RecoObjects" =>
"lardata_RecoObjects larreco_Deprecated",
14 "larsim_Simulation" =>
"larsim_Simulation nutools_ParticleNavigation"
17 foreach my $lib (sort keys %dir_list) {
18 next
if m&add_subdirectory&i;
19 next
if m&simple_plugin&i;
20 next
if m&SUBDIRNAME&i;
22 next
if m&lardata_RecoObjects larreco_Deprecated&i;
23 next
if m&larsim_Simulation nutools_ParticleNavigation&i;
24 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
25 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{
$lib}${1}${2}&
g and last;
use File::Basename qw(fileparse)
tuple m
now if test mode generate materials, CRT shell, world, gdml header else just generate CRT shell for u...
my($xml, $fcl, $workdir, $check, $merge)
return match has_match and(match.match_pdg==11 or match.match_pdg==-11)
then echo File list $list not found else cat $list while read file do echo $file sed s
foreach my $lib(sort keys%dir_list)