3 use vars
qw(%dir_list);
5 "art_Persistency_Common" =>
"art_Persistency_Common canvas_Persistency_Common",
6 "art_Persistency_Provenance" =>
"art_Persistency_Provenance canvas_Persistency_Provenance",
7 "art_Persistency_Common_dict" =>
"canvas_Persistency_Common_dict",
8 "art_Persistency_StdDictionaries" =>
"canvas_Persistency_StdDictionaries",
9 "art_Persistency_StdDictionaries_dict" =>
"canvas_Persistency_StdDictionaries_dict",
10 "art_Persistency_WrappedStdDictionaries" =>
"canvas_Persistency_WrappedStdDictionaries",
11 "art_Persistency_WrappedStdDictionaries_dict" =>
"canvas_Persistency_WrappedStdDictionaries_dict",
12 "art_Utilities" =>
"art_Utilities canvas_Utilities",
13 "Colors_service" =>
"nutools_EventDisplayBase_Colors_service",
14 "DBI_service" =>
"nutools_IFDatabase_DBI_service",
15 "EventDisplayBase" =>
"nutools_EventDisplayBase",
16 "EventDisplay_service" =>
"nutools_EventDisplayBase_EventDisplay_service",
17 "EventGeneratorBaseCRY" =>
"nutools_EventGeneratorBase_CRY",
18 "EventGeneratorBaseGENIE" =>
"nutools_EventGeneratorBase_GENIE",
19 "EventGeneratorBaseGiBUU" =>
"nutools_EventGeneratorBase_GiBUU",
20 "EventGeneratorBase_test_EventGeneratorTest_module" =>
"nutools_EventGeneratorBase_test_EventGeneratorTest_module",
21 "G4Base" =>
"nutools_G4Base",
22 "IFDatabase" =>
"nutools_IFDatabase",
23 "MagneticField_service" =>
"nutools_MagneticField_MagneticField_service",
24 "NuBeamWeights" =>
"nutools_NuBeamWeights",
25 "NuReweightArt" =>
"nutools_NuReweight_art",
26 "NuReweight" =>
"nutools_NuReweight",
27 "ReweightAna_module" =>
"nutools_NuReweight_art_ReweightAna_module",
28 "ScanOptions_service" =>
"nutools_EventDisplayBase_ScanOptions_service",
29 "SimulationBase_dict" =>
"nutools_SimulationBase_dict",
30 "SimulationBase" =>
"nusimdata_SimulationBase",
31 "larcore_SummaryData" =>
"larcoreobj_SummaryData",
32 "lardata_AnalysisBase_dict" =>
"lardataobj_AnalysisBase_dict",
33 "lardata_AnalysisBase" =>
"lardataobj_AnalysisBase",
34 "lardata_MCBase_dict" =>
"lardataobj_MCBase_dict",
35 "lardata_MCBase" =>
"lardataobj_MCBase",
36 "lardata_OpticalDetectorData_dict" =>
"lardataobj_OpticalDetectorData_dict",
37 "lardata_OpticalDetectorData" =>
"lardataobj_OpticalDetectorData",
38 "lardata_RawData_dict" =>
"lardataobj_RawData_dict",
39 "lardata_RawData" =>
"lardataobj_RawData",
40 "lardata_RecoBase_dict" =>
"lardataobj_RecoBase_dict",
41 "lardata_RecoBase" =>
"lardataobj_RecoBase",
42 "larsim_Simulation_dict" =>
"larsimobj_Simulation_dict",
43 "larsim_Simulation" =>
"larsim_Simulation larsimobj_Simulation"
46 foreach my $lib (sort keys %dir_list) {
47 next
if m&art_Persistency_Common canvas_Persistency_Common&i;
48 next
if m&art_Persistency_Provenance canvas_Persistency_Provenance&i;
49 next
if m&art_Utilities canvas_Utilities&i;
50 next
if m&larsim_Simulation larsimobj_Simulation&i;
51 next
if m&larsim_Simulation lardataobj_Simulation&i;
52 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
53 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{
$lib}${1}${2}&
g and last;
57 s/\$\{ART_PERSISTENCY_COMMON\}/art_Persistency_Common canvas_Persistency_Common/
g;
58 s/\$\{ART_PERSISTENCY_PROVENANCE\}/art_Persistency_Provenance canvas_Persistency_Provenance/
g;
59 s/\$\{ART_UTILITIES\}/art_Utilities canvas_Utilities/
g;
60 s/\$\{SIMULATIONBASE\}/nusimdata_SimulationBase/
g;
61 s/\$\{G4BASE\}/nutools_G4Base/
g;
62 s/\$\{EVENTGENERATORBASECRY\}/nutools_EventGeneratorBase_CRY/
g;
63 s/\$\{EVENTGENERATORBASEGENIE\}/nutools_EventGeneratorBase_GENIE/
g;
64 s/\$\{EVENTGENERATORBASEGIBUU\}/nutools_EventGeneratorBase_GiBUU/
g;
65 s/\$\{EVENTDISPLAYBASE\}/nutools_EventDisplayBase/
g;
66 s/\$\{IFDATABASE\}/nutools_IFDatabase/
g;
67 s/\$\{NUREWEIGHT\}/nutools_NuReweight/
g;
68 s/\$\{MAGNETICFIELD_SERVICE\}/nutools_MagneticField_MagneticField_service/
g;
69 s/larsimobj_Simulation/lardataobj_Simulation/
g;
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)