view release on metacpan or  search on metacpan

DJB.xs  view on Meta::CPAN

        if (n > 0) {                                                        \
            c_func(buf, (long long)n);                                      \
            result = to_av_fn(aTHX_ buf, n);                                \
            Safefree(buf);                                                  \
        } else {                                                            \
            result = newAV();                                               \
        }                                                                   \
        mXPUSHs(newRV_noinc((SV *)result));                                 \
        XSRETURN(1);                                                        \
    }

MODULE = Sort::DJB    PACKAGE = Sort::DJB

PROTOTYPES: DISABLE

const char *
version()
    CODE:
        RETVAL = djbsort_version();
    OUTPUT:
        RETVAL

const char *
arch()
    CODE:
        RETVAL = djbsort_arch();
    OUTPUT:
        RETVAL

const char *
int32_implementation()
    CODE:
        RETVAL = djbsort_int32_implementation();
    OUTPUT:
        RETVAL

const char *
int32_compiler()
    CODE:
        RETVAL = djbsort_int32_compiler();
    OUTPUT:
        RETVAL

const char *
int64_implementation()
    CODE:
        RETVAL = djbsort_int64_implementation();
    OUTPUT:
        RETVAL

const char *
int64_compiler()
    CODE:
        RETVAL = djbsort_int64_compiler();
    OUTPUT:
        RETVAL

void
sort_int32(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_int32", av_ref, int32_t, djbsort_int32, av_to_int32, int32_to_av)

void
sort_int32down(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_int32down", av_ref, int32_t, djbsort_int32down, av_to_int32, int32_to_av)

void
sort_uint32(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_uint32", av_ref, uint32_t, djbsort_uint32, av_to_uint32, uint32_to_av)

void
sort_uint32down(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_uint32down", av_ref, uint32_t, djbsort_uint32down, av_to_uint32, uint32_to_av)

void
sort_int64(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_int64", av_ref, int64_t, djbsort_int64, av_to_int64, int64_to_av)

void
sort_int64down(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_int64down", av_ref, int64_t, djbsort_int64down, av_to_int64, int64_to_av)

void
sort_uint64(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_uint64", av_ref, uint64_t, djbsort_uint64, av_to_uint64, uint64_to_av)

void
sort_uint64down(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_uint64down", av_ref, uint64_t, djbsort_uint64down, av_to_uint64, uint64_to_av)

void
sort_float32(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_float32", av_ref, float, djbsort_float32, av_to_float32, float32_to_av)

void
sort_float32down(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_float32down", av_ref, float, djbsort_float32down, av_to_float32, float32_to_av)

void
sort_float64(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_float64", av_ref, double, djbsort_float64, av_to_float64, float64_to_av)

void
sort_float64down(av_ref)
        SV *av_ref
    PPCODE:
        SORT_BODY("sort_float64down", av_ref, double, djbsort_float64down, av_to_float64, float64_to_av)