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.
31 lines
793 B
31 lines
793 B
/* ------------------------------------------------------------ |
|
* 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; |
|
} |
|
} |
|
|
|
|
|
|