Merge pull request #152 from DimStar77/issue123

perl: Add XS_unpack_charPtrPtr function

1 files changed, 31 insertions, 0 deletions

diff --git a/bindings/perl/src/Libproxy.xs b/bindings/perl/src/Libproxy.xs
index 32c3200..bf5c2bb 100644
--- a/bindings/perl/src/Libproxy.xs
+++ b/bindings/perl/src/Libproxy.xs
@@ -15,6 +15,37 @@ void XS_pack_charPtrPtr( SV * arg, char ** array, int count) {
   SvSetSV( arg, newRV((SV*)avref));
 }
 
+/* http://www.perlmonks.org/?node_id=680842 */
+static char **
+XS_unpack_charPtrPtr (SV *arg) {
+  char **ret;
+  AV *av;
+  I32 i;
+
+  if (!arg || !SvOK (arg) || !SvROK (arg) || SvTYPE (SvRV (arg)) != SVt_PVAV)
+    croak ("array reference expected");
+
+  av = (AV *)SvRV (arg);
+  ret = malloc ((av_len (av) + 1 + 1) * sizeof (char *));
+  if (!ret)
+    croak ("malloc failed");
+
+  for (i = 0; i <= av_len (av); i++) {
+    SV **elem = av_fetch (av, i, 0);
+
+    if (!elem || !*elem) {
+      free (ret);
+      croak ("missing element in list");
+    }
+
+    ret[i] = SvPV_nolen (*elem);
+  }
+
+  ret[i] = NULL;
+
+  return ret;
+}
+
 
 MODULE = Net::Libproxy PACKAGE = Net::Libproxy