AlignDB-IntSpanXS

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

PTR2ul|5.007001||p
PTRV|5.006000||p
PUSHMARK|||
PUSH_MULTICALL||5.009005|
PUSHi|||
PUSHmortal|5.009002||p
PUSHn|||
PUSHp|||
PUSHs|||
PUSHu|5.004000||p
PUTBACK|||
PerlIO_clearerr||5.007003|
PerlIO_close||5.007003|
PerlIO_context_layers||5.009004|
PerlIO_eof||5.007003|
PerlIO_error||5.007003|
PerlIO_fileno||5.007003|
PerlIO_fill||5.007003|
PerlIO_flush||5.007003|
PerlIO_get_base||5.007003|
PerlIO_get_bufsiz||5.007003|

ppport.h  view on Meta::CPAN

{
    dSP;
    SV* sv = newSVpv(p, 0);

    PUSHMARK(sp);
    eval_sv(sv, G_SCALAR);
    SvREFCNT_dec(sv);

    SPAGAIN;
    sv = POPs;
    PUTBACK;

    if (croak_on_error && SvTRUE(GvSV(errgv)))
	croak(SvPVx(GvSV(errgv), na));

    return sv;
}

#endif
#endif

xs.xs  view on Meta::CPAN

    PROTOTYPE: $
    PPCODE:
        XPUSHs(sv_2mortal(newSVpv(EMPTY_STRING, 0)));

AlignDB::IntSpanXS
_new(pack)
    char *pack
    PROTOTYPE: $
    CODE:
        RETVAL = intspan_new();
    OUTPUT:
        RETVAL

void
DESTROY(itsx)
    AlignDB::IntSpanXS itsx
    PROTOTYPE: $
    CODE:
        intspan_destroy(itsx);

void

xs.xs  view on Meta::CPAN

            XPUSHs(sv_2mortal(newSViv(j)));
        }
        #veci_destroy(vec); //this vec belongs to the intspan object

int
edge_size(itsx)
    AlignDB::IntSpanXS itsx
    PROTOTYPE: $
    CODE:
        RETVAL = intspan_edge_size(itsx);
    OUTPUT:
        RETVAL

int
span_size(itsx)
    AlignDB::IntSpanXS itsx
    PROTOTYPE: $
    CODE:
        RETVAL = intspan_span_size(itsx);
    OUTPUT:
        RETVAL

SV *
as_string(itsx)
    AlignDB::IntSpanXS itsx
    PREINIT:
        char *tmp_buffer;
        int len = 1024;
    PROTOTYPE: $
    PPCODE:

xs.xs  view on Meta::CPAN

            j = veci_get(vec, i);
            XPUSHs(sv_2mortal(newSViv(j)));
        }
        veci_destroy(vec);

int
cardinality(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_cardinality(itsx);
    OUTPUT:
        RETVAL

int
is_empty(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_empty(itsx);
    OUTPUT:
        RETVAL

int
is_not_empty(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_not_empty(itsx);
    OUTPUT:
        RETVAL

int
is_neg_inf(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_neg_inf(itsx);
    OUTPUT:
        RETVAL

int
is_pos_inf(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_pos_inf(itsx);
    OUTPUT:
        RETVAL

int
is_infinite(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_infinite(itsx);
    OUTPUT:
        RETVAL

int
is_finite(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_finite(itsx);
    OUTPUT:
        RETVAL

int
is_universal(itsx)
    AlignDB::IntSpanXS itsx
    CODE:
        RETVAL = intspan_is_universal(itsx);
    OUTPUT:
        RETVAL

int
_contains(itsx, i)
    AlignDB::IntSpanXS itsx
    int i
    PROTOTYPE: $$
    CODE:
        RETVAL = intspan_contains(itsx, i);
    OUTPUT:
        RETVAL

void
add_pair(itsx, lower, upper)
    AlignDB::IntSpanXS itsx
    int lower
    int upper
    PROTOTYPE: $$$
    CODE:
        intspan_add_pair(itsx, lower, upper);

xs.xs  view on Meta::CPAN

    PROTOTYPE: $$
    CODE:
        intspan_remove_runlist(itsx, rl);

AlignDB::IntSpanXS
copy(itsx)
    AlignDB::IntSpanXS itsx
    PROTOTYPE: $
    CODE:
        RETVAL = intspan_copy(itsx);
    OUTPUT:
        RETVAL

int
_find_pos(itsx, val, low)
    AlignDB::IntSpanXS itsx
    int val
    int low
    PROTOTYPE: $$$
    CODE:
        RETVAL = intspan_find_pos(itsx, val, low);
    OUTPUT:
        RETVAL