added isrow

7 files changed, 183 insertions, 0 deletions

diff --git a/2.3-1/src/c/elementaryFunctions/includes/isrow.h b/2.3-1/src/c/elementaryFunctions/includes/isrow.h
new file mode 100644
index 00000000..0b867b03
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/includes/isrow.h
@@ -0,0 +1,33 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#ifndef __ISROW_H__
+#define __ISROW_H__
+
+
+#include "types.h"
+
+#ifdef  __cplusplus
+extern "C" {
+#endif
+
+double disrowa(double* , int);
+double disrows(double);
+double sisrowa( float* , int);
+double sisrows( float);
+double gisrowa(char* , int);
+
+#ifdef  __cplusplus
+} /* extern "C" */
+#endif
+
+#endif
diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_isrow.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_isrow.h
new file mode 100644
index 00000000..22cd89af
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_isrow.h
@@ -0,0 +1,23 @@
+ /*This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+
+
+#ifndef __INT_ISROW_H__
+#define __INT_ISROW_H__
+
+#define d2isrowd0(in, size )        disrowa(in, size[0])
+#define d0isrowd0(in)               disrows(in)
+#define s2isrowd0(in , size)        siswora(in, size[0])
+#define s0isrowd0(in)               sisrows(in)
+#define g2isrowd0(in, size)         gisrowa(in, size[0])
+
+
+#endif
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c
new file mode 100644
index 00000000..8bb7e5ff
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/disrowa.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "isrow.h"
+#include "types.h"
+double disrowa(double* inp, int size1)
+{
+   double out=0;
+    if(size1==1)
+    {
+     out  = 1;
+    }
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/disrows.c b/2.3-1/src/c/elementaryFunctions/isrow/disrows.c
new file mode 100644
index 00000000..35756c19
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/disrows.c
@@ -0,0 +1,24 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "isrow.h"
+#include "types.h"
+
+double disrows(double inp)
+{
+   double out=1;
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c
new file mode 100644
index 00000000..dd16a9f9
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/gisrowa.c
@@ -0,0 +1,27 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "isrow.h"
+#include "types.h"
+#include "string.h"
+double gisrowa(char *inp, int size1)
+{
+   double out=0;
+    if(size1==1)
+    {
+     out  = 1;
+    }
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c b/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c
new file mode 100644
index 00000000..cfbc218c
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/sisrowa.c
@@ -0,0 +1,26 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "isrow.h"
+#include "types.h"
+double sisrowa(float* inp, int size1)
+{
+   double out=0;
+    if(size1==1)
+    {
+     out  = 1;
+    }
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c b/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c
new file mode 100644
index 00000000..34694c9b
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isrow/sisrows.c
@@ -0,0 +1,24 @@
+/* Copyright (C) 2016 - IIT Bombay - FOSSEE
+
+ This file must be used under the terms of the CeCILL.
+ This source file is licensed as described in the file COPYING, which
+ you should have received as part of this distribution.  The terms
+ are also available at
+ http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ Author: Abhinav Dronamraju
+ Organization: FOSSEE, IIT Bombay
+ Email: toolbox@scilab.in
+*/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <math.h>
+#include "isrow.h"
+#include "types.h"
+
+double disrows(float inp)
+{
+   double out=1;
+   
+    return out;
+}