Perl_sortsv_flags(aTHX_ AvARRAY(data),arrayLen+1,Perl_sv_cmp, flags);
[download]

use warnings;
use Inline C => Config =>
    CLEAN_AFTER_BUILD => 0,
    BUILD_NOISY => 1;

use Inline C => <<'END_OF_C_CODE';

    void test(AV* data) {

      I32 i;
      I32 arrayLen;
      float retval;
      SV** pvalue;

      arrayLen = av_len(data);

      sortsv(AvARRAY(data),arrayLen+1,Perl_sv_cmp);

      for (i = 0; i < arrayLen+1; i++) {

        pvalue = av_fetch(data,i,0); 
        printf("%s \n",SvPVX(*pvalue));
      }
    }

END_OF_C_CODE

my $ref = [ 5.0e-5,4.2e-5,4.3e-5,4.4e-5,4.4e-5,4.2e-5,4.2e-5,4.0e-5];

for(@$ref) {$_ = sprintf "%f", $_}

test($ref);
[download]

PP_sort.c contains all these routines which appear to be defined such that they could be used as alternatives to Perl_sv_cmp:

S_sortcv(pTHX_ SV *a, SV *b)
S_sortcv_stacked(pTHX_ SV *a, SV *b)
S_sortcv_xsub(pTHX_ SV *a, SV *b)

S_sv_ncmp(pTHX_ SV *a, SV *b)
S_sv_i_ncmp(pTHX_ SV *a, SV *b)

S_amagic_ncmp(pTHX_ register SV *a, register SV *b)
S_amagic_i_ncmp(pTHX_ register SV *a, register SV *b)
S_amagic_cmp(pTHX_ register SV *str1, register SV *str2)
S_amagic_cmp_locale(pTHX_ register SV *str1, register SV *str2)
[download]

They are prototyped in proto.h and aliased in embed.h, but even including those explicitly does not allow them to be seen at compile time?

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

The perl api is not very clear here. I have been trying to write my own numberical sort function (for Perl_sv_cmp) and am not sure if I even have the right args. It seems simple enough, but I have not been able to figure it out.

sortsv(AvARRAY(data), arrayLen+1, Perl_sv_cmp);
to
sortsv(AvARRAY(data), arrayLen+1, numerical_cmp);

???
I32 numerical_cmp(SV* sv1,SV* sv2) {

  double num1;
  double num2;

  num1 = (double)*sv1;
  num2 = (double)*sv2;

  if (num1 == num2) {
    return 0;
  }
  else if (num1 > num2) {
    return 1;
  }
  else {
    return -1;
  }
}
[download]