/trunk/Lib/tcl/tclstrings.swg
# · Unknown · 31 lines · 26 code · 5 blank · 0 comment · 0 complexity · d3d60675f53e3195fc234a815c37dfea MD5 · raw file
- /* ------------------------------------------------------------
- * 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;
- }
- }