1 files changed, 130 insertions, 0 deletions
diff --git a/sci_gateway/cpp/opencv_arclength.cpp b/sci_gateway/cpp/opencv_arclength.cpp
new file mode 100644
index 0000000..764ebfc
--- /dev/null
+++ b/sci_gateway/cpp/opencv_arclength.cpp
@@ -0,0 +1,130 @@
+/* ==================================================================== */
+/* Author :Priyanka Hiranandani NIT Surat                               */
+/* ==================================================================== */
+/* Syntax : return_doublevalue=arcLength(InputArray curve, bool closed)                            */
+/* ==================================================================== */
+#include <numeric>
+#include "opencv2/core/core.hpp"
+#include "opencv2/highgui/highgui.hpp"
+#include "opencv2/opencv.hpp"
+#include <iostream>
+#include <sciprint.h>
+using namespace cv;
+using namespace std;
+  extern "C"
+  {
+  #include "api_scilab.h"
+  #include "Scierror.h"
+  #include "BOOL.h"
+  #include <localization.h>
+  #include "../common.h"  
+  int arclenght(char *fname, unsigned long fname_len)
+    {
+    // Error management variable
+        SciErr sciErr;
+    //variable info
+	int iRows		= 0;
+	int iCols		= 0;
+        int piRows		= 0;
+	int piCols		= 0;
+	int* piAddr		= NULL;
+        int* piAddr2            = NULL;
+        int* piAddr3            = NULL;
+        int* piAddr4            = NULL;
+        int* piAddr5            = NULL;
+        int* piAddr6            = NULL;
+        int* piAddrNew          = NULL;
+	int* piLen		= NULL;
+	double *pstData	        = NULL;
+        char **pstData2    	= NULL;
+        double *rrows;
+        double *rcols;
+        unsigned char *pstDataR = NULL;
+        unsigned char *pstDataG = NULL;
+        unsigned char *pstDataB = NULL;
+        int noofitem;
+        double res;
+        double *epsilon;
+        int error;
+         //checking input argument 
+        CheckInputArgument(pvApiCtx,2,2);
+         //checking output argument
+        CheckOutputArgument(pvApiCtx, 1, 1);
+         //for first argument 
+         // get Address of first input  
+        sciErr =getVarAddressFromPosition(pvApiCtx,1,&piAddr);
+          //check for any error
+             if(sciErr.iErr)   
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }      
+           //retrieve input array
+          //SciErr getMatrixOfDouble(void* _pvCtx, int* _piAddress, int* _piRows, int* _piCols, double** _pdblReal)
+        sciErr = getMatrixOfDouble(pvApiCtx, piAddr, &iRows, &iCols,&pstData);
+             if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+        int k=0;
+        vector<Point> contours;
+        for(int i=0;i<iCols;i++)
+         {
+                  
+               contours.push_back(Point2f(pstData[i],pstData[i+1])) ;   
+               i++;
+         }
+     
+    //retriving 2nd argument
+         sciErr = getVarAddressFromPosition(pvApiCtx,2,&piAddr2);
+         sciErr = getMatrixOfString(pvApiCtx, piAddr2, &iRows, &iCols, NULL, NULL);
+         if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+          piLen = (int*)malloc(sizeof(int) * iRows * iCols);
+    //second call to retrieve length of each string of first argument
+          sciErr = getMatrixOfString(pvApiCtx, piAddr2, &iRows, &iCols, piLen, NULL);
+          if(sciErr.iErr)
+               {
+                printError(&sciErr, 0);
+                return 0;
+               }
+          pstData2 = (char**)malloc(sizeof(char*) * iRows * iCols);
+          for(int i = 0 ; i < iRows * iCols ; i++)
+               {
+               pstData2[i] = (char*)malloc(sizeof(char) * (piLen[i] + 1));//+ 1 for null termination
+               }
+    //third call to retrieve data of each string of first argument
+          sciErr = getMatrixOfString(pvApiCtx, piAddr2, &iRows, &iCols, piLen, pstData2);
+          if(sciErr.iErr)
+               {
+               printError(&sciErr, 0);
+               return 0;
+               }
+        
+          if(!strcmp("True",pstData2[0]))
+               {
+               res=arcLength(contours,true);
+               }
+          else if(!strcmp("False",pstData2[0]))
+               {
+               res=arcLength(contours,false);
+               }
+          error=createScalarDouble(pvApiCtx,nbInputArgument(pvApiCtx)+1,res);
+          if(error!=0)
+          {
+           sciprint("error occurred");
+           return 0;    
+          }  
+    ////////// Return the output arguments to the Scilab engine //////////
+
+        AssignOutputVariable(pvApiCtx, 1) = nbInputArgument(pvApiCtx) + 1;
+
+        ReturnArguments(pvApiCtx);    
+
+        return 0;     
+}
+}