Function compile_inline

tests-cpp/small/test_c_array_table_api.cpp:36–50

};

InlineCtx compile_inline(const char * src) {
    InlineCtx ic;
    ic.tout         = das_text_make_printer();
    ic.module_group = das_modulegroup_make();
    ic.file_access  = das_fileaccess_make_default();
    das_fileaccess_introduce_file(ic.file_access, "main.das", src, 1);
    ic.program = das_program_compile((char*)"main.das", ic.file_access, ic.tout, ic.module_group);
    if ( das_program_err_count(ic.program) ) return ic; // ctx left null
    ic.ctx = das_context_make(das_program_context_stack_size(ic.program));
    if ( !das_program_simulate(ic.program, ic.ctx, ic.tout) ) {
        das_context_release(ic.ctx);
        ic.ctx = nullptr;
    }
    return ic;
}

void cleanup_inline_ctx(InlineCtx & ic) {
    if ( ic.ctx )          das_context_release(ic.ctx);