stub.c File Reference

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "genC.h"
#include "linear.h"
#include "ri.h"
#include "effects.h"
#include "ri-util.h"
#include "effects-util.h"
#include "misc.h"
#include "database.h"
#include "resources.h"
#include "pipsdbm.h"
#include "control.h"

Include dependency graph for stub.c:

Go to the source code of this file.

Macros
#define	LISP   (getenv("LISP"))
#define	REDUCTIONS_SOURCE_DIRECTORY    (strdup(concatenate(getenv("DEVEDIR"), "/Lib/reductions", NULL)))

Functions
bool	old_reductions (string mod_name)
	stub.c More...

Macro Definition Documentation

LISP

#define LISP   (getenv("LISP"))

Definition at line 58 of file stub.c.

REDUCTIONS_SOURCE_DIRECTORY

#define REDUCTIONS_SOURCE_DIRECTORY    (strdup(concatenate(getenv("DEVEDIR"), "/Lib/reductions", NULL)))

Definition at line 60 of file stub.c.

Function Documentation

old_reductions()

bool old_reductions

(

string

mod_name

)

stub.c

true or FALSE? After all, it's just a user warning, not an error

Parameters

mod_name

od_name

Definition at line 63 of file stub.c.

{
    string program_name = db_get_current_workspace_name() ;
    char *command ;
    struct stat buf ;
    char *options ; 
    statement mod_stat ;
 
    if( stat( LISP, &buf ) != 0 ) {
        user_warning("reductions",
                     "No lisp! Skipping reduction detection\n") ;
        /* true or FALSE? After all, it's just a user warning, not an error */
        return false;
    }
    debug_on("REDUCTIONS_DEBUG_LEVEL");
    db_close_workspace(false) ;
    options = (get_debug_level() <= 5) ? " -batch" : "" ;
    asprintf(&command, 
            "(echo \"(defparameter files-directory \\\"%s\\\")\
             (load (concatenate %s files-directory \\\"/init\\\"))\
             (load (concatenate %s files-directory \\\"/top\\\"))\
             (reductions t \\\"%s\\\" \\\"%s\\\")\") | %s%s", 
            REDUCTIONS_SOURCE_DIRECTORY,
            "'string",
            "'string",
            program_name, 
            mod_name, 
            LISP,
            options ) ;
    debug( 5, "reductions", "\ncommand = %s\n", command ) ;
 
    if( (system( command ) >> 8) != 0 ) {
        pips_internal_error("Lisp process died unexpectedly" ) ;
    }
    free(command);
    debug_off();
    db_open_workspace( program_name ) ;
    mod_stat = (statement) 
            db_get_memory_resource(DBR_CODE, mod_name, true);
    module_reorder( mod_stat ) ;
    DB_PUT_MEMORY_RESOURCE(DBR_CODE, strdup(mod_name), mod_stat);
 
    return true;
}

References asprintf, buf, db_close_workspace(), db_get_current_workspace_name(), db_get_memory_resource(), db_open_workspace(), DB_PUT_MEMORY_RESOURCE, debug(), debug_off, debug_on, free(), get_debug_level(), LISP, mod_stat, module_reorder(), pips_internal_error, REDUCTIONS_SOURCE_DIRECTORY, strdup(), and user_warning.

Here is the call graph for this function: