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.
240 lines
5.5 KiB
240 lines
5.5 KiB
4 years ago
|
/* ------------------------------------------------------------
|
||
|
* Primitive Types
|
||
|
* ------------------------------------------------------------ */
|
||
|
|
||
|
/* boolean */
|
||
|
|
||
|
%fragment(SWIG_From_frag(bool),"header") {
|
||
|
%define_as(SWIG_From_dec(bool), Tcl_NewBooleanObj)
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(bool),"header") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(bool)(Tcl_Obj *obj, bool *val)
|
||
|
{
|
||
|
int v;
|
||
|
if (Tcl_GetBooleanFromObj(0, obj, &v) == TCL_OK) {
|
||
|
if (val) *val = v ? true : false;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(long),"header",
|
||
|
fragment="<limits.h>") {
|
||
|
SWIGINTERNINLINE Tcl_Obj*
|
||
|
SWIG_From_dec(long)(long value)
|
||
|
{
|
||
|
if (((long) INT_MIN <= value) && (value <= (long) INT_MAX)) {
|
||
|
return Tcl_NewIntObj(%numeric_cast(value,int));
|
||
|
} else {
|
||
|
return Tcl_NewLongObj(value);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(long),"header") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(long)(Tcl_Obj *obj, long* val)
|
||
|
{
|
||
|
long v;
|
||
|
if (Tcl_GetLongFromObj(0,obj, &v) == TCL_OK) {
|
||
|
if (val) *val = (long) v;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* unsigned long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(unsigned long),"header",
|
||
|
fragment=SWIG_From_frag(long),
|
||
|
fragment="<stdio.h>") {
|
||
|
SWIGINTERNINLINE Tcl_Obj*
|
||
|
SWIG_From_dec(unsigned long)(unsigned long value)
|
||
|
{
|
||
|
if (value < (unsigned long) LONG_MAX) {
|
||
|
return SWIG_From(long)(%numeric_cast(value, long));
|
||
|
} else {
|
||
|
char temp[256];
|
||
|
sprintf(temp, "%lu", value);
|
||
|
return Tcl_NewStringObj(temp,-1);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(unsigned long),"header",
|
||
|
fragment="<limits.h>") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(unsigned long)(Tcl_Obj *obj, unsigned long *val) {
|
||
|
long v;
|
||
|
if (Tcl_GetLongFromObj(0,obj, &v) == TCL_OK) {
|
||
|
if (v >= 0) {
|
||
|
if (val) *val = (unsigned long) v;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
/* If v is negative, then this could be a negative number, or an
|
||
|
unsigned value which doesn't fit in a signed long, so try to
|
||
|
get it as a string so we can distinguish these cases. */
|
||
|
}
|
||
|
{
|
||
|
int len = 0;
|
||
|
const char *nptr = Tcl_GetStringFromObj(obj, &len);
|
||
|
if (nptr && len > 0) {
|
||
|
char *endptr;
|
||
|
unsigned long v;
|
||
|
if (*nptr == '-') return SWIG_OverflowError;
|
||
|
errno = 0;
|
||
|
v = strtoul(nptr, &endptr,0);
|
||
|
if (nptr[0] == '\0' || *endptr != '\0')
|
||
|
return SWIG_TypeError;
|
||
|
if (v == ULONG_MAX && errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* long long */
|
||
|
|
||
|
%fragment(SWIG_From_frag(long long),"header",
|
||
|
fragment=SWIG_From_frag(long),
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdio.h>") {
|
||
|
SWIGINTERNINLINE Tcl_Obj*
|
||
|
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];
|
||
|
sprintf(temp, "%lld", value);
|
||
|
return Tcl_NewStringObj(temp,-1);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(long long),"header",
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdlib.h>") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(long long)(Tcl_Obj *obj, long long *val)
|
||
|
{
|
||
|
long v;
|
||
|
if (Tcl_GetLongFromObj(0,obj, &v) == TCL_OK) {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
int len = 0;
|
||
|
const char *nptr = Tcl_GetStringFromObj(obj, &len);
|
||
|
if (nptr && len > 0) {
|
||
|
char *endptr;
|
||
|
long long v;
|
||
|
errno = 0;
|
||
|
v = strtoll(nptr, &endptr,0);
|
||
|
if (nptr[0] == '\0' || *endptr != '\0')
|
||
|
return SWIG_TypeError;
|
||
|
if ((v == LLONG_MAX || v == LLONG_MIN) && errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
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 Tcl_Obj*
|
||
|
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];
|
||
|
sprintf(temp, "%llu", value);
|
||
|
return Tcl_NewStringObj(temp,-1);
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(unsigned long long),"header",
|
||
|
fragment=SWIG_AsVal_frag(unsigned long),
|
||
|
fragment="<limits.h>",
|
||
|
fragment="<stdlib.h>") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(unsigned long long)(Tcl_Obj *obj, unsigned long long *val)
|
||
|
{
|
||
|
long v;
|
||
|
if (Tcl_GetLongFromObj(0,obj, &v) == TCL_OK) {
|
||
|
if (val) *val = (unsigned long) v;
|
||
|
return SWIG_OK;
|
||
|
} else {
|
||
|
int len = 0;
|
||
|
const char *nptr = Tcl_GetStringFromObj(obj, &len);
|
||
|
if (nptr && len > 0) {
|
||
|
char *endptr;
|
||
|
unsigned long long v;
|
||
|
if (*nptr == '-') return SWIG_OverflowError;
|
||
|
errno = 0;
|
||
|
v = strtoull(nptr, &endptr,0);
|
||
|
if (nptr[0] == '\0' || *endptr != '\0')
|
||
|
return SWIG_TypeError;
|
||
|
if (v == ULLONG_MAX && errno == ERANGE) {
|
||
|
errno = 0;
|
||
|
return SWIG_OverflowError;
|
||
|
} else {
|
||
|
if (*endptr == '\0') {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
/* double */
|
||
|
|
||
|
%fragment(SWIG_From_frag(double),"header") {
|
||
|
%define_as(SWIG_From(double), Tcl_NewDoubleObj)
|
||
|
}
|
||
|
|
||
|
%fragment(SWIG_AsVal_frag(double),"header") {
|
||
|
SWIGINTERN int
|
||
|
SWIG_AsVal_dec(double)(Tcl_Obj *obj, double *val)
|
||
|
{
|
||
|
double v;
|
||
|
if (Tcl_GetDoubleFromObj(0, obj, &v) == TCL_OK) {
|
||
|
if (val) *val = v;
|
||
|
return SWIG_OK;
|
||
|
}
|
||
|
return SWIG_TypeError;
|
||
|
}
|
||
|
}
|
||
|
|