From 8b72e93f4512de6d07e1e1286a5557eaa72e2448 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?= =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?= Date: Tue, 16 Aug 2022 21:50:25 +0800 Subject: The typemaps so far are Perl only --- pikul.i | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/pikul.i b/pikul.i index 748edae..507491a 100644 --- a/pikul.i +++ b/pikul.i @@ -3,6 +3,8 @@ #include "pikul.h" %} +#ifdef SWIGPERL + %typemap(in) char *[] { AV *tempav = (AV *)SvRV($input); I32 len = av_len(tempav); @@ -41,5 +43,7 @@ free($1); } +#endif + %rename("%(strip:[pikul_])s") ""; %include "pikul.h" -- cgit v1.2.3