view release on metacpan or  search on metacpan

src/tests/exsymtab/28-three-contexts-intertwined-preprocessor-macro.c  view on Meta::CPAN

    extended_symtab_p oldest_symtab;
    extended_symtab_p middle_symtab;
} three_callback_data;

/* This takes a second_callback_data pointer and sets its fields based on the
 * current three-callback-data content. We know from the value of middle_symtab
 * whether the middle state has been compiled (nonzero) or not (null), and we
 * use that as our state indicator. */

void setup_mock_data (second_callback_data *mock, void * data)
{
    three_callback_data* my_data = (three_callback_data*)data;
    mock->second_context = my_data->current_context;
    if (my_data->middle_symtab == 0)
    {
        /* This is the case when the middle context has not yet been established
         * and it is referring to the original context.
         */
        mock->first_symtab = my_data->oldest_symtab;
    }
    else {
        /* This is the case when the middle context has been compiled and copied
         * and we are working on the third compilation unit.
         */
        mock->first_symtab = my_data->middle_symtab;
    }
}

TokenSym_p my_lookup_by_name (char * name, int len, void * data, extended_symtab_p*containing_symtab)
{
    /* Simply wrap the testing infrastructure's call appropriately */
    second_callback_data mock;
    setup_mock_data(&mock, data);
    return lookup_by_name(name, len, &mock, containing_symtab);
}

void my_sym_used (char * name, int len, void * data)
{
    second_callback_data mock;
    setup_mock_data(&mock, data);
    sym_used(name, len, &mock);
}

void my_prep (void * data) {
    second_callback_data mock;
    setup_mock_data(&mock, data);
    prep_table(&mock);
}

int main(int argc, char **argv)
{
    three_callback_data my_data = { 0, 0, 0 };

    /* ---- Compile the first code string and setup the callback data ---- */

    TCCState *s_first = tcc_new();
    SIMPLE_SETUP(s_first);
    tcc_save_extended_symtab(s_first);

    if (tcc_compile_string(s_first, first_code) == -1) return 1;
    if (tcc_relocate(s_first, TCC_RELOCATE_AUTO) == -1) return 1;

    my_data.oldest_symtab = tcc_get_extended_symbol_table(s_first);
    pass("First code string compiled and relocated fine");

    TCCState *s_second = tcc_new();
    my_data.current_context = s_second;
    SIMPLE_SETUP(s_second);
    tcc_save_extended_symtab(s_second);
    tcc_set_extended_symtab_callbacks(s_second, &my_lookup_by_name,
        &my_sym_used, &my_prep,  &my_data);

    if (tcc_compile_string(s_second, second_code) == -1) return 1;
    if (tcc_relocate(s_second, TCC_RELOCATE_AUTO) == -1) return 1;

    my_data.middle_symtab = tcc_get_extended_symbol_table(s_second);
    pass("Second code string compiled and relocated fine");

    TCCState *s_third = tcc_new();
    my_data.current_context = s_third;
    SIMPLE_SETUP(s_third);
    tcc_set_extended_symtab_callbacks(s_third, &my_lookup_by_name,
        &my_sym_used, &my_prep, &my_data);

    if (tcc_compile_string(s_third, third_code) == -1) return 1;
    if (tcc_relocate(s_third, TCC_RELOCATE_AUTO) == -1) return 1;
    pass("Third code string compiled and relocated fine");

    /* ---- Check code string that depends on the macro ---- */

    int (*gives_nineteen)() = tcc_get_symbol(s_third, "test");
    if (gives_nineteen == NULL) return 1;
    is_i(gives_nineteen(), 19, "Mixed up macros produce correct executable code");

    /* ---- clean up the memory ---- */

    tcc_delete_extended_symbol_table(my_data.oldest_symtab);
    tcc_delete_extended_symbol_table(my_data.middle_symtab);
    tcc_delete(s_first);
    tcc_delete(s_second);
    tcc_delete(s_third);
    pass("cleanup");

    return done_testing();
}