view release on metacpan or  search on metacpan

XS.xs  view on Meta::CPAN

MODULE = Algorithm::MedianSelect::XS        PACKAGE = Algorithm::MedianSelect::XS

void
xs_median (...)
    PROTOTYPE: @\@
    INIT:
      long *numbers = NULL;
      unsigned int median, realitems;
      enum { BUBBLE_SORT = 1, QUICK_SORT };
    PPCODE:
      if (items == 1)
        {
          if (SvROK (ST(0)))
            {
              if (SvTYPE (SvRV(ST(0))) == SVt_PVAV)
                {
                  AV *aref = (AV *)SvRV (ST(0));
                  unsigned int i;
                  realitems = av_len (aref) + 1;
                  Newx (numbers, realitems, long);