diff options
Diffstat (limited to 'share/swig/2.0.11/tcl/tclstrings.swg')
-rw-r--r-- | share/swig/2.0.11/tcl/tclstrings.swg | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/share/swig/2.0.11/tcl/tclstrings.swg b/share/swig/2.0.11/tcl/tclstrings.swg new file mode 100644 index 0000000..540d627 --- /dev/null +++ b/share/swig/2.0.11/tcl/tclstrings.swg @@ -0,0 +1,31 @@ +/* ------------------------------------------------------------ + * utility methods for char strings + * ------------------------------------------------------------ */ + +%fragment("SWIG_AsCharPtrAndSize","header") { +SWIGINTERN int +SWIG_AsCharPtrAndSize(Tcl_Obj *obj, char** cptr, size_t* psize, int *alloc) +{ + int len = 0; + char *cstr = Tcl_GetStringFromObj(obj, &len); + if (cstr) { + if (cptr) *cptr = cstr; + if (psize) *psize = len + 1; + if (alloc) *alloc = SWIG_OLDOBJ; + return SWIG_OK; + } + return SWIG_TypeError; +} +} + + +%fragment("SWIG_FromCharPtrAndSize","header", + fragment="<limits.h>") { +SWIGINTERNINLINE Tcl_Obj * +SWIG_FromCharPtrAndSize(const char* carray, size_t size) +{ + return (size < INT_MAX) ? Tcl_NewStringObj(carray, %numeric_cast(size,int)) : NULL; +} +} + + |