gstreamer/swig/typemap.i

15 lines
208 B
OpenEdge ABL
Raw Normal View History

%include "typemap.i"
%typemap(perl5,in) const guchar *
{
int len;
$target = (guchar *) SvPV ($source, len);
}
%typemap(perl5,in) const gchar *
{
int len;
$target = (gchar *) SvPV ($source, len);
}