25 #include "pips_config.h"
36 #include "resources.h"
38 #include "constants.h"
49 char *entities_filename;
53 bool prettyprint_it =
false;
72 fprintf(stderr,
"----------------------in main-----------------------\n");
88 search_array_from_statement2(
module_name,s,©_in,©_out);
95 fprintf(stderr,
"----------------------out of main-----------------------\n");
void user_log(const char *format,...)
struct _newgen_struct_statement_ * statement
const char * module_name(const char *s)
Return the module part of an entity name.
void gen_init_external(int which, void *(*read)(FILE *, int(*)(void)), void(*write)(FILE *, void *), void(*free)(void *), void *(*copy)(void *), int(*allocated_memory)(void *))
GEN_INIT_EXTERNAL defines entry points for free, read and write functions of external types.
void gen_read_spec(char *spec,...)
#define NIL
The empty list (nil in Lisp)
string db_get_memory_resource(const char *rname, const char *oname, bool pure)
Return the pointer to the resource, whatever it is.
jmp_buf pips_top_level
chunk is defined there, chunk was used by ri.h
Pvecteur vect_gen_copy_tree(Pvecteur)
void vect_gen_write(FILE *, Pvecteur)
Pvecteur.c.
Pvecteur vect_gen_read(FILE *, int(*)(void))
void sc_gen_free(Psysteme)
void vect_gen_free(Pvecteur)
void polynome_gen_free(Ppolynome)
void polynome_gen_write(FILE *, Ppolynome)
Ppolynome polynome_gen_read(FILE *, int(*)(void))
Ppolynome polynome_gen_copy_tree(Ppolynome)
Psysteme sc_gen_copy_tree(Psysteme)
void sc_gen_write(FILE *, Psysteme)
Psc.c.
Psysteme sc_gen_read(FILE *, int(*)(void))
bool db_close_workspace(bool)
bool db_open_workspace(const char *)
static bool make(const char *rname, const char *oname)
entity local_name_to_top_level_entity(const char *n)
This function try to find a top-level entity from a local name.
int fprintf()
test sc_min : ce test s'appelle par : programme fichier1.data fichier2.data ...
The structure used to build lists in NewGen.
static void db_close_module(string what, string oname, bool do_free)
stores all resources of module oname.