All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros Groups Pages
fix-cmake-ifdh.pl
Go to the documentation of this file.
1 use strict;
2 
3 use vars qw(%dir_list);
4 BEGIN { %dir_list = (
5  "IFBEAM" => "ifbeam::ifbeam",
6  "WDA" => "wda::wda",
7  "IFDH" => "ifdh::ifdh",
8  "NUCONDB" => "nucondb::nucondb"
9  ); }
10 
11 foreach my $lib (sort keys %dir_list) {
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;
18  next if m&SUBDIRS&i;
19  next if m&LIBRARY_NAME&i;
20  next if m&PACKAGE&i;
21  next if m&ifdh::ifdh&i;
22  next if m&wda::wda&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;
27 }
28 
29 
30 s&\$\{IFDH\}&ifdh::ifdh&;
31 s&\$\{ifdh::ifdh\}&ifdh::ifdh&;
32 s&\$\{IFBEAM\}&ifbeam::ifbeam&;
33 s&\$\{ifbeam::ifbeam\}&ifbeam::ifbeam&;
34 s&\$\{WDA\}&wda::wda&;
35 s&\$\{wda::wda\}&wda::wda&;
36 s&\$\{NUCONDB\}&nucondb::nucondb&;
37 s&\$\{nucondb::nucondb\}&nucondb::nucondb&;
38 
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