4 use vars
qw(%dir_list);
6 "GFWPARDAT" =>
"GENIE::GFwParDat",
7 "GFWALG" =>
"GENIE::GFwAlg",
8 "GPHDISXS" =>
"GENIE::GPhDISXS",
9 "GPHPDF" =>
"GENIE::GPhPDF",
10 "GPHXSIG" =>
"GENIE::GPhXSIg",
11 "GPHDISEG" =>
"GENIE::GPhDISEG",
12 "GPHHADNZ" =>
"GENIE::GPhHadnz",
13 "GPHDCY" =>
"GENIE::GPhDcy",
14 "GFWEG" =>
"GENIE::GFwEG",
15 "GTLFLX" =>
"GENIE::GTlFlx",
16 "GFWGHEP" =>
"GENIE::GFwGHEP",
17 "GFWINT" =>
"GENIE::GFwInt",
18 "GFWMSG" =>
"GENIE::GFwMsg",
19 "GPHNUCLST" =>
"GENIE::GPhNuclSt",
20 "GFWNUM" =>
"GENIE::GFwNum",
21 "GFWREG" =>
"GENIE::GFwReg",
22 "GPHCMN" =>
"GENIE::GPhCmn",
23 "GFWUTL" =>
"GENIE::GFwUtl",
24 "GFWNTP" =>
"GENIE::GFwNtp",
25 "GPHHADTRANSP" =>
"GENIE::GPhHadTransp",
26 "GPHDEEX" =>
"GENIE::GPhDeEx",
27 "GPHAMNGXS" =>
"GENIE::GPhAMNGXS",
28 "GPHAMNGEG" =>
"GENIE::GPhAMNGEG",
29 "GPHCHMXS" =>
"GENIE::GPhChmXS",
30 "GPHCOHXS" =>
"GENIE::GPhCohXS",
31 "GPHCOHEG" =>
"GENIE::GPhCohEG",
32 "GPHDFRCXS" =>
"GENIE::GPhDfrcXS",
33 "GPHDFRCEG" =>
"GENIE::GPhDfrcEG",
34 "GPHGLWRESXS" =>
"GENIE::GPhGlwResXS",
35 "GPHGLWRESEG" =>
"GENIE::GPhGlwResEG",
36 "GPHIBDXS" =>
"GENIE::GPhIBDXS",
37 "GPHIBDEG" =>
"GENIE::GPhIBDEG",
38 "GPHMNUCXS" =>
"GENIE::GPhMNucXS",
39 "GPHMNUCEG" =>
"GENIE::GPhMNucEG",
40 "GPHMEL" =>
"GENIE::GPhMEL",
41 "GPHNUELXS" =>
"GENIE::GPhNuElXS",
42 "GPHNUELEG" =>
"GENIE::GPhNuElEG",
43 "GPHQELXS" =>
"GENIE::GPhQELXS",
44 "GPHQELEG" =>
"GENIE::GPhQELEG",
45 "GPHRESXS" =>
"GENIE::GPhResXS",
46 "GPHRESEG" =>
"GENIE::GPhResEG",
47 "GPHSTRXS" =>
"GENIE::GPhStrXS",
48 "GPHSTREG" =>
"GENIE::GPhStrEG",
49 "GPHNDCY" =>
"GENIE::GPhNDcy",
50 "GTLGEO" =>
"GENIE::GTlGeo",
51 "GRWFWK" =>
"GENIE::GRwFwk",
52 "GRWIO" =>
"GENIE::GRwIO",
53 "GRWCLC" =>
"GENIE::GRwClc",
54 "LOG4CPP" =>
"log4cpp::log4cpp"
57 foreach my $lib (sort keys %dir_list) {
58 next
if m&add_subdirectory&i;
59 next
if m&find_ups_product&i;
60 next
if m&cet_find_library&i;
61 next
if m&simple_plugin&i;
62 next
if m&create_version_variables&i;
63 next
if m&SUBDIRNAME&i;
65 next
if m&LIBRARY_NAME&i;
67 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
68 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{
$lib}${1}${2}&
g and last;
73 s&\$\{LOG4CPP\}&log4cpp::log4cpp&;
74 s&\$\{GFWMSG\}&GFWMSG&;
75 s&\$\{GFWREG\}&GFWREG&;
76 s&\$\{GFWALG\}&GFWALG&;
77 s&\$\{GFWINT\}&GFWINT&;
78 s&\$\{GFWGHEP\}&GFWGHEP&;
79 s&\$\{GFWNUM\}&GFWNUM&;
80 s&\$\{GFWUTL\}&GFWUTL&;
81 s&\$\{GFWPARDAT\}&GFWPARDAT&;
83 s&\$\{GFWNTP\}&GFWNTP&;
84 s&\$\{GPHXSIG\}&GPHXSIG&;
85 s&\$\{GPHPDF\}&GPHPDF&;
86 s&\$\{GPHNUCLST\}&GPHNUCLST&;
87 s&\$\{GPHCMN\}&GPHCMN&;
88 s&\$\{GPHHADTRANSP\}&GPHHADTRANSP&;
89 s&\$\{GPHHADNZ\}&GPHHADNZ&;
90 s&\$\{GPHDEEX\}&GPHDEEX&;
91 s&\$\{GPHAMNGXS\}&GPHAMNGXS&;
92 s&\$\{GPHAMNGEG\}&GPHAMNGEG&;
93 s&\$\{GPHCHMXS\}&GPHCHMXS&;
94 s&\$\{GPHCOHXS\}&GPHCOHXS&;
95 s&\$\{GPHCOHEG\}&GPHCOHEG&;
96 s&\$\{GPHDISXS\}&GPHDISXS&;
97 s&\$\{GPHDISEG\}&GPHDISEG&;
98 s&\$\{GPHDFRCXS\}&GPHDFRCXS&;
99 s&\$\{GPHDFRCEG\}&GPHDFRCEG&;
100 s&\$\{GPHGLWRESXS\}&GPHGLWRESXS&;
101 s&\$\{GPHGLWRESEG\}&GPHGLWRESEG&;
102 s&\$\{GPHIBDXS\}&GPHIBDXS&;
103 s&\$\{GPHIBDEG\}&GPHIBDEG&;
104 s&\$\{GPHHADTENS\}&GPHHADTENS&;
105 s&\$\{GPHMNUCXS\}&GPHMNUCXS&;
106 s&\$\{GPHMNUCEG\}&GPHMNUCEG&;
107 s&\$\{GPHMEL\}&GPHMEL&;
108 s&\$\{GPHNUELXS\}&GPHNUELXS&;
109 s&\$\{GPHNUELEG\}&GPHNUELEG&;
110 s&\$\{GPHQELXS\}&GPHQELXS&;
111 s&\$\{GPHQELEG\}&GPHQELEG&;
112 s&\$\{GPHRESXS\}&GPHRESXS&;
113 s&\$\{GPHRESEG\}&GPHRESEG&;
114 s&\$\{GPHSTRXS\}&GPHSTRXS&;
115 s&\$\{GPHSTREG\}&GPHSTREG&;
116 s&\$\{GPHNDCY\}&GPHNDCY&;
117 s&\$\{GPHDCY\}&GPHDCY&;
118 s&\$\{GTLGEO\}>LGEO&;
119 s&\$\{GTLFLX\}>LFLX&;
120 s&\$\{GRWFWK\}&GRWFWK&;
121 s&\$\{GRWIO\}&GRWIO&;
122 s&\$\{GRWCLC\}&GRWCLC&;
123 s&\$\{DK2NU_TREE\}&DK2NU_TREE&;
124 s&\$\{DK2NU_GENIE\}&DK2NU_GENIE&;
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)