perl_math_int64.h

   1 /*
   2  * perl_math_int64.h - This file is in the public domain
   3  * Author: "Salvador Fandino <sfandino@yahoo.com>, Dave Rolsky <autarch@urth.org>"
   4  * Version: 2.1
   5  *
   6  * Generated on: 2016-01-04 10:07:18
   7  * Math::Int64 version: 0.54
   8  * Module::CAPIMaker version:
   9  */
  10
  11 #if !defined (PERL_MATH_INT64_H_INCLUDED)
  12 #define PERL_MATH_INT64_H_INCLUDED
  13
  14 #define MATH_INT64_C_API_REQUIRED_VERSION 2
  15 #define MATH_INT64_VERSION MATH_INT64_C_API_REQUIRED_VERSION
  16
  17 int perl_math_int64_load(int required_version);
  18
  19 #define PERL_MATH_INT64_LOAD perl_math_int64_load(MATH_INT64_C_API_REQUIRED_VERSION)
  20 #define PERL_MATH_INT64_LOAD_OR_CROAK \
  21     if (PERL_MATH_INT64_LOAD);        \
  22     else croak(NULL);
  23 #define MATH_INT64_BOOT PERL_MATH_INT64_LOAD_OR_CROAK
  24
  25 extern HV *math_int64_c_api_hash;
  26 extern int math_int64_c_api_min_version;
  27 extern int math_int64_c_api_max_version;
  28 #define math_int64_capi_version math_int64_c_api_max_version
  29
  30 #if (defined(MATH_INT64_NATIVE_IF_AVAILABLE) && (IVSIZE == 8))
  31 #define MATH_INT64_NATIVE 1
  32 #endif
  33
  34 extern int64_t   (*math_int64_c_api_SvI64)(pTHX_ SV*);
  35 #define SvI64(a) ((*math_int64_c_api_SvI64)(aTHX_ (a)))
  36 extern int       (*math_int64_c_api_SvI64OK)(pTHX_ SV*);
  37 #define SvI64OK(a) ((*math_int64_c_api_SvI64OK)(aTHX_ (a)))
  38 extern uint64_t  (*math_int64_c_api_SvU64)(pTHX_ SV*);
  39 #define SvU64(a) ((*math_int64_c_api_SvU64)(aTHX_ (a)))
  40 extern int       (*math_int64_c_api_SvU64OK)(pTHX_ SV*);
  41 #define SvU64OK(a) ((*math_int64_c_api_SvU64OK)(aTHX_ (a)))
  42 extern SV *      (*math_int64_c_api_newSVi64)(pTHX_ int64_t);
  43 #define newSVi64(a) ((*math_int64_c_api_newSVi64)(aTHX_ (a)))
  44 extern SV *      (*math_int64_c_api_newSVu64)(pTHX_ uint64_t);
  45 #define newSVu64(a) ((*math_int64_c_api_newSVu64)(aTHX_ (a)))
  46 extern uint64_t  (*math_int64_c_api_randU64)(pTHX);
  47 #define randU64() ((*math_int64_c_api_randU64)(aTHX))
  48
  49
  50 #if MATH_INT64_NATIVE
  51
  52 #undef newSVi64
  53 #define newSVi64 newSViv
  54 #undef newSVu64
  55 #define newSVu64 newSVuv
  56
  57 #define sv_seti64 sv_setiv_mg
  58 #define sv_setu64 sv_setuv_mg
  59
  60 #else
  61
  62 #define sv_seti64(target, i64) (sv_setsv_mg(target, sv_2mortal(newSVi64(i64))))
  63 #define sv_setu64(target, u64) (sv_setsv_mg(target, sv_2mortal(newSVu64(u64))))
  64
  65 #endif
  66
  67 #endif