#include "apfl.h"

#include "context.h"

void
apfl_build_native_and_bytecode_combined_module(
    apfl_ctx ctx,
    apfl_stackidx native,
    struct apfl_string_view bytecode
) {
    apfl_move_to_top_of_stack(ctx, native);

    struct apfl_io_string_reader_data reader = apfl_io_string_reader_create(bytecode);
    struct apfl_io_reader r = apfl_io_string_reader(&reader);
    apfl_load_bytecode(ctx, r);
    apfl_list_create(ctx, 0);
    apfl_call(ctx, -2, -1);
    apfl_list_create(ctx, 1);
    apfl_list_append(ctx, -1, -3);
    apfl_call(ctx, -2, -1);
}