enrobage.hh File Reference

#include <stdio.h>
#include <string.h>
#include <string>
#include <fstream>
#include <iostream>

Include dependency graph for enrobage.hh:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
void	copyFirstHalf (FILE *file, FILE *dst)
void	copySecondHalf (FILE *file, FILE *dst)
void	copyZeroHalf (FILE *file, FILE *dst)
void	copyFile (FILE *file, FILE *dst)
void	streamCopyLicense (istream &src, ostream &dst, const string &exceptiontag)
	Copy or remove license header. More...
void	streamCopyUntil (istream &src, ostream &dst, const string &until)
	Copy src to dst until specific line. More...
void	streamCopyUntilEnd (istream &src, ostream &dst)
	Copy src to dst until end. More...
void	streamCopy (istream &src, ostream &dst)
	Copy src to dst. More...
ifstream *	open_arch_stream (const char *filename)
	Try to open an architecture file searching in various directories. More...
FILE *	fopensearch (const char *filename, string &fullpath)
	Try to open the file <filename> searching in various directories. More...
const char *	strip_start (const char *filename)
bool	check_url (const char *filename)
	Check if an URL exists. More...
const char *	filebasename (const char *name)
	returns a pointer on the basename part of name More...
string	filedirname (const string &name)
	returns a string containing the dirname of name If no dirname, returns "." More...

Function Documentation

bool check_url

(

const char *

filename

)

Check if an URL exists.

Returns

true if the URL exist, false otherwise

Definition at line 296 of file enrobage.cpp.

References http_fetch(), and http_strerror().

Referenced by process_cmdline().

