3 use vars
qw(%dir_list);
6 "larreco_RecoAlg_ImagePatternAlgs_Keras" =>
"larrecodnn_ImagePatternAlgs_Keras",
7 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_CheckCNNScore_module" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Modules_CheckCNNScore_module",
8 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_EmTrackClusterId2out_module" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EmTrackClusterId2out_module",
9 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_EmTrackClusterId3out_module" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EmTrackClusterId3out_module",
10 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_EmTrackMichelId_module" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EmTrackMichelId_module",
11 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_ParticleDecayId_module" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Modules_ParticleDecayId_module",
12 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_PointIdEffTest_module" =>
"larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_PointIdEffTest_module",
13 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_Modules_PointIdTrainingData_module" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Modules_PointIdTrainingData_module",
14 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_PointIdAlg" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_PointIdAlg",
15 "larreco_RecoAlg_ImagePatternAlgs_Tensorflow_TF" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_TF"
18 foreach my $lib (sort keys %dir_list) {
19 next
if m&add_subdirectory&i;
20 next
if m&simple_plugin&i;
21 next
if m&SUBDIRNAME&i;
23 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
24 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)