4 use vars
qw(%dir_list);
6 "larcoreobj_SimpleTypesAndConstants" =>
"larcoreobj::SimpleTypesAndConstants",
7 "larcoreobj_SummaryData" =>
"larcoreobj::SummaryData",
8 "larcorealg_CoreUtils" =>
"larcorealg::CoreUtils",
9 "larcorealg_GeoAlgo" =>
"larcorealg::GeoAlgo",
10 "larcorealg_Geometry" =>
"larcorealg::Geometry",
11 "larcorealg_GeometryTestLib" =>
"larcorealg::GeometryTestLib",
12 "larcorealg_TestUtils" =>
"larcorealg::TestUtils",
13 "lardataobj_AnalysisBase" =>
"lardataobj::AnalysisBase",
14 "lardataobj_MCBase" =>
"lardataobj::MCBase",
15 "lardataobj_OpticalDetectorData" =>
"lardataobj::OpticalDetectorData",
16 "lardataobj_RawData" =>
"lardataobj::RawData",
17 "lardataobj_RecoBase" =>
"lardataobj::RecoBase",
18 "lardataobj_Simulation" =>
"lardataobj::Simulation",
19 "lardataalg_DetectorInfo" =>
"lardataalg::DetectorInfo",
20 "lardataalg_MCDumpers" =>
"lardataalg::MCDumpers",
21 "larvecutils_MarqFitAlg" =>
"larvecutils::MarqFitAlg"
24 foreach my $lib (sort keys %dir_list) {
25 next
if m&add_subdirectory&i;
26 next
if m&find_ups_product&i;
27 next
if m&cet_find_library&i;
28 next
if m&simple_plugin&i;
29 next
if m&create_version_variables&i;
30 next
if m&SUBDIRNAME&i;
32 next
if m&LIBRARY_NAME&i;
34 next
if m&fhiclcpp::fhiclcpp&i;
35 next
if m&canvas::canvas&i;
36 next
if m&cetlib::cetlib&i;
37 next
if m&cetlib_except::cetlib_except&i;
38 next
if m&messagefacility::MF&i;
39 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
40 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)