Geant4 Cross Reference |
1 // Copyright (C) 2010, Guy Barrand. All rights 2 // See the file tools.license for terms. 3 4 #ifndef tools_fmanip 5 #define tools_fmanip 6 7 #include "file" 8 #include "sep" 9 #include "sout" 10 #include <ostream> 11 12 namespace tools { 13 14 inline bool find_with_dirs(std::ostream& a_out 15 const std::vector<s 16 const std::string& 17 std::string& a_path 18 bool a_verbose = fa 19 std::vector<std::string>::const_iterator it; 20 for(it=a_dirs.begin();it!=a_dirs.end();++it) 21 if((*it).empty()) { 22 // with a "" in dirs, this case could so 23 // - a_file in the current directory. 24 // - a_file with an absolute path name. 25 a_path = a_file; //may be an absolute fi 26 } else { 27 a_path = *it; 28 a_path += sep(); 29 a_path += a_file; 30 } 31 32 if(a_verbose) { 33 a_out << "find_with_dirs :" 34 << " look for " << sout(a_path) << 35 << std::endl; 36 } 37 38 if(file::exists(a_path)) { 39 if(a_verbose) { 40 a_out << "find_with_dirs :" 41 << " found " << sout(a_path) << 42 << std::endl; 43 } 44 return true; 45 } 46 } 47 a_path.clear(); 48 49 if(a_verbose) { 50 a_out << "find_with_dirs :" 51 << " " << sout(a_file) << " not foun 52 << std::endl; 53 } 54 55 return false; 56 } 57 58 } 59 60 #include "get_env" 61 62 namespace tools { 63 64 inline bool find_with_env(std::ostream& a_out, 65 const std::string& a 66 const std::string& a 67 std::string& a_path, 68 bool a_verbose = fal 69 std::string PATH; 70 if(!get_env(a_env,PATH)) { 71 //look for a a_file in current directory. 72 if(file::exists(a_file)) { 73 //a_out << "tools::find_with_env :" 74 // << " env variable " << sout(a_en 75 // << std::endl; 76 a_path = a_file; 77 return true; 78 } 79 a_out << "tools::find_with_env : env varia 80 a_path.clear(); 81 return false; 82 } 83 if(a_verbose) { 84 a_out << "find_with_env : env " << sout(a_ 85 } 86 87 std::vector<std::string> dirs; 88 words(PATH,psep(),false,dirs); //or true ? 89 90 return find_with_dirs(a_out,dirs,a_file,a_pa 91 } 92 93 } 94 95 #endif