Added isscalar

10 files changed, 255 insertions, 0 deletions

diff --git a/2.3-1/src/c/elementaryFunctions/includes/isscalar.h b/2.3-1/src/c/elementaryFunctions/includes/isscalar.h
new file mode 100644
index 00000000..f4880437
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/includes/isscalar.h
@@ -0,0 +1,38 @@
+/* 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 __ISSCALAR_H__
+#define __ISSCALAR_H__
+
+
+#include "types.h"
+#include "doubleComplex.h"
+#include "floatComplex.h"
+
+#ifdef  __cplusplus
+extern "C" {
+#endif
+
+char disscalara(double* , int);
+char disscalars(double);
+char sisscalara( float* , int);
+char sisscalars( float);
+char gisscalara(char* , int);
+char gisscalars(char);
+char zisscalara(doubleComplex*, int);
+char zisscalars(doubleComplex);
+
+#ifdef  __cplusplus
+} /* extern "C" */
+#endif
+
+#endif
diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_isiscalar.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_isiscalar.h
new file mode 100644
index 00000000..9d139712
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_isiscalar.h
@@ -0,0 +1,26 @@
+ /*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 d2isscalarg0(in, size )        disscalara(in, size[0])
+#define d0isscalarg0(in)               disscalars(in)
+#define s2isscalarg0(in , size)        sisscalara(in, size[0])
+#define s0isscalarg0(in)               sisscalars(in)
+#define g2isscalarg0(in, size)         gisscalara(in, size[0])
+#define g0isscalarg0(in)               gisscalars(in)
+#define z2isscalarg0(in, size)         zisscalara(in , size[0])
+#define z0isscalarg0(in)               zisscalars(in)
+
+
+#endif
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.c
new file mode 100644
index 00000000..fe7ce3e3
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.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 "isscalar.h"
+#include "types.h"
+
+char disscalars(double inp)
+{
+   double out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c
new file mode 100644
index 00000000..7f440197
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c
@@ -0,0 +1,23 @@
+/* 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 "isscalar.h"
+#include "types.h"
+char discalara(double* inp, int size1)
+{
+   char out= 'F' ;
+ 
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.c
new file mode 100644
index 00000000..fdfac778
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.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 "isscalar.h"
+#include "types.h"
+#include "string.h"
+char gisscalara(char *inp, int size1)
+{
+   char out='F';
+  
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.c
new file mode 100644
index 00000000..5a208959
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.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 "isscalar.h"
+#include "types.h"
+
+char giscalars(char inp)
+{
+   char out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c
new file mode 100644
index 00000000..59a51653
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c
@@ -0,0 +1,22 @@
+/* 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 "isscalar.h"
+#include "types.h"
+char sisscalara(float* inp, int size1)
+{
+   char out='F';
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.c
new file mode 100644
index 00000000..6ca7c4b4
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.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 "isscalar.h"
+#include "types.h"
+
+char sisscalars(float inp)
+{
+   char out='T';
+   
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c
new file mode 100644
index 00000000..942bbb54
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c
@@ -0,0 +1,25 @@
+/* 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 "doubleComplex.h"
+#include "isscalar.h"
+#include "types.h"
+
+char zisscalara(doubleComplex *inp, int size1)
+{
+    char out='F';
+ 
+    return out;
+}
diff --git a/2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c
new file mode 100644
index 00000000..2bf8e949
--- /dev/null
+++ b/2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c
@@ -0,0 +1,25 @@
+/* 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 "isscalar.h"
+#include "types.h"
+#include "doubleComplex.h"
+
+char zisscalars(doubleComplex inp)
+{
+   char out='T';
+   
+    return out;
+}