X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/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
deleted file mode 100644
index 59e6fb5..0000000
--- a/interpretor/preprocessor/faust-0.9.47mr3/compiler/parser/enrobage.cpp
+++ /dev/null
@@ -1,514 +0,0 @@
-/************************************************************************
- ************************************************************************
-    FAUST compiler
-	Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
-    ---------------------------------------------------------------------
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- ************************************************************************
- ************************************************************************/
- 
- 
- 
-#include "enrobage.hh"
-#include <vector>
-#include <string>
-#include <limits.h>
-#include <stdlib.h>
-#include "compatibility.hh"
-#include <climits>
-
-extern string gFaustSuperSuperDirectory;
-extern string gFaustSuperDirectory;
-extern string gFaustDirectory;
-extern string gMasterDirectory;
-extern string gClassName;
-
-//----------------------------------------------------------------
-
-
-/**
- * Returns true is a line is blank (contains only white caracters)
- */
-static bool isBlank(const string& s) {
-    for (size_t i=0; i<s.size(); i++) {
-        if (s[i] != ' ' && s[i] != '\t') return false;
-    }
-    return true;
-}
-
-
-/**
- * Replace every occurrence of oldstr by newstr inside str. str is modified
- * and returned as reference for convenience
- */
-static string& replaceOccurences(string& str, const string& oldstr, const string& newstr)
-{
-    string::size_type l1 = oldstr.length();
-    string::size_type l2 = newstr.length();
-
-    string::size_type pos = str.find(oldstr);
-    while ( pos != string::npos) {
-        str.replace(pos, l1, newstr);
-        pos = str.find(oldstr, pos + l2);
-    }
-    return str;
-}
-
-
-/**
- * Used when copying architecture files to replace default mydsp
- * class name with the user specified one
- */
-static string& replaceClassName(string& str)
-{
-    return replaceOccurences(str, "mydsp", gClassName);
-}
-
-
-/**
- * Copy or remove license header. Architecture files can contain a header specifying
- * the license. If this header contains an exception tag (for example "FAUST COMPILER EXCEPTION")
- * it is an indication for the compiler to remove the license header from the resulting code. 
- * A header is the first non blank line that begins a comment.
- */
-void streamCopyLicense(istream& src, ostream& dst, const string& exceptiontag)
-{
-    string          s;
-    vector<string>	H;
-
-    // skip blank lines
-    while (getline(src,s) && isBlank(s)) dst << s << endl;
-
-    // first non blank should start a comment
-    if (s.find("/*")==string::npos) { dst << s << endl; return; }
-
-    // copy the header into H
-    bool remove = false;
-    H.push_back(s);
-
-    while (getline(src,s) && s.find("*/")==string::npos) {
-        H.push_back(s);
-        if (s.find(exceptiontag) != string::npos) remove=true;
-    }
-
-    // copy the header unless explicitely granted to remove it
-    if (!remove) {
-        // copy the header
-        for (unsigned int i=0; i<H.size(); i++) {
-            dst << H[i] << endl;
-        }
-        dst << s << endl;
-    }
-}
-
-
-/**
- * Copy src to dst until specific line.
- */
-void streamCopyUntil(istream& src, ostream& dst, const string& until)
-{
-    string	s;
-    while ( getline(src,s) && (s != until) ) dst << replaceClassName(s) << endl;
-}
-
-/**
- * Copy src to dst.
- */
-void streamCopy(istream& src, ostream& dst)
-{ 
-	string	s;
-    while ( getline(src,s)) dst << replaceClassName(s) << endl;
-}
-
-/**
- * Copy src to dst until end
- */
-void streamCopyUntilEnd(istream& src, ostream& dst)
-{ 
-	string	s;
-    while ( getline(src,s) ) dst << replaceClassName(s) << endl;
-}
-
-
-/**
- * Try to open an architecture file searching in various directories
- */
-ifstream* open_arch_stream(const char* filename)
-{
-	char	buffer[FAUST_PATH_MAX];
-    char*	old = getcwd (buffer, FAUST_PATH_MAX);
-	int		err;
-
-    {
-	    ifstream* f = new ifstream();
-	    f->open(filename, ifstream::in); if (f->is_open()) return f; else delete f;
-    }
-    char *envpath = getenv("FAUST_LIB_PATH");
-    if (envpath!=NULL) {
-		if (chdir(envpath)==0) {
-			ifstream* f = new ifstream();
-			f->open(filename, ifstream::in);
-			if (f->is_open()) return f; else delete f;
-		}
-    }
-	err = chdir(old);
-	if ( (chdir(gFaustDirectory.c_str())==0) && (chdir("architecture")==0) ) {
-		//cout << "enrobage.cpp : 'architecture' directory found in gFaustDirectory" << endl;
-        ifstream* f = new ifstream();
-		f->open(filename, ifstream::in);
-		if (f->good()) return f; else delete f;
-	}
-	err = chdir(old);
-	if ((chdir(gFaustSuperDirectory.c_str())==0) && (chdir("architecture")==0) ) {
-		//cout << "enrobage.cpp : 'architecture' directory found in gFaustSuperDirectory" << endl;
-        ifstream* f = new ifstream();
-		f->open(filename, ifstream::in);
-		if (f->good()) return f; else delete f;
-	}
-	err = chdir(old);
-	if ((chdir(gFaustSuperSuperDirectory.c_str())==0) && (chdir("architecture")==0) ) {
-		//cout << "enrobage.cpp : 'architecture' directory found in gFaustSuperSuperDirectory" << endl;
-        ifstream* f = new ifstream();
-		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) {
-        ifstream* f = new ifstream();
-		f->open(filename); 
-		if (f->good()) return f; else delete f;
-	}
-#endif
-	err = chdir(old);
-	if (chdir("/usr/local/lib/faust")==0) {
-        ifstream* f = new ifstream();
-		f->open(filename); 
-		if (f->good()) return f; else delete f;
-	}
-	err = chdir(old);
-	if (chdir("/usr/lib/faust")==0) {
-        ifstream* f = new ifstream();
-		f->open(filename); 
-		if (f->good()) return f; else delete f;
-	}
-	
-	return 0;
-}
-
-
-
-/*---------------------------------------------*/
-
-/**
- * Check if a file exists.
- * @return true if the file exist, false otherwise
- */
-		
-bool check_file(const char* filename)
-{
-	FILE* f = fopen(filename, "r");
-	
-	if (f == NULL) {
-		fprintf(stderr, "faust: "); perror(filename);
-	} else {
-		fclose(f);
-	}
-	return f != NULL;
-}
-		
-
-/**
- * Try to open the file '<dir>/<filename>'. If it succeed, it stores the full pathname
- * of the file into <fullpath>
- */
-static FILE* fopenat(string& fullpath, const char* dir, const char* filename)
-{
-	int 		err; 
-    char        olddirbuffer[FAUST_PATH_MAX];
-    char        newdirbuffer[FAUST_PATH_MAX];
-    
-    char* 		olddir = getcwd (olddirbuffer, FAUST_PATH_MAX);
-
-    if (chdir(dir) == 0) {           
-        FILE* f = fopen(filename, "r");
-		fullpath = getcwd (newdirbuffer, FAUST_PATH_MAX);
-		fullpath += '/';
-		fullpath += filename;
-        err = chdir(olddir);
-        return f;
-    }
-    err = chdir(olddir);
-    return 0;
-}
-
-/**
- * Try to open the file '<dir>/<filename>'. If it succeed, it stores the full pathname
- * of the file into <fullpath>
- */
-static FILE* fopenat(string& fullpath, const string& dir, const char* filename)
-{
-    return fopenat(fullpath, dir.c_str(), filename);
-}
-
-/**
- * Try to open the file '<dir>/<path>/<filename>'. If it succeed, it stores the full pathname
- * of the file into <fullpath>
- */
-static FILE* fopenat(string& fullpath, const string& dir, const char* path, const char* filename)
-{
-	int			err;
-    char        olddirbuffer[FAUST_PATH_MAX];
-    char        newdirbuffer[FAUST_PATH_MAX];
-    
-    char* 		olddir = getcwd (olddirbuffer, FAUST_PATH_MAX);
-    if (chdir(dir.c_str()) == 0) {
-        if (chdir(path) == 0) {            
-            FILE* f = fopen(filename, "r");
-			fullpath = getcwd (newdirbuffer, FAUST_PATH_MAX);
-			fullpath += '/';
-			fullpath += filename;
-            err = chdir(olddir);
-            return f;
-        }
-    }
-    err = chdir(olddir);
-    return 0;
-}
-
-
-
-/**
- * Test absolute pathname.
- */
-static bool isAbsolutePathname(const string& filename)
-{
-	//test windows absolute pathname "x:xxxxxx"
-	if (filename.size()>1 && filename[1] == ':') return true;
-
-	// test unix absolute pathname "/xxxxxx"
-	if (filename.size()>0 && filename[0] == '/') return true;
-
-	return false;
-}
-
-
-/**
- * Build a full pathname of <filename>.
- * <fullpath> = <currentdir>/<filename>
- */
-static void buildFullPathname(string& fullpath, const char* filename)
-{
-	char	old[FAUST_PATH_MAX];
-
-	if (isAbsolutePathname(filename)) {
-		fullpath = filename;
-	} else {
-		fullpath = getcwd (old, FAUST_PATH_MAX);
-		fullpath += '/';
-		fullpath += filename;
-	}
-}
-
-/**
- * Try to open the file <filename> searching in various directories. If succesful
- *  place its full pathname in the string <fullpath>
- */
-
-#ifdef WIN32
-FILE* fopensearch(const char* filename, string& fullpath)
-{   
-    FILE* f;
-    char* envpath;
-
-    if ((f = fopen(filename, "r"))) { 
-    	buildFullPathname(fullpath, filename); 
-    	return f;
-    }
-    if ((f = fopenat(fullpath, gMasterDirectory, filename))) { 
-    	return f;
-    }
-    if ((envpath = getenv("FAUST_LIB_PATH")) && (f = fopenat(fullpath, envpath, filename))) {
-        return f;
-    }
-    if ((f = fopenat(fullpath, gFaustDirectory, "architecture", filename))) { 
-    	return f;
-    }
-    if ((f = fopenat(fullpath, gFaustSuperDirectory, "architecture", filename))) { 
-    	return f;
-    }
-    if ((f = fopenat(fullpath, gFaustSuperSuperDirectory, "architecture", filename))) { 
-    	return f;
-    }
-    return 0;
-}
-#else
-FILE* fopensearch(const char* filename, string& fullpath)
-{   
-    FILE* f;
-    char* envpath;
-
-    if ((f = fopen(filename, "r"))) { 
-    	buildFullPathname(fullpath, filename); 
-    	return f;
-    }
-    if ((f = fopenat(fullpath, gMasterDirectory, filename))) { 
-    	return f;
-    }
-    if ((envpath = getenv("FAUST_LIB_PATH")) && (f = fopenat(fullpath, envpath, filename))) {
-		return f;
-    }
-    if ((f = fopenat(fullpath, gFaustDirectory, "architecture", filename))) { 
-    	return f;
-    }
-    if ((f = fopenat(fullpath, gFaustSuperDirectory, "architecture", filename))) { 
-    	return f;
-    }
-    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;
-    }
-#endif
-    if ((f = fopenat(fullpath, "/usr/local/lib/faust", filename))) { 
-    	return f;
-    }
-    if ((f = fopenat(fullpath, "/usr/lib/faust", filename))) { 
-    	return f;
-    }
-    return 0;
-}
-#endif
-
-
-/** 
- * filebasename returns the basename of a path.
- * (adapted by kb from basename.c)
- *
- * @param[in]	The path to parse.
- * @return		The last component of the given path.
- */
-#ifndef DIR_SEPARATOR
-#define DIR_SEPARATOR '/'
-#endif
-
-#ifdef WIN32
-#define HAVE_DOS_BASED_FILE_SYSTEM
-#ifndef DIR_SEPARATOR_2 
-#define DIR_SEPARATOR_2 '\\'
-#endif
-#endif
-
-/* Define IS_DIR_SEPARATOR.  */
-#ifndef DIR_SEPARATOR_2
-# define IS_DIR_SEPARATOR(ch) ((ch) == DIR_SEPARATOR)
-#else /* DIR_SEPARATOR_2 */
-# define IS_DIR_SEPARATOR(ch) \
-(((ch) == DIR_SEPARATOR) || ((ch) == DIR_SEPARATOR_2))
-#endif /* DIR_SEPARATOR_2 */
-
-
-/**
- * returns a pointer on the basename part of name
- */
-const char* filebasename(const char* name)
-{
-#if defined (HAVE_DOS_BASED_FILE_SYSTEM)
-	/* Skip over the disk name in MSDOS pathnames. */
-	if (isalpha(name[0]) && name[1] == ':') 
-		name += 2;
-#endif
-
-	const char* base;
-	for (base = name; *name; name++)
-    {
-		if (IS_DIR_SEPARATOR (*name))
-		{
-			base = name + 1;
-		}
-    }
-	return base;
-}
-
-
-/**
- * returns a string containing the dirname of name
- * If no dirname, returns "."
- */
-string filedirname(const string& name)
-{
-    const char*         base = filebasename(name.c_str());
-    const unsigned int  size = base-name.c_str();
-    string              dirname;
-
-    if (size==0) {
-        dirname += '.';
-
-    } else if (size==1) {
-        dirname += name[0];
-
-    } else {
-        for (unsigned int i=0; i<size-1; i++) {
-            dirname += name[i];
-        }
-    }
-    return dirname;
-}