The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include <gmp.h>
#include <mpfr.h>

SV * ___GNU_MP_VERSION(void) {
     return newSVuv(__GNU_MP_VERSION);
}

SV * ___GNU_MP_VERSION_MINOR(void) {
     return newSVuv(__GNU_MP_VERSION_MINOR);
}

SV * ___GNU_MP_VERSION_PATCHLEVEL(void) {
     return newSVuv(__GNU_MP_VERSION_PATCHLEVEL);
}

SV * ___GMP_CC(void) {
#ifdef __GMP_CC
     char * ret = __GMP_CC;
     return newSVpv(ret, 0);
#else
     return &PL_sv_undef;
#endif
}

SV * ___GMP_CFLAGS(void) {
#ifdef __GMP_CFLAGS
     char * ret = __GMP_CFLAGS;
     return newSVpv(ret, 0);
#else
     return &PL_sv_undef;
#endif
}

SV * gmp_v(void) {
     return newSVpv(gmp_version, 0);
}

SV * _MPFR_VERSION(void) {
     return newSVuv(MPFR_VERSION);
}

SV * _MPFR_VERSION_MAJOR(void) {
     return newSVuv(MPFR_VERSION_MAJOR);
}

SV * _MPFR_VERSION_MINOR(void) {
     return newSVuv(MPFR_VERSION_MINOR);
}
  
SV * _MPFR_VERSION_PATCHLEVEL(void) {
     return newSVuv(MPFR_VERSION_PATCHLEVEL);
}

SV * _MPFR_VERSION_STRING(void) {
     return newSVpv(MPFR_VERSION_STRING, 0);
}

SV * Rmpfr_get_version(void) {
     return newSVpv(mpfr_get_version(), 0);
}

MODULE = Math::MPFR::V	PACKAGE = Math::MPFR::V	

PROTOTYPES: DISABLE


SV *
___GNU_MP_VERSION ()
		

SV *
___GNU_MP_VERSION_MINOR ()
		

SV *
___GNU_MP_VERSION_PATCHLEVEL ()
		

SV *
___GMP_CC ()
		

SV *
___GMP_CFLAGS ()
		

SV *
gmp_v ()
		

SV *
_MPFR_VERSION ()
		

SV *
_MPFR_VERSION_MAJOR ()
		

SV *
_MPFR_VERSION_MINOR ()
		

SV *
_MPFR_VERSION_PATCHLEVEL ()
		

SV *
_MPFR_VERSION_STRING ()
		

SV *
Rmpfr_get_version ()