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.
54 lines
1.3 KiB
54 lines
1.3 KiB
/* ------------------------------------------------------------ |
|
* utility methods for char strings |
|
* ------------------------------------------------------------ */ |
|
|
|
%fragment("SWIG_AsCharPtrAndSize","header",fragment="SWIG_pchar_descriptor") { |
|
SWIGINTERN int |
|
SWIG_AsCharPtrAndSize(SV *obj, char** cptr, size_t* psize, int *alloc) |
|
{ |
|
if (SvPOK(obj)) { |
|
STRLEN len = 0; |
|
char *cstr = SvPV(obj, len); |
|
size_t size = len + 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) { |
|
char* vptr = 0; |
|
if (SWIG_ConvertPtr(obj, (void**)&vptr, pchar_descriptor, 0) == SWIG_OK) { |
|
if (cptr) *cptr = vptr; |
|
if (psize) *psize = vptr ? (strlen(vptr) + 1) : 0; |
|
if (alloc) *alloc = SWIG_OLDOBJ; |
|
return SWIG_OK; |
|
} |
|
} |
|
} |
|
return SWIG_TypeError; |
|
} |
|
} |
|
|
|
%fragment("SWIG_FromCharPtrAndSize","header") { |
|
SWIGINTERNINLINE SV * |
|
SWIG_FromCharPtrAndSize(const char* carray, size_t size) |
|
{ |
|
SV *obj = sv_newmortal(); |
|
if (carray) { |
|
sv_setpvn(obj, carray, size); |
|
} else { |
|
sv_setsv(obj, &PL_sv_undef); |
|
} |
|
return obj; |
|
} |
|
} |
|
|
|
|