From 0930b738f5261d4e2630242ca5fa2a6bc63026ff 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: Sat, 17 Jul 2021 09:41:41 +0800 Subject: Finally able to typemap char **[] right For now the item object is still flattened. --- pikul.i | 20 +++++++++++--------- 1 file changed, 11 insertions(+), 9 deletions(-) diff --git a/pikul.i b/pikul.i index 69f582a..a4215e9 100644 --- a/pikul.i +++ b/pikul.i @@ -19,21 +19,23 @@ } %typemap(in) char **[] { - AV *tempav = (AV *)SvRV($input); - I32 len = av_len(tempav); - $1 = (char ***)malloc((len + 2) * sizeof(char **)); + AV *items = (AV *)SvRV($input); + I32 nitems_min1 = av_len(items); + $1 = (char ***)malloc((nitems_min1 + 2) * sizeof(char **)); int i; - for (i = 0; i <= len; i++) { - AV *av = (AV *)av_fetch(tempav, i, 0); - I32 avlen = av_len(av); - $1[i] = (char **)malloc((avlen + 2) * sizeof(char *)); + for (i = 0; i <= nitems_min1; i++) { + SV **refptr = av_fetch(items, i, 0); + AV *flat = (AV *)SvRV(*refptr); + I32 nattrs_min1 = av_len(flat); + $1[i] = (char **)malloc((nattrs_min1 + 2) * sizeof(char *)); int j; - for (j = 0; j <= avlen; j++) { - SV **tv = av_fetch(av, j, 0); + for (j = 0; j <= nattrs_min1; j++) { + SV **tv = av_fetch(flat, j, 0); $1[i][j] = (char *)SvPV(*tv, PL_na); } $1[i][j] = NULL; } + $1[i] = NULL; }; %typemap(freearg) char **[] { free($1); -- cgit v1.2.3