module.c File Reference

#include <stdio.h>
#include <string.h>
#include "genC.h"
#include "text.h"
#include "constants.h"
#include "text-util.h"
#include "misc.h"
#include "linear.h"
#include "ri.h"
#include "ri-util.h"
#include "pipsdbm.h"
#include "workspace-util.h"
#include "prettyprint.h"

Include dependency graph for module.c:

Go to the source code of this file.

Functions
static void	do_recompile_module (entity module, statement module_statement)
	High-level functions about modules, using prettyprint, pipsdbm and ri-util. More...
bool	recompile_module (const string module)
	build a textual representation of the modified module and update db More...

Function Documentation

do_recompile_module()

static void do_recompile_module ( entity  module, statement  module_statement  )

static

High-level functions about modules, using prettyprint, pipsdbm and ri-util.

build and register textual representation

the module will be reparsed, so fix(=delete) all its previous entites

Definition at line 50 of file module.c.

                                                                           {
 
    /* build and register textual representation */
    text t = text_module(module, module_statement);
    //add_new_module_from_text(module,t,fortran_module_p(modified_module),compilation_unit_of_module(module));
    string dirname = db_get_current_workspace_directory();
    string res = fortran_module_p(module)? DBR_INITIAL_FILE : DBR_C_SOURCE_FILE;
    string filename = db_get_file_resource(res,module_local_name(module),true);
    string fullname = strdup(concatenate(dirname, "/",filename, NULL));
    FILE* f = safe_fopen(fullname,"w");
    free(fullname);
    print_text(f,t);
    fclose(f);
    free_text(t);
 
    DB_PUT_FILE_RESOURCE(res,module_local_name(module),filename);
 
    /* the module will be reparsed, so fix(=delete) all its previous entites */
#if 0
    {
        list p = NIL;
        FOREACH(ENTITY, e, entity_declarations(modified_module))
        {
            if( recompile_module_removable_entity_p((gen_chunkp)e))
                gen_clear_tabulated_element((gen_chunk*)e);
            else
                p = CONS(ENTITY,e,p);
        }
        entity_declarations(modified_module) = gen_nreverse(p);
        code_initializations(value_code(entity_initial(modified_module)))=make_sequence(NIL);
    }
#endif
}

References code_initializations, concatenate(), CONS, db_get_current_workspace_directory(), db_get_file_resource, DB_PUT_FILE_RESOURCE, ENTITY, entity_declarations, entity_initial, f(), FOREACH, fortran_module_p(), free(), free_text(), gen_clear_tabulated_element(), gen_nreverse(), make_sequence(), module, module_local_name(), module_statement, NIL, print_text(), safe_fopen(), strdup(), text_module(), and value_code.

Referenced by recompile_module().

Here is the call graph for this function:

Here is the caller graph for this function:

recompile_module()

bool recompile_module

(

const string

module

)

build a textual representation of the modified module and update db

module.c

Parameters

module

odule

Definition at line 87 of file module.c.

{
    entity modified_module = module_name_to_entity(module);
    statement modified_module_statement =
        (statement) db_get_memory_resource(DBR_CODE, module, true);
    do_recompile_module(modified_module,modified_module_statement);
    return true;
}

References db_get_memory_resource(), do_recompile_module(), module, and module_name_to_entity().

Referenced by do_inlining(), and do_unfolding().

Here is the call graph for this function:

Here is the caller graph for this function: