view release on metacpan or  search on metacpan

Nettle.xs  view on Meta::CPAN

       buf[0] = '0';
    mpz_get_str(buf + offset, 16, src);

    retlen = sz/2;
    ret = newSVpv("", retlen);
    retout = SvPV_nolen(ret);
    base16_decode_init(&armor);
    if (0 == base16_decode_update(&armor, &retlen, retout, sz, buf))
       croak("Failed to decode mpz_t");
    if (retlen != sz/2)
       croak("size of decoded mpz_t was unexpected");
    if (0 == base16_decode_final(&armor))
       croak("Failed to finalize mpz_t decoding");
    Safefree(buf);

    return ret;
}


MODULE = Crypt::Nettle        PACKAGE = Crypt::Nettle::Hash    PREFIX = cnh_