{
    char* fileBuf = 0;

    // Tries to open as an URL for a local file
    if (strstr(filename, "file://") != 0) {
        // Tries to open as a regular file after removing 'file://'
        FILE* f = fopen(&filename[7], "r");
        if (f) {
            fclose(f);
            return true;
        } else {
            cerr << "ERROR : cannot open file '" << filename << "' : " <<  strerror(errno) << "; for help type \"faust --help\"" << endl;
            return false;
        }
     
    // Tries to open as a http URL
    } else if (strstr(filename, "http://") != 0) {
        if (http_fetch(filename, &fileBuf) != -1) {
            return true;
        } else {
            cerr << "ERROR : unable to access URL '" << filename << "' : " << http_strerror() << "; for help type \"faust --help\"" << endl;
            return false;
        }
    } else {
        // Otherwise tries to open as a regular file
        FILE* f = fopen(filename, "r");
        if (f) {
            fclose(f);
            return true;
        } else {
            cerr << "ERROR : cannot open file '" << filename << "' : " <<  strerror(errno) << "; for help type \"faust --help\"" << endl;
            return false;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void copyFile	(	FILE *	file,
		FILE *	dst
	)

void copyFirstHalf	(	FILE *	file,
		FILE *	dst
	)

void copySecondHalf	(	FILE *	file,
		FILE *	dst
	)

void copyZeroHalf	(	FILE *	file,
		FILE *	dst
	)

const char* filebasename

(

const char *

name

)

returns a pointer on the basename part of name

Definition at line 544 of file enrobage.cpp.

References IS_DIR_SEPARATOR, and name().

Referenced by copyFaustSources(), filedirname(), and printfaustlisting().

{
#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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

string filedirname

(

const string &

name

)

returns a string containing the dirname of name If no dirname, returns "."

Definition at line 568 of file enrobage.cpp.

References filebasename().

Referenced by initFaustDirectories().

{
    const char*         base = filebasename(name.c_str());
    const unsigned int  size = (const unsigned int)(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;
}

Here is the call graph for this function:

Here is the caller graph for this function:

FILE* fopensearch	(	const char *	filename,
		string &	fullpath
	)

Try to open the file <filename> searching in various directories.

If succesful place its full pathname in the string <fullpath>

Definition at line 458 of file enrobage.cpp.

References buildFullPathname(), fopenat(), gFaustDirectory, gFaustSuperDirectory, gFaustSuperSuperDirectory, gImportDirList, and gMasterDirectory.

Referenced by SourceReader::parse().

{   
    FILE* f;
    char* envpath;


    // search in current directory

    if ((f = fopen(filename, "r"))) { 
        buildFullPathname(fullpath, filename); 
        return f;
    }

    // search file in user supplied directory path

    for (list< string >::iterator i = gImportDirList.begin(); i != gImportDirList.end(); i++) {
        if ((f = fopenat(fullpath, *i, filename))) {
            //std::cerr << "found file : " << fullpath << std::endl;
            return f;
        }
    }


    // search in default directories

    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;
    }
#ifdef INSTALL_PREFIX
    if ((f = fopenat(fullpath, INSTALL_PREFIX "/lib64/faust", filename))) { 
        return f;
    }
#endif
    if ((f = fopenat(fullpath, "/usr/local/lib64/faust", filename))) { 
        return f;
    }
    if ((f = fopenat(fullpath, "/usr/lib64/faust", filename))) { 
        return f;
    }
    return 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ifstream* open_arch_stream

(

const char *

filename

)

Try to open an architecture file searching in various directories.

Definition at line 220 of file enrobage.cpp.

References FAUST_PATH_MAX, gFaustDirectory, gFaustSuperDirectory, gFaustSuperSuperDirectory, and TRY_OPEN.

Referenced by inject(), main(), and openArchFile().

{
    char    buffer[FAUST_PATH_MAX];
    char*   old = getcwd (buffer, FAUST_PATH_MAX);
    int     err;

    TRY_OPEN(filename);
    
    char *envpath = getenv("FAUST_LIB_PATH");
    if (envpath!=NULL) {
        if (chdir(envpath)==0) {
            TRY_OPEN(filename);
        }
    }
    err = chdir(old);
    if ( (chdir(gFaustDirectory.c_str())==0) && (chdir("architecture")==0) ) {
        //cout << "enrobage.cpp : 'architecture' directory found in gFaustDirectory" << endl;
        TRY_OPEN(filename);
    }
    err = chdir(old);
    if ((chdir(gFaustSuperDirectory.c_str())==0) && (chdir("architecture")==0) ) {
        //cout << "enrobage.cpp : 'architecture' directory found in gFaustSuperDirectory" << endl;
        TRY_OPEN(filename);
    }
    err = chdir(old);
    if ((chdir(gFaustSuperSuperDirectory.c_str())==0) && (chdir("architecture")==0) ) {
        //cout << "enrobage.cpp : 'architecture' directory found in gFaustSuperSuperDirectory" << endl;
        TRY_OPEN(filename);
    }
#ifdef INSTALL_PREFIX
    err = chdir(old);
    if (chdir(INSTALL_PREFIX "/lib64/faust")==0) {
        TRY_OPEN(filename);
    }
    err = chdir(old);
    if (chdir(INSTALL_PREFIX "/include")==0) {
        TRY_OPEN(filename);
    }
#endif
    err = chdir(old);
    if (chdir("/usr/local/lib64/faust")==0) {
        TRY_OPEN(filename);
    }
    err = chdir(old);
    if (chdir("/usr/lib64/faust")==0) {
        TRY_OPEN(filename);
    }
    err = chdir(old);
    if (chdir("/usr/local/include")==0) {
        TRY_OPEN(filename);
    }
    err = chdir(old);
    if (chdir("/usr/include")==0) {
        TRY_OPEN(filename);
    }

    return 0;
}

Here is the caller graph for this function:

void streamCopy	(	istream &	src,
		ostream &	dst
	)

Copy src to dst.

Definition at line 199 of file enrobage.cpp.

References streamCopyUntil().

Referenced by inject(), and main().

{ 
    streamCopyUntil(src, dst, "<<<FOBIDDEN LINE IN A FAUST ARCHITECTURE FILE>>>");
}

Here is the call graph for this function:

Here is the caller graph for this function:

void streamCopyLicense	(	istream &	src,
		ostream &	dst,
		const string &	exceptiontag
	)

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.

Definition at line 87 of file enrobage.cpp.

References isBlank().

{
    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;
    }
}

Here is the call graph for this function:

void streamCopyUntil	(	istream &	src,
		ostream &	dst,
		const string &	until
	)

Copy src to dst until specific line.

Definition at line 183 of file enrobage.cpp.

References gInlineArchSwitch, inject(), isFaustInclude(), and replaceClassName().

Referenced by main(), streamCopy(), and streamCopyUntilEnd().

{
    string  s;
    string  fname;
    while ( getline(src,s) && (s != until) ) {
        if (gInlineArchSwitch && isFaustInclude(s, fname)) {
            inject(dst, fname);
        } else {
            dst << replaceClassName(s) << endl;
        }
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void streamCopyUntilEnd	(	istream &	src,
		ostream &	dst
	)

Copy src to dst until end.

Definition at line 207 of file enrobage.cpp.

References streamCopyUntil().

Referenced by main().

{ 
    streamCopyUntil(src, dst, "<<<FOBIDDEN LINE IN A FAUST ARCHITECTURE FILE>>>");
}

Here is the call graph for this function:

Here is the caller graph for this function:

const char* strip_start

(

const char *

filename

)

Definition at line 281 of file enrobage.cpp.

{
    const char* start = "file://";
    if (strstr(filename, start) != NULL) {
        return &filename[strlen(start)];
    }  else {
        return filename;
    }
}