mirror of
https://github.com/nillerusr/source-engine.git
synced 2024-12-27 00:26:50 +00:00
32 lines
793 B
Plaintext
32 lines
793 B
Plaintext
|
/* ------------------------------------------------------------
|
||
|
|
* 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;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|