Initial commit

winx64/bin/swig-3.0.12/Examples/scilab/matrix2/Makefile

@@ -0,0 +1,17 @@
+TOP        = ../..
+SWIGEXE    = $(TOP)/../swig
+SWIG_LIB_DIR = $(TOP)/../$(TOP_BUILDDIR_TO_TOP_SRCDIR)Lib
+SRCS       = example.c
+TARGET     = example
+INTERFACE  = example.i
+
+check: build
+	$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' scilab_run
+
+build:
+	$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' SRCS='$(SRCS)' \
+	SWIG_LIB_DIR='$(SWIG_LIB_DIR)' SWIGEXE='$(SWIGEXE)' \
+	TARGET='$(TARGET)' INTERFACE='$(INTERFACE)' scilab
+
+clean:
+	$(MAKE) -f $(TOP)/Makefile SRCDIR='$(SRCDIR)' scilab_clean

winx64/bin/swig-3.0.12/Examples/scilab/matrix2/example.c

@@ -0,0 +1,118 @@
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+
+// Double matrix functions
+
+double sumDoubleMatrix(double *inputMatrix, int nbRow, int nbCol)
+{
+	int i;
+	double total = 0.0;
+	for (i=0; i<nbRow*nbCol; i++)
+	{
+		total += inputMatrix[i];
+	}
+	return total;
+}
+
+void squareDoubleMatrix(double *inputMatrix, int nbRow, int nbCol, double** resultMatrix, int* nbRowRes, int* nbColRes)
+{
+	int i;
+	int size = nbRow * nbCol;
+	*nbRowRes = nbRow;
+	*nbColRes = nbCol;
+	*resultMatrix = (double*) malloc(size * sizeof(double));
+	for (i=0; i<size; i++)
+	{
+		(*resultMatrix)[i] = inputMatrix[i] * inputMatrix[i];
+ 	}
+}
+
+void getDoubleMatrix(double **resultMatrix, int *nbRowRes, int *nbColRes)
+{
+	int i;
+	int size;
+	*nbRowRes = 5;
+	*nbColRes = 3;
+	size = (*nbRowRes) * (*nbColRes);
+   	*resultMatrix = (double*) malloc(size * sizeof(double));
+	for (i=0; i<size; i++)
+	{
+		(*resultMatrix)[i] = i*2;
+	}
+}
+
+// Integer matrix functions
+
+int sumIntegerMatrix(int *inputMatrix, int nbRow, int nbCol)
+{
+	int i;
+	int total = 0;
+	for (i=0; i<nbRow*nbCol; i++)
+	{
+		total += inputMatrix[i];
+	}
+	return total;
+}
+
+void squareIntegerMatrix(int *inputMatrix, int nbRow, int nbCol, int** resultMatrix, int* nbRowRes, int* nbColRes)
+{
+	int i;
+	int size = nbRow * nbCol;
+	*nbRowRes = nbRow;
+	*nbColRes = nbCol;
+	*resultMatrix = (int*) malloc(size * sizeof(int));
+	for (i=0; i<size; i++)
+	{
+		(*resultMatrix)[i] = inputMatrix[i] * inputMatrix[i];
+ 	}
+}
+
+void getIntegerMatrix(int **resultMatrix, int *nbRowRes, int *nbColRes)
+{
+	int i;
+	int size;
+	*nbRowRes = 5;
+	*nbColRes = 3;
+	size = (*nbRowRes) * (*nbColRes);
+   	*resultMatrix = (int*) malloc(size * sizeof(int));
+	for (i=0; i<size; i++)
+	{
+		(*resultMatrix)[i] = i*2;
+	}
+}
+
+// String matrix functions
+
+char* concatStringVector(char **inputVector, int size)
+{
+	int i;
+	int resultSize;
+	char *result;
+	resultSize = 3 * size + 1;
+	result = calloc(resultSize, sizeof(char));
+	strcpy(result, inputVector[0]);
+	for (i=1; i<size; i++)
+	{
+		strcat(result, " ");
+		strcat(result, (const char*) inputVector[i]);
+   	}
+   	return result;
+}
+
+void getStringVector(char ***resultVector, int *sizeRes)
+{
+	int i;
+	*sizeRes = 12;
+   	*resultVector = (char**) malloc((*sizeRes) * sizeof(char*));
+	for (i=0; i<*sizeRes; i++)
+	{
+		char* pc = (char*) calloc(3, sizeof(char));
+		sprintf(pc, "%d", i);
+		(*resultVector)[i] = pc;
+	}
+}
+
+
+

