From a2e6f747c6f726d599227d2caf251f6f1ba14bdc Mon Sep 17 00:00:00 2001 From: Abhinav Dronamraju Date: Thu, 6 Jul 2017 21:21:25 +0530 Subject: Added Iscolumn --- 2.3-1/includes/sci2clib.h | 6 ++ 2.3-1/jar/scilab_en_US_help.jar | Bin 90817 -> 90817 bytes .../ToolInitialization/INIT_FillSCI2LibCDirs.sci | 96 +++++++++++++++++++++ 2.3-1/macros/findDeps/getAllHeaders.sci | 2 + 2.3-1/macros/findDeps/getAllInterfaces.sci | 2 + 2.3-1/macros/findDeps/getAllSources.sci | 16 ++++ .../src/c/elementaryFunctions/includes/iscolumn.h | 38 ++++++++ .../src/c/elementaryFunctions/includes/ismatrix.h | 38 ++++++++ .../elementaryFunctions/interfaces/int_iscolumn.h | 26 ++++++ .../elementaryFunctions/interfaces/int_ismatrix.h | 26 ++++++ .../c/elementaryFunctions/interfaces/int_isrow.h | 2 +- .../c/elementaryFunctions/iscolumn/discolumna.c | 26 ++++++ .../c/elementaryFunctions/iscolumn/discolumns.c | 24 ++++++ .../c/elementaryFunctions/iscolumn/giscolumna.c | 27 ++++++ .../c/elementaryFunctions/iscolumn/giscolumns.c | 24 ++++++ .../c/elementaryFunctions/iscolumn/siscolumna.c | 26 ++++++ .../c/elementaryFunctions/iscolumn/siscolumns.c | 24 ++++++ .../c/elementaryFunctions/iscolumn/ziscolumna.c | 28 ++++++ .../c/elementaryFunctions/iscolumn/ziscolumns.c | 25 ++++++ .../c/elementaryFunctions/ismatrix/dismatrixa.c | 22 +++++ .../c/elementaryFunctions/ismatrix/dismatrixs.c | 22 +++++ 21 files changed, 499 insertions(+), 1 deletion(-) create mode 100644 2.3-1/src/c/elementaryFunctions/includes/iscolumn.h create mode 100644 2.3-1/src/c/elementaryFunctions/includes/ismatrix.h create mode 100644 2.3-1/src/c/elementaryFunctions/interfaces/int_iscolumn.h create mode 100644 2.3-1/src/c/elementaryFunctions/interfaces/int_ismatrix.h create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/discolumna.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/discolumns.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/giscolumna.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/giscolumns.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/siscolumna.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/siscolumns.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumna.c create mode 100644 2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumns.c create mode 100644 2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixa.c create mode 100644 2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixs.c diff --git a/2.3-1/includes/sci2clib.h b/2.3-1/includes/sci2clib.h index 979e31ab..29961917 100644 --- a/2.3-1/includes/sci2clib.h +++ b/2.3-1/includes/sci2clib.h @@ -163,6 +163,12 @@ extern "C" { /*interfacing isrow*/ #include "isrow.h" #include "int_isrow.h" +/*interfacing iscolumn*/ +#include "iscolumn.h" +#include "int_iscolumn.h" +/*interfacing ismatrix*/ +#include "ismatrix.h" +#include "int_ismatrix.h" /* interfacing floor */ #include "floor.h" #include "int_floor.h" diff --git a/2.3-1/jar/scilab_en_US_help.jar b/2.3-1/jar/scilab_en_US_help.jar index a7468e8b..90b669ab 100644 Binary files a/2.3-1/jar/scilab_en_US_help.jar and b/2.3-1/jar/scilab_en_US_help.jar differ diff --git a/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci index 8d0d91da..81c34c45 100644 --- a/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci +++ b/2.3-1/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci @@ -951,6 +951,102 @@ PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file', INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); +// ------------------- +// --- Class Iscolumn. --- +// ------------------- +ClassName = 'Iscolumn'; + +// --- Class Annotation. --- +PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); +ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); +PrintStringInfo('NIN= 1',ClassFileName,'file','y'); +PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); +//Was FA_TP_USER +//Cause some trouble if user specify some precision and if input(and also output) is complex. +PrintStringInfo('OUT(1).TP= ''g''',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); +//---Function list class. ---- +ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); +PrintStringInfo('d0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('d2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('s2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('s0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('g2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('g0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('z2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('z0'+ArgSeparator+'g0',ClassFileName,'file','y'); + +// --- Annotation Function And Function List Function. --- +FunctionName = 'iscolumn'; +PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); +// ------------------- +// --- Class Ismatrix. --- +// ------------------- +ClassName = 'Ismatrix'; + +// --- Class Annotation. --- +PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); +ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); +PrintStringInfo('NIN= 1',ClassFileName,'file','y'); +PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); +//Was FA_TP_USER +//Cause some trouble if user specify some precision and if input(and also output) is complex. +PrintStringInfo('OUT(1).TP= ''g''',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); +//---Function list class. ---- +ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); +PrintStringInfo('d0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('d2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('s2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('s0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('g2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('g0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('z2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('z0'+ArgSeparator+'g0',ClassFileName,'file','y'); + +// --- Annotation Function And Function List Function. --- +FunctionName = 'ismatrix'; +PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); + +// ------------------- +// --- Class Ismatrix. --- +// ------------------- +ClassName = 'Ismatrix'; + +// --- Class Annotation. --- +PrintStringInfo(' Adding Class: '+ClassName+'.',GeneralReport,'file','y'); +ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls); +PrintStringInfo('NIN= 1',ClassFileName,'file','y'); +PrintStringInfo('NOUT= 1 ',ClassFileName,'file','y'); +//Was FA_TP_USER +//Cause some trouble if user specify some precision and if input(and also output) is complex. +PrintStringInfo('OUT(1).TP= ''g''',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(1)= ''1''',ClassFileName,'file','y'); +PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y'); +//---Function list class. ---- +ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls); +PrintStringInfo('d0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('d2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('s2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('s0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('g2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('g0'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('z2'+ArgSeparator+'g0',ClassFileName,'file','y'); +PrintStringInfo('z0'+ArgSeparator+'g0',ClassFileName,'file','y'); + +// --- Annotation Function And Function List Function. --- +FunctionName = 'ismatrix'; +PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'file','y'); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun); +INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun); + + // ------------------- // --- Class Isreal. --- // ------------------- diff --git a/2.3-1/macros/findDeps/getAllHeaders.sci b/2.3-1/macros/findDeps/getAllHeaders.sci index bb7aeb22..021b7e4d 100644 --- a/2.3-1/macros/findDeps/getAllHeaders.sci +++ b/2.3-1/macros/findDeps/getAllHeaders.sci @@ -128,6 +128,8 @@ function allHeaders = getAllHeaders(SharedInfo) "src/c/elementaryFunctions/includes/asecd.h" "src/c/elementaryFunctions/includes/asech.h" "src/c/elementaryFunctions/includes/isrow.h" + "src/c/elementaryFunctions/includes/iscolumn.h" + "src/c/elementaryFunctions/includes/ismatrix.h" "src/c/elementaryFunctions/includes/asind.h" "src/c/elementaryFunctions/includes/atand.h" "src/c/statisticsFunctions/includes/variance.h" diff --git a/2.3-1/macros/findDeps/getAllInterfaces.sci b/2.3-1/macros/findDeps/getAllInterfaces.sci index 44ebc8f6..27ae65dd 100644 --- a/2.3-1/macros/findDeps/getAllInterfaces.sci +++ b/2.3-1/macros/findDeps/getAllInterfaces.sci @@ -99,6 +99,8 @@ function allInterfaces = getAllInterfaces(SharedInfo) "src/c/elementaryFunctions/interfaces/int_bitget.h" "src/c/elementaryFunctions/interfaces/int_linspace.h" "src/c/elementaryFunctions/interfaces/int_isrow.h" + "src/c/elementaryFunctions/interfaces/int_iscolumn.h" + "src/c/elementaryFunctions/interfaces/int_ismatrix.h" "src/c/elementaryFunctions/interfaces/int_logspace.h" "src/c/elementaryFunctions/interfaces/int_cosh.h" "src/c/elementaryFunctions/interfaces/int_uint8.h" diff --git a/2.3-1/macros/findDeps/getAllSources.sci b/2.3-1/macros/findDeps/getAllSources.sci index 132d026b..17e35c25 100644 --- a/2.3-1/macros/findDeps/getAllSources.sci +++ b/2.3-1/macros/findDeps/getAllSources.sci @@ -772,6 +772,22 @@ function allSources = getAllSources(SharedInfo) "src/c/elementaryFunctions/isrow/sisrowa.c" "src/c/elementaryFunctions/isrow/zisrowa.c" "src/c/elementaryFunctions/isrow/zisrows.c" + "src/c/elementaryFunctions/iscolumn/discolumna.c" + "src/c/elementaryFunctions/iscolumn/discolumns.c" + "src/c/elementaryFunctions/iscolumn/giscolumns.c" + "src/c/elementaryFunctions/iscolumn/giscolumna.c" + "src/c/elementaryFunctions/iscolumn/siscolumns.c" + "src/c/elementaryFunctions/iscolumn/siscolumna.c" + "src/c/elementaryFunctions/iscolumn/ziscolumna.c" + "src/c/elementaryFunctions/iscolumn/ziscolumns.c" + "src/c/elementaryFunctions/ismatrix/dismatrixa.c" + "src/c/elementaryFunctions/ismatrix/dismatrixs.c" + //"src/c/elementaryFunctions/ismatrix/gismatrixs.c" + //"src/c/elementaryFunctions/ismatrix/gismatrixa.c" + //"src/c/elementaryFunctions/ismatrix/sismatrixs.c" + //"src/c/elementaryFunctions/ismatrix/sismatrixa.c" + //"src/c/elementaryFunctions/ismatrix/zismatrixa.c" + //"src/c/elementaryFunctions/ismatrix/zismatrixs.c" "src/c/elementaryFunctions/acscd/dacscda.c" "src/c/elementaryFunctions/acscd/dacscds.c" "src/c/elementaryFunctions/acscd/sacscda.c" diff --git a/2.3-1/src/c/elementaryFunctions/includes/iscolumn.h b/2.3-1/src/c/elementaryFunctions/includes/iscolumn.h new file mode 100644 index 00000000..ac1de9db --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/includes/iscolumn.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 __ISCOLUMN_H__ +#define __ISCOLUMN_H__ + + +#include "types.h" +#include "doubleComplex.h" +#include "floatComplex.h" + +#ifdef __cplusplus +extern "C" { +#endif + +char discolumna(double* , int); +char discolumns(double); +char siscolumna( float* , int); +char siscolumns( float); +char giscolumna(char* , int); +char giscolumns(char); +char ziscolumna(doubleComplex*, int); +char ziscolumns(doubleComplex); + +#ifdef __cplusplus +} /* extern "C" */ +#endif + +#endif diff --git a/2.3-1/src/c/elementaryFunctions/includes/ismatrix.h b/2.3-1/src/c/elementaryFunctions/includes/ismatrix.h new file mode 100644 index 00000000..072bfdcb --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/includes/ismatrix.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 __ISMATRIX_H__ +#define __ISMATRIX_H__ + + +#include "types.h" +#include "doubleComplex.h" +#include "floatComplex.h" + +#ifdef __cplusplus +extern "C" { +#endif + +char dismatrixa(double*); +char dismatrixs(double); +char sismatrixa(float*); +char sismatrixs(float); +char gismatrixa(char*); +char gismatrixs(char); +char zismatrixa(doubleComplex*); +char zismatrixs(doubleComplex); + +#ifdef __cplusplus +} /* extern "C" */ +#endif + +#endif diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_iscolumn.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_iscolumn.h new file mode 100644 index 00000000..f5e8a7de --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_iscolumn.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_ISCOLUMN_H__ +#define __INT_ISCOLUMN_H__ + +#define d2iscolumng0(in,size ) discolumna(in, size[1]) +#define d0iscolumng0(in) discolumns(in) +#define s2iscolumng0(in,size) siscolumna(in, size[1]) +#define s0iscolumng0(in) siscolumns(in) +#define g2iscolumng0(in,size) giscolumna(in, size[1]) +#define g0iscolumng0(in) giscolumns(in) +#define z2iscolumng0(in,size) ziscolumna(in , size[1]) +#define z0iscolumng0(in) ziscolumns(in) + + +#endif diff --git a/2.3-1/src/c/elementaryFunctions/interfaces/int_ismatrix.h b/2.3-1/src/c/elementaryFunctions/interfaces/int_ismatrix.h new file mode 100644 index 00000000..56dfc856 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_ismatrix.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_ISMATRIX_H__ +#define __INT_ISMATRIX_H__ + +#define d2ismatrixg0(in, size ) dismatrixa(in) +#define d0ismatrixg0(in) dismatrixs(in) +#define s2ismatrixg0(in , size) sismatrixa(in) +#define s0ismatrixg0(in) sismatrixs(in) +#define g2ismatrixg0(in, size) gismatrixa(in) +#define g0ismatrixg0(in) gismatrixs(in) +#define z2ismatrixg0(in, size) zismatrixa(in) +#define z0ismatrixg0(in) zismatrixs(in) + + +#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 index 6ecb145e..cc6be37c 100644 --- a/2.3-1/src/c/elementaryFunctions/interfaces/int_isrow.h +++ b/2.3-1/src/c/elementaryFunctions/interfaces/int_isrow.h @@ -15,7 +15,7 @@ #define d2isrowg0(in, size ) disrowa(in, size[0]) #define d0isrowg0(in) disrows(in) -#define s2isrowg0(in , size) siswora(in, size[0]) +#define s2isrowg0(in , size) sisrowa(in, size[0]) #define s0isrowg0(in) sisrows(in) #define g2isrowg0(in, size) gisrowa(in, size[0]) #define g0isrowg0(in) gisrows(in) diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/discolumna.c b/2.3-1/src/c/elementaryFunctions/iscolumn/discolumna.c new file mode 100644 index 00000000..8bebfcad --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/discolumna.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 +#include +#include +#include "iscolumn.h" +#include "types.h" +char discolumna(double* inp, int size1) +{ + char out= 'F' ; + if(size1==1) + { + out = 'T'; + } + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/discolumns.c b/2.3-1/src/c/elementaryFunctions/iscolumn/discolumns.c new file mode 100644 index 00000000..b81074b5 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/discolumns.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 "iscolumn.h" +#include "types.h" + +char discolumns(double inp) +{ + char out='T'; + + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/giscolumna.c b/2.3-1/src/c/elementaryFunctions/iscolumn/giscolumna.c new file mode 100644 index 00000000..db6ff431 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/giscolumna.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 +#include +#include +#include "iscolumn.h" +#include "types.h" +#include "string.h" +char giscolumna(char *inp, int size1) +{ + char out='F'; + if(size1==1) + { + out = 'T'; + } + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/giscolumns.c b/2.3-1/src/c/elementaryFunctions/iscolumn/giscolumns.c new file mode 100644 index 00000000..57b93e95 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/giscolumns.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 "iscolumn.h" +#include "types.h" + +char giscolumns(char inp) +{ + char out='T'; + + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/siscolumna.c b/2.3-1/src/c/elementaryFunctions/iscolumn/siscolumna.c new file mode 100644 index 00000000..ed4ee5b9 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/siscolumna.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 +#include +#include +#include "iscolumn.h" +#include "types.h" +char siscolumna(float* inp, int size1) +{ + char out='F'; + if(size1==1) + { + out = 'T'; + } + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/siscolumns.c b/2.3-1/src/c/elementaryFunctions/iscolumn/siscolumns.c new file mode 100644 index 00000000..ebb89e11 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/siscolumns.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 "iscolumn.h" +#include "types.h" + +char siscolumns(float inp) +{ + char out='T'; + + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumna.c b/2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumna.c new file mode 100644 index 00000000..a1aca1bf --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumna.c @@ -0,0 +1,28 @@ +/* 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 "iscolumn.h" +#include "types.h" + +char ziscolumna(doubleComplex *inp, int size1) +{ + char out='F'; + if(size1==1) + { + out = 'T'; + } + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumns.c b/2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumns.c new file mode 100644 index 00000000..f1d28508 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/iscolumn/ziscolumns.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 "iscolumn.h" +#include "types.h" +#include "doubleComplex.h" + +char ziscolumns(doubleComplex inp) +{ + char out='T'; + + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixa.c b/2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixa.c new file mode 100644 index 00000000..4fe7d192 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixa.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 "ismatrix.h" +#include "types.h" +char dismatrixa(double* in) +{ + char out= 'T' ; + return out; +} diff --git a/2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixs.c b/2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixs.c new file mode 100644 index 00000000..f1c99dc4 --- /dev/null +++ b/2.3-1/src/c/elementaryFunctions/ismatrix/dismatrixs.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 "ismatrix.h" +#include "types.h" +char dismatrixs(double in) +{ + char out= 'F' ; + return out; +} -- cgit