All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
fix-cmake-genie.pl
Go to the documentation of this file.
1 use strict;
2 
3 
4 use vars qw(%dir_list);
5 BEGIN { %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"
55  ); }
56 
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;
64  next if m&SUBDIRS&i;
65  next if m&LIBRARY_NAME&i;
66  next if m&PACKAGE&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;
69 }
70 
71 s&\$\{GSL\}&GSL&;
72 s&\$\{XML2\}&XML2&;
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&;
82 s&\$\{GFWEG\}&GFWEG&;
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\}&GTLGEO&;
119 s&\$\{GTLFLX\}&GTLFLX&;
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)
BEGIN_PROLOG g
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)
BEGIN
Definition: fix_cmake.pl:4
return match has_match and(match.match_pdg==11 or match.match_pdg==-11)
use strict
Definition: SubmitCommand.pl:8
then echo File list $list not found else cat $list while read file do echo $file sed s
Definition: file_to_url.sh:60
foreach my $lib(sort keys%dir_list)
Definition: fix_cmake.pl:185