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.
62 lines
1.6 KiB
62 lines
1.6 KiB
5 years ago
|
/* ------------------------------------------------------------
|
||
|
|
* utility methods for char strings
|
||
|
|
* ------------------------------------------------------------ */
|
||
|
|
|
||
|
|
%fragment("SWIG_AsCharPtrAndSize","header",fragment="SWIG_pchar_descriptor") {
|
||
|
|
SWIGINTERN int
|
||
|
|
SWIG_AsCharPtrAndSize(VALUE obj, char** cptr, size_t* psize, int *alloc)
|
||
|
|
{
|
||
|
|
if (TYPE(obj) == T_STRING) {
|
||
|
|
%#if defined(StringValuePtr)
|
||
|
|
char *cstr = StringValuePtr(obj);
|
||
|
|
%#else
|
||
|
|
char *cstr = STR2CSTR(obj);
|
||
|
|
%#endif
|
||
|
|
size_t size = RSTRING_LEN(obj) + 1;
|
||
|
|
if (cptr) {
|
||
|
|
if (alloc) {
|
||
|
|
if (*alloc == SWIG_NEWOBJ) {
|
||
|
|
*cptr = %new_copy_array(cstr, size, char);
|
||
|
|
} else {
|
||
|
|
*cptr = cstr;
|
||
|
|
*alloc = SWIG_OLDOBJ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
if (psize) *psize = size;
|
||
|
|
return SWIG_OK;
|
||
|
|
} else {
|
||
|
|
swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
|
||
|
|
if (pchar_descriptor) {
|
||
|
|
void* vptr = 0;
|
||
|
|
if (SWIG_ConvertPtr(obj, &vptr, pchar_descriptor, 0) == SWIG_OK) {
|
||
|
|
if (cptr) *cptr = (char *)vptr;
|
||
|
|
if (psize) *psize = vptr ? (strlen((char*)vptr) + 1) : 0;
|
||
|
|
if (alloc) *alloc = SWIG_OLDOBJ;
|
||
|
|
return SWIG_OK;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return SWIG_TypeError;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
%fragment("SWIG_FromCharPtrAndSize","header",fragment="SWIG_pchar_descriptor") {
|
||
|
|
SWIGINTERNINLINE VALUE
|
||
|
|
SWIG_FromCharPtrAndSize(const char* carray, size_t size)
|
||
|
|
{
|
||
|
|
if (carray) {
|
||
|
|
if (size > LONG_MAX) {
|
||
|
|
swig_type_info* pchar_descriptor = SWIG_pchar_descriptor();
|
||
|
|
return pchar_descriptor ?
|
||
|
|
SWIG_NewPointerObj(%const_cast(carray,char *), pchar_descriptor, 0) : Qnil;
|
||
|
|
} else {
|
||
|
|
return rb_str_new(carray, %numeric_cast(size,long));
|
||
|
|
}
|
||
|
|
} else {
|
||
|
|
return Qnil;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|