winx64/bin/swig-3.0.12/Examples/scilab/matrix2/example.i

@@ -0,0 +1,26 @@
+%module example
+
+%include matrix.i
+
+%apply (double *IN, int IN_ROWCOUNT, int IN_COLCOUNT) { (double *inputMatrix, int nbRow, int nbCol) }
+%apply (double **OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT) { (double **resultMatrix, int *nbRowRes, int *nbColRes) }
+
+%apply (int *IN, int IN_ROWCOUNT, int IN_COLCOUNT) { (int *inputMatrix, int nbRow, int nbCol) }
+%apply (int **OUT, int *OUT_ROWCOUNT, int *OUT_COLCOUNT) { (int **resultMatrix, int *nbRowRes, int *nbColRes) }
+
+%apply (char **IN, int IN_SIZE) { (char **inputVector, int size) }
+%apply (char ***OUT, int *OUT_SIZE) { (char ***resultVector, int *sizeRes) }
+
+%inline %{
+  extern double sumDoubleMatrix(double *inputMatrix, int nbRow, int nbCol);
+  extern void squareDoubleMatrix(double *inputMatrix, int nbRow, int nbCol, double **resultMatrix, int *nbRowRes, int *nbColRes);
+  extern void getDoubleMatrix(double **resultMatrix, int *nbRowRes, int *nbColRes);
+
+  extern int sumIntegerMatrix(int *inputMatrix, int nbRow, int nbCol);
+  extern void squareIntegerMatrix(int *inputMatrix, int nbRow, int nbCol, int **resultMatrix, int *nbRowRes, int *nbColRes);
+  extern void getIntegerMatrix(int **resultMatrix, int *nbRowRes, int *nbColRes);
+
+  extern char* concatStringVector(char **inputVector, int size);
+  extern void getStringVector(char ***resultVector, int *sizeRes);
+%}
+

winx64/bin/swig-3.0.12/Examples/scilab/matrix2/main.c

@@ -0,0 +1,24 @@
+double sumitems(double *first, int nbRow, int nbCol);
+void main(){
+/**
+ * --> myMatrix=[ 103 3 1    12;0   0 2043 1];
+ * --> sumitems(myMatrix);
+ * 32
+ */
+	double B[] = {1,3,4,9,2,8,3,2};   /* Declare the matrix */
+	int rowB = 2, colB = 4; 
+	printf("sumitems: %6.2f\n",sumitems(B, rowB, colB));
+
+
+/**
+ * --> myOtherMatrix=generateValues();
+ * --> size(myOtherMatrix);
+ */
+	int numberRow, numberCol, i;
+	double * matrix=getValues(&numberRow, &numberCol);
+	printf("Matrix of size [%d,%d]",numberRow, numberCol);
+	for(i=0; i < numberRow*numberCol; i++)
+	{
+		printf("A[%d] = %5.2f\n",i,matrix[i]);
+	}
+}

winx64/bin/swig-3.0.12/Examples/scilab/matrix2/runme.sci

@@ -0,0 +1,51 @@
+lines(0);
+ilib_verbose(0);
+ierr = exec('loader.sce', 'errcatch');
+if ierr <> 0 then
+  disp(lasterror());
+  exit(ierr);
+end
+
+// Test lib double matrix functions
+disp("Call lib function getDoubleMatrix()");
+doubleMatrix = getDoubleMatrix();
+disp(doubleMatrix);
+
+disp("Call lib function sumDoubleMatrix()");
+s = sumDoubleMatrix(doubleMatrix);
+disp(s);
+
+disp("Call lib function squareDoubleMatrix()");
+sqrd = squareDoubleMatrix(doubleMatrix);
+disp(sqrd);
+
+
+// Test lib integer matrix functions
+
+disp("Call lib function getIntegerMatrix()");
+integerMatrix = getIntegerMatrix();
+disp(integerMatrix);
+
+disp("Call lib function sumIntegerMatrix()");
+s = sumIntegerMatrix(integerMatrix);
+disp(s);
+
+disp("Call lib function squareIntegerMatrix()");
+sqri = squareIntegerMatrix(integerMatrix);
+disp(sqri);
+
+
+// Test lib string matrix functions
+
+disp("Call lib function getStringVector()");
+stringVector = getStringVector();
+disp(stringVector);
+
+disp("Call lib function concatStringVector()");
+stringVector2 = concatStringVector(stringVector);
+disp(stringVector2);
+
+exit
+
+
+