Help for this page

Select Code to Download


  1. or download this
    sub_from_xs(my $num, my $str);
  2. or download this
    void
sub_from_xs(SV *num, SV *str)
...

        sv_setiv_mg(num, nx);
        sv_setpv_mg(str, sx);
  3. or download this
    my ($num, $str) = sub_from_xs();
  4. or download this
    void
sub_from_xs()
...
        EXTEND(SP, 2);
        PUSHs(sv_2mortal(newSViv(nx)));
        PUSHs(sv_2mortal(newSVpv(sx, 0)));