25 #include "pips_config.h"
41 #include <sys/types.h>
52 #include "resources.h"
58 #define LISP (getenv("LISP"))
60 #define REDUCTIONS_SOURCE_DIRECTORY \
61 (strdup(concatenate(getenv("DEVEDIR"), "/Lib/reductions", NULL)))
73 "No lisp! Skipping reduction detection\n") ;
81 "(echo \"(defparameter files-directory \\\"%s\\\")\
82 (load (concatenate %s files-directory \\\"/init\\\"))\
83 (load (concatenate %s files-directory \\\"/top\\\"))\
84 (reductions t \\\"%s\\\" \\\"%s\\\")\") | %s%s",
92 debug( 5,
"reductions",
"\ncommand = %s\n", command ) ;
94 if( (system( command ) >> 8) != 0 ) {
struct _newgen_struct_statement_ * statement
string db_get_memory_resource(const char *rname, const char *oname, bool pure)
Return the pointer to the resource, whatever it is.
#define DB_PUT_MEMORY_RESOURCE(res_name, own_name, res_val)
conform to old interface.
static statement mod_stat
We want to keep track of the current statement inside the recurse.
#define pips_internal_error
#define user_warning(fn,...)
int get_debug_level(void)
GET_DEBUG_LEVEL returns the current debugging level.
void debug(const int the_expected_debug_level, const char *calling_function_name, const char *a_message_format,...)
ARARGS0.
bool db_close_workspace(bool)
bool db_open_workspace(const char *)
string db_get_current_workspace_name(void)
the function is used to check that there is some current workspace...
bool module_reorder(statement body)
Reorder a module and recompute order to statement if any.
#define REDUCTIONS_SOURCE_DIRECTORY
bool old_reductions(string mod_name)
stub.c