From c4fb9f00c88c329deee9c41aeb7c8f8a2640b197 Mon Sep 17 00:00:00 2001
From: Simon Marchetto <simon.marchetto@scilab-enterprises.com>
Date: Tue, 27 Aug 2013 11:57:43 +0200
Subject: [PATCH] Scilab: list helper getScilabListAndSize()

---
 Lib/scilab/scilist.swg | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/Lib/scilab/scilist.swg b/Lib/scilab/scilist.swg
index fc73d463a..c585726e4 100644
--- a/Lib/scilab/scilist.swg
+++ b/Lib/scilab/scilist.swg
@@ -43,6 +43,27 @@ SWIG_GetScilabListSize(SciObject _obj, int *_piListSize)
   return SWIG_OK;
 }
 
+SWIGINTERN int
+SWIG_GetScilabListAndSize(SciObject _obj, int **_piListAddr, int *_piListSize)
+{
+  SciErr sciErr;
+
+  sciErr = getVarAddressFromPosition(pvApiCtx, _obj, _piListAddr);
+  if (sciErr.iErr)
+  {
+    printError(&sciErr, 0);
+    return SWIG_ERROR;
+  }
+
+  sciErr = getListItemNumber(pvApiCtx, *_piListAddr, _piListSize);
+  if (sciErr.iErr)
+  {
+    printError(&sciErr, 0);
+    return SWIG_ERROR;
+  }
+
+  return SWIG_OK;
+}
 
 SWIGINTERN int
 SWIG_CheckScilabList(SciObject _obj)