view release on metacpan or  search on metacpan

Merger.xs  view on Meta::CPAN

#define SRCIJ(i, j) ((AvARRAY((AV*)(SvRV(srci[i]))))[j])


void
_resort(I32 type, AV *src)
PREINIT:
    I32 (*cmp)(pTHX_ SV *, SV *);
    int min, max, pv;
    SV **srci, **src0j, *k0, *i0;
    SV *src0;
PPCODE:
    switch (type) {
    case 0:
        cmp=&Perl_sv_cmp;
        break;
    case 1:
        cmp=&Perl_sv_cmp_locale;
        break;
    case 2:
        cmp=&sv_ncmp;
        break;