X-Git-Url: https://scm.cri.mines-paristech.fr/git/Faustine.git/blobdiff_plain/4ecbf362e0d1d0abb9a7f0e9af8322472f28f7d1..f3ad8b46ca1621f4a90db91ed6f9c1eceac96c4c:/interpretor/preprocessor/faust-0.9.47mr3/compiler/parser/enrobage.cpp diff --git a/interpretor/preprocessor/faust-0.9.47mr3/compiler/parser/enrobage.cpp b/interpretor/preprocessor/faust-0.9.47mr3/compiler/parser/enrobage.cpp index e001b72..59e6fb5 100644 --- a/interpretor/preprocessor/faust-0.9.47mr3/compiler/parser/enrobage.cpp +++ b/interpretor/preprocessor/faust-0.9.47mr3/compiler/parser/enrobage.cpp @@ -184,6 +184,33 @@ ifstream* open_arch_stream(const char* filename) f->open(filename, ifstream::in); if (f->good()) return f; else delete f; } + + /* Faustine directories (Karim Barkati 09/2013) */ + +#ifdef INSTALL_PREFIX + err = chdir(old); + if (chdir(INSTALL_PREFIX "/lib/faustine")==0) { + ifstream* f = new ifstream(); + f->open(filename); + if (f->good()) return f; else delete f; + } +#endif + err = chdir(old); + if (chdir("/usr/local/lib/faustine")==0) { + ifstream* f = new ifstream(); + f->open(filename); + if (f->good()) return f; else delete f; + } + err = chdir(old); + if (chdir("/usr/lib/faustine")==0) { + ifstream* f = new ifstream(); + f->open(filename); + if (f->good()) return f; else delete f; + } + + /* End of Faustine directories */ + + #ifdef INSTALL_PREFIX err = chdir(old); if (chdir(INSTALL_PREFIX "/lib/faust")==0) { @@ -379,6 +406,23 @@ FILE* fopensearch(const char* filename, string& fullpath) if ((f = fopenat(fullpath, gFaustSuperSuperDirectory, "architecture", filename))) { return f; } + + /* Faustine directories (Haisheng WANG 09/2013) */ + +#ifdef INSTALL_PREFIX + if ((f = fopenat(fullpath, INSTALL_PREFIX "/lib/faustine", filename))) { + return f; + } +#endif + if ((f = fopenat(fullpath, "/usr/local/lib/faustine", filename))) { + return f; + } + if ((f = fopenat(fullpath, "/usr/lib/faustine", filename))) { + return f; + } + + /* End of Faustine directories */ + #ifdef INSTALL_PREFIX if ((f = fopenat(fullpath, INSTALL_PREFIX "/lib/faust", filename))) { return f;