You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
329 lines
7.0 KiB
329 lines
7.0 KiB
4 years ago
|
/* ------------------------------------------------------------
|
||
|
* Primitive Types
|
||
|
* ------------------------------------------------------------ */
|
||
|
|
||
|
/* bool */
|
||
|
|
||
|
%fragment(SWIG_From_frag(bool),"header") {
|
||
|
SWIGINTERNINLINE SV *
|
||
|
SWIG_From_dec(bool)(bool value)
|
||
|
{
|
||
|
SV *obj = sv_newmortal();
|
||
|
if (value) {
|
||
|
sv_setsv(obj, &PL_sv_yes);
|
||
|
} else {
|
||
|
sv_setsv(obj, &PL_sv_no);
|
||
|
}
|
||
|
return obj;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(bool),"header",
|
||
|
fragment="SWIG_CanCastAsInteger") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(bool)(SV *obj, bool* val)
|
||
|
{
|
||
|
if (obj == &PL_sv_yes) {
|
||
|
if (val) *val = true;
|
||
|
return SWIG_OK;
|
||
|
} else if (obj == &PL_sv_no) {
|
||
|
if (val) *val = false;
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
if (val) *val = SvTRUE(obj) ? true: false;
|
||
|
return SWIG_AddCast(SWIG_OK);
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|
||
|
/* long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(long),"header") {
|
||
|
SWIGINTERNINLINE SV *
|
||
|
SWIG_From_dec(long)(long value)
|
||
|
{
|
||
|
SV *obj = sv_newmortal();
|
||
|
sv_setiv(obj, (IV) value);
|
||
|
return obj;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(long),"header",
|
||
|
fragment="SWIG_CanCastAsInteger") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(long)(SV *obj, long* val)
|
||
|
{
|
||
|
if (SvIOK(obj)) {
|
||
|
if (val) *val = SvIV(obj);
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
int dispatch = 0;
|
||
|
const char *nptr = SvPV_nolen(obj);
|
||
|
if (nptr) {
|
||
|
char *endptr;
|
||
|
long v;
|
||
|
errno = 0;
|
||
|
v = strtol(nptr, &endptr,0);
|
||
|
if (errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_Str2NumCast(SWIG_OK);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
if (!dispatch) {
|
||
|
double d;
|
||
|
int res = SWIG_AddCast(SWIG_AsVal(double)(obj,&d));
|
||
|
if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, LONG_MIN, LONG_MAX)) {
|
||
|
if (val) *val = (long)(d);
|
||
|
return res;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* unsigned long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(unsigned long),"header",
|
||
|
fragment=SWIG_AsVal_frag(double)) {
|
||
|
SWIGINTERNINLINE SV *
|
||
|
SWIG_From_dec(unsigned long)(unsigned long value)
|
||
|
{
|
||
|
SV *obj = sv_newmortal();
|
||
|
sv_setuv(obj, (UV) value);
|
||
|
return obj;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(unsigned long),"header",
|
||
|
fragment="SWIG_CanCastAsInteger") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(unsigned long)(SV *obj, unsigned long *val)
|
||
|
{
|
||
|
if (SvUOK(obj)) {
|
||
|
if (val) *val = SvUV(obj);
|
||
|
return SWIG_OK;
|
||
|
} else if (SvIOK(obj)) {
|
||
|
long v = SvIV(obj);
|
||
|
if (v >= 0) {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
return SWIG_OverflowError;
|
||
|
}
|
||
|
} else {
|
||
|
int dispatch = 0;
|
||
|
const char *nptr = SvPV_nolen(obj);
|
||
|
if (nptr) {
|
||
|
char *endptr;
|
||
|
unsigned long v;
|
||
|
errno = 0;
|
||
|
v = strtoul(nptr, &endptr,0);
|
||
|
if (errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_Str2NumCast(SWIG_OK);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
if (!dispatch) {
|
||
|
double d;
|
||
|
int res = SWIG_AddCast(SWIG_AsVal(double)(obj,&d));
|
||
|
if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, ULONG_MAX)) {
|
||
|
if (val) *val = (unsigned long)(d);
|
||
|
return res;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* long long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(long long),"header",
|
||
|
fragment=SWIG_From_frag(long),
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdio.h>") {
|
||
|
SWIGINTERNINLINE SV *
|
||
|
SWIG_From_dec(long long)(long long value)
|
||
|
{
|
||
|
if (((long long) LONG_MIN <= value) && (value <= (long long) LONG_MAX)) {
|
||
|
return SWIG_From(long)(%numeric_cast(value,long));
|
||
|
} else {
|
||
|
char temp[256];
|
||
|
SV *obj = sv_newmortal();
|
||
|
sprintf(temp, "%lld", value);
|
||
|
sv_setpv(obj, temp);
|
||
|
return obj;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(long long),"header",
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdlib.h>",
|
||
|
fragment="SWIG_CanCastAsInteger") {
|
||
|
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(long long)(SV *obj, long long *val)
|
||
|
{
|
||
|
if (SvIOK(obj)) {
|
||
|
if (val) *val = SvIV(obj);
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
int dispatch = 0;
|
||
|
const char *nptr = SvPV_nolen(obj);
|
||
|
if (nptr) {
|
||
|
char *endptr;
|
||
|
long long v;
|
||
|
errno = 0;
|
||
|
v = strtoll(nptr, &endptr,0);
|
||
|
if (errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_Str2NumCast(SWIG_OK);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
if (!dispatch) {
|
||
|
const double mant_max = 1LL << DBL_MANT_DIG;
|
||
|
const double mant_min = -mant_max;
|
||
|
double d;
|
||
|
int res = SWIG_AddCast(SWIG_AsVal(double)(obj,&d));
|
||
|
if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, mant_min, mant_max)) {
|
||
|
if (val) *val = (long long)(d);
|
||
|
return res;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* unsigned long long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(unsigned long long),"header",
|
||
|
fragment=SWIG_From_frag(long long),
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdio.h>") {
|
||
|
SWIGINTERNINLINE SV *
|
||
|
SWIG_From_dec(unsigned long long)(unsigned long long value)
|
||
|
{
|
||
|
if (value < (unsigned long long) LONG_MAX) {
|
||
|
return SWIG_From(long long)(%numeric_cast(value, long long));
|
||
|
} else {
|
||
|
char temp[256];
|
||
|
SV *obj = sv_newmortal();
|
||
|
sprintf(temp, "%llu", value);
|
||
|
sv_setpv(obj, temp);
|
||
|
return obj;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(unsigned long long),"header",
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdlib.h>",
|
||
|
fragment="SWIG_CanCastAsInteger") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(unsigned long long)(SV *obj, unsigned long long *val)
|
||
|
{
|
||
|
if (SvUOK(obj)) {
|
||
|
if (val) *val = SvUV(obj);
|
||
|
return SWIG_OK;
|
||
|
} else if (SvIOK(obj)) {
|
||
|
long v = SvIV(obj);
|
||
|
if (v >= 0) {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
return SWIG_OverflowError;
|
||
|
}
|
||
|
} else {
|
||
|
int dispatch = 0;
|
||
|
const char *nptr = SvPV_nolen(obj);
|
||
|
if (nptr) {
|
||
|
char *endptr;
|
||
|
unsigned long long v;
|
||
|
errno = 0;
|
||
|
v = strtoull(nptr, &endptr,0);
|
||
|
if (errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_Str2NumCast(SWIG_OK);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
if (!dispatch) {
|
||
|
const double mant_max = 1LL << DBL_MANT_DIG;
|
||
|
double d;
|
||
|
int res = SWIG_AddCast(SWIG_AsVal(double)(obj,&d));
|
||
|
if (SWIG_IsOK(res) && SWIG_CanCastAsInteger(&d, 0, mant_max)) {
|
||
|
if (val) *val = (unsigned long long)(d);
|
||
|
return res;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* double */
|
||
|
|
||
|
%fragment(SWIG_From_frag(double),"header") {
|
||
|
SWIGINTERNINLINE SV *
|
||
|
SWIG_From_dec(double)(double value)
|
||
|
{
|
||
|
SV *obj = sv_newmortal();
|
||
|
sv_setnv(obj, value);
|
||
|
return obj;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(double),"header") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(double)(SV *obj, double *val)
|
||
|
{
|
||
|
if (SvNIOK(obj)) {
|
||
|
if (val) *val = SvNV(obj);
|
||
|
return SWIG_OK;
|
||
|
} else if (SvIOK(obj)) {
|
||
|
if (val) *val = (double) SvIV(obj);
|
||
|
return SWIG_AddCast(SWIG_OK);
|
||
|
} else {
|
||
|
const char *nptr = SvPV_nolen(obj);
|
||
|
if (nptr) {
|
||
|
char *endptr;
|
||
|
double v = strtod(nptr, &endptr);
|
||
|
if (errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_Str2NumCast(SWIG_OK);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|