use strict;
use warnings;

use Inline C => Config =>
 BUILD_NOISY => 1,
;

use Inline C => <<'EOC';

void foo(SV * arg) {
  SV * keysv = sv_newmortal();

  /* Make sure arg is an NV */
  if(!SvNOK(arg)) croak("Not a valid arg passed to foo for this demo");

  printf(   "NV: %.19" NVgf, SvNV(arg));
  sv_setpvf(keysv, "%.19" NVgf, SvNV(arg));

  printf("\nsv: %s\n\n", SvPV_nolen(keysv));
}

void bar(SV * arg) {
  SV * keysv = sv_newmortal();
  char buff[30];

  /* Make sure arg is an NV */
  if(!SvNOK(arg)) croak("Not a valid arg  passed to bar for this demo");

  sprintf(buff, "%.19" NVgf, SvNV(arg));
  printf("NV: %s", buff);
  sv_setpvf(keysv, "%s", buff);

  printf("\nsv: %s\n\n", SvPV_nolen(keysv));
}

EOC

my @v = (2 ** 55, 2 ** 56, 2 ** 57, 2 ** 58, 2 ** 63);

foo($_) for @v;
print "################\n\n";
bar($_) for @v;