3 use vars qw(%dir_list);
5 "art_Persistency_Common" => "art_Persistency_Common canvas_Persistency_Common",
6 "art_Persistency_Provenance" => "art_Persistency_Provenance canvas_Persistency_Provenance",
7 "art_Persistency_Common_dict" => "canvas_Persistency_Common_dict",
8 "art_Persistency_StdDictionaries" => "canvas_Persistency_StdDictionaries",
9 "art_Persistency_StdDictionaries_dict" => "canvas_Persistency_StdDictionaries_dict",
10 "art_Persistency_WrappedStdDictionaries" => "canvas_Persistency_WrappedStdDictionaries",
11 "art_Persistency_WrappedStdDictionaries_dict" => "canvas_Persistency_WrappedStdDictionaries_dict",
12 "art_Utilities" => "art_Utilities canvas_Utilities",
13 "Colors_service" => "nutools_EventDisplayBase_Colors_service",
14 "DBI_service" => "nutools_IFDatabase_DBI_service",
15 "EventDisplayBase" => "nutools_EventDisplayBase",
16 "EventDisplay_service" => "nutools_EventDisplayBase_EventDisplay_service",
17 "EventGeneratorBaseCRY" => "nutools_EventGeneratorBase_CRY",
18 "EventGeneratorBaseGENIE" => "nutools_EventGeneratorBase_GENIE",
19 "EventGeneratorBaseGiBUU" => "nutools_EventGeneratorBase_GiBUU",
20 "EventGeneratorBase_test_EventGeneratorTest_module" => "nutools_EventGeneratorBase_test_EventGeneratorTest_module",
21 "G4Base" => "nutools_G4Base",
22 "IFDatabase" => "nutools_IFDatabase",
23 "MagneticField_service" => "nutools_MagneticField_MagneticField_service",
24 "NuBeamWeights" => "nutools_NuBeamWeights",
25 "NuReweightArt" => "nutools_NuReweight_art",
26 "NuReweight" => "nutools_NuReweight",
27 "ReweightAna_module" => "nutools_NuReweight_art_ReweightAna_module",
28 "ScanOptions_service" => "nutools_EventDisplayBase_ScanOptions_service",
29 "SimulationBase_dict" => "nutools_SimulationBase_dict",
30 "SimulationBase" => "nusimdata_SimulationBase"
33 foreach my $lib (sort keys %dir_list) {
34 next if m&add_subdirectory&i;
35 next if m&simple_plugin&i;
36 next if m&SUBDIRNAME&i;
38 next if m&LIBRARY_NAME&i;
40 #s&\b\Q${lib}\E([^\.\s]*\b)([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
41 s&\b\Q${lib}\E\b([^\.]|$)&$dir_list{$lib}${1}${2}&g and last;
44 #s&\$\{SIMULATIONBASE\}&nusimdata_SimulationBase&g;