Go to the source code of this file.
|
use vars | qw (%dir_list) |
|
foreach my | $lib (sort keys%dir_list) |
|
foreach my $lib |
( |
sort keys% |
dir_list | ) |
|
Definition at line 11 of file fix-cmake-ifdh.pl.
12 next
if m&add_subdirectory&i;
13 next
if m&find_ups_product&i;
14 next
if m&cet_find_library&i;
15 next
if m&simple_plugin&i;
16 next
if m&create_version_variables&i;
17 next
if m&SUBDIRNAME&i;
19 next
if m&LIBRARY_NAME&i;
21 next
if m&ifdh::ifdh&i;
23 next
if m&ifbeam::ifbeam&i;
24 next
if m&nucondb::nucondb&i;
25 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
26 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{
$lib}${1}${2}&
g and last;
tuple m
now if test mode generate materials, CRT shell, world, gdml header else just generate CRT shell for u...
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)
use vars qw |
( |
% |
dir_list | ) |
|
Initial value:{ %dir_list = (
"IFBEAM" => "ifbeam::ifbeam",
"WDA" => "wda::wda",
"IFDH" => "ifdh::ifdh",
"NUCONDB" => "nucondb::nucondb"
)
Definition at line 4 of file fix-cmake-ifdh.pl.