25 #include "pips_config.h"
34 #include "constants.h"
73 if( recompile_module_removable_entity_p((
gen_chunkp)e))
sequence make_sequence(list a)
static statement module_statement
struct _newgen_struct_statement_ * statement
FILE * safe_fopen(const char *filename, const char *what)
list gen_nreverse(list cp)
reverse a list in place
#define NIL
The empty list (nil in Lisp)
#define CONS(_t_, _i_, _l_)
List element cell constructor (insert an element at the beginning of a list)
#define FOREACH(_fe_CASTER, _fe_item, _fe_list)
Apply/map an instruction block on all the elements of a list.
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_FILE_RESOURCE
Put a file resource into the current workspace database.
string concatenate(const char *,...)
Return the concatenation of the given strings.
int f(int off1, int off2, int n, float r[n], float a[n], float b[n])
#define db_get_file_resource
string db_get_current_workspace_directory(void)
static void do_recompile_module(entity module, statement module_statement)
High-level functions about modules, using prettyprint, pipsdbm and ri-util.
bool recompile_module(const string module)
build a textual representation of the modified module and update db
text text_module(entity, statement)
#define entity_declarations(e)
MISC: newgen shorthands.
entity module_name_to_entity(const char *mn)
This is an alias for local_name_to_top_level_entity.
const char * module_local_name(entity e)
Returns the module local user name.
bool fortran_module_p(entity m)
Test if a module is in Fortran.
#define code_initializations(x)
#define entity_initial(x)
The structure used to build lists in NewGen.
void gen_clear_tabulated_element(gen_chunk *obj)
GEN_CLEAR_TABULATED_ELEMENT only clears the entry for object OBJ in the gen_tabulated_ and gen_tabula...
void print_text(FILE *fd, text t)
A gen_chunk is used to store every object.