#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include <gmp.h>

MODULE = Math::Tohex  PACKAGE = Math::Tohex

SV *
tohex(num)
        char *num
    CODE:
        char *out;
        ST(0) = sv_newmortal();
        mpz_t big;
        mpz_init_set_str(big, num, 10);
        Newx(out, 4 + mpz_sizeinbase(big, 16), char);
        mpz_get_str(out, 16, big);
        sv_setpv(ST(0), out);
        mpz_clear(big);
        Safefree(out);