diff options
Diffstat (limited to 'share/swig/2.0.11/tcl/tclprimtypes.swg')
-rw-r--r-- | share/swig/2.0.11/tcl/tclprimtypes.swg | 239 |
1 files changed, 0 insertions, 239 deletions
diff --git a/share/swig/2.0.11/tcl/tclprimtypes.swg b/share/swig/2.0.11/tcl/tclprimtypes.swg deleted file mode 100644 index e781798..0000000 --- a/share/swig/2.0.11/tcl/tclprimtypes.swg +++ /dev/null @@ -1,239 +0,0 @@ -/* ------------------------------------------------------------ - * 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; -} -} - |