view release on metacpan or  search on metacpan

Low/Low.xs  view on Meta::CPAN

void
yaswi_openquery(query_obj, module)
    SV *query_obj;
    SV *module;
PREINIT:
    MY_dMY_CXT;
    term_t q, arg0;
    module_t m;
    predicate_t predicate;
    AV *refs, *cells;
PPCODE:
    check_prolog(aTHX_ aMY_CXT);
    test_no_query(aTHX_ aMY_CXT);
    push_frame(aTHX_ aMY_CXT);
    q=PL_new_term_ref();
    if (pl_unify_perl_sv(aTHX_ q, 
			 query_obj,
			 refs=(AV *)sv_2mortal((SV *)newAV()),
			 cells=(AV *)sv_2mortal((SV *)newAV()))) {
	functor_t functor;
	if (PL_get_functor(q, &functor)) {