3 use vars
qw(%dir_list);
6 "larrecodnn_ImagePatternAlgs_Tensorflow_WaveformRecogTools_WaveformRecogTf_tool" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Tools_WaveformRecogTf_tool",
7 "larrecodnn_ImagePatternAlgs_Tensorflow_WaveformRecogTools_WaveformRecogTrtis_tool" =>
"larrecodnn_ImagePatternAlgs_Triton_Tools_WaveformRecogTrtis_tool",
8 "larrecodnn_ImagePatternAlgs_Tensorflow_PointIdAlgTools_PointIdAlgTrtis_tool" =>
"larrecodnn_ImagePatternAlgs_Triton_Tools_PointIdAlgTrtis_tool",
9 "larrecodnn_ImagePatternAlgs_Tensorflow_PointIdAlgTools_PointIdAlgTf_tool" =>
"larrecodnn_ImagePatternAlgs_Tensorflow_Tools_PointIdAlgTf_tool",
10 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EvaluateROIEff_module" =>
"larrecodnn_ImagePatternAlgs_Modules_EvaluateROIEff_module",
11 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EmTrackMichelIdTl_module" =>
"larrecodnn_ImagePatternAlgs_Modules_EmTrackMichelIdTl_module",
12 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EmTrackClusterId2outTl_module" =>
"larrecodnn_ImagePatternAlgs_Modules_EmTrackClusterId2outTl_module",
13 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_EmTrackClusterId3outTl_module" =>
"larrecodnn_ImagePatternAlgs_Modules_EmTrackClusterId3outTl_module",
14 "larrecodnn_ImagePatternAlgs_Tensorflow_PointIdAlgTools_PointIdAlgKeras_tool" =>
"larrecodnn_ImagePatternAlgs_Keras_Tools_PointIdAlgKeras_tool",
15 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_PointIdEffTest_module" =>
"larrecodnn_ImagePatternAlgs_Modules_PointIdEffTest_module",
16 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_CheckCNNScore_module" =>
"larrecodnn_ImagePatternAlgs_Modules_CheckCNNScore_module",
17 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_WaveformRoiFinder_module" =>
"larrecodnn_ImagePatternAlgs_Modules_WaveformRoiFinder_module",
18 "larrecodnn_ImagePatternAlgs_Tensorflow_Modules_RawWaveformDump_module" =>
"larrecodnn_ImagePatternAlgs_Modules_RawWaveformDump_module"
21 foreach my $lib (sort keys %dir_list) {
22 next
if m&add_subdirectory&i;
23 next
if m&simple_plugin&i;
24 next
if m&SUBDIRNAME&i;
26 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
27 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)