From 4725141f2cb4e7de494d7eae8664ab9172dafc13 Mon Sep 17 00:00:00 2001 From: Abhinav Dronamraju Date: Fri, 7 Jul 2017 16:41:38 +0530 Subject: Added isscalar --- .../src/c/elementaryFunctions/includes/isscalar.h | 38 ++++++++++++++++++++++ .../elementaryFunctions/interfaces/int_isiscalar.h | 26 +++++++++++++++ .../c/elementaryFunctions/isscalar/disiscalars.c | 24 ++++++++++++++ .../c/elementaryFunctions/isscalar/disscalara.c | 23 +++++++++++++ .../c/elementaryFunctions/isscalar/gisscalara.c | 24 ++++++++++++++ .../c/elementaryFunctions/isscalar/gisscalars.c | 24 ++++++++++++++ .../c/elementaryFunctions/isscalar/sisscalara.c | 22 +++++++++++++ .../c/elementaryFunctions/isscalar/sisscalars.c | 24 ++++++++++++++ .../c/elementaryFunctions/isscalar/zisscalara.c | 25 ++++++++++++++ .../c/elementaryFunctions/isscalar/zisscalars.c | 25 ++++++++++++++ 10 files changed, 255 insertions(+) create mode 100644 2.3-1/src/c/elementaryFunctions/includes/isscalar.h create mode 100644 2.3-1/src/c/elementaryFunctions/interfaces/int_isiscalar.h create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/disiscalars.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/disscalara.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/gisscalara.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/gisscalars.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/sisscalara.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/sisscalars.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/zisscalara.c create mode 100644 2.3-1/src/c/elementaryFunctions/isscalar/zisscalars.c (limited to '2.3-1/src') 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 +#include +#include +#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 +#include +#include +#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 +#include +#include +#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 +#include +#include +#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 +#include +#include +#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 +#include +#include +#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 +#include +#include +#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 +#include +#include +#include "isscalar.h" +#include "types.h" +#include "doubleComplex.h" + +char zisscalars(doubleComplex inp) +{ + char out='T'; + + return out; +} -- cgit