diff options
| author | Ankitr19 | 2017-07-04 15:33:41 +0530 |
|---|---|---|
| committer | Ankitr19 | 2017-07-04 15:33:41 +0530 |
| commit | 5b9f48de8fe9af5d4b4a3bea0eb3baacd2bc7950 (patch) | |
| tree | 7f2f4c1784898f975c05095b505f047d77361d87 /interfaces | |
| parent | afae3013c86d26dc1b233228431be208705acff0 (diff) | |
| parent | a3dfa2a4069740517ca6e83f99dd4e0dbb71c377 (diff) | |
| download | Scilab2C_fossee_old-5b9f48de8fe9af5d4b4a3bea0eb3baacd2bc7950.tar.gz Scilab2C_fossee_old-5b9f48de8fe9af5d4b4a3bea0eb3baacd2bc7950.tar.bz2 Scilab2C_fossee_old-5b9f48de8fe9af5d4b4a3bea0eb3baacd2bc7950.zip | |
New functions added and rpi issues resolved
Diffstat (limited to 'interfaces')
169 files changed, 0 insertions, 11103 deletions
diff --git a/interfaces/int_OpApex.h b/interfaces/int_OpApex.h deleted file mode 100644 index 4915e20..0000000 --- a/interfaces/int_OpApex.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPAPEX_H__ -#define __INT_OPAPEX_H__ - -#define s0OpApexs0(in) in - -#define d0OpApexd0(in) in - -#define c0OpApexc0(in) cconjs(in) - -#define z0OpApexz0(in) zconjs(in) - -#define s2OpApexs2(in,size,out) stransposea(in,size[0],size[1],out); - -#define d2OpApexd2(in,size,out) dtransposea(in,size[0],size[1],out); - -#define c2OpApexc2(in,size,out) ctransposea(in,size[0],size[1],out);cconja(out,size[0]*size[1],out); - -#define z2OpApexz2(in,size,out) ztransposea(in,size[0],size[1],out);zconja(out,size[0]*size[1],out); - -#endif /* !__INT_OPAPEX_H__ */ diff --git a/interfaces/int_OpBackSlash.h b/interfaces/int_OpBackSlash.h deleted file mode 100644 index 8a733f2..0000000 --- a/interfaces/int_OpBackSlash.h +++ /dev/null @@ -1,109 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPBACKSLASH_H__ -#define __INT_OPBACKSLASH_H__ - -/* Scalar \ Scalar */ - -#define s0s0OpBackSlashs0(in1,in2) sldivs(in1,in2) - -#define d0d0OpBackSlashd0(in1,in2) dldivs(in1,in2) - -#define c0c0OpBackSlashc0(in1,in2) cldivs(in1,in2) - -#define z0z0OpBackSlashz0(in1,in2) zldivs(in1,in2) - -#define s0c0OpBackSlashc0(in1,in2) cldivs(FloatComplex(in1,0),in2) - -#define c0s0OpBackSlashc0(in1,in2) cldivs(in1,FloatComplex(in2,0)) - -#define d0z0OpBackSlashz0(in1,in2) zldivs(DoubleComplex(in1,0),in2) - -#define z0d0OpBackSlashz0(in1,in2) zldivs(in1,DoubleComplex(in2,0)) - - -/* Scalar \ Matrix */ - -#define s0s2OpBackSlashs2(in1,in2,size,out) {int i;\ - for( i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1,in2[i]);} - -#define d0d2OpBackSlashd2(in1,in2,size,out) {int i;\ - for( i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1,in2[i]);} - -#define c0c2OpBackSlashc2(in1,in2,size,out) {int i;\ - for( i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,in2[i]);} - -#define z0z2OpBackSlashz2(in1,in2,size,out) {int i;\ - for( i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,in2[i]);} - -#define s0c2OpBackSlashc2(in1,in2,size,out) c0c2OpBackSlashc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2OpBackSlashz2(in1,in2,size,out) z0z2OpBackSlashz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2OpBackSlashc2(in1,in2,size,out) {int i;\ - for ( i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,FloatComplex(in2[i],0));} - -#define z0d2OpBackSlashz2(in1,in2,size,out) {int i;\ - for ( i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,DoubleComplex(in2[i],0));} - - -/* Matrix \ Scalar */ - -#define s2s0OpBackSlashs2(in1,size,in2,out) {float temp[1] = {in2};\ - sldivma(in1,size[0],size[1],temp,1,1,out);} - -#define d2d0OpBackSlashd2(in1,size,in2,out) {double temp[1] = {in2};\ - dldivma(in1,size[0],size[1],temp,1,1,out);} - -#define c2c0OpBackSlashc2(in1,size,in2,out) {int i;\ - for ( i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],in2);} - -#define z2z0OpBackSlashz2(in1,size,in2,out) {int i;\ - for ( i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],in2);} - -#define s2c0OpBackSlashc2(in1,size,in2,out) {int i;\ - for ( i=0;i<size[0]*size[1];i++) out[i]= cldivs(FloatComplex(in1[i],0),in2);} - -#define d2z0OpBackSlashz2(in1,size,in2,out) {int i;\ - for ( i=0;i<size[0]*size[1];i++) out[i]= zldivs(DoubleComplex(in1[i],0),in2);} - -#define c2s0OpBackSlashc2(in1,size,in2,out) c2c0OpBackSlashc2(in1,size,FloatComplex(in2,0),out) - -#define z2d0OpBackSlashz2(in1,size,in2,out) z2z0OpBackSlashz2(in1,size,DoubleComplex(in2,0),out) - - - -/* Matrix \ Matrix */ - -#define s2s2OpBackSlashs2(in1,size1,in2,size2,out) sldivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define d2d2OpBackSlashd2(in1,size1,in2,size2,out) dldivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define c2c2OpBackSlashc2(in1,size1,in2,size2,out) cldivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define c2s2OpBackSlashc2(in1,size1,in2,size2,out) cldivma(in1,size1[0],size1[1],FloatComplexMatrix(in2,0,size2[0]*size2[1]),size2[0],size2[1],out) - -#define s2c2OpBackSlashc2(in1,size1,in2,size2,out) cldivma(FloatComplexMatrix(in1,0,size1[0]*size1[1]),size1[0],size1[1],in2,size2[0],size2[1],out) - -#define z2z2OpBackSlashz2(in1,size1,in2,size2,out) zldivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define z2d2OpBackSlashc2(in1,size1,in2,size2,out) cldivma(in1,size1[0],size1[1],DoubleComplexMatrix(in2,0,size2[0]*size2[1]),size2[0],size2[1],out) - -#define d2z2OpBackSlashc2(in1,size1,in2,size2,out) cldivma(DoubleComplexMatrix(in1,0,size1[0]*size1[1]),size1[0],size1[1],in2,size2[0],size2[1],out) - - - - -#endif /* !__INT_OPBACKSLASH_H__ */ diff --git a/interfaces/int_OpCc.h b/interfaces/int_OpCc.h deleted file mode 100644 index 2cd3d55..0000000 --- a/interfaces/int_OpCc.h +++ /dev/null @@ -1,134 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPCC_H__ -#define __INT_OPCC_H__ - -/* - /!\ - / ! \ We used rowcat because disp isn't right. In the real case, it must be columncat for Cc. - /__!_ \ - -*/ - - -/* Column Cat */ - -/* Same input elements */ - -#define s0s0OpCcs2(in1,in2,out) srowcats(in1,in2,out) - -#define d0d0OpCcd2(in1,in2,out) drowcats(in1,in2,out) - -#define c0c0OpCcc2(in1,in2,out) crowcats(in1,in2,out) - -#define z0z0OpCcz2(in1,in2,out) zrowcats(in1,in2,out) - -#define s2s2OpCcs2(in1,size1,in2,size2,out) srowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define d2d2OpCcd2(in1,size1,in2,size2,out) drowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define c2c2OpCcc2(in1,size1,in2,size2,out) crowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define z2z2OpCcz2(in1,size1,in2,size2,out) zrowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -/* Differents input elements */ -#define s0c0OpCcc2(in1,in2,out) c0c0OpCcc2(FloatComplex(in1,0),in2,out) - -#define d0z0OpCcz2(in1,in2,out) z0z0OpCcz2(DoubleComplex(in1,0),in2,out) - -#define c0s0OpCcc2(in1,in2,out) c0c0OpCcc2(in1,FloatComplex(in2,0),out) - -#define z0d0OpCcz2(in1,in2,out) z0z0OpCcz2(in1,DoubleComplex(in2,0),out) - -#define s2c2OpCcc2(in1,size1,in2,size2,out) sfilla((float*)out,size1[0],size1[1],0); \ - c2c2OpCcc2(FloatComplexMatrix(in1,(float*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define d2z2OpCcz2(in1,size1,in2,size2,out) dfilla((double*)out,size1[0],size1[1],0); \ - z2z2OpCcz2(DoubleComplexMatrix(in1,(double*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define c2s2OpCcc2(in1,size1,in2,size2,out) sfilla((float*)out,size2[0],size2[1],0); \ - c2c2OpCcc2(in1, size1, FloatComplexMatrix(in2,(float*)out,size2[0]*size2[1]), size2, out) - -#define z2d2OpCcz2(in1,size1,in2,size2,out) dfilla((double*)out,size2[0],size2[1],0); \ - z2z2OpCcz2(in1, size1, DoubleComplexMatrix(in2,(double*)out,size2[0]*size2[1]), size2, out) - -/* Matrix-Scalar */ - -/* Same type */ - -#define s2s0OpCcs2(in1,size,in2,out) { float temp=in2; \ - srowcata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define d2d0OpCcd2(in1,size,in2,out) { double temp=in2; \ - drowcata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define c2c0OpCcc2(in1,size,in2,out) { floatComplex temp = in2; \ - crowcata(in1, size[0], size[1],&temp, 1, 1, out);\ - } - -#define z2z0OpCcz2(in1,size,in2,out) { doubleComplex temp =in2; \ - zrowcata(in1, size[0], size[1],&temp, 1, 1, out);\ - } - - -/* Different type */ -#define s2c0OpCcc2(in1,size,in2,out) sfilla((float *)out,size[0],size[1],0); \ - c2c0OpCcc2(FloatComplexMatrix(in1,(float*)out,size[0]*size[1]),size,in2,out) - -#define d2z0OpCcz2(in1,size,in2,out) dfilla((double *)out,size[0],size[1],0); \ - z2z0OpCcz2(DoubleComplexMatrix(in1,(double *)out,size[0]*size[1]),size,in2,out) - -#define c2s0OpCcc2(in1,size,in2,out) { floatComplex temp = FloatComplex(in2, 0); c2c0OpCcc2(in1, size, temp, out)} - -#define z2d0OpCcz2(in1,size,in2,out) { doubleComplex temp = DoubleComplex(in2, 0); z2z0OpCcz2(in1, size, temp, out)} - - -/* Scalar-Matrix */ - -/* Same type */ -#define s0s2OpCcs2(in1,in2,size,out) { \ - float __tmp1 = in1 ;\ - srowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define d0d2OpCcd2(in1,in2,size,out) { \ - double __tmp1 = in1 ;\ - drowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define c0c2OpCcc2(in1,in2,size,out) { \ - floatComplex __tmp1 = in1 ;\ - crowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define z0z2OpCcz2(in1,in2,size,out) { \ - doubleComplex __tmp1 = in1 ;\ - zrowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -/* Different type */ -#define s0c2OpCcc2(in1,in2,size,out) c0c2OpCcc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2OpCcz2(in1,in2,size,out) z0z2OpCcz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2OpCcc2(in1,in2,size,out) sfilla((float*)out,size[0],size[1],0); \ - c0c2OpCcc2(in1,FloatComplexMatrix(in2,(float*)out,size[0]*size[1]),size,out) - -#define z0d2OpCcz2(in1,in2,size,out) dfilla((double*)out,size[0],size[1],0); \ - z0z2OpCcz2(in1,DoubleComplexMatrix(in2,(double*)out,size[0]*size[1]),size,out) - -#endif /* !__INT_OPCC_H__ */ diff --git a/interfaces/int_OpColon.h b/interfaces/int_OpColon.h deleted file mode 100644 index af84c2f..0000000 --- a/interfaces/int_OpColon.h +++ /dev/null @@ -1,101 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPCOLON_H__ -#define __INT_OPCOLON_H__ - -#define s0s0OpColons0(in1,in2) in1 - -#define d0d0OpColond0(in1,in2) in1 - -#define c0c0OpColons0(in1,in2) in1 - -#define z0z0OpColond0(in1,in2) in1 - - - -#define s0s0OpColons2(in1,in2,out) simplicitLists(in1,1.0,in2,out) - -#define d0d0OpColond2(in1,in2,out) dimplicitLists(in1,1.0,in2,out) - -#define c0c0OpColons2(in1,in2,out) cimplicitLists(in1,FloatComplex(1.0f,0.0f),in2,out) - -#define z0z0OpColond2(in1,in2,out) zimplicitLists(in1,DoubleComplex(1.0,0.0),in2,out) - -/*mixed input*/ -#define s0c0OpColons0(in1,in2) in1 - -#define d0z0OpColond0(in1,in2) in1 - -#define c0s0OpColons0(in1,in2) in1 - -#define z0d0OpColond0(in1,in2) in1 - - - -#define s0c0OpColons2(in1,in2,out) cimplicitLists(FloatComplex(in1,0.0f),FloatComplex(1.0f,0.0f),in2,out) - -#define d0z0OpColond2(in1,in2,out) zimplicitLists(DoubleComplex(in1,0.0),DoubleComplex(1.0,0.0),in2,out) - -#define c0s0OpColons2(in1,in2,out) cimplicitLists(in1,FloatComplex(1.0f,0.0f),FloatComplex(in2,0.0f),out) - -#define z0d0OpColond2(in1,in2,out) zimplicitLists(in1,DoubleComplex(1.0,0.0),DoubleComplex(in2,0.0),out) - - -/*three input*/ - -#define s0s0s0OpColons0(in1,in2,in3) in1 -#define s0s0c0OpColons0(in1,in2,in3) in1 -#define s0c0s0OpColons0(in1,in2,in3) in1 -#define s0c0c0OpColons0(in1,in2,in3) in1 - -#define d0d0d0OpColond0(in1,in2,in3) in1 -#define d0d0z0OpColond0(in1,in2,in3) in1 -#define d0z0d0OpColond0(in1,in2,in3) in1 -#define d0z0z0OpColond0(in1,in2,in3) in1 - -#define c0c0c0OpColons0(in1,in2,in3) in1 -#define c0c0s0OpColons0(in1,in2,in3) in1 -#define c0s0c0OpColons0(in1,in2,in3) in1 -#define c0s0s0OpColons0(in1,in2,in3) in1 - -#define z0z0z0OpColond0(in1,in2,in3) in1 -#define z0z0d0OpColond0(in1,in2,in3) in1 -#define z0d0z0OpColond0(in1,in2,in3) in1 -#define z0d0d0OpColond0(in1,in2,in3) in1 - - -#define s0s0s0OpColons2(in1,in2,in3,out) simplicitLists(in1,in2,in3,out) -#define s0s0c0OpColons2(in1,in2,in3,out) cimplicitLists(FloatComplex(in1,0.0f),FloatComplex(in2,0.0f),in3,out) -#define s0c0s0OpColons2(in1,in2,in3,out) cimplicitLists(FloatComplex(in1,0.0f),in2,FloatComplex(in3,0.0f),out) -#define s0c0c0OpColons2(in1,in2,in3,out) cimplicitLists(FloatComplex(in1,0.0f),in2,in3,out) - -#define d0d0d0OpColond2(in1,in2,in3,out) dimplicitLists(in1,in2,in3,out) -#define d0d0z0OpColond2(in1,in2,in3,out) zimplicitLists(DoubleComplex(in1,0.0),DoubleComplex(in2,0.0),in3,out) -#define d0z0d0OpColond2(in1,in2,in3,out) zimplicitLists(DoubleComplex(in1,0.0),in2,DoubleComplex(in3,0.0),out) -#define d0z0z0OpColond2(in1,in2,in3,out) zimplicitLists(DoubleComplex(in1,0.0),in2,in3,out) - -#define c0c0c0OpColons2(in1,in2,in3,out) cimplicitLists(in1,in2,in3,out) -#define c0c0s0OpColons2(in1,in2,in3,out) cimplicitLists(in1,in2,FloatComplex(in3,0.0f),out) -#define c0s0c0OpColons2(in1,in2,in3,out) cimplicitLists(in1,FloatComplex(in2,0.0f),in3,out) -#define c0s0s0OpColons2(in1,in2,in3,out) cimplicitLists(in1,FloatComplex(in2,0.0f),FloatComplex(in3,0.0f),out) - -#define z0z0z0OpColond2(in1,in2,in3,out) zimplicitLists(in1,in2,in3,out) -#define z0z0d0OpColond2(in1,in2,in3,out) zimplicitLists(in1,in2,DoubleComplex(in3,0.0),out) -#define z0d0z0OpColond2(in1,in2,in3,out) zimplicitLists(in1,DoubleComplex(in2,0.0),in3,out) -#define z0d0d0OpColond2(in1,in2,in3,out) zimplicitLists(in1,DoubleComplex(in2,0.0),DoubleComplex(in3,0.0),out) - - - -#endif /* !__INT_OPCOLON_H__ */ diff --git a/interfaces/int_OpDotApex.h b/interfaces/int_OpDotApex.h deleted file mode 100644 index 4978ca5..0000000 --- a/interfaces/int_OpDotApex.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPDOTAPEX_H__ -#define __INT_OPDOTAPEX_H__ - -#define s0OpDotApexs0(in) in - -#define d0OpDotApexd0(in) in - -#define c0OpDotApexc0(in) in - -#define z0OpDotApexz0(in) in - -#define s2OpDotApexs2(in,size,out) stransposea(in,size[0],size[1],out); - -#define d2OpDotApexd2(in,size,out) dtransposea(in,size[0],size[1],out); - -#define c2OpDotApexc2(in,size,out) ctransposea(in,size[0],size[1],out); - -#define z2OpDotApexz2(in,size,out) ztransposea(in,size[0],size[1],out); - -#endif /* !__INT_OPDOTAPEX_H__ */ diff --git a/interfaces/int_OpDotBackSlash.h b/interfaces/int_OpDotBackSlash.h deleted file mode 100644 index 220da8d..0000000 --- a/interfaces/int_OpDotBackSlash.h +++ /dev/null @@ -1,153 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPDOTBACKSLASH_H__ -#define __INT_OPDOTBACKSLASH_H__ - -/* Scalar .\ Scalar */ - -#define s0s0OpDotBackSlashs0(in1,in2) sldivs(in1,in2) - -#define d0d0OpDotBackSlashd0(in1,in2) dldivs(in1,in2) - -#define c0c0OpDotBackSlashc0(in1,in2) cldivs(in1,in2) - -#define z0z0OpDotBackSlashz0(in1,in2) zldivs(in1,in2) - -#define u80u80OpDotBackSlashu80(in1,in2) u8ldivs(in1,in2) - -#define u160u160OpDotBackSlashu160(in1,in2) u16ldivs(in1,in2) - -#define i80i80OpDotBackSlashi80(in1,in2) i8ldivs(in1,in2) - -#define i160i160OpDotBackSlashi160(in1,in2) i16ldivs(in1,in2) - -#define s0c0OpDotBackSlashc0(in1,in2) cldivs(FloatComplex(in1,0),in2) - -#define c0s0OpDotBackSlashc0(in1,in2) cldivs(in1,FloatComplex(in2,0)) - -#define d0z0OpDotBackSlashz0(in1,in2) zldivs(DoubleComplex(in1,0),in2) - -#define z0d0OpDotBackSlashz0(in1,in2) zldivs(in1,DoubleComplex(in2,0)) - - -/* Scalar \ Matrix */ - -#define s0s2OpDotBackSlashs2(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1,in2[i]);} - -#define d0d2OpDotBackSlashd2(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1,in2[i]);} - -#define c0c2OpDotBackSlashc2(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,in2[i]);} - -#define z0z2OpDotBackSlashz2(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,in2[i]);} - -#define u80u82OpDotBackSlashu82(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= u8ldivs(in1,in2[i]);} - -#define u160u162OpDotBackSlashu162(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= u16ldivs(in1,in2[i]);} - -#define i80i82OpDotBackSlashi82(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= i8ldivs(in1,in2[i]);} - -#define i160i162OpDotBackSlashi162(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= i16ldivs(in1,in2[i]);} - - -#define s0c2OpDotBackSlashc2(in1,in2,size,out) c0c2OpDotBackSlashc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2OpDotBackSlashz2(in1,in2,size,out) z0z2OpDotBackSlashz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2OpDotBackSlashc2(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,FloatComplex(in2[i],0));} - -#define z0d2OpDotBackSlashz2(in1,in2,size,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,DoubleComplex(in2[i],0));} - - -/* Matrix \ Scalar */ - -#define s2s0OpDotBackSlashs2(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1[i],in2);} - -#define d2d0OpDotBackSlashd2(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1[i],in2);} - -#define c2c0OpDotBackSlashc2(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],in2);} - -#define z2z0OpDotBackSlashz2(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],in2);} - -#define u82u80OpDotBackSlashu82(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= u8ldivs(in1[i],in2);} - -#define u162u160OpDotBackSlashu162(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= u16ldivs(in1[i],in2);} - -#define i82i80OpDotBackSlashi82(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= i8ldivs(in1[i],in2);} - -#define i162i160OpDotBackSlashi162(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= i16ldivs(in1[i],in2);} - - - -#define s2c0OpDotBackSlashc2(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cldivs(FloatComplex(in1[i],0),in2);} - -#define d2z0OpDotBackSlashz2(in1,size,in2,out) {int i;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zldivs(DoubleComplex(in1[i],0),in2);} - -#define c2s0OpDotBackSlashc2(in1,size,in2,out) c2c0OpDotBackSlashc2(in1,size,FloatComplex(in2,0),out) - -#define z2d0OpDotBackSlashz2(in1,size,in2,out) z2z0OpDotBackSlashz2(in1,size,DoubleComplex(in2,0),out) - -/* Matrix .\ Matrix */ - -#define s2s2OpDotBackSlashs2(in1,size1,in2,size2,out) sldiva(in1,in2,size2[0]*size2[1],out) - -#define d2d2OpDotBackSlashd2(in1,size1,in2,size2,out) dldiva(in1,in2,size2[0]*size2[1],out) - -#define c2c2OpDotBackSlashc2(in1,size1,in2,size2,out) cldiva(in1,in2,size2[0]*size2[1],out) - -#define u82u82OpDotBackSlashu82(in1,size1,in2,size2,out) u8ldiva(in1,in2,size2[0]*size2[1],out) - -#define u162u162OpDotBackSlashu162(in1,size1,in2,size2,out) u16ldiva(in1,in2,size2[0]*size2[1],out) - -#define i82i82OpDotBackSlashi82(in1,size1,in2,size2,out) i8ldiva(in1,in2,size2[0]*size2[1],out) - -#define i162i162OpDotBackSlashi162(in1,size1,in2,size2,out) i16ldiva(in1,in2,size2[0]*size2[1],out) - - -#define c2s2OpDotBackSlashc2(in1,size1,in2,size2,out) {int i;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= cldivs(in1[i],FloatComplex(in2[i], 0));} - -#define s2c2OpDotBackSlashc2(in1,size1,in2,size2,out) {int i; \ - for(i=0;i<size1[0]*size2[1];i++) out[i]= cldivs(FloatComplex(in1[i], 0),in2[i]);} - -#define z2z2OpDotBackSlashz2(in1,size1,in2,size2,out) zldiva(in1,in2,size2[0]*size2[1],out) - -#define z2d2OpDotBackSlashz2(in1,size1,in2,size2,out) {int i;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= zldivs(in1[i],DoubleComplex(in2[i], 0));} - -#define d2z2OpDotBackSlashz2(in1,size1,in2,size2,out) {int i;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= zldivs(DoubleComplex(in1[i], 0),in2[i]);} - - -#endif /* !__INT_OPDOTBACKSLASH_H__ */ diff --git a/interfaces/int_OpDotHat.h b/interfaces/int_OpDotHat.h deleted file mode 100644 index 2444f10..0000000 --- a/interfaces/int_OpDotHat.h +++ /dev/null @@ -1,204 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPDOTHAT_H__ -#define __INT_OPDOTHAT_H__ - - -/* Scalar - Scalar */ -#define s0s0OpDotHats0(in1, in2) spows(in1, in2) - -#define d0d0OpDotHatd0(in1, in2) dpows(in1, in2) - -#define c0c0OpDotHatc0(in1, in2) cpows(in1, in2) - -#define z0z0OpDotHatz0(in1, in2) zpows(in1, in2) - -#define u80u80OpDotHatu80(in1, in2) u8pows(in1, in2) - -#define u160u160OpDotHatu160(in1, in2) u16pows(in1, in2) - -#define i80i80OpDotHati80(in1, in2) i8pows(in1, in2) - -#define i160i160OpDotHati60(in1, in2) i16pows(in1, in2) - -#define s0c0OpDotHatc0(in1, in2) cpows(FloatComplex(in1,0), in2) - -#define c0s0OpDotHatc0(in1, in2) cpows(in1, FloatComplex(in2,0)) - -#define d0z0OpDotHatz0(in1, in2) zpows(DoubleComplex(in1,0), in2) - -#define z0d0OpDotHatz0(in1, in2) zpows(in1, DoubleComplex(in2,0)) - - -/* Scalar - Matrix */ -#define s0s2OpDotHats2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1,in2[i]);\ - } - -#define d0d2OpDotHatd2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1,in2[i]);\ - } - - -#define c0c2OpDotHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,in2[i]);\ - } - - -#define z0z2OpDotHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,in2[i]);\ - } - -#define u80u82OpDotHatu82(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u8pows(in1,in2[i]);\ - } - -#define u160u162OpDotHatu162(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u16pows(in1,in2[i]);\ - } -#define i80i82OpDotHati82(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i8pows(in1,in2[i]);\ - } - -#define i160i162OpDotHati162(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i16pows(in1,in2[i]);\ - } - - -#define s0c2OpDotHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1,0),in2[i]);\ - } - -#define d0z2OpDotHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1,0),in2[i]);\ - } - -#define c0s2OpDotHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,FloatComplex(in2[i],0));\ - } - -#define z0d2OpDotHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,DoubleComplex(in2[i],0));\ - } - - -/* Matrix - Scalar */ - -#define s2s0OpDotHats2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1[i],in2);\ - } - -#define d2d0OpDotHatd2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1[i],in2);\ - } - -#define c2c0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1[i],in2);\ - } - -#define z2z0OpDotHatz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1[i],in2);\ - } - -#define u82u80OpDotHatu82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u8pows(in1[i],in2);\ - } - -#define u162u160OpDotHatu162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u16pows(in1[i],in2);\ - } - -#define i82i80OpDotHati82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i8pows(in1[i],in2);\ - } - -#define i162i160OpDotHati162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i16pows(in1[i],in2);\ - } - - -#define s2c0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2);\ - } - -#define d2z0OpDotHatz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2);\ - } - -#define c2s0OpDotHatc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1[i],FloatComplex(in2,0));\ - } - -#define z2d0OpDotHatz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2,0));\ - } - -#define u82d0OpDotHatu82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u8pows(in1[i],in2);\ - } - -#define u162d0OpDotHatu162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u16pows(in1[i],in2);\ - } - - -#define i82d0OpDotHati82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i8pows(in1[i],in2);\ - } - -#define i162d0OpDotHatui62(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i16pows(in1[i],in2);\ - } - - - -/* Matrix - Matrix */ - -#define s2s2OpDotHats2(in1, size1, in2, size2, out) spowa(in1, size1[0]*size2[1], in2, out) - -#define d2d2OpDotHatd2(in1, size1, in2, size2, out) dpowa(in1, size1[0]*size2[1], in2, out) - -#define c2c2OpDotHatc2(in1, size1, in2, size2, out) cpowa(in1, size1[0]*size2[1], in2, out) - -#define z2z2OpDotHatz2(in1, size1, in2, size2, out) zpowa(in1, size1[0]*size2[1], in2, out) - -#define u82u82OpDotHatu82(in1, size1, in2, size2, out) u8powa(in1, size1[0]*size2[1], in2, out) - -#define u162u162OpDotHatu162(in1, size1, in2, size2, out) u16powa(in1, size1[0]*size2[1], in2, out) - -#define i82i82OpDotHati82(in1, size1, in2, size2, out) i8powa(in1, size1[0]*size2[1], in2, out) - -#define i162i162OpDotHati162(in1, size1, in2, size2, out) i16powa(in1, size1[0]*size2[1], in2, out) - -#define s2c2OpDotHatc2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=cpows(FloatComplex(in1[i],0),in2[i]);\ - } - -#define c2s2OpDotHatc2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=cpows(in1[i],FloatComplex(in2[i],0));\ - } - -#define d2z2OpDotHatz2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zpows(DoubleComplex(in1[i],0),in2[i]);\ - } - -#define z2d2OpDotHatz2(in1, size1, in2, size2, out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zpows(in1[i],DoubleComplex(in2[i],0));\ - } - - - - -#endif /* !__INT_OPDOTHAT_H__ */ diff --git a/interfaces/int_OpDotSlash.h b/interfaces/int_OpDotSlash.h deleted file mode 100644 index 54f0c3a..0000000 --- a/interfaces/int_OpDotSlash.h +++ /dev/null @@ -1,176 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPDOTSLASH_H__ -#define __INT_OPDOTSLASH_H__ - -/* Scalar ./ Scalar */ - -#define s0s0OpDotSlashs0(in1,in2) srdivs(in1,in2) - -#define d0d0OpDotSlashd0(in1,in2) drdivs(in1,in2) - -#define c0c0OpDotSlashc0(in1,in2) crdivs(in1,in2) - -#define z0z0OpDotSlashz0(in1,in2) zrdivs(in1,in2) - -#define u80u80OpDotSlashu80(in1,in2) u8rdivs(in1,in2) - -#define u160u160OpDotSlashu160(in1,in2) u16rdivs(in1,in2) - -#define i80i80OpDotSlashi80(in1,in2) i8rdivs(in1,in2) - -#define i160i60OpDotSlashi60(in1,in2) i16divs(in1,in2) - -#define s0c0OpDotSlashc0(in1,in2) crdivs(FloatComplex(in1,0),in2) - -#define c0s0OpDotSlashc0(in1,in2) crdivs(in1,FloatComplex(in2,0)) - -#define d0z0OpDotSlashz0(in1,in2) zrdivs(DoubleComplex(in1,0),in2) - -#define z0d0OpDotSlashz0(in1,in2) zrdivs(in1,DoubleComplex(in2,0)) - - -/* Scalar / Matrix */ - - -#define s0s2OpDotSlashs2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - - -#define d0d2OpDotSlashd2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - - -#define c0c2OpDotSlashc2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1,in2[i]);} - - -#define z0z2OpDotSlashz2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1,in2[i]);} - -#define u80u82OpDotSlashu82(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -#define u160u162OpDotSlashu162(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -#define i80i82OpDotSlashi82(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -#define i160i162OpDotSlashi162(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - - -#define s0c2OpDotSlashc2(in1,in2,size,out) c0c2OpDotSlashc2(FloatComplex(in1,0),in2,size,out) - - -#define d0z2OpDotSlashz2(in1,in2,size,out) z0z2OpDotSlashz2(DoubleComplex(in1,0),in2,size,out) - - -#define c0s2OpDotSlashc2(in1,in2,size,out) {int i=0;\ - float* temp = malloc((uint)(size[0]*size[1])*sizeof(float));\ - sinverma(in2,temp,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,FloatComplex(temp[i],0));} - -#define z0d2OpDotSlashz2(in1,in2,size,out) {int i=0;\ - double* temp = malloc((uint)(size[0]*size[1])*sizeof(double));\ - dinverma(in2,temp,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,DoubleComplex(temp[i],0));} - - -/* Matrix / Scalar */ - - -#define s2s0OpDotSlashs2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - - -#define d2d0OpDotSlashd2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - - -#define c2c0OpDotSlashc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1[i],in2);} - - -#define z2z0OpDotSlashz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zrdivs(in1[i],in2);} - -#define u82u80OpDotSlashu82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++ out[i]=in[i]/in2);} - -#define u162u160OpDotSlashu162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++ out[i]=in[i]/in2);} - -#define i82i80OpDotSlashi82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++ out[i]=in[i]/in2);} - -#define i162i160OpDotSlashi162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++ out[i]=in[i]/in2);} - - - -#define s2c0OpDotSlashc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(FloatComplex(in1[i],0),in2);} - - -#define d2z0OpDotSlashz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zrdivs(DoubleComplex(in1[i],0),in2);} - - -#define c2s0OpDotSlashc2(in1,size,in2,out) c2c0OpDotSlashc2(in1,size,FloatComplex(in2,0),out) - - -#define z2d0OpDotSlashz2(in1,size,in2,out) z2z0OpDotSlashz2(in1,size,DoubleComplex(in2,0),out) - - - -/* Matrix ./ Matrix */ - -#define s2s2OpDotSlashs2(in1,size1,in2,size2,out) srdiva(in1,in2,size2[0]*size2[1],out) - -#define d2d2OpDotSlashd2(in1,size1,in2,size2,out) drdiva(in1,in2,size2[0]*size2[1],out) - -#define c2c2OpDotSlashc2(in1,size1,in2,size2,out) crdiva(in1,in2,size2[0]*size2[1],out) - -#define z2z2OpDotSlashz2(in1,size1,in2,size2,out) zrdiva(in1,in2,size2[0]*size2[1],out) - -#define u82u82OpDotSlashu82(in1,size1,in2,size2,out) u8rdiva(in1,in2,size2[0]*size2[1],out) - -#define u162u162OpDotSlashu162(in1,size1,in2,size2,out) u16rdiva(in1,in2,size2[0]*size2[1],out) - -#define i82i82OpDotSlashi82(in1,size1,in2,size2,out) i8rdiva(in1,in2,size2[0]*size2[1],out) - -#define i162i162OpDotSlashi162(in1,size1,in2,size2,out) i16rdiva(in1,in2,size2[0]*size2[1],out) - - - - - -#define c2s2OpDotSlashc2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=crdivs(in1[i],FloatComplex(in2[i],0));} - -#define s2c2OpDotSlashc2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=crdivs(FloatComplex(in1[i],0),in2[i]);} - -#define z2d2OpDotSlashz2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zrdivs(in1[i],DoubleComplex(in2[i],0));} - -#define d2z2OpDotSlashz2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zrdivs(DoubleComplex(in1[i],0),in2[i]);} - - - -#endif /* !__INT_OPDOTSLASH_H__ */ diff --git a/interfaces/int_OpDotStar.h b/interfaces/int_OpDotStar.h deleted file mode 100644 index 4586e0c..0000000 --- a/interfaces/int_OpDotStar.h +++ /dev/null @@ -1,151 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPDOTSTAR_H__ -#define __INT_OPDOTSTAR_H__ - -/* Scalar .* Scalar */ - -#define s0s0OpDotStars0(in1,in2) smuls(in1,in2) - -#define d0d0OpDotStard0(in1,in2) dmuls(in1,in2) - -#define c0c0OpDotStarc0(in1,in2) cmuls(in1,in2) - -#define z0z0OpDotStarz0(in1,in2) zmuls(in1,in2) - -#define u80u80OpDotStaru80(in1,in2) u8muls(in1,in2) - -#define u160u160OpDotStaru160(in1,in2) u16muls(in1,in2) - -#define i80i80OpDotStari80(in1,in2) i8muls(in1,in2) - -#define i160i60OpDotStari60(in1,in2) i16muls(in1,in2) - -#define s0c0OpDotStarc0(in1,in2) cmuls(FloatComplex(in1,0),in2) - -#define c0s0OpDotStarc0(in1,in2) cmuls(in1,FloatComplex(in2,0)) - -#define d0z0OpDotStarz0(in1,in2) zmuls(DoubleComplex(in1,0),in2) - -#define z0d0OpDotStarz0(in1,in2) zmuls(in1,DoubleComplex(in2,0)) - - -/* Scalar .* Matrix */ - -#define s0s2OpDotStars2(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= smuls(in1,in2[i]);} - -#define d0d2OpDotStard2(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= dmuls(in1,in2[i]);} - -#define c0c2OpDotStarc2(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cmuls(in1,in2[i]);} - -#define z0z2OpDotStarz2(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zmuls(in1,in2[i]);} - -#define u80u82OpDotStaru80(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = u8muls(in1,in2[i]);} - -#define u160u162OpDotStaru160(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = u16muls(in1,in2[i]);} - -#define i80i82OpDotStari80(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = i8muls(in1,in2[i]);} - -#define i160i162OpDotStari160(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = i16muls(in1,in2[i]);} - -#define s0c2OpDotStarc2(in1,in2,size,out) c0c2OpDotStarc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2OpDotStarz2(in1,in2,size,out) z0z2OpDotStarz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2OpDotStarc2(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cmuls(in1,FloatComplex(in2[i],0));} - -#define z0d2OpDotStarz2(in1,in2,size,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zmuls(in1,DoubleComplex(in2[i],0));} - - -/* Matrix .* Scalar */ - -#define s2s0OpDotStars2(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= smuls(in1[i],in2);} - -#define d2d0OpDotStard2(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= dmuls(in1[i],in2);} - -#define c2c0OpDotStarc2(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cmuls(in1[i],in2);} - -#define z2z0OpDotStarz2(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zmuls(in1[i],in2);} - -#define u82u80OpDotStaru82(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = u8muls(in[i],in2);} - -#define u162u160OpDotStaru162(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = u16muls(in[i],in2);} - -#define i82i80OpDotStari82(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = i8muls(in[i],in2);} - -#define i162i160OpDotStari162(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i] = i16muls(in[i],in2);} - -#define s2c0OpDotStarc2(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= cmuls(FloatComplex(in1[i],0),in2);} - -#define d2z0OpDotStarz2(in1,size,in2,out) {int i=0;\ - for(i=0;i<size[0]*size[1];i++) out[i]= zmuls(DoubleComplex(in1[i],0),in2);} - -#define c2s0OpDotStarc2(in1,size,in2,out) c2c0OpDotStarc2(in1,size,FloatComplex(in2,0),out) - -#define z2d0OpDotStarz2(in1,size,in2,out) z2z0OpDotStarz2(in1,size,DoubleComplex(in2,0),out) - -/* Matrix .* Matrix */ - -#define s2s2OpDotStars2(in1,size1,in2,size2,out) smula(in1,in2,size1[0]*size2[1],out) - -#define d2d2OpDotStard2(in1,size1,in2,size2,out) dmula(in1,in2,size1[0]*size2[1],out) - -#define c2c2OpDotStarc2(in1,size1,in2,size2,out) cmula(in1,in2,size1[0]*size2[1],out) - -#define z2z2OpDotStarz2(in1,size1,in2,size2,out) zmula(in1,in2,size1[0]*size2[1],out) - -#define u82u82OpDotStaru82(in1,size1,in2,size2,out) u8mula(in1,in2,size1[0]*size2[1],out) - -#define u162u162OpDotStaru162(in1,size1,in2,size2,out) u16mula(in1,in2,size1[0]*size2[1],out) - -#define i82i82OpDotStari82(in1,size1,in2,size2,out) i8mula(in1,in2,size1[0]*size2[1],out) - -#define i162i61OpDotStari162(in1,size1,in2,size2,out) i16mula(in1,in2,size1[0]*size2[1],out) - - -#define c2s2OpDotStarc2(in1,size1,in2,size2,out) {int i=0;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= cmuls(in1[i],FloatComplex(in2[i],0));} - -#define s2c2OpDotStarc2(in1,size1,in2,size2,out) {int i=0;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= cmuls(FloatComplex(in1[i],0),in2[i]);} - - -#define z2d2OpDotStarz2(in1,size1,in2,size2,out) {int i=0;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= zmuls(in1[i],DoubleComplex(in2[i],0));} - -#define d2z2OpDotStarz2(in1,size1,in2,size2,out) {int i=0;\ - for(i=0;i<size1[0]*size2[1];i++) out[i]= zmuls(DoubleComplex(in1[i],0),in2[i]);} - - -#endif /* !__INT_OPDOTSTAR_H__ */ diff --git a/interfaces/int_OpEqual.h b/interfaces/int_OpEqual.h deleted file mode 100644 index 869b28d..0000000 --- a/interfaces/int_OpEqual.h +++ /dev/null @@ -1,39 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPEQUAL_H__ -#define __INT_OPEQUAL_H__ - - -#define s0OpEquals0(in) in - -#define d0OpEquald0(in) in - -#define c0OpEqualc0(in) in - -#define z0OpEqualz0(in) in - -#define s2OpEquals2(in1,size,out) {int i=0; \ - for (i = 0 ; i<size[0] * size[1] ; i++) out[i]=in1[i]; \ - } - -#define d2OpEquald2(in1,size,out) {int i=0; \ - for (i = 0 ; i<size[0] * size[1] ; i++) out[i]=in1[i]; \ - } - -#define g2OpEqualg2(in1,size,out) {int i=0; \ - for (i = 0 ; i<size[0] * size[1] ; i++) out[i]=in1[i]; \ - } - -#endif /* !__INT_OPEQUAL_H__ */ diff --git a/interfaces/int_OpExt.h b/interfaces/int_OpExt.h deleted file mode 100644 index 7f11ede..0000000 --- a/interfaces/int_OpExt.h +++ /dev/null @@ -1,109 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * Copyright (C) 2009-2010 - DIGITEO - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPEXT_H__ -#define __INT_OPEXT_H__ - -#define s2s0OpExts0(in1,size,in2) in1[((int)in2)-1]; -#define d2d0OpExtd0(in1,size,in2) in1[((int)in2)-1]; -#define c2s0OpExtc0(in1,size,in2) in1[((int)in2)-1]; -#define z2d0OpExtz0(in1,size,in2) in1[((int)in2)-1]; - -#define s3s0OpExts0(in1,size,in2) in1[((int)in2)-1]; -#define d3d0OpExtd0(in1,size,in2) in1[((int)in2)-1]; - -#define s2s0s0OpExts0(in1,size,row,col) in1[(((int) col)-1)*size[0]+((int) row)-1]; -#define d2d0d0OpExtd0(in1,size,row,col) in1[(((int) col)-1)*size[0]+((int) row)-1]; -#define c2s0s0OpExtc0(in1,size,row,col) in1[(((int) col)-1)*size[0]+((int) row)-1]; -#define z2d0d0OpExtz0(in1,size,row,col) in1[(((int) col)-1)*size[0]+((int) row)-1]; - - -#define s2s2OpExts2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=in1[(int)in2[i]-1]; \ - } - -#define d2d2OpExtd2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=in1[(int)in2[i]-1]; \ - } - -#define c2s2OpExtc2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=in1[(int)in2[i]-1]; \ - } - -#define z2d2OpExtz2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=in1[(int)in2[i]-1]; \ - } - - -#define s2s2s0OpExts2(in1,size1,rows,size2,col,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=s2s0s0OpExts0(in1,size1,(int)rows[i],((int) col)); \ - } - -#define d2d2d0OpExtd2(in1,size1,rows,size2,col,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=d2d0d0OpExtd0(in1,size1,(int)rows[i],((int) col)); \ - } - -#define c2s2s0OpExtc2(in1,size1,rows,size2,col,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=c2s0s0OpExtc0(in1,size1,(int)rows[i],((int) col)); \ - } - -#define z2d2d0OpExtz2(in1,size1,rows,size2,col,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=z2d0d0OpExtz0(in1,size1,(int)rows[i],((int) col)); \ - } - -#define s2s0s2OpExts2(in1,size1,row,cols,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=s2s0s0OpExts0(in1,size1,((int) row),(int)cols[i]); \ - } - -#define d2d0d2OpExtd2(in1,size1,row,cols,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=d2d0d0OpExtd0(in1,size1,((int) row),(int)cols[i]); \ - } - -#define c2s0s2OpExtc2(in1,size1,row,cols,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=c2s0s0OpExtc0(in1,size1,((int) row),(int)cols[i]); \ - } - -#define z2d0d2OpExtz2(in1,size1,row,cols,size2,out) {int i; \ - for (i=0;i<size2[0]*size2[1];i++) out[i]=z2d0d0OpExtz0(in1,size1,((int) row),(int)cols[i]); \ - } - - -#define s2s2s2OpExts2(in1,size1,rows,size2,cols,size3,out) {int i,j; \ - for (i=0;i<size2[0]*size2[1];i++) \ - for (j=0;j<size3[0]*size3[1];j++) \ - out[i+j*size2[0]*size2[1]] = in1[((int)(cols[j])-1)*size1[0]+(int)(rows[i])-1]; \ - } - -#define d2d2d2OpExtd2(in1,size1,rows,size2,cols,size3,out) {int i,j; \ - for (i=0;i<size2[0]*size2[1];i++) \ - for (j=0;j<size3[0]*size3[1];j++) \ - out[i+j*size2[0]*size2[1]] = in1[((int)(cols[j])-1)*size1[0]+(int)(rows[i])-1]; \ - } - -#define c2s2s2OpExtc2(in1,size1,rows,size2,cols,size3,out) {int i,j; \ - for (i=0;i<size2[0]*size2[1];i++) \ - for (j=0;j<size3[0]*size3[1];j++) \ - out[i+j*size2[0]*size2[1]] = in1[((int)(cols[j])-1)*size1[0]+(int)(rows[i])-1]; \ - } - -#define z2d2d2OpExtz2(in1,size1,rows,size2,cols,size3,out) {int i,j; \ - for (i=0;i<size2[0]*size2[1];i++) \ - for (j=0;j<size3[0]*size3[1];j++) \ - out[i+j*size2[0]*size2[1]] = in1[((int)(cols[j])-1)*size1[0]+(int)(rows[i])-1]; \ - } - -#define d3d0d0d0OpExtd0(in, size, row, col, level) in[(int) ((row - 1)+ (col -1) * size[0] + (level - 1) * size[0] * size[1])]; - -#endif /* !__INT_OPEXT_H__ */ diff --git a/interfaces/int_OpHat.h b/interfaces/int_OpHat.h deleted file mode 100644 index f1bb8d5..0000000 --- a/interfaces/int_OpHat.h +++ /dev/null @@ -1,153 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPHAT_H__ -#define __INT_OPHAT_H__ - - -/* Scalar - Scalar */ -#define s0s0OpHats0(in1, in2) spows(in1, in2) - -#define d0d0OpHatd0(in1, in2) dpows(in1, in2) - -#define c0c0OpHatc0(in1, in2) cpows(in1, in2) - -#define u80u80OpHatu80(in1,in2) u8pows(in1, in2) - -#define u160u160OpHatu160(in1,in2) u16pows(in1, in2) - -#define i80i80OpHati80(in1,in2) i8pows(in1, in2) - -#define i160i60OpHati60(in1,in2) i6pows(in1, in2) - -#define s0c0OpHatc0(in1, in2) cpows(FloatComplex(in1,0), in2) - -#define c0s0OpHatc0(in1, in2) cpows(in1, FloatComplex(in2,0)) - -#define z0z0OpHatz0(in1, in2) zpows(in1, in2) - -#define d0z0OpHatz0(in1, in2) zpows(DoubleComplex(in1,0), in2) - -#define z0d0OpHatz0(in1, in2) zpows(in1, DoubleComplex(in2,0)) - - - -/* Scalar - Matrix */ -#define s0s2OpHats2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=spows(in1,in2[i]);\ - } - -#define d0d2OpHatd2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=dpows(in1,in2[i]);\ - } - - -#define c0c2OpHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,in2[i]);\ - } - - -#define z0z2OpHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,in2[i]);\ - } - -#define u80u82OpHatu82(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u8pows(in1,in2[i]);\ - } - - -#define u160u162OpHatu162(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u16pows(in1,in2[i]);\ - } - -#define i80i82OpHati82(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i8pows(in1,in2[i]);\ - } - - -#define i160i162OpHati162(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i16pows(in1,in2[i]);\ - } - - - - -#define s0c2OpHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(FloatComplex(in1,0),in2[i]);\ - } - -#define d0z2OpHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(DoubleComplex(in1,0),in2[i]);\ - } - -#define c0s2OpHatc2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cpows(in1,FloatComplex(in2[i],0));\ - } - -#define z0d2OpHatz2(in1, in2, size, out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zpows(in1,DoubleComplex(in2[i],0));\ - } - - -/* Matrix - Scalar */ -/* Matrices must be square */ - -#define s2s0OpHats2(in1,size,in2,out) spowma(in1,size[0],in2,out); - -#define d2d0OpHatd2(in1,size,in2,out) dpowma(in1,size[0],in2,out); - -#define c2c0OpHatc2(in1,size,in2,out) cpowma(in1,size[0],in2,out); - -#define z2z0OpHatz2(in1,size,in2,out) zpowma(in1,size[0],in2,out); - -#define u82u80OpHatu82(in1,size,in2,out) u8powa(in1,size[0],in2,out) - -#define u162u162OpHatu162(in1,size,in2,out) u16powa(in1,size[0],in2,out) - -#define i82i80OpHati82(in1,size,in2,out) i8powa(in1,size[0],in2,out) - -#define i162i160OpHati82(in1,size,in2,out) i16powa(in1,size[0],in2,out) - -#define u82d0OpHatu82(in1,size,in2,out) u8powa(in1,size[0],in2,out) - -#define u162d0OpHatu162(in1,size,in2,out) u16powa(in1,size[0],in2,out) - -#define i82d0OpHati82(in1,size,in2,out) i8powa(in1,size[0],in2,out) - -#define i162d0OpHati162(in1,sine,in2,out) i16powa(in1,size[0],in2,out) - -/* FIXME : malloc here */ -#define s2c0OpHatc2(in1,size,in2,out) {float* tmp;\ - tmp = malloc((uint)(size[0]*size[1])*sizeof(float));\ - szerosa(tmp,size[0],size[1]);\ - cpowma(FloatComplexMatrix(in1,tmp,size[0]*size[1]),size[0],in2,out);\ - free(tmp);\ - } - -#define d2z0OpHatz2(in1,size,in2,out) {double* tmp;\ - tmp = malloc((uint)(size[0]*size[1])*sizeof(double));\ - dzerosa(tmp,size[0],size[1]);\ - zpowma(DoubleComplexMatrix(in1,tmp,size[0]*size[1]),size[0],in2,out);\ - free(tmp);\ - } - -#define c2s0OpHatc2(in1,size,in2,out) cpowma(in1,size[0],FloatComplex(in2,0),out); - -#define z2d0OpHatz2(in1,size,in2,out) zpowma(in1,size[0],DoubleComplex(in2,0),out); - - - - - -#endif /* !__INT_OPHAT_H__ */ diff --git a/interfaces/int_OpIns.h b/interfaces/int_OpIns.h deleted file mode 100644 index d15876b..0000000 --- a/interfaces/int_OpIns.h +++ /dev/null @@ -1,364 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2009 - POLIBA - Raffaele NUTRICATO - * Copyright (C) 2009 - INRIA - Arnaud TORSET - * Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET - * - * 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 - * - */ - -#ifndef __OPINS_H__ -#define __OPINS_H__ - - -/* a(3)=2 */ -#define s2s0s0OpIns(in,size,indice,newVal) in[(int) indice-1]=newVal; - -#define d2d0d0OpIns(in,size,indice,newVal) in[(int) indice-1]=newVal; - -#define c2s0c0OpIns(in,size,indice,newVal) in[(int) indice-1]=newVal; - -#define z2d0z0OpIns(in,size,indice,newVal) in[(int) indice-1]=newVal; - -#define s3s0s0OpIns(in,size,indice,newVal) in[(int) indice-1]=newVal; - -#define d3d0d0OpIns(in,size,indice,newVal) in[(int) indice-1]=newVal; - -/* a([1 2])=2 */ -#define s2s2s0OpIns(in,size1,indices,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)indices[i]-1]=newVal;\ - } - - -#define d2d2d0OpIns(in,size1,indices,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)indices[i]-1]=newVal;\ - } - -#define c2s2c0OpIns(in,size1,indices,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)indices[i]-1]=newVal;\ - } - -#define z2d2z0OpIns(in,size1,indices,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)indices[i]-1]=newVal;\ - } -/* a([1 2])=[3,1] */ -#define s2s2s2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=newVals[i];\ - } - - -#define d2d2d2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=newVals[i];\ - } - -#define c2s2c2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=newVals[i];\ - } - -#define z2d2z2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=newVals[i];\ - } - - -/* a(1,3)=2 */ -#define s2s0s0s0OpIns(in,size,row,col,newVal) in[(int)(col-1)*size[0]+(int)row-1]=newVal; - -#define d2d0d0d0OpIns(in,size,row,col,newVal) in[(int)(col-1)*size[0]+(int)row-1]=newVal; - -#define c2s0s0c0OpIns(in,size,row,col,newVal) in[(int)(col-1)*size[0]+(int)row-1]=newVal; - -#define z2d0d0z0OpIns(in,size,row,col,newVal) in[(int)(col-1)*size[0]+(int)row-1]=newVal; - - -/* a(1,[3,1])=2 */ -#define s2s0s2s0OpIns(in,size1,row,cols,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVal;\ - } - -#define d2d0d2d0OpIns(in,size1,row,cols,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVal;\ - } - -#define c2s0s2c0OpIns(in,size1,row,cols,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVal;\ - } - -#define z2d0d2z0OpIns(in,size1,row,cols,size2,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVal;\ - } - - -/* a([3,1],1)=2 */ -#define s2s2s0s0OpIns(in,size1,rows,size2,col,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVal;\ - } - -#define d2d2d0d0OpIns(in,size1,rows,size2,col,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVal;\ - } - -#define c2s2s0c0OpIns(in,size1,rows,size2,col,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVal;\ - } - -#define z2d2d0z0OpIns(in,size1,rows,size2,col,newVal) {int i;\ - for (i=0;i<size2[0]*size2[1];i++) in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVal;\ - } - -/* a([3,1],[1 2])=2 */ -#define s2s2s2s0OpIns(in,size1,rows,size2,cols,size3,newVal) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVal;\ - } - -#define d2d2d2d0OpIns(in,size1,rows,size2,cols,size3,newVal) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVal;\ - } - -#define c2s2s2c0OpIns(in,size1,rows,size2,cols,size3,newVal) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVal;\ - } - -#define z2d2d2z0OpIns(in,size1,rows,size2,cols,size3,newVal) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVal;\ - } -/* a(1,[3,1])=[2,5] */ -#define s2s0s2s2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVals[i];\ - } - -#define d2d0d2d2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVals[i];\ - } - -#define c2s0s2c2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVals[i];\ - } - -#define z2d0d2z2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=newVals[i];\ - } -/* a([3,1],1)=[2,5] */ -#define s2s2s0s2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVals[i];\ - } - -#define d2d2d0d2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVals[i];\ - } - -#define c2s2s0c2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVals[i];\ - } - -#define z2d2d0z2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=newVals[i];\ - } - -/* a([3,1],[1 2])=[2,1,3,5] */ -#define s2s2s2s2OpIns(in,size1,rows,size2,cols,size3,newVals,size4) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVals[i*size4[0]+j];\ - } - -#define d2d2d2d2OpIns(in,size1,rows,size2,cols,size3,newVals,size4) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVals[i*size4[0]+j];\ - } - -#define c2s2s2c2OpIns(in,size1,rows,size2,cols,size3,newVals,size4) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVals[i*size4[0]+j];\ - } - -#define z2d2d2z2OpIns(in,size1,rows,size2,cols,size3,newVals,size4) {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=newVals[i*size4[0]+j];\ - } - - -/* Mixed types -2 cases : we assign a real in a complex array => ok, we just have put the imaginary part to 0 - we assign a complex in a real array => ko, we can't enlarge the input matrix. So we just replace by the real part of the complex -*/ - -/* a(3)=2 */ -#define s2s0c0OpIns(in,size,indice,newVal) s2s0s0OpIns(in,size,indice,creals(newVal)) - -#define d2d0z0OpIns(in,size,indice,newVal) d2d0d0OpIns(in,size,indice,zreals(newVal)) - -#define c2s0s0OpIns(in,size,indice,newVal) c2s0c0OpIns(in,size,indice,FloatComplex(newVal,0)) - -#define z2d0d0OpIns(in,size,indice,newVal) z2d0z0OpIns(in,size,indice,DoubleComplex(newVal,0)) - - -/* a([1 2])=2 */ -#define s2s2c0OpIns(in,size1,indices,size2,newVal) s2s2s0OpIns(in,size1,indices,size2,creals(newVal)) - -#define d2d2z0OpIns(in,size1,indices,size2,newVal) d2d2d0OpIns(in,size1,indices,size2,zreals(newVal)) - -#define c2s2s0OpIns(in,size1,indices,size2,newVal) c2s2c0OpIns(in,size1,indices,size2,FloatComplex(newVal,0)) - -#define z2d2d0OpIns(in,size1,indices,size2,newVal) z2d2z0OpIns(in,size1,indices,size2,DoubleComplex(newVal,0)) - - -/* a([1 2])=[3,1] */ -#define s2s2c2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=creals(newVals[i]);\ - } - - -#define d2d2z2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=zreals(newVals[i]);\ - } - -#define c2s2s2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=FloatComplex(newVals[i],0);\ - } - -#define z2d2d2OpIns(in,size1,indices,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size3[1];i++) in[(int)indices[i]-1]=DoubleComplex(newVals[i],0);\ - } - - -/* a(1,3)=2 */ -#define s2s0s0c0OpIns(in,size,row,col,newVal) s2s0s0s0OpIns(in,size,row,col,creals(newVal)) - -#define d2d0d0z0OpIns(in,size,row,col,newVal) d2d0d0d0OpIns(in,size,row,col,zreals(newVal)) - -#define c2s0s0s0OpIns(in,size,row,col,newVal) c2s0s0c0OpIns(in,size,row,col,FloatComplex(newVal,0)) - -#define z2d0d0d0OpIns(in,size,row,col,newVal) z2d0d0z0OpIns(in,size,row,col,DoubleComplex(newVal,0)) - - -/* a(1,[3,1])=2 */ -#define s2s0s2c0OpIns(in,size1,row,cols,size2,newVal) s2s0s2s0OpIns(in,size1,row,cols,size2,creals(newVal)) - -#define d2d0d2z0OpIns(in,size1,row,cols,size2,newVal) d2d0d2d0OpIns(in,size1,row,cols,size2,zreals(newVal)) - -#define c2s0s2s0OpIns(in,size1,row,cols,size2,newVal) c2s0s2c0OpIns(in,size1,row,cols,size2,FloatComplex(newVal,0)) - -#define z2d0d2d0OpIns(in,size1,row,cols,size2,newVal) z2d0d2z0OpIns(in,size1,row,cols,size2,DoubleComplex(newVal,0)) - - -/* a([3,1],1)=2 */ -#define s2s2s0c0OpIns(in,size1,rows,size2,col,newVal) s2s2s0s0OpIns(in,size1,rows,size2,col,creals(newVal)) - -#define d2d2d0z0OpIns(in,size1,rows,size2,col,newVal) d2d2d0d0OpIns(in,size1,rows,size2,col,zreals(newVal)) - -#define c2s2s0s0OpIns(in,size1,rows,size2,col,newVal) c2s2s0c0OpIns(in,size1,rows,size2,col,FloatComplex(newVal,0)) - -#define z2d2d0d0OpIns(in,size1,rows,size2,col,newVal) z2d2d0z0OpIns(in,size1,rows,size2,col,DoubleComplex(newVal,0)) - -/* a([3,1],[1 2])=2 */ -#define s2s2s2c0OpIns(in,size1,rows,size2,cols,size3,newVal) s2s2s2s0OpIns(in,size1,rows,size2,cols,size3,creals(newVal)) - -#define d2d2d2z0OpIns(in,size1,rows,size2,cols,size3,newVal) d2d2d2d0OpIns(in,size1,rows,size2,cols,size3,zreals(newVal)) - -#define c2s2s2s0OpIns(in,size1,rows,size2,cols,size3,newVal) c2s2s2c0OpIns(in,size1,rows,size2,cols,size3,FloatComplex(newVal,0)) - -#define z2d2d2d0OpIns(in,size1,rows,size2,cols,size3,newVal) z2d2d2z0OpIns(in,size1,rows,size2,cols,size3,DoubleComplex(newVal,0)) - - -/* a(1,[3,1])=[2,5] */ -#define s2s0s2c2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=creals(newVals[i]);\ - } - -#define d2d0d2z2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=zreals(newVals[i]);\ - } - -#define c2s0s2s2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=FloatComplex(newVals[i],0);\ - } - -#define z2d0d2d2OpIns(in,size1,row,cols,size2,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(cols[i]-1)*size1[0]+(int)row-1]=DoubleComplex(newVals[i],0);\ - } -/* a([3,1],1)=[2,5] */ -#define s2s2s0c2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=creals(newVals[i]);\ - } - -#define d2d2d0z2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=zreals(newVals[i]);\ - } - -#define c2s2s0s2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=FloatComplex(newVals[i],0);\ - } - -#define z2d2d0d2OpIns(in,size1,rows,size2,col,newVals,size3) {int i;\ - for (i=0;i<size2[0]*size2[1];i++)\ - in[(int)(col-1)*size1[0]+(int)rows[i]-1]=DoubleComplex(newVals[i],0);\ - } - -/* a([3,1],[1 2])=[2,1,3,5] */ -#define s2s2s2c2OpIns(in,size1,rows,size2,cols,size3,newVals,size4)\ - {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=creals(newVals[i*size4[0]+j]);\ - } - -#define d2d2d2z2OpIns(in,size1,rows,size2,cols,size3,newVals,size4)\ - {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=zreals(newVals[i*size4[0]+j]);\ - } - -#define c2s2s2s2OpIns(in,size1,rows,size2,cols,size3,newVals,size4)\ - {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=FloatComplex(newVals[i*size4[0]+j],0);\ - } - -#define z2d2d2d2OpIns(in,size1,rows,size2,cols,size3,newVals,size4)\ - {int i,j;\ - for (i=0;i<size3[0]*size3[1];i++)\ - for (j=0;j<size2[0]*size2[1];j++)\ - in[(int)(cols[i]-1)*size1[0]+(int)rows[j]-1]=DoubleComplex(newVals[i*size4[0]+j],0);\ - } - -/* a(x,y,z) = b */ - -#define s3s0s0s0s0OpIns(in, size1, row, col, level, newVal) \ - in[(int) ((row - 1) + (col - 1) * size1[0] + (level - 1) * size1[0] * size1[1])] = newVal; - -#define d3d0d0d0d0OpIns(in, size1, row, col, level, newVal) \ - in[(int) ((row - 1) + (col - 1) * size1[0] + (level - 1) * size1[0] * size1[1])] = newVal; -#endif /* !__OPINS_H__ */ diff --git a/interfaces/int_OpLogAnd.h b/interfaces/int_OpLogAnd.h deleted file mode 100644 index 50a3189..0000000 --- a/interfaces/int_OpLogAnd.h +++ /dev/null @@ -1,179 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPLOGAND_H__ -#define __INT_OPLOGAND_H__ - -#define Bool2Float(in) ((in) ? 1.0f : 0.0f) - -#define Bool2Double(in) ((in) ? 1.0 : 0.0) - -#define Bool2Uint8(in) ((in) ? (uint8)1 : (uint8)0) - -#define Bool2Int8(in) ((in) ? (int8)1 : (int8)0) - -#define Bool2Uint16(in) ((in) ? (uint16)1 : (uint16)0) - -#define Bool2Int16(in) ((in) ? (int16)1 : (int16)0) - -/*scalar and scalar*/ - -#define s0s0OpLogAnds0(in1, in2) Bool2Float(in1 != 0.0 && in2 != 0.0) - -#define s0c0OpLogAnds0(in1, in2) Bool2Float(in1 != 0.0 && (creals(in2) != 0.0 || cimags(in2))) - -#define c0s0OpLogAnds0(in1, in2) Bool2Float((creals(in1) != 0.0 || cimags(in1) != 0.0) && in2 != 0.0) - -#define c0c0OpLogAnds0(in1, in2) Bool2Float((creals(in1) != 0.0 || cimags(in1) != 0.0) && (creals(in2) != 0.0 || cimags(in2))) - - -#define d0d0OpLogAndd0(in1, in2) Bool2Double(in1 != 0.0 && in2 != 0.0) - -#define z0z0OpLogAndd0(in1, in2) Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && (zreals(in2) != 0.0 || zimags(in2))) - -#define d0z0OpLogAndd0(in1, in2) Bool2Double(in1 != 0.0 && (zreals(in2) != 0.0 || zimags(in2))) - -#define z0d0OpLogAndd0(in1, in2) Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && in2 != 0.0) - -#define u80u80OpLogAndu80(in1, in2) Bool2Uint8(in1 != 0 && in2 != 0) - -#define i80i80OpLogAndi80(in1, in2) Bool2Int8(in1 != 0 && in2 != 0) - -#define u160u160OpLogAndu160(in1, in2) Bool2Uint16(in1 != 0 && in2 != 0) - -#define i160i160OpLogAndi160(in1, in2) Bool2Int16(in1 != 0 && in2 != 0) - - -/*matrix and scalar*/ - -#define s2s0OpLogAnds2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0 && in2 != 0.0);} - -#define s2c0OpLogAnds2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0 && (creals(in2) != 0.0 || cimags(in2)));} - -#define c2s0OpLogAnds2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0 || cimags(in1[i]) != 0.0) && in2 != 0.0);} - -#define c2c0OpLogAnds2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0 || cimags(in1[i]) != 0.0) && (creals(in2) != 0.0 || cimags(in2)));} - - -#define d2d0OpLogAndd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 && in2 != 0.0);} - -#define z2z0OpLogAndd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && (zreals(in2) != 0.0 || zimags(in2)));} - -#define d2z0OpLogAndd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 && (zreals(in2) != 0.0 || zimags(in2)));} - -#define z2d0OpLogAndd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && in2 != 0.0);} - -#define u82u80OpLogAndu82(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Uint8(in1[i] != 0 && in2 != 0);} - -#define i82i80OpLogAndi82(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Int8(in1[i] != 0 && in2 != 0);} - -#define u82u80OpLogAndu82(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Uint8(in1[i] != 0 && in2 != 0);} - -#define u162u160OpLogAndu162(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Uint16(in1[i] != 0 && in2 != 0);} - -#define i162i160OpLogAndi162(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Int16(in1[i] != 0 && in2 != 0);} - -/*scalar and matrix*/ - -#define s0s2OpLogAnds2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1 != 0.0 && in2[i] != 0.0);} - -#define s0c2OpLogAnds2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1 != 0.0 && (creals(in2[i]) != 0.0 || cimags(in2[i])));} - -#define c0s2OpLogAnds2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1) != 0.0 || cimags(in1) != 0.0) && in2[i] != 0.0);} - -#define c0c2OpLogAnds2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1) != 0.0 || cimags(in1) != 0.0) && (creals(in2[i]) != 0.0 || cimags(in2[i])));} - - -#define d0d2OpLogAndd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1 != 0.0 && in2[i] != 0.0);} - -#define z0z2OpLogAndd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define d0z2OpLogAndd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1 != 0.0 && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define z0d2OpLogAndd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && in2[i] != 0.0);} - -#define u80u82OpLogAndu82(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint8(in1 != 0 && in2[i] != 0);} - -#define i80i82OpLogAndi82(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int8(in1 != 0 && in2[i] != 0);} - -#define u160u162OpLogAndu162(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint16(in1 != 0 && in2[i] != 0);} - -#define i160i162OpLogAndi162(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int16(in1 != 0 && in2[i] != 0);} - -/*TODO matrix and matrix*/ - -#define s2s2OpLogAnds2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0 && in2[i] != 0.0);} - -#define s2c2OpLogAnds2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0 && (creals(in2[i]) != 0.0 || cimags(in2[i])));} - -#define c2s2OpLogAnds2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0 || cimags(in1[i]) != 0.0) && in2[i] != 0.0);} - -#define c2c2OpLogAnds2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0 || cimags(in1[i]) != 0.0) && (creals(in2[i]) != 0.0 || cimags(in2[i])));} - - -#define d2d2OpLogAndd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 && in2[i] != 0.0);} - -#define z2z2OpLogAndd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define d2z2OpLogAndd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define z2d2OpLogAndd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && in2[i] != 0.0;)} - - -#define u82u82OpLogAndu82(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint8(in1[i] != 0 && in2[i] != 0);} - -#define i82i82OpLogAndi82(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int8(in1[i] != 0 && in2[i] != 0);} - -#define u162u162OpLogAndu162(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint16(in1[i] != 0 && in2[i] != 0);} - -#define i162i162OpLogAndi162(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int16(in1[i] != 0 && in2[i] != 0);} - -#endif /* !__INT_OPLOGAND_H__ */ diff --git a/interfaces/int_OpLogEq.h b/interfaces/int_OpLogEq.h deleted file mode 100644 index b693db6..0000000 --- a/interfaces/int_OpLogEq.h +++ /dev/null @@ -1,145 +0,0 @@ -/* -** -*- C -*- -** -** -** Made by Raffaele.Nutricato@tiscali.it -** -** Copyright Raffaele Nutricato -*/ -/* Modified by Arnaud Torset */ - - -#ifndef __OPLOGEQ_H__ -#define __OPLOGEQ_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" -#include "types.h" - -#define s0s0OpLogEqs0(in1,in2) (float) (in1 == in2) -#define d0d0OpLogEqd0(in1,in2) (double) (in1 == in2) -#define c0c0OpLogEqs0(in1,in2) (float) ((creals(in1) == creals(in2)) && (cimags(in1) == cimags(in2))) -#define z0z0OpLogEqd0(in1,in2) (double) ((zreals(in1) == zreals(in2)) && (zimags(in1) == zimags(in2))) -#define u80u80OpLogEqu80(in1,in2) (uint8) (in1 == in2) -#define i80i80OpLogEqi80(in1,in2) (int8) (in1 == in2) -#define u160u160OpLogEqu160(in1,in2) (uint16) (in1 == in2) -#define i160i160OpLogEqi160(in1,in2) (int16) (in1 == in2) - - -#define s0c0OpLogEqs0(in1,in2) (float) ((in1==creals(in2)) && (0==cimags(in2))) -#define d0z0OpLogEqd0(in1,in2) (double) ((in1==zreals(in2)) && (0==zimags(in2))) -#define c0s0OpLogEqs0(in1,in2) s0c0OpLogEqs0(in2,in1) -#define z0d0OpLogEqd0(in1,in2) d0z0OpLogEqd0(in2,in1) - -#define u80d0OpLogEqu80(in1,in2) (uint8) (in1 == (uint8)in2) -#define i80d0OpLogEqi80(in1,in2) (int8) (in1 == (int8)in2) -#define u160d0OpLogEqu160(in1,in2) (uint16) (in1 == (uint16)in2) -#define i160d0OpLogEqi160(in1,in2) (int16) (in1 == (int16)in2) - -#define d0u80OpLogEqu80(in1,in2) (uint8) ((uint8)in1 == in2) -#define d0i80OpLogEqi80(in1,in2) (int8) ((int8)in1 == in2) -#define d0u160OpLogEqu160(in1,in2) (uint16) ((uint16)in1 == in2) -#define d0i160OpLogEqi160(in1,in2) (int16) ((int16)in1 == in2) - - -#define s2s0OpLogEqs2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(float)(in1[i]==in2);\ - } -#define d2d0OpLogEqd2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(double)(in1[i]==in2);\ - } -#define c2c0OpLogEqs2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(float)((creals(in1[i])==creals(in2))&&(cimags(in1[i])==cimags(in2)));\ - } -#define z2z0OpLogEqd2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(double)((zreals(in1[i])==zreals(in2))&&(zimags(in1[i])==zimags(in2)));\ - } - - -#define c2s0OpLogEqs2(in1,size,in2,out) c2c0OpLogEqs2(in1,size,FloatComplex(in2,0),out) -#define z2d0OpLogEqd2(in1,size,in2,out) z2z0OpLogEqd2(in1,size,DoubleComplex(in2,0),out) - -#define s2c0OpLogEqs2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(float)((in1[i]==creals(in2))&&(cimags(in2)==0));\ - } - -#define d2z0OpLogEqd2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(double)((in1[i]==zreals(in2))&&(zimags(in2)==0));\ - } -#define u82u80OpLogEqu82(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(uint8)(in1[i]==in2);\ - } - -#define i82i80OpLogEqi82(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(int8)(in1[i]==in2);\ - } - -#define u162u160OpLogEqu162(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(uint16)(in1[i]==in2);\ - } - -#define i162i160OpLogEqi162(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(int16)(in1[i]==in2);\ - } - -#define s0s2OpLogEqs2(in1,in2,inSize,out) s2s0OpLogEqs2(in2,inSize,in1,out) -#define c0s2OpLogEqs2(in1,in2,inSize,out) s2c0OpLogEqs2(in2,inSize,in1,out) -#define d0d2OpLogEqd2(in1,in2,inSize,out) d2d0OpLogEqd2(in2,inSize,in1,out) -#define z0d2OpLogEqd2(in1,in2,inSize,out) d2z0OpLogEqd2(in2,inSize,in1,out) -#define s0c2OpLogEqs2(in1,in2,inSize,out) c2s0OpLogEqs2(in2,inSize,in1,out) -#define c0c2OpLogEqs2(in1,in2,inSize,out) c2c0OpLogEqs2(in2,inSize,in1,out) -#define d0z2OpLogEqd2(in1,in2,inSize,out) z2d0OpLogEqd2(in2,inSize,in1,out) -#define z0z2OpLogEqd2(in1,in2,inSize,out) z2z0OpLogEqd2(in2,inSize,in1,out) -#define u80u82OpLogEqu82(in1,in2,inSize,out) u82u80OpLogEqu82(in2,inSize,in1,out) -#define i80i82OpLogEqi82(in1,in2,inSize,out) i82i80OpLogEqi82(in2,inSize,in1,out) -#define u160u162OpLogEqu162(in1,in2,inSize,out) u162u160OpLogEq162(in2,inSize,in1,out) -#define i160i162OpLogEqi162(in1,in2,inSize,out) i162i160OpLogEqi162(in2,inSize,in1,out) - - -/* we must have size1=size2 */ - -#define s2s2OpLogEqs2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(float)(in1[i]==in2[i]);\ - } -#define d2d2OpLogEqd2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(double)(in1[i]==in2[i]);\ - } -#define c2c2OpLogEqs2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(float)((creals(in1[i])==creals(in2[i]))&&(cimags(in1[i])==cimags(in2[i])));\ - } -#define z2z2OpLogEqd2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(double)((zreals(in1[i])==zreals(in2[i]))&&(zimags(in1[i])==zimags(in2[i])));\ - } - -#define s2c2OpLogEqs2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(float)((in1[i]==creals(in2[i]))&&(0==cimags(in2[i])));\ - } -#define d2z2OpLogEqd2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(double)((in1[i]==zreals(in2[i]))&&(0==zimags(in2[i])));\ - } - -#define c2s2OpLogEqs2(in1,size1,in2,size2,out) s2c2OpLogEqs2(in2,size2,in1,size1,out) -#define z2d2OpLogEqd2(in1,size1,in2,size2,out) d2z2OpLogEqd2(in2,size2,in1,size1,out) - -#define u82u82OpLogEqu82(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(uint8)(in1[i]==in2[i]);\ - } - -#define i82i82OpLogEqi82(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(int8)(in1[i]==in2[i]);\ - } - -#define u162u162OpLogEqu162(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(uint16)(in1[i]==in2[i]);\ - } - -#define i162i162OpLogEqi162(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(int16)(in1[i]==in2[i]);\ - } - - -#endif /* !__OPLOGEQ_H__ */ diff --git a/interfaces/int_OpLogGe.h b/interfaces/int_OpLogGe.h deleted file mode 100644 index edbdc07..0000000 --- a/interfaces/int_OpLogGe.h +++ /dev/null @@ -1,110 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2006-2007 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* - Update 23/02/09 by Arnaud Torset : Add matrix comparaison, remove include(floatComplex and doubleComplex) -*/ - -#ifndef __OPLOGGE_H__ -#define __OPLOGGE_H__ - - -#define s0s0OpLogGes0(in1,in2) (float) (in1 >= in2) -#define d0d0OpLogGed0(in1,in2) (double) (in1 >= in2) - -#define u80u80OpLogGeu80(in1,in2) (uint8) (in1 >= in2) - -#define i80i80OpLogGei80(in1,in2) (int8) (in1 >= in2) - -#define u160u160OpLogGeu160(in1,in2) (uint16) (in1 >= in2) - -#define i160i160OpLogGei160(in1,in2) (int16) (in1 >= in2) - - -#define s2s0OpLogGes2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogGes0(in1[i],in2);\ - } - - -#define u82u80OpLogGeu82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogGeu80(in1[i],in2);\ - } - -#define i82i80OpLogGei82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogGei80(in1[i],in2);\ - } - -#define u82u80OpLogGeu82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogGeu80(in1[i],in2);\ - } - -#define u162u160OpLogGeu162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogGeu160(in1[i],in2);\ - } - -#define i162i160OpLogGei162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogGei160(in1[i],in2);\ - } - -#define s0s2OpLogGes2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = s0s0OpLogGes0(in1,in2[i]);\ - } - -#define u80u82OpLogGeu82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u80u80OpLogGeu80(in1,in2[i]);\ - } - -#define u160u162OpLogGeu162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u160u160OpLogGeu160(in1,in2[i]);\ - } - - -#define i160i162OpLogGei162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i160i160OpLogGei160(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define s2s2OpLogGes2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogGes0(in1[i],in2[i]);\ - } - -#define d2d0OpLogGed2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogGed0(in1[i],in2);\ - } - -#define d0d2OpLogGed2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = d0d0OpLogGed0(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define d2d2OpLogGed2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogGed0(in1[i],in2[i]);\ - } - -#define u82u82OpLogGeu82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogGeu80(in1[i],in2[i]);\ - } - -#define i82i82OpLogGei82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogGei80(in1[i],in2[i]);\ - } - -#define u162u162OpLogGeu162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogGeu160(in1[i],in2[i]);\ - } - -#define i162i162OpLogGei162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogGei160(in1[i],in2[i]);\ - } - - -#endif /* !__OPLOGGE_H__ */ diff --git a/interfaces/int_OpLogGt.h b/interfaces/int_OpLogGt.h deleted file mode 100644 index 38c76cf..0000000 --- a/interfaces/int_OpLogGt.h +++ /dev/null @@ -1,103 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2006-2007 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* - Update 23/02/09 by Arnaud Torset : Add matrix comparaison, remove include(floatComplex and doubleComplex) -*/ - -#ifndef __OPLOGGT_H__ -#define __OPLOGGT_H__ - - -#define s0s0OpLogGts0(in1,in2) (float) (in1 > in2) -#define d0d0OpLogGtd0(in1,in2) (double) (in1 > in2) - -#define u80u80OpLogGtu80(in1,in2) (uint8) (in1 > in2) -#define i80i80OpLogGti80(in1,in2) (int8) (in1 > in2) -#define u160u160OpLogGtu160(in1,in2) (uint16) (in1 > in2) -#define i160i160OpLogGti160(in1,in2) (int16) (in1 > in2) - -#define s2s0OpLogGts2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogGts0(in1[i],in2);\ - } - -#define u82u80OpLogGtu82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogGtu80(in1[i],in2);\ - } - -#define i82i80OpLogGti82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogGti80(in1[i],in2);\ - } - -#define u162u160OpLogGtu162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogGtu160(in1[i],in2);\ - } - -#define i162i160OpLogGti162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogGti160(in1[i],in2);\ - } - -#define s0s2OpLogGts2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = s0s0OpLogGts0(in1,in2[i]);\ - } - -#define u80u82OpLogGtu82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u80u80OpLogGtu80(in1,in2[i]);\ - } - -#define i80i82OpLogGti82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i80i80OpLogGti80(in1,in2[i]);\ - } - -#define u160u162OpLogGtu162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u160u160OpLogGtu160(in1,in2[i]);\ - } - -#define i160i162OpLogGti162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i160i160OpLogGti160(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define s2s2OpLogGts2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogGts0(in1[i],in2[i]);\ - } - -#define d2d0OpLogGtd2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogGtd0(in1[i],in2);\ - } - -#define d0d2OpLogGtd2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = d0d0OpLogGtd0(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define d2d2OpLogGtd2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogGtd0(in1[i],in2[i]);\ - } - -#define u82u82OpLogGtu82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogGtu80(in1[i],in2[i]);\ - } - -#define i82i82OpLogGti82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogGti80(in1[i],in2[i]);\ - } - -#define u162u162OpLogGtu162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogGt160(in1[i],in2[i]);\ - } - -#define i162i162OpLogGti162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogGti160(in1[i],in2[i]);\ - } - -#endif /* !__OPLOGGT_H__ */ diff --git a/interfaces/int_OpLogLe.h b/interfaces/int_OpLogLe.h deleted file mode 100644 index 8dbd1aa..0000000 --- a/interfaces/int_OpLogLe.h +++ /dev/null @@ -1,102 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2006-2007 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* - Update 23/02/09 by Arnaud Torset : Add matrix comparaison, remove include(floatComplex and doubleComplex) -*/ - -#ifndef __OPLOGLE_H__ -#define __OPLOGLE_H__ - - -#define s0s0OpLogLes0(in1,in2) (float) (in1 <= in2) -#define d0d0OpLogLed0(in1,in2) (double) (in1 <= in2) -#define u80u80OpLogLeu80(in1,in2) (uint8) (in1 <= in2) -#define i80i80OpLogLei80(in1,in2) (int8) (in1 <= in2) -#define u160u160OpLogLeu160(in1,in2) (uint16) (in1 <= in2) -#define i160i160OpLogLei160(in1,in2) (int16) (in1 <= in2) - -#define s2s0OpLogLes2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogLes0(in1[i],in2);\ - } - -#define u82u80OpLogLeu82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogLeu80(in1[i],in2);\ - } - -#define i82i80OpLogLei82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogLei80(in1[i],in2);\ - } - -#define u162u160OpLogLeu162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogLeu160(in1[i],in2);\ - } - -#define i162i160OpLogLei162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogLei160(in1[i],in2);\ - } - -#define s0s2OpLogLes2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = s0s0OpLogLes0(in1,in2[i]);\ - } - -#define u80u82OpLogLeu82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u80u80OpLogLeu80(in1,in2[i]);\ - } - -#define i80i82OpLogLei82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i80i80OpLogLei80(in1,in2[i]);\ - } - -#define u160u162OpLogLeu162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u160u160OpLogLeu160(in1,in2[i]);\ - } - -#define i160i162OpLogLei162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i160i160OpLogLei160(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define s2s2OpLogLes2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogLes0(in1[i],in2[i]);\ - } - -#define d2d0OpLogLed2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogLed0(in1[i],in2);\ - } - -#define d0d2OpLogLed2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = d0d0OpLogLed0(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define d2d2OpLogLed2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogLed0(in1[i],in2[i]);\ - } - -#define u82u82OpLogLeu82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogLeu80(in1[i],in2[i]);\ - } - -#define i82i82OpLogLei82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogLei80(in1[i],in2[i]);\ - } - -#define u162u162OpLogLeu162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogLeu160(in1[i],in2[i]);\ - } - -#define i162i162OpLogLei162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogLei160(in1[i],in2[i]);\ - } - -#endif /* !__OPLOGLE_H__ */ diff --git a/interfaces/int_OpLogLt.h b/interfaces/int_OpLogLt.h deleted file mode 100644 index 8974b15..0000000 --- a/interfaces/int_OpLogLt.h +++ /dev/null @@ -1,102 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2006-2007 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* - Update 23/02/09 by Arnaud Torset : Add matrix comparaison, remove include(floatComplex and doubleComplex) -*/ - -#ifndef __OPLOGLT_H__ -#define __OPLOGLT_H__ - - -#define s0s0OpLogLts0(in1,in2) (float) (in1 < in2) -#define d0d0OpLogLtd0(in1,in2) (double) (in1 < in2) -#define u80u80OpLogLtu80(in1,in2) (uint8) (in1 < in2) -#define i80i80OpLogLti80(in1,in2) (int8) (in1 < in2) -#define u160u160OpLogLtu160(in1,in2) (uint16) (in1 < in2) -#define i160i160OpLogLti160(in1,in2) (int16) (in1 < in2) - -#define s2s0OpLogLts2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogLts0(in1[i],in2);\ - } - -#define u82u80OpLogLtu82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogLtu80(in1[i],in2);\ - } - -#define i82i80OpLogLti82(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogLti80(in1[i],in2);\ - } - -#define u162u160OpLogLtu162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogLtu160(in1[i],in2);\ - } - -#define i162i160OpLogLti162(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogLti160(in1[i],in2);\ - } - -#define s0s2OpLogLts2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = s0s0OpLogLts0(in1,in2[i]);\ - } - -#define u80u82OpLogLtu82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u80u80OpLogLtu80(in1,in2[i]);\ - } - -#define i80i82OpLogLti82(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i80i80OpLogLti80(in1,in2[i]);\ - } - -#define u160u162OpLogLtu162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = u160u160OpLogLtu160(in1,in2[i]);\ - } - -#define i160i162OpLogLti162(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = i160i160OpLogLti160(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define s2s2OpLogLts2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = s0s0OpLogLts0(in1[i],in2[i]);\ - } - -#define d2d0OpLogLtd2(in1, size1, in2, out) {int i;\ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogLtd0(in1[i],in2);\ - } - -#define d0d2OpLogLtd2(in1, in2, size2, out) {int i; \ - for(i = 0 ; i < size2[0] * size2[1] ; ++i) out[i] = d0d0OpLogLtd0(in1,in2[i]);\ - } - -/* we must have size1=size2 */ -#define d2d2OpLogLtd2(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = d0d0OpLogLtd0(in1[i],in2[i]);\ - } - -#define u82u82OpLogLtu82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u80u80OpLogLtu80(in1[i],in2[i]);\ - } - -#define i82i82OpLogLti82(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i80i80OpLogLti80(in1[i],in2[i]);\ - } - -#define u162u162OpLogLtu162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = u160u160OpLogLtu160(in1[i],in2[i]);\ - } - -#define i162i162OpLogLti162(in1, size1, in2, size2, out) {int i; \ - for(i = 0 ; i < size1[0] * size1[1] ; ++i) out[i] = i160i160OpLogLti160(in1[i],in2[i]);\ - } - -#endif /* !__OPLOGLT_H__ */ diff --git a/interfaces/int_OpLogNe.h b/interfaces/int_OpLogNe.h deleted file mode 100644 index 56cafef..0000000 --- a/interfaces/int_OpLogNe.h +++ /dev/null @@ -1,136 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008 - INRIA - Aranud Torset - * - * 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 - * - */ - -/* Idem that OpLogEq with a !(negation) behind*/ - -#ifndef __OPLOGNE_H__ -#define __OPLOGNE_H__ - -#include "floatComplex.h" -#include "doubleComplex.h" - -#define s0s0OpLogNes0(in1,in2) (float) !(in1 == in2) -#define d0d0OpLogNed0(in1,in2) (double) !(in1 == in2) -#define c0c0OpLogNes0(in1,in2) (float) !((creals(in1) == creals(in2)) && (cimags(in1) == cimags(in2))) -#define z0z0OpLogNed0(in1,in2) (double) !((zreals(in1) == zreals(in2)) && (zimags(in1) == zimags(in2))) -#define u80u80OpLogNeu80(in1,in2) (uint8) !(in1 == in2) -#define i80i80OpLogNei80(in1,in2) (int8) !(in1 == in2) -#define u160u160OpLogNeu160(in1,in2) (uint16) !(in1 == in2) -#define i160i160OpLogNei160(in1,in2) (int16) !(in1 == in2) - -#define s0c0OpLogNes0(in1,in2) (float) !((in1==creals(in2)) && (0==cimags(in2))) -#define d0z0OpLogNed0(in1,in2) (double) !((in1==zreals(in2)) && (0==zimags(in2))) -#define c0s0OpLogNes0(in1,in2) s0c0OpLogNes0(in2,in1) -#define z0d0OpLogNed0(in1,in2) d0z0OpLogNed0(in2,in1) - - - -#define s2s0OpLogNes2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(float)!(in1[i]==in2);\ - } -#define d2d0OpLogNed2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(double)!(in1[i]==in2);\ - } -#define c2c0OpLogNes2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(float)!((creals(in1[i])==creals(in2))&&(cimags(in1[i])==cimags(in2)));\ - } -#define z2z0OpLogNed2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(double)!((zreals(in1[i])==zreals(in2))&&(zimags(in1[i])==zimags(in2)));\ - } - - -#define c2s0OpLogNes2(in1,size,in2,out) c2c0OpLogNes2(in1,size,FloatComplex(in2,0),out) -#define z2d0OpLogNed2(in1,size,in2,out) z2z0OpLogNed2(in1,size,DoubleComplex(in2,0),out) - -#define s2c0OpLogNes2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(float)!((in1[i]==creals(in2))&&(cimags(in2)==0));\ - } - -#define d2z0OpLogNed2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(double)!((in1[i]==zreals(in2))&&(zimags(in2)==0));\ - } - -#define u82u80OpLogNeu82(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(uint8)!(in1[i]==in2);\ - } - -#define i82i80OpLogNei82(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(int8)!(in1[i]==in2);\ - } - -#define u162u160OpLogNeu162(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(uint16)!(in1[i]==in2);\ - } - -#define i162i160OpLogNei162(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=(int16)!(in1[i]==in2);\ - } - -#define s0s2OpLogNes2(in1,in2,inSize,out) s2s0OpLogNes2(in2,inSize,in1,out) -#define c0s2OpLogNes2(in1,in2,inSize,out) s2c0OpLogNes2(in2,inSize,in1,out) -#define d0d2OpLogNed2(in1,in2,inSize,out) d2d0OpLogNed2(in2,inSize,in1,out) -#define z0d2OpLogNed2(in1,in2,inSize,out) d2z0OpLogNed2(in2,inSize,in1,out) -#define s0c2OpLogNes2(in1,in2,inSize,out) c2s0OpLogNes2(in2,inSize,in1,out) -#define c0c2OpLogNes2(in1,in2,inSize,out) c2c0OpLogNes2(in2,inSize,in1,out) -#define d0z2OpLogNed2(in1,in2,inSize,out) z2d0OpLogNed2(in2,inSize,in1,out) -#define z0z2OpLogNed2(in1,in2,inSize,out) z2z0OpLogNed2(in2,inSize,in1,out) -#define u80u82OpLogNeu82(in1,in2,inSize,out) u82u80OpLogNeu82(in2,inSize,in1,out) -#define i80i82OpLogNei82(in1,in2,inSize,out) i82i80OpLogNei82(in2,inSize,in1,out) -#define u160u162OpLogNeu162(in1,in2,inSize,out) u162u160OpLogNeu162(in2,inSize,in1,out) -#define i160i162OpLogNei162(in1,in2,inSize,out) i162i160OpLogNei162(in2,inSize,in1,out) - -/* we must have size1=size2 */ - -#define s2s2OpLogNes2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(float)!(in1[i]==in2[i]);\ - } -#define d2d2OpLogNed2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(double)!(in1[i]==in2[i]);\ - } -#define c2c2OpLogNes2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(float)!((creals(in1[i])==creals(in2[i]))&&(cimags(in1[i])==cimags(in2[i])));\ - } -#define z2z2OpLogNed2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(double)!((zreals(in1[i])==zreals(in2[i]))&&(zimags(in1[i])==zimags(in2[i])));\ - } - -#define s2c2OpLogNes2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(float)!((in1[i]==creals(in2[i]))&&(0==cimags(in2[i])));\ - } -#define d2z2OpLogNed2(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) \ - out[i]=(double)!((in1[i]==zreals(in2[i]))&&(0==zimags(in2[i])));\ - } - -#define c2s2OpLogNes2(in1,size1,in2,size2,out) s2c2OpLogNes2(in2,size2,in1,size1,out) -#define z2d2OpLogNed2(in1,size1,in2,size2,out) d2z2OpLogNed2(in2,size2,in1,size1,out) - -#define u82u82OpLogNeu82(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(uint8)!(in1[i]==in2[i]);\ - } - -#define i82i82OpLogNei82(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(int8)!(in1[i]==in2[i]);\ - } - -#define u162u162OpLogNeu162(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(uint16)!(in1[i]==in2[i]);\ - } - -#define i162i162OpLogNei162(in1,size1,in2,size2,out) {int i;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=(int16)!(in1[i]==in2[i]);\ - } - -#endif /* !__OPLOGNE_H__ */ diff --git a/interfaces/int_OpLogNot.h b/interfaces/int_OpLogNot.h deleted file mode 100644 index 852cd1c..0000000 --- a/interfaces/int_OpLogNot.h +++ /dev/null @@ -1,67 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPLOGNOT_H__ -#define __INT_OPLOGNOT_H__ - -#define s0OpLogNots0(in) (in==0) ? (float)1 : (float)0 - -#define d0OpLogNotd0(in) (in==0) ? (double)1 : (double)0 - -#define c0OpLogNotc0(in) (creals(in)==0) ? FloatComplex(1,0) : FloatComplex(0,0) - -#define z0OpLogNotz0(in) (zreals(in)==0) ? DoubleComplex(1,0) : DoubleComplex(0,0) - -#define u8OpLogNotu80(in) (in==0) ? (uint8)1 : (uint8)0 - -#define i8OpLogNoti80(in) (in==0) ? (int8)1 : (int8)0 - -#define u16OpLogNotu160(in) (in==0) ? (uint16)1 : (uint16)0 - -#define i16OpLogNoti160(in) (in==0) ? (int16)1 : (int16)0 - -#define s2OpLogNots2(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=s0OpLogNots0(in[i]);\ - } - -#define d2OpLogNotd2(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=d0OpLogNotd0(in[i]);\ - } - -#define c2OpLogNotc2(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=c0OpLogNotc0(in[i]);\ - } - -#define z2OpLogNotz2(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=z0OpLogNotz0(in[i]);\ - } - -#define u82OpLogNotu82(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u80OpLogNotu80(in[i]);\ - } - -#define i82OpLogNoti82(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i80OpLogNoti80(in[i]);\ - } - -#define u162OpLogNotu162(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=u160OpLogNoti160(in[i]);\ - } - -#define i162OpLogNoti162(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=i160OpLogNotu160(in[i]);\ - } - - -#endif /* !__INT_OPLOGNOT_H__ */ diff --git a/interfaces/int_OpLogOr.h b/interfaces/int_OpLogOr.h deleted file mode 100644 index c7acb51..0000000 --- a/interfaces/int_OpLogOr.h +++ /dev/null @@ -1,171 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPLOGOR_H__ -#define __INT_OPLOGOR_H__ - -#define Bool2Float(in) ((in) ? 1.0f : 0.0f) - -#define Bool2Double(in) ((in) ? 1.0 : 0.0) - -#define Bool2Uint8(in) ((in) ? (uint8)1 : (uint8)0) - -#define Bool2Int8(in) ((in) ? (int8)1 : (int8)0) - -#define Bool2Uint16(in) ((in) ? (uint16)1 : (uint16)0) - -#define Bool2Int16(in) ((in) ? (int16)1 : (int16)0) - -/*scalar or scalar */ - -#define s0s0OpLogOrs0(in1, in2) Bool2Float(in1 != 0.0f || in2 != 0.0f) - -#define d0d0OpLogOrd0(in1, in2) Bool2Double(in1 != 0.0 || in2 != 0.0) - -#define c0c0OpLogOrs0(in1, in2) Bool2Float((creals(in1) != 0.0f || cimags(in1) != 0.0f) || (creals(in2) != 0.0f || cimags(in2))) - -#define s0c0OpLogOrs0(in1, in2) Bool2Float(in1 != 0.0f && (creals(in2) != 0.0f || cimags(in2))) - -#define c0s0OpLogOrs0(in1, in2) Bool2Float((creals(in1) != 0.0f || cimags(in1) != 0.0f) && in2 != 0.0f) - -#define z0z0OpLogOrd0(in1, in2) Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && (zreals(in2) != 0.0 || zimags(in2))) - -#define d0z0OpLogOrd0(in1, in2) Bool2Double(in1 != 0.0 && (zreals(in2) != 0.0 || zimags(in2))) - -#define z0d0OpLogOrd0(in1, in2) Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && in2 != 0.0) - -#define u80u80OpLogOru80(in1, in2) Bool2Uint8(in1 != 0 || in2 != 0) - -#define i80i80OpLogOri80(in1, in2) Bool2Int8(in1 != 0 || in2 != 0) - -#define u160u160OpLogOru160(in1, in2) Bool2Uint16(in1 != 0 || in2 != 0) - -#define i160i160OpLogOri160(in1, in2) Bool2Int16(in1 != 0 || in2 != 0) - -/*matrix or scalar */ - -#define s2s0OpLogOrs2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0f || in2 != 0.0f);} - -#define d2d0OpLogOrd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 || in2 != 0.0);} - -#define c2c0OpLogOrs2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0f || cimags(in1[i]) != 0.0f) || (creals(in2) != 0.0f || cimags(in2)));} - -#define s2c0OpLogOrs2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0f && (creals(in2) != 0.0f || cimags(in2)));} - -#define c2s0OpLogOrs2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0f || cimags(in1[i]) != 0.0f) && in2 != 0.0f);} - -#define z2z0OpLogOrd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && (zreals(in2) != 0.0 || zimags(in2)));} - -#define d2z0OpLogOrd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 && (zreals(in2) != 0.0 || zimags(in2)));} - -#define z2d0OpLogOrd2(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && in2 != 0.0);} - -#define i82i80OpLogOri82(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Int8(in1[i] != 0 || in2 != 0);} - -#define u82u80OpLogOru82(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Uint8(in1[i] != 0 || in2 != 0);} - -#define u162u160OpLogOru162(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Uint16(in1[i] != 0 || in2 != 0);} - -#define i162i160OpLogOri162(in1, size1, in2, out) {int i = 0 ;\ - for (i = 0 ; i < size1[0]*size1[1] ; i++ ) out[i] = Bool2Int16(in1[i] != 0 || in2 != 0);} - - -/*scalar or matrix */ - -#define s0s2OpLogOrs2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1 != 0.0 || in2[i] != 0.0);} - -#define d0d2OpLogOrd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1 != 0.0 || in2[i] != 0.0);} - -#define c0c2OpLogOrs2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1) != 0.0 || cimags(in1) != 0.0) || (creals(in2[i]) != 0.0 || cimags(in2[i])));} - -#define s0c2OpLogOrs2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1 != 0.0 && (creals(in2[i]) != 0.0 || cimags(in2[i])));} - -#define c0s2OpLogOrs2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1) != 0.0 || cimags(in1) != 0.0) && in2[i] != 0.0);} - -#define z0z2OpLogOrd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define d0z2OpLogOrd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1 != 0.0 && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define z0d2OpLogOrd2(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1) != 0.0 || zimags(in1) != 0.0) && in2[i] != 0.0);} - -#define u80u82OpLogOru82(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint8(in1 != 0 || in2[i] != 0);} - -#define i80i82OpLogOri82(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int8(in1 != 0 || in2[i] != 0);} - -#define u160u162OpLogOru162(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint16(in1 != 0 || in2[i] != 0);} - -#define i160i162OpLogOri162(in1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int16(in1 != 0 || in2[i] != 0);} - -/*matrix or matrix */ - -#define s2s2OpLogOrs2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0 || in2[i] != 0.0);} - -#define d2d2OpLogOrd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 || in2[i] != 0.0);} - -#define c2c2OpLogOrs2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0 || cimags(in1[i]) != 0.0) || (creals(in2[i]) != 0.0 || cimags(in2[i])));} - -#define s2c2OpLogOrs2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float(in1[i] != 0.0 && (creals(in2[i]) != 0.0 || cimags(in2[i])));} - -#define c2s2OpLogOrs2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Float((creals(in1[i]) != 0.0 || cimags(in1[i]) != 0.0) && in2[i] != 0.0);} - -#define z2z2OpLogOrd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define d2z2OpLogOrd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double(in1[i] != 0.0 && (zreals(in2[i]) != 0.0 || zimags(in2[i])));} - -#define z2d2OpLogOrd2(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Double((zreals(in1[i]) != 0.0 || zimags(in1[i]) != 0.0) && in2[i] != 0.0);} - -#define u82u82OpLogOru82(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint8(in1[i] != 0 || in2[i] != 0);} - -#define i82i82OpLogOri82(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int8(in1[i] != 0 || in2[i] != 0);} - -#define u162u162OpLogOru162(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Uint16(in1[i] != 0 || in2[i] != 0);} - -#define i162i162OpLogOri162(in1, size1, in2, size2, out) {int i = 0 ;\ - for (i = 0 ; i < size2[0]*size2[1] ; i++ ) out[i] = Bool2Int16(in1[i] != 0 || in2[i] != 0);} - -#endif /* !__INT_OPLOGOR_H__ */ diff --git a/interfaces/int_OpMinus.h b/interfaces/int_OpMinus.h deleted file mode 100644 index 2ea8a52..0000000 --- a/interfaces/int_OpMinus.h +++ /dev/null @@ -1,248 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPMINUS_H__ -#define __INT_OPMINUS_H__ - -/* - Scalar */ - -#define s0OpMinuss0(in) -in - -#define d0OpMinusd0(in) -in - -#define c0OpMinusc0(in) FloatComplex(-creals(in), -cimags(in)) - -#define z0OpMinusz0(in) DoubleComplex(-zreals(in), -zimags(in)) - -#define u80OpMinusu80(in) -(int8)in - -#define i80OpMinusi80(in) -in - -#define u160OpMinusu160(in) -(int16)in - -#define i160OpMinusi160(in) -in - -/* - Matrix */ - -#define s2OpMinuss2(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = -in[i]; \ - } - -#define d2OpMinusd2(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = -in[i]; \ - } - -#define c2OpMinusc2(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = FloatComplex(-creals(in[i]), -cimags(in[i])); \ - } - -#define z2OpMinusz2(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = DoubleComplex(-zreals(in[i]), -zimags(in[i])); \ - } - -#define u82OpMinusu82(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = -(int8)in[i]; \ - } - - -#define i82OpMinusi82(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = -in[i]; \ - } - - -#define u162OpMinusu162(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = -(int16)in[i]; \ - } - - -#define i162OpMinui162(in, size, out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i] = -(int16)in[i]; \ - } - - -/* Scalar - Scalar */ - -#define s0s0OpMinuss0(in1,in2) sdiffs(in1,in2) - -#define d0d0OpMinusd0(in1,in2) ddiffs(in1,in2) - -#define c0c0OpMinusc0(in1,in2) cdiffs(in1,in2) - -#define z0z0OpMinusz0(in1,in2) zdiffs(in1,in2) - -#define s0c0OpMinusc0(in1,in2) cdiffs(FloatComplex(in1,0),in2) - -#define c0s0OpMinusc0(in1,in2) cdiffs(in1,FloatComplex(in2,0)) - -#define d0z0OpMinusz0(in1,in2) zdiffs(DoubleComplex(in1,0),in2) - -#define z0d0OpMinusz0(in1,in2) zdiffs(in1,DoubleComplex(in2,0)) - -#define u80u80OpMinusu80(in1,in2) u8diffs(in1,in2) - -#define i80i80OpMinusi80(in1,in2) i8diffs(in1,in2) - -#define u160u160OpMinusu160(in1,in2) u16diffs(in1,in2) - -#define i160i160OpMinusi160(in1,in2) i16diffs(in1,in2) - -/* Matrix - Scalar */ - - -#define s2s0OpMinuss2(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]-in2; \ - } - - -#define d2d0OpMinusd2(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]-in2; \ - } - - -#define c2c0OpMinusc2(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=cdiffs(in1[i],in2); \ - } - -#define c2s0OpMinusc2(in1,size,in2,out) c2c0OpMinusc2(in1,size,FloatComplex(in2,0),out) - - -#define s2c0OpMinusc2(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=cdiffs(FloatComplex(in1[i],0),in2); \ - } - - -#define z2z0OpMinusz2(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=zdiffs(in1[i],in2); \ - } - -#define z2d0OpMinusz2(in1,size,in2,out) z2z0OpMinusz2(in1,size,DoubleComplex(in2,0),out) - - -#define d2z0OpMinusz2(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=zdiffs(DoubleComplex(in1[i],0),in2); \ - } - - -#define u82u80OpMinusu82(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]-in2; \ - } - - -#define i82i80OpMinusi82(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]-in2; \ - } - - -#define u162u160OpMinusu162(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]-in2; \ - } - - -#define i162i160OpMinusi162(in1,size,in2,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]-in2; \ - } - -/* Scalar - Matrix */ - - -#define s0s2OpMinuss2(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1-in2[i]; \ - } - - -#define d0d2OpMinusd2(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1-in2[i]; \ - } - - -#define c0c2OpMinusc2(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=cdiffs(in1,in2[i]); \ - } - -#define s0c2OpMinusc2(in1,in2,size,out) c0c2OpMinusc2(FloatComplex(in1,0),in2,size,out) - - -#define c0s2OpMinusc2(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=cdiffs(in1,FloatComplex(in2[i],0)); \ - } - - -#define z0z2OpMinusz2(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=zdiffs(in1,in2[i]); \ - } - -#define d0z2OpMinusz2(in1,in2,size,out) z0z2OpMinusz2(DoubleComplex(in1,0),in2,size,out) - - -#define z0d2OpMinusz2(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=zdiffs(in1,DoubleComplex(in2[i],0)); \ - } - - -#define u80u82OpMinusu82(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1-in2[i]; \ - } - - -#define i80i82OpMinusi82(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1-in2[i]; \ - } - -#define u160u162OpMinusu162(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1-in2[i]; \ - } - -#define i160i162OpMinusi162(in1,in2,size,out) {int i=0; \ - for (i=0;i<size[0]*size[1];i++) out[i]=in1-in2[i]; \ - } - -/* Matrix - Matrix */ - -#define s2s2OpMinuss2(in1,size1,in2,size2,out) sdiffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define d2d2OpMinusd2(in1,size1,in2,size2,out) ddiffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define c2c2OpMinusc2(in1,size1,in2,size2,out) cdiffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - - -#define s2c2OpMinusc2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size1[0]*size2[1];i++) out[i]=cdiffs(FloatComplex(in1[i],0),in2[i]); \ - } - - -#define c2s2OpMinusc2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size1[0]*size2[1];i++) out[i]=cdiffs(in1[i],FloatComplex(in2[i],0));\ - } - -#define z2z2OpMinusz2(in1,size1,in2,size2,out) zdiffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - - -#define d2z2OpMinusz2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zdiffs(DoubleComplex(in1[i],0),in2[i]); \ - } - - -#define z2d2OpMinusz2(in1,size1,in2,size2,out) {int i; \ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zdiffs(in1[i],DoubleComplex(in2[i],0)); \ - } - -#define u82u82OpMinusu82(in1,size1,in2,size2,out) u8diffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define i82i82OpMinusi82(in1,size1,in2,size2,out) i8diffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define u162u162OpMinusu162(in1,size1,in2,size2,out) u16diffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define i162i162OpMinusi162(in1,size1,in2,size2,out) i16diffa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#endif /* !__INT_OPMINUS_H__ */ diff --git a/interfaces/int_OpPlus.h b/interfaces/int_OpPlus.h deleted file mode 100644 index a5731d4..0000000 --- a/interfaces/int_OpPlus.h +++ /dev/null @@ -1,185 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPPLUS_H__ -#define __INT_OPPLUS_H__ - - -/* Scalar + Scalar */ - -#define s0s0OpPluss0(in1,in2) sadds(in1,in2) - -#define d0d0OpPlusd0(in1,in2) dadds(in1,in2) - -#define c0c0OpPlusc0(in1,in2) cadds(in1,in2) - -#define z0z0OpPlusz0(in1,in2) zadds(in1,in2) - -#define s0c0OpPlusc0(in1,in2) cadds(FloatComplex(in1,0),in2) - -#define c0s0OpPlusc0(in1,in2) cadds(in1,FloatComplex(in2,0)) - -#define d0z0OpPlusz0(in1,in2) zadds(DoubleComplex(in1,0),in2) - -#define z0d0OpPlusz0(in1,in2) zadds(in1,DoubleComplex(in2,0)) - -#define u80u80OpPlusu80(in1,in2) u8adds(in1,in2) - -#define i80i80OpPlusi80(in1,in2) i8adds(in1,in2) - -#define u160u160OpPlusu160(in1,in2) u16adds(in1,in2) - -#define i160i160OpPlusi160(in1,in2) i16adds(in1,in2) - -/* Matrix + Scalar */ - -#define s2s0OpPluss2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]+in2;\ - } - -#define d2d0OpPlusd2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]+in2;\ - } - -#define c2c0OpPlusc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cadds(in1[i],in2);\ - } - -/*On transforme le scalaire float en scalaire floatComplex pour pouvoir utiliser c2c0...c2*/ -#define c2s0OpPlusc2(in1,size,in2,out) c2c0OpPlusc2(in1,size,FloatComplex(in2,0),out) - -#define s2c0OpPlusc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cadds(FloatComplex(in1[i],0),in2);\ - } - -#define z2z0OpPlusz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zadds(in1[i],in2);\ - } - -/*On transforme le scalaire double en scalaire doubleComplex pour pouvoir utiliser z2z0...z2*/ -#define z2d0OpPlusz2(in1,size,in2,out) z2z0OpPlusz2(in1,size,DoubleComplex(in2,0),out) - -#define d2z0OpPlusz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zadds(DoubleComplex(in1[i],0),in2);\ - } - -#define u82u80OpPlusu82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]+in2;\ - } - -#define i82i80OpPlusi82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]+in2;\ - } - -#define u162u160OpPlusu162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]+in2;\ - } - -#define i162i160OpPlusi162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]+in2;\ - } - -/* Scalar + Matrix */ - -#define s0s2OpPluss2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1+in2[i];\ - } - -#define d0d2OpPlusd2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1+in2[i];\ - } - -#define c0c2OpPlusc2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cadds(in1,in2[i]);\ - } - -/*On transforme le scalaire float en scalaire floatComplex pour pouvoir utiliser c0c2...c2*/ -#define s0c2OpPlusc2(in1,in2,size,out) c0c2OpPlusc2(FloatComplex(in1,0),in2,size,out) - -#define c0s2OpPlusc2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cadds(in1,FloatComplex(in2[i],0));\ - } - -#define z0z2OpPlusz2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zadds(in1,in2[i]);\ - } - -/*On transforme le scalaire double en scalaire doubleComplex pour pouvoir utiliser z0z2...z2*/ -#define d0z2OpPlusz2(in1,in2,size,out) z0z2OpPlusz2(DoubleComplex(in1,0),in2,size,out) - -#define z0d2OpPlusz2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zadds(in1,DoubleComplex(in2[i],0));\ - } - -#define u80u82OpPlusu82(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1+in2[i];\ - } - -#define i80i82OpPlusi82(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1+in2[i];\ - } - -#define u160u162OpPlusu162(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1+in2[i];\ - } - -#define i160i162OpPlusi162(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1+in2[i];\ - } - -/* Matrix + Matrix */ - -#define s2s2OpPluss2(in1,size1,in2,size2,out) sadda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define d2d2OpPlusd2(in1,size1,in2,size2,out) dadda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define c2c2OpPlusc2(in1,size1,in2,size2,out) cadda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - - -#define s2c2OpPlusc2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=cadds(FloatComplex(in1[i],0),in2[i]);\ - } - -#define c2s2OpPlusc2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=cadds(in1[i],FloatComplex(in2[i],0));\ - } - -#define z2z2OpPlusz2(in1,size1,in2,size2,out) zadda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - - -#define d2z2OpPlusz2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zadds(DoubleComplex(in1[i],0),in2[i]);\ - } - - -#define z2d2OpPlusz2(in1,size1,in2,size2,out) {int i=0;\ - for (i=0;i<size1[0]*size2[1];i++) out[i]=zadds(in1[i],DoubleComplex(in2[i],0));\ - } - -#define u82u82OpPlusu82(in1,size1,in2,size2,out) u8adda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define i82i82OpPlusi82(in1,size1,in2,size2,out) i8adda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define u162u162OpPlusu162(in1,size1,in2,size2,out) u16adda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define i162i162OpPlusi162(in1,size1,in2,size2,out) i16adda(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) -/* Strings */ -/* RNU: size1[1]-1 -> "-1" because '\0' of the first string must be removed. */ -#define g2g2OpPlusg2(in1,size1,in2,size2,out) {int i = 0, j = 0; \ - for(i = 0 ; i < size1[1]-1 ; ++i, ++j) out[j] = in1[i]; \ - for(i = 0 ; i < size2[1] ; ++i, ++j) out[j] = in2[i]; \ - } - - -#endif /* !__INT_OPPLUS_H__ */ diff --git a/interfaces/int_OpRc.h b/interfaces/int_OpRc.h deleted file mode 100644 index 1e8f1c9..0000000 --- a/interfaces/int_OpRc.h +++ /dev/null @@ -1,139 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPRC_H__ -#define __INT_OPRC_H__ - -/* - /!\ - / ! \ We used columncat because disp isn't right. In the real case, it must be rowcat for Rc. - /__!_ \ - -*/ - - -/* Column Cat */ - -/* Same input elements */ - -#define s0s0OpRcs2(in1,in2,out) scolumncats(in1,in2,out) - -#define d0d0OpRcd2(in1,in2,out) dcolumncats(in1,in2,out) - -#define c0c0OpRcc2(in1,in2,out) ccolumncats(in1,in2,out) - -#define z0z0OpRcz2(in1,in2,out) zcolumncats(in1,in2,out) - -#define s2s2OpRcs2(in1,size1,in2,size2,out) scolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define d2d2OpRcd2(in1,size1,in2,size2,out) dcolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define c2c2OpRcc2(in1,size1,in2,size2,out) ccolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define z2z2OpRcz2(in1,size1,in2,size2,out) zcolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -/* Differents input elements */ -#define s0c0OpRcc2(in1,in2,out) c0c0OpRcc2(FloatComplex(in1,0),in2,out) - -#define d0z0OpRcz2(in1,in2,out) z0z0OpRcz2(DoubleComplex(in1,0),in2,out) - -#define c0s0OpRcc2(in1,in2,out) c0c0OpRcc2(in1,FloatComplex(in2,0),out) - -#define z0d0OpRcz2(in1,in2,out) z0z0OpRcz2(in1,DoubleComplex(in2,0),out) - -#define s2c2OpRcc2(in1,size1,in2,size2,out) sfilla((float*)out,size1[0],size1[1],0); \ - c2c2OpRcc2(FloatComplexMatrix(in1,(float*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define d2z2OpRcz2(in1,size1,in2,size2,out) dfilla((double*)out,size1[0],size1[1],0); \ - z2z2OpRcz2(DoubleComplexMatrix(in1,(double*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define c2s2OpRcc2(in1,size1,in2,size2,out) sfilla((float*)out,size2[0],size2[1],0); \ - c2c2OpRcc2(in1, size1, FloatComplexMatrix(in2,(float*)out,size2[0]*size2[1]), size2, out) - -#define z2d2OpRcz2(in1,size1,in2,size2,out) dfilla((double*)out,size2[0],size2[1],0); \ - z2z2OpRcz2(in1, size1, DoubleComplexMatrix(in2,(double*)out,size2[0]*size2[1]), size2, out) - -/* Matrix-Scalar */ - -/* Same type */ - -#define s2s0OpRcs2(in1,size,in2,out) { float temp=in2; \ - scolumncata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define d2d0OpRcd2(in1,size,in2,out) { double temp=in2; \ - dcolumncata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define c2c0OpRcc2(in1,size,in2,out) { floatComplex temp=in2; \ - ccolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -#define z2z0OpRcz2(in1,size,in2,out) { doubleComplex temp=in2; \ - zcolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -/* Different type */ -#define s2c0OpRcc2(in1,size,in2,out) { floatComplex temp=in2; \ - sfilla((float *)out,size[0],size[1],0); \ - scolumncata(FloatComplexMatrix(in1,(float*)out,size[0]*size[1]), size[0], size[1], &temp , 1, 1, out); \ - } - -#define d2z0OpRcz2(in1,size,in2,out) { doubleComplex temp=in2; \ - dfilla((double *)out,size[0],size[1],0); \ - zcolumncata(DoubleComplexMatrix(in1,(double *)out,size[0]*size[1]), size[0], size[1], &temp , 1, 1, out); \ - } - -#define c2s0OpRcc2(in1,size,in2,out) { floatComplex temp = FloatComplex(in2,0); \ - ccolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -#define z2d0OpRcz2(in1,size,in2,out) { doubleComplex temp = DoubleComplex(in2,0); \ - zcolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -/* Scalar-Matrix */ - -/* Same type */ -#define s0s2OpRcs2(in1,in2,size,out) { \ - float __tmp1 = in1 ;\ - scolumncata(&__tmp1 , 1, 1, in2, size[0], size[1], out);\ -} -#define d0d2OpRcd2(in1,in2,size,out) {\ - double __tmp1 = in1 ;\ - dcolumncata(&__tmp1 , 1, 1, in2, size[0], size[1], out); \ -} - -#define c0c2OpRcc2(in1,in2,size,out) { \ - floatComplex __tmp1 = in1 ;\ - ccolumncata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define z0z2OpRcz2(in1,in2,size,out) { \ - doubleComplex __tmp1 = in1 ;\ - zcolumncata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -/* Different type */ -#define s0c2OpRcc2(in1,in2,size,out) c0c2OpRcc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2OpRcz2(in1,in2,size,out) z0z2OpRcz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2OpRcc2(in1,in2,size,out) sfilla((float*)out,size[0],size[1],0); \ - c0c2OpRcc2(in1,FloatComplexMatrix(in2,(float*)out,size[0]*size[1]),size,out) - -#define z0d2OpRcz2(in1,in2,size,out) dfilla((double*)out,size[0],size[1],0); \ - z0z2OpRcz2(in1,DoubleComplexMatrix(in2,(double*)out,size[0]*size[1]),size,out) - -#endif /* !__INT_OPRC_H__ */ diff --git a/interfaces/int_OpSlash.h b/interfaces/int_OpSlash.h deleted file mode 100644 index 635fe2b..0000000 --- a/interfaces/int_OpSlash.h +++ /dev/null @@ -1,195 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPSLASH_H__ -#define __INT_OPSLASH_H__ - -/* Scalar / Scalar */ - -#define s0s0OpSlashs0(in1,in2) srdivs(in1,in2) - -#define d0d0OpSlashd0(in1,in2) drdivs(in1,in2) - -#define c0c0OpSlashc0(in1,in2) crdivs(in1,in2) - -#define z0z0OpSlashz0(in1,in2) zrdivs(in1,in2) - -#define s0c0OpSlashc0(in1,in2) crdivs(FloatComplex(in1,0),in2) - -#define c0s0OpSlashc0(in1,in2) crdivs(in1,FloatComplex(in2,0)) - -#define d0z0OpSlashz0(in1,in2) zrdivs(DoubleComplex(in1,0),in2) - -#define z0d0OpSlashz0(in1,in2) zrdivs(in1,DoubleComplex(in2,0)) - -#define u80u80OpSlashu80(in1,in2) u8rdivs(in1,in2) - -#define i80i80OpSlashi80(in1,in2) i8rdivs(in1,in2) - -#define u160u160OpSlashu160(in1,in2) u16rdivs(in1,in2) - -#define i160i160OpSlashi160(in1,in2) i16rdivs(in1,in2) - -/* Scalar / Matrix */ - - -#define s0s2OpSlashs2(in1,in2,size,out) {int i=0;\ - sinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];} - - -#define d0d2OpSlashd2(in1,in2,size,out) {int i=0;\ - dinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];} - - -#define c0c2OpSlashc2(in1,in2,size,out) {int i=0;\ - cinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,out[i]);} - - -#define z0z2OpSlashz2(in1,in2,size,out) {int i=0;\ - zinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,out[i]);} - - - -#define s0c2OpSlashc2(in1,in2,size,out) c0c2OpSlashc2(FloatComplex(in1,0),in2,size,out) - - -#define d0z2OpSlashz2(in1,in2,size,out) z0z2OpSlashz2(DoubleComplex(in1,0),in2,size,out) - - -/* FIXME: malloc */ -#define c0s2OpSlashc2(in1,in2,size,out) {int i=0;\ - float* temp = malloc((uint)(size[0]*size[1])*sizeof(float));\ - sinverma(in2,temp,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,FloatComplex(temp[i],0));} - -/* FIXME: malloc */ -#define z0d2OpSlashz2(in1,in2,size,out) {int i=0;\ - double* temp = malloc((uint)(size[0]*size[1])*sizeof(double));\ - dinverma(in2,temp,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,DoubleComplex(temp[i],0));} - -#define u80u82OpSlashu82(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -#define i80i82OpSlashi82(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -#define u160u162OpSlashu162(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -#define i160i162OpSlashi162(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1/in2[i];} - -/* Matrix / Scalar */ - - -#define s2s0OpSlashs2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - - -#define d2d0OpSlashd2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - - -#define c2c0OpSlashc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(in1[i],in2);} - - -#define z2z0OpSlashz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zrdivs(in1[i],in2);} - - -#define s2c0OpSlashc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=crdivs(FloatComplex(in1[i],0),in2);} - - -#define d2z0OpSlashz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zrdivs(DoubleComplex(in1[i],0),in2);} - - -#define c2s0OpSlashc2(in1,size,in2,out) c2c0OpSlashc2(in1,size,FloatComplex(in2,0),out) - - -#define z2d0OpSlashz2(in1,size,in2,out) z2z0OpSlashz2(in1,size,DoubleComplex(in2,0),out) - - -#define u82u80OpSlashu82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - -#define i82i80OpSlashi82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - -#define u162u160OpSlashu162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - -#define i162i160OpSlashi162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]/in2;} - -/* Matrix / Matrix */ - -#define s2s2OpSlashs2(in1,size1,in2,size2,out) srdivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define d2d2OpSlashd2(in1,size1,in2,size2,out) drdivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define c2c2OpSlashc2(in1,size1,in2,size2,out) crdivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define z2z2OpSlashz2(in1,size1,in2,size2,out) zrdivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -/* FIXME: There is some malloc in the define below, maybe they can be remove */ -#define c2s2OpSlashc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(float));\ - sfilla(temp,size2[0],size2[1],0);\ - c2c2OpSlashc2(in1, size1, FloatComplexMatrix(in2,temp,size2[0]*size2[1]), size2, out);} - -#define s2c2OpSlashc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - c2c2OpSlashc2(FloatComplexMatrix(in2,temp,size1[0]*size1[1]), size1, in2, size2, out);} - -#define z2d2OpSlashz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ - dfilla(temp,size2[0],size2[1],0);\ - z2z2OpSlashz2(in1, size1, DoubleComplexMatrix(in2,temp,size2[0]*size2[1]), size2, out);} - -#define d2z2OpSlashz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - z2z2OpSlashz2(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]), size1, in2, size2, out);} - - -/* Vector * Vector, so there is a scalar output */ - -#define s2s2OpSlashs0(in1, size1, in2, size2) srdivv( in1, in2, size1[1]) - -#define c2s2OpSlashc0(in1, size1, in2, size2) crdivcsv(in1, in2, size1[1]) - -#define s2c2OpSlashc0(in1, size1, in2, size2) crdivscv(in1, in2, size1[1]) - -#define c2c2OpSlashc0(in1, size1, in2, size2) crdivv( in1, in2, size1[1]) - - -#define d2d2OpSlashd0(in1, size1, in2, size2) drdivv( in1, in2, size1[1]) - -#define z2d2OpSlashz0(in1, size1, in2, size2) zrdivzdv(in1, in2, size1[1]) - -#define d2z2OpSlashz0(in1, size1, in2, size2) zrdivdzv(in1, in2, size1[1]) - -#define z2z2OpSlashz0(in1, size1, in2, size2) zrdivv( in1, in2, size1[1]) - - -#endif /* !__INT_OPSLASH_H__ */ diff --git a/interfaces/int_OpStar.h b/interfaces/int_OpStar.h deleted file mode 100644 index 78697b3..0000000 --- a/interfaces/int_OpStar.h +++ /dev/null @@ -1,223 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPSTAR_H__ -#define __INT_OPSTAR_H__ - -/* Scalar * Scalar */ - -#define s0s0OpStars0(in1,in2) smuls(in1,in2) - -#define d0d0OpStard0(in1,in2) dmuls(in1,in2) - -#define c0c0OpStarc0(in1,in2) cmuls(in1,in2) - -#define z0z0OpStarz0(in1,in2) zmuls(in1,in2) - -#define s0c0OpStarc0(in1,in2) cmuls(FloatComplex(in1,0),in2) - -#define c0s0OpStarc0(in1,in2) cmuls(in1,FloatComplex(in2,0)) - -#define d0z0OpStarz0(in1,in2) zmuls(DoubleComplex(in1,0),in2) - -#define z0d0OpStarz0(in1,in2) zmuls(in1,DoubleComplex(in2,0)) - -#define u80u80OpStaru80(in1,in2) u8muls(in1, in2) - -#define u80u80OpStaru160(in1,in2) (uint16)(in1 * in2) - -#define u80i80OpStari80(in1,in2) (int8)(in1 * in2) - -#define u80i80OpStari160(in1,in2) (int16)(in1 * in2) - -#define u80u160OpStaru160(in1,in2) (uint16)(in1 * in2) - -#define u80i160OpStari160(in1,in2) (int16)(in1 * in2) - -#define i80u80OpStari80(in1,in2) (int8)(in1 * in2) - -#define i80u80OpStari160(in1,in2) (int16)(in1 * in2) - -#define i80i80OpStari80(in1,in2) (int8)(in1 , in2) - -#define i80i80OpStari160(in1,in2) (int16)(in1 * in2) - -#define i80u160OpStari160(in1,in2) (int16)(in1 * in2) - -#define i80i160OpStari160(in1,in2) (int16)(in1 * in2) - -#define u160u80OpStaru160(in1,in2) (uint16)(in1 * in2) - -#define u160i80OpStari160(in1,in2) (int16)(in1 * in2) - -#define u160u160OpStaru160(in1,in2) u16muls(in1 , in2) - -#define u160i160OpStari160(in1,in2) (int16)(in1 * in2) - -#define i160u80OpStari160(in1,in2) (int16)(in1 * in2) - -#define i160i80OpStari160(in1,in2) (int16)(in1 * in2) - -#define i160u160OpStari160(in1,in2) (int16)(in1 * in2) - -#define i160i160OpStari160(in1,in2) i16muls(in1 , in2) - -/* Scalar * Matrix */ - -#define s0s2OpStars2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];} - - -#define d0d2OpStard2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];} - - -#define c0c2OpStarc2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,in2[i]);} - - -#define z0z2OpStarz2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,in2[i]);} - -#define s0c2OpStarc2(in1,in2,size,out) c0c2OpStarc2(FloatComplex(in1,0),in2,size,out) - - -#define d0z2OpStarz2(in1,in2,size,out) z0z2OpStarz2(DoubleComplex(in1,0),in2,size,out) - - -#define c0s2OpStarc2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,FloatComplex(in2[i],0));} - -#define z0d2OpStarz2(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,DoubleComplex(in2[i],0));} - - -#define u80u82OpStaru82(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*(uint8)in2[i];} - -#define i80i82OpStari82(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];} - -#define u160u162OpStaru162(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];} - -#define i160i162OpStari162(in1,in2,size,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];} - -/* Matrix * Scalar */ - - -#define s2s0OpStars2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;} - - -#define d2d0OpStard2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;} - - -#define c2c0OpStarc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1[i],in2);} - -#define z2z0OpStarz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1[i],in2);} - - -#define s2c0OpStarc2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(FloatComplex(in1[i],0),in2);} - - -#define d2z0OpStarz2(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(DoubleComplex(in1[i],0),in2);} - - -#define c2s0OpStarc2(in1,size,in2,out) c2c0OpStarc2(in1,size,FloatComplex(in2,0),out) - - -#define z2d0OpStarz2(in1,size,in2,out) z2z0OpStarz2(in1,size,DoubleComplex(in2,0),out) - - -#define u82u80OpStaru82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;} - -#define i82i80OpStari82(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;} - -#define u162u160OpStaru162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;} - -#define i162i160OpStari162(in1,size,in2,out) {int i=0;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;} - - -/* Matrix * Matrix */ - -#define s2s2OpStars2(in1,size1,in2,size2,out) smulma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define d2d2OpStard2(in1,size1,in2,size2,out) dmulma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define c2c2OpStarc2(in1,size1,in2,size2,out) cmulma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define z2z2OpStarz2(in1,size1,in2,size2,out) zmulma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -/* FIXME: There is some malloc in the define below, maybe they can be remove */ -#define c2s2OpStarc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(float));\ - sfilla(temp,size2[0],size2[1],0);\ - c2c2OpStarc2(in1, size1, FloatComplexMatrix(in2,temp,size2[0]*size2[1]), size2, out);} - -#define s2c2OpStarc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - c2c2OpStarc2(FloatComplexMatrix(in1,temp,size1[0]*size1[1]), size1, in2, size2, out);} - -#define z2d2OpStarz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ - dfilla(temp,size2[0],size2[1],0);\ - z2z2OpStarz2(in1, size1, DoubleComplexMatrix(in2,temp,size2[0]*size2[1]), size2, out);} - -#define d2z2OpStarz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - z2z2OpStarz2(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]), size1, in2, size2, out);} - -/* Vector * Vector, so there is a scalar output */ - -#define MAX(a, b) (a > b ? a : b) - -#define s2s2OpStars0(in1, size1, in2, size2) smulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define c2s2OpStarc0(in1, size1, in2, size2) cmulcsv(in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define s2c2OpStarc0(in1, size1, in2, size2) cmulscv(in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define c2c2OpStarc0(in1, size1, in2, size2) cmulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - - -#define d2d2OpStard0(in1, size1, in2, size2) dmulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define z2d2OpStarz0(in1, size1, in2, size2) zmulzdv(in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define d2z2OpStarz0(in1, size1, in2, size2) zmuldzv(in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define z2z2OpStarz0(in1, size1, in2, size2) zmulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define u82u82OpStaru80(in1, size1, in2, size2) u8mulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define i82i82OpStari80(in1, size1, in2, size2) i8mulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define u162u162OpStaru160(in1, size1, in2, size2) u16mulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#define i162i162OpStari160(in1, size1, in2, size2) i16mulv( in1, in2, MAX(MAX(size1[0], size1[1]), MAX(size2[0], size2[1]))) - -#endif /* !__INT_OPSTAR_H__ */ diff --git a/interfaces/int_abs.h b/interfaces/int_abs.h deleted file mode 100644 index 70a428c..0000000 --- a/interfaces/int_abs.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ABS_H__ -#define __INT_ABS_H__ - -#define s0abss0(in) sabss(in) - -#define d0absd0(in) dabss(in) - -#define c0abss0(in) cabss(in) - -#define z0absd0(in) zabss(in) - -#define u80absu80(in) u8abss(in) - -#define i80absi80(in) i8abss(in) - -#define u160absu160(in) u16abss(in) - -#define i160absi160(in) i16abss(in) - -#define s2abss2(in,size,out) sabsa(in, size[0]*size[1], out) - -#define d2absd2(in,size,out) dabsa(in, size[0]*size[1], out) - -#define c2abss2(in,size,out) cabsa(in, size[0]*size[1], out) - -#define z2absd2(in,size,out) zabsa(in, size[0]*size[1], out) - -#define u82absu82(in,size,out) u8absa(in, size[0]*size[1], out) - -#define i82absi82(in,size,out) i8absa(in, size[0]*size[1], out) - -#define u162absu162(in,size,out) u16absa(in, size[0]*size[1], out) - -#define i162absi162(in,size,out) i16absa(in, size[0]*size[1], out) - -#endif /* !__INT_ABS_H__ */ diff --git a/interfaces/int_acos.h b/interfaces/int_acos.h deleted file mode 100644 index ad62534..0000000 --- a/interfaces/int_acos.h +++ /dev/null @@ -1,42 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ACOS_H__ -#define __INT_ACOS_H__ - -#define s0acoss0(in) sacoss(in) - -#define s0acosc0(in) cacoss(FloatComplex(in,0)) - -#define d0acosd0(in) dacoss(in) - -#define d0acosz0(in) zacoss(DoubleComplex(in,0)) - -#define c0acosc0(in) cacoss(in) - -#define z0acosz0(in) zacoss(in) - -#define s2acoss2(in,size,out) sacosa(in, size[0]*size[1], out) - -#define s2acosc2(in,size,out) cacosa(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2acosd2(in,size,out) dacosa(in, size[0]*size[1], out) - -#define d2acosz2(in,size,out) zacosa(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2acosc2(in,size,out) cacosa(in, size[0]*size[1], out) - -#define z2acosz2(in,size,out) zacosa(in, size[0]*size[1], out) - -#endif /* !__INT_ACOS_H__ */ diff --git a/interfaces/int_acosd.h b/interfaces/int_acosd.h deleted file mode 100644 index ee188c9..0000000 --- a/interfaces/int_acosd.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ACOSD_H__ -#define __INT_ACOSD_H__ - -#include "acosd.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acosdd0(in1) dacosds(in1); - -#define d2acosdd2(in1,in2,in3) dacosda(in1,in2[0]*in2[1],in3); - -#define s0acosds0(in1) sacosds(in1); - -#define s2acosds2(in1,in2,in3) sacosda(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACOSD_H__ */ - diff --git a/interfaces/int_acosh.h b/interfaces/int_acosh.h deleted file mode 100644 index 51280aa..0000000 --- a/interfaces/int_acosh.h +++ /dev/null @@ -1,42 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ACOSH_H__ -#define __INT_ACOSH_H__ - -#define s0acoshs0(in) sacoshs(in) - -#define s0acoshc0(in) cacoshs(FloatComplex(in,0)) - -#define d0acoshd0(in) dacoshs(in) - -#define d0acoshz0(in) zacoshs(DoubleComplex(in,0)) - -#define c0acoshc0(in) cacoshs(in) - -#define z0acoshz0(in) zacoshs(in) - -#define s2acoshs2(in,size,out) sacosha(in, size[0]*size[1], out) - -#define s2acoshc2(in,size,out) cacosha(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2acoshd2(in,size,out) dacosha(in, size[0]*size[1], out) - -#define d2acoshz2(in,size,out) zacosha(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2acoshc2(in,size,out) cacosha(in, size[0]*size[1], out) - -#define z2acoshz2(in,size,out) zacosha(in, size[0]*size[1], out) - -#endif /* !__INT_ACOSH_H__ */ diff --git a/interfaces/int_acot.h b/interfaces/int_acot.h deleted file mode 100644 index 371e64b..0000000 --- a/interfaces/int_acot.h +++ /dev/null @@ -1,42 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ACOT_H__ -#define __INT_ACOT_H__ - -#include "acot.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acotd0(in1) dacots(in1); - -#define d2acotd2(in1,in2,in3) dacota(in1,in2[0]*in2[1],in3); - -#define s0acots0(in1) sacots(in1); - -#define s2acots2(in1,in2,in3) sacota(in1,in2[0]*in2[1],in3); - -#define c0acotd0(in1) cacots(in1); - -#define c2acotc2(in1,in2,in3) cacota(in1,in2[0]*in2[1],in3); - -#define z0acotz0(in1) zacots(in1); - -#define z2acotz2(in1,in2,in3) zacota(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACOT_H__ */ - diff --git a/interfaces/int_acotd.h b/interfaces/int_acotd.h deleted file mode 100644 index 22367be..0000000 --- a/interfaces/int_acotd.h +++ /dev/null @@ -1,33 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ACOTD_H__ -#define __INT_ACOTD_H__ - -#include "acotd.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acotdd0(in1) dacotds(in1); - -#define d2acotdd2(in1,in2,in3) dacotda(in1,in2[0]*in2[1],in3); - -#define s0acotds0(in1) sacotds(in1); - -#define s2acotds2(in1,in2,in3) sacotda(in1,in2[0]*in2[1],in3); - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACOTD_H__ */ - diff --git a/interfaces/int_acoth.h b/interfaces/int_acoth.h deleted file mode 100644 index 8ec51a7..0000000 --- a/interfaces/int_acoth.h +++ /dev/null @@ -1,43 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in - -#ifndef __INT_ACOTH_H__ -#define __INT_ACOTH_H__ - -#include "acoth.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acothd0(in1) dacoths(in1); - -#define d2acothd2(in1,in2,in3) dacotha(in1,in2[0]*in2[1],in3); - -#define s0acoths0(in1) sacoths(in1); - -#define s2acoths2(in1,in2,in3) sacotha(in1,in2[0]*in2[1],in3); - -#define c0acothc0(in1) cacoths(in1); - -#define c2acothc2(in1,in2,in3) cacotha(in1,in2[0]*in2[1],in3); - -#define z0acothz0(in1) zacoths(in1); - -#define z2acothz2(in1,in2,in3) zacotha(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACOTH_H__ */ - diff --git a/interfaces/int_acsc.h b/interfaces/int_acsc.h deleted file mode 100644 index e16f7c9..0000000 --- a/interfaces/int_acsc.h +++ /dev/null @@ -1,42 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ACSC_H__ -#define __INT_ACSC_H__ - -#include "acsc.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acscd0(in1) dacscs(in1); - -#define d2acscd2(in1,in2,in3) dacsca(in1,in2[0]*in2[1],in3); - -#define s0acscs0(in1) sacscs(in1); - -#define s2acscs2(in1,in2,in3) sacsca(in1,in2[0]*in2[1],in3); - -#define c0acscc0(in1) cacscs(in1); - -#define c2acscc2(in1,in2,in3) cacsca(in1,in2[0]*in2[1],in3); - -#define z0acscz0(in1) zacscs(in1); - -#define z2acscz2(in1,in2,in3) zacsca(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACSC_H__ */ - diff --git a/interfaces/int_acscd.h b/interfaces/int_acscd.h deleted file mode 100644 index fa13acb..0000000 --- a/interfaces/int_acscd.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ACSCD_H__ -#define __INT_ACSCD_H__ - -#include "acscd.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acscdd0(in1) dacscds(in1); - -#define d2acscdd2(in1,in2,in3) dacscda(in1,in2[0]*in2[1],in3); - -#define s0acscds0(in1) sacscds(in1); - -#define s2acscds2(in1,in2,in3) sacscda(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACSCD_H__ */ - diff --git a/interfaces/int_acsch.h b/interfaces/int_acsch.h deleted file mode 100644 index 2101abe..0000000 --- a/interfaces/int_acsch.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ACSCH_H__ -#define __INT_ACSCH_H__ - -#include "acsch.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0acschd0(in1) dacschs(in1); - -#define d2acschd2(in1,in2,in3) dacscha(in1,in2[0]*in2[1],in3); - -#define s0acschs0(in1) sacschs(in1); - -#define s2acschs2(in1,in2,in3) sacscha(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ACSCH_H__ */ - diff --git a/interfaces/int_asec.h b/interfaces/int_asec.h deleted file mode 100644 index 25a1f11..0000000 --- a/interfaces/int_asec.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ASEC_H__ -#define __INT_ASEC_H__ - -#include "asec.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0asecd0(in1) dasecs(in1); - -#define d2asecd2(in1,in2,in3) daseca(in1,in2[0]*in2[1],in3); - -#define s0asecs0(in1) sasecs(in1); - -#define s2asecs2(in1,in2,in3) saseca(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ASEC_H__ */ - diff --git a/interfaces/int_asecd.h b/interfaces/int_asecd.h deleted file mode 100644 index a722b6b..0000000 --- a/interfaces/int_asecd.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ASECD_H__ -#define __INT_ASECD_H__ - -#include "asecd.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0asecdd0(in1) dasecds(in1); - -#define d2asecdd2(in1,in2,in3) dasecda(in1,in2[0]*in2[1],in3); - -#define s0asecds0(in1) sasecds(in1); - -#define s2asecds2(in1,in2,in3) sasecda(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ASECD_H__ */ - diff --git a/interfaces/int_asech.h b/interfaces/int_asech.h deleted file mode 100644 index c6830f5..0000000 --- a/interfaces/int_asech.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ASECH_H__ -#define __INT_ASECH_H__ - -#include "asech.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0asechd0(in1) dasechs(in1); - -#define d2asechd2(in1,in2,in3) dasecha(in1,in2[0]*in2[1],in3); - -#define s0asechs0(in1) sasechs(in1); - -#define s2asechs2(in1,in2,in3) sasecha(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ASECH_H__ */ - diff --git a/interfaces/int_asin.h b/interfaces/int_asin.h deleted file mode 100644 index 65b5d17..0000000 --- a/interfaces/int_asin.h +++ /dev/null @@ -1,42 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ASIN_H__ -#define __INT_ASIN_H__ - -#define s0asins0(in) sasins(in) - -#define s0asinc0(in) casins(FloatComplex(in,0)) - -#define d0asind0(in) dasins(in) - -#define d0asinz0(in) zasins(DoubleComplex(in,0)) - -#define c0asinc0(in) casins(in) - -#define z0asinz0(in) zasins(in) - -#define s2asins2(in,size,out) sasina(in, size[0]*size[1], out) - -#define s2asinc2(in,size,out) casina(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2asind2(in,size,out) dasina(in, size[0]*size[1], out) - -#define d2asinz2(in,size,out) zasina(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2asinc2(in,size,out) casina(in, size[0]*size[1], out) - -#define z2asinz2(in,size,out) zasina(in, size[0]*size[1], out) - -#endif /* !__INT_ASIN_H__ */ diff --git a/interfaces/int_asind.h b/interfaces/int_asind.h deleted file mode 100644 index fe640ea..0000000 --- a/interfaces/int_asind.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ASIND_H__ -#define __INT_ASIND_H__ - -#include "asind.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0asindd0(in1) dasinds(in1); - -#define d2asindd2(in1,in2,in3) dasinda(in1,in2[0]*in2[1],in3); - -#define s0asinds0(in1) sasinds(in1); - -#define s2asinds2(in1,in2,in3) sasinda(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ASIND_H__ */ - diff --git a/interfaces/int_asinh.h b/interfaces/int_asinh.h deleted file mode 100644 index 590d0ad..0000000 --- a/interfaces/int_asinh.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ASINH_H__ -#define __INT_ASINH_H__ - -#define s0asinhs0(in) sasinhs(in) - -#define d0asinhd0(in) dasinhs(in) - -#define c0asinhc0(in) casinhs(in) - -#define z0asinhz0(in) zasinhs(in) - -#define s2asinhs2(in,size,out) sasinha(in, size[0]*size[1], out) - -#define d2asinhd2(in,size,out) dasinha(in, size[0]*size[1], out) - -#define c2asinhc2(in,size,out) casinha(in, size[0]*size[1], out) - -#define z2asinhz2(in,size,out) zasinha(in, size[0]*size[1], out) - -#endif /* !__INT_ASINH_H__ */ diff --git a/interfaces/int_atan.h b/interfaces/int_atan.h deleted file mode 100644 index ad87e67..0000000 --- a/interfaces/int_atan.h +++ /dev/null @@ -1,44 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ATAN_H__ -#define __INT_ATAN_H__ - -#define s0atans0(in) satans(in) - -#define d0atand0(in) datans(in) - -#define c0atanc0(in) catans(in) - -#define z0atanz0(in) zatans(in) - -#define s2atans2(in,size,out) satana(in, size[0]*size[1], out) - -#define d2atand2(in,size,out) datana(in, size[0]*size[1], out) - -#define c2atanc2(in,size,out) catana(in, size[0]*size[1], out) - -#define z2atanz2(in,size,out) zatana(in, size[0]*size[1], out) - -#define s0s0atans0(in1, in2) satan2s(in1, in2) - -#define d0d0atand0(in1, in2) datan2s(in1, in2) - -#define s2s2atans2(in1,size1, in2, size2, out) satan2a(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - -#define d2d2atand2(in1, size1, in2,size2, out) datan2a(in1, size1[0]*size1[1], in2, size2[0]*size2[1], out) - - - -#endif /* !__INT_ATAN_H__ */ diff --git a/interfaces/int_atand.h b/interfaces/int_atand.h deleted file mode 100644 index 0adc906..0000000 --- a/interfaces/int_atand.h +++ /dev/null @@ -1,34 +0,0 @@ -// Copyright (C) 2017 - 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 -// Organization: FOSSEE, IIT Bombay -// Author: Ashish Kamble -// Email: toolbox@scilab.in -#ifndef __INT_ATAND_H__ -#define __INT_ATAND_H__ - -#include "atand.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0atandd0(in1) datands(in1); - -#define d2atandd2(in1,in2,in3) datanda(in1,in2[0]*in2[1],in3); - -#define s0atands0(in1) satands(in1); - -#define s2atands2(in1,in2,in3) satanda(in1,in2[0]*in2[1],in3); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* !__ATAND_H__ */ - diff --git a/interfaces/int_atanh.h b/interfaces/int_atanh.h deleted file mode 100644 index 492fa74..0000000 --- a/interfaces/int_atanh.h +++ /dev/null @@ -1,42 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ATANH_H__ -#define __INT_ATANH_H__ - -#define s0atanhs0(in) satanhs(in) - -#define s0atanhc0(in) catanhs(FloatComplex(in,0)) - -#define d0atanhd0(in) datanhs(in) - -#define d0atanhz0(in) zatanhs(DoubleComplex(in,0)) - -#define c0atanhc0(in) catanhs(in) - -#define z0atanhz0(in) zatanhs(in) - -#define s2atanhs2(in,size,out) satanha(in, size[0]*size[1], out) - -#define s2atanhc2(in,size,out) catanha(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2atanhd2(in,size,out) datanha(in, size[0]*size[1], out) - -#define d2atanhz2(in,size,out) zatanha(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2atanhc2(in,size,out) catanha(in, size[0]*size[1], out) - -#define z2atanhz2(in,size,out) zatanha(in, size[0]*size[1], out) - -#endif /* !__INT_ATANH_H__ */ diff --git a/interfaces/int_balanc.h b/interfaces/int_balanc.h deleted file mode 100644 index a16ba8c..0000000 --- a/interfaces/int_balanc.h +++ /dev/null @@ -1,29 +0,0 @@ - /* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_BALANC_H__ -#define __INT_BALANC_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define d2balancd2d2(in1,size1,out1,out2) dbalanca(in1,size1[0],NULL,out1, \ - out2,NULL,NULL) - -#define d2d2balancd2d2d2d2(in1,size1,in2,size2,out1,out2,out3,out4) \ - dbalanca(in1,size1[0],in2,out1,out2,out3,out4) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_BALANC_H__*/ diff --git a/interfaces/int_base2dec.h b/interfaces/int_base2dec.h deleted file mode 100644 index 8d5e68e..0000000 --- a/interfaces/int_base2dec.h +++ /dev/null @@ -1,27 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_base2dec_H__ -#define __INT_base2dec_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define g2d0base2decd0(in,size,base) gbase2decs(in,size[1],base) -#define d0d0base2decd0(in,base) dbase2decs(in,base) -//#define g2d0base2decd2(in,size,out) gbase2deca(in,size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_base2dec_H__*/ diff --git a/interfaces/int_bin2dec.h b/interfaces/int_bin2dec.h deleted file mode 100644 index c8e07b0..0000000 --- a/interfaces/int_bin2dec.h +++ /dev/null @@ -1,37 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_bin2dec_H__ -#define __INT_bin2dec_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0bin2decd0(in) dbin2decs(in) -#define i80bin2deci80(in) i8bin2decs(in) -//#define i160bin2deci160(in) i16bin2decs(in) -#define u80bin2decu80(in) u8bin2decs(in) -#define u160bin2decu160(in) u16bin2decs(in) - -#define d2bin2decd2(in,size,out) dbin2deca(in,size[0]*size[1],out) -#define i82bin2deci82(in,size,out) i8bin2deca(in,size[0]*size[1],out) -//#define i162bin2deci162(in,size,out) i16bin2deca(in,size[0]*size[1],out) -#define u82bin2decu82(in,size,out) u8bin2deca(in,size[0]*size[1],out) -#define u162bin2decu162(in,size,out) u16bin2deca(in,size[0]*size[1],out) - - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_bin2dec_H__*/ diff --git a/interfaces/int_bitand.h b/interfaces/int_bitand.h deleted file mode 100644 index 8b208ea..0000000 --- a/interfaces/int_bitand.h +++ /dev/null @@ -1,26 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_BITAND_H__ -#define __INT_BITAND_H__ - - -#define u80u80bitandu80(in1,in2) u8bitands(in1,in2) - -#define u82u82bitandu82(in1,size1,in2,size2,out) u8bitanda(in1,in2,size1[0]*size1[1],out) - -#define u160u160bitandu160(in1,in2) u16bitands(in1,in2) - -#define u162u162bitandu162(in1,size1,in2,size2,out) u16bitanda(in1,in2,size1[0]*size1[1],out) - - -#endif diff --git a/interfaces/int_bitcmp.h b/interfaces/int_bitcmp.h deleted file mode 100644 index d49289f..0000000 --- a/interfaces/int_bitcmp.h +++ /dev/null @@ -1,26 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_BITCMP_H__ -#define __INT_BITCMP_H__ - - -#define u80d0bitcmpu80(in1,in2) u8bitcmps(in1,in2) - -#define u82d0bitcmpu82(in1,size1,in2,out) u8bitcmpa(in1,in2,size1[0]*size1[1],out) - -#define u160d0bitcmpu160(in1,in2) u16bitcmps(in1,in2) - -#define u162d0bitcmpu162(in1,size1,in2,out) u16bitcmpa(in1,in2,size1[0]*size1[1],out) - - -#endif diff --git a/interfaces/int_bitget.h b/interfaces/int_bitget.h deleted file mode 100644 index ea930ab..0000000 --- a/interfaces/int_bitget.h +++ /dev/null @@ -1,20 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_BITGET_H__ -#define __INT_BITGET_H__ - -#define u80d0bitgetu80(in1,in2) u8bitgets(in1,in2) - -#define u160d0bitgetu160(in1,in2) u16bitgets(in1,in2) - -#endif diff --git a/interfaces/int_bitor.h b/interfaces/int_bitor.h deleted file mode 100644 index 00edc48..0000000 --- a/interfaces/int_bitor.h +++ /dev/null @@ -1,26 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_BITOR_H__ -#define __INT_BITOR_H__ - - -#define u80u80bitoru80(in1,in2) u8bitors(in1,in2) - -#define u82u82bitoru82(in1,size1,in2,size2,out) u8bitora(in1,in2,size1[0]*size1[1],out) - -#define u160u160bitoru160(in1,in2) u16bitors(in1,in2) - -#define u162u162bitoru162(in1,size1,in2,size2,out) u16bitora(in1,in2,size1[0]*size1[1],out) - - -#endif diff --git a/interfaces/int_bitset.h b/interfaces/int_bitset.h deleted file mode 100644 index a37160b..0000000 --- a/interfaces/int_bitset.h +++ /dev/null @@ -1,23 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_BITSET_H__ -#define __INT_BITSET_H__ - -#define u80d0d0bitsetu80(in1,in2,in3) u8bitsets(in1,in2,in3) - -#define u160d0d0bitsetu160(in1,in2,in3) u16bitsets(in1,in2,in3) - - - - -#endif diff --git a/interfaces/int_bitxor.h b/interfaces/int_bitxor.h deleted file mode 100644 index 1722c90..0000000 --- a/interfaces/int_bitxor.h +++ /dev/null @@ -1,26 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_BITXOR_H__ -#define __INT_BITXOR_H__ - - -#define u80u80bitxoru80(in1,in2) u8bitxors(in1,in2) - -#define u82u82bitxoru82(in1,size1,in2,size2,out) u8bitxora(in1,in2,size1[0]*size1[1],out) - -#define u160u160bitxoru160(in1,in2) u16bitxors(in1,in2) - -#define u162u162bitxoru162(in1,size1,in2,size2,out) u16bitxora(in1,in2,size1[0]*size1[1],out) - - -#endif diff --git a/interfaces/int_cat.h b/interfaces/int_cat.h deleted file mode 100644 index db80bec..0000000 --- a/interfaces/int_cat.h +++ /dev/null @@ -1,359 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_CAT_H -#define __INT_CAT_H - -/* Column Cat */ - -/* Same input elements */ - -#define s0s0cats2(in1,in2,out) scolumncats(in1,in2,out) - -#define d0d0catd2(in1,in2,out) dcolumncats(in1,in2,out) - -#define c0c0catc2(in1,in2,out) ccolumncats(in1,in2,out) - -#define z0z0catz2(in1,in2,out) zcolumncats(in1,in2,out) - -#define u80u80catu82(in1,in2,out) u8columncats(in1,in2,out) - -#define u160u160catu162(in1,in2,out) u16columncats(in1,in2,out) - -#define i80i80cati82(in1,in2,out) i8columnscats(in1,in2,out) - -#define i160i160cati162(in1,in2,out) i16columnscats(in1,in2,out) - -#define s2s2cats2(in1,size1,in2,size2,out) scolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define d2d2catd2(in1,size1,in2,size2,out) dcolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -/* ROW COLUMN SUPPORT for cat, If First argument in cat command is 1 then it will concatenate the element ROW WISE else COLUMN WISE */ - -#define d0d2d2catd2(in1,in2,size2,in3,size3,out) (in1 == 1) ? drowcata(in2, size2[0], size2[1], in3, size3[0], size3[1], out) : dcolumncata(in2, size2[0],size2[1],in3,size3[0],size3[1],out) - -#define d0u82u82catu82(in1,in2,size2,in3,size3,out) (in1 == 1) ? u8rowcata(in2, size2[0], size2[1], in3, size3[0], size3[1], out) : u8columncata(in2, size2[0],size2[1],in3,size3[0],size3[1],out) - -#define d0u162u162catu162(in1,in2,size2,in3,size3,out) (in1 == 1) ? u16rowcata(in2, size2[0], size2[1], in3, size3[0], size3[1], out) : u16columncata(in2, size2[0],size2[1],in3,size3[0],size3[1],out) - - -#define d0i82i82cati82(in1,in2,size2,in3,size3,out) (in1 == 1) ? i8rowcata(in2, size2[0], size2[1], in3, size3[0], size3[1], out) : i8columncata(in2, size2[0],size2[1],in3,size3[0],size3[1],out) - -#define d0i162i162cati162(in1,in2,size2,in3,size3,out) (in1 == 1) ? i16rowcata(in2, size2[0], size2[1], in3, size3[0], size3[1], out) : i16columncata(in2, size2[0],size2[1],in3,size3[0],size3[1],out) - - -#define c2c2catc2(in1,size1,in2,size2,out) ccolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define z2z2catz2(in1,size1,in2,size2,out) zcolumncata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define u82u82catu82(in1,size1,in2,size2,out) u8columncata(in1,size1[0], size1[1], in2, size2[0], size2[1], out) - -#define u162u162catu162(in1,size1,in2,size2,out) u16columncata(in1,size1[0], size1[1], in2, size2[0], size2[1], out) - -#define i82i82cati82(in1,size1,in2,size2,out) i8columncata(in1,size1[0], size1[1], in2, size2[0], size2[1], out) - -#define i162i162cati162(in1,size1,in2,size2,out) i16columncata(in1,size1[0], size1[1], in2, size2[0], size2[1], out) - - - -/* Differents input elements */ -#define s0c0catc2(in1,in2,out) c0c0OpRcc2(FloatComplex(in1,0),in2,out) - -#define d0z0catz2(in1,in2,out) z0z0OpRcz2(DoubleComplex(in1,0),in2,out) - -#define c0s0catc2(in1,in2,out) c0c0OpRcc2(in1,FloatComplex(in2,0),out) - -#define z0d0catz2(in1,in2,out) z0z0OpRcz2(in1,DoubleComplex(in2,0),out) - -#define s2c2catc2(in1,size1,in2,size2,out) sfilla((float*)out,size1[0],size1[1],0); \ - c2c2OpRcc2(FloatComplexMatrix(in1,(float*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define d2z2catz2(in1,size1,in2,size2,out) dfilla((double*)out,size1[0],size1[1],0); \ - z2z2OpRcz2(DoubleComplexMatrix(in1,(double*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define c2s2catc2(in1,size1,in2,size2,out) sfilla((float*)out,size2[0],size2[1],0); \ - c2c2OpRcc2(in1, size1, FloatComplexMatrix(in2,(float*)out,size2[0]*size2[1]), size2, out) - -#define z2d2catz2(in1,size1,in2,size2,out) dfilla((double*)out,size2[0],size2[1],0); \ - z2z2OpRcz2(in1, size1, DoubleComplexMatrix(in2,(double*)out,size2[0]*size2[1]), size2, out) - -/* Matrix-Scalar */ - -/* Same type */ - -#define s2s0cats2(in1,size,in2,out) { float temp=in2; \ - scolumncata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define d2d0catd2(in1,size,in2,out) { double temp=in2; \ - dcolumncata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define c2c0catc2(in1,size,in2,out) { floatComplex temp=in2; \ - ccolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -#define z2z0catz2(in1,size,in2,out) { doubleComplex temp=in2; \ - zcolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -#define u82u80catu82(in1,size,in2,out) { uint8 temp=in2; \ - u8columncata(in1,size[0],size[1],&temp,1,1,out); \ - } -#define u162u160catu162(in1,size,in2,out) { uint16 temp=in2; \ - u16columncata(in1,size[0],size[1],&temp,1,1,out); \ - } -#define i82i80cati82(in1,size,in2,out) { int8 temp=in2; \ - i8columncata(in1,size[0],size[1],&temp,1,1,out); \ - } -#define i162i160cati162(in1,size,in2,out) { int16 temp=in2; \ - i16columncata(in1,size[0],size[1],&temp,1,1,out); \ - } - - -/* Different type */ -#define s2c0catc2(in1,size,in2,out) { floatComplex temp=in2; \ - sfilla((float *)out,size[0],size[1],0); \ - scolumncata(FloatComplexMatrix(in1,(float*)out,size[0]*size[1]), size[0], size[1], &temp , 1, 1, out); \ - } - -#define d2z0catz2(in1,size,in2,out) { doubleComplex temp=in2; \ - dfilla((double *)out,size[0],size[1],0); \ - zcolumncata(DoubleComplexMatrix(in1,(double *)out,size[0]*size[1]), size[0], size[1], &temp , 1, 1, out); \ - } - -#define c2s0catc2(in1,size,in2,out) { floatComplex temp = FloatComplex(in2,0); \ - ccolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -#define z2d0catz2(in1,size,in2,out) { doubleComplex temp = DoubleComplex(in2,0); \ - zcolumncata(in1, size[0], size[1], &temp, 1, 1, out); \ - } - -/* Scalar-Matrix */ - -/* Same type */ -#define s0s2cats2(in1,in2,size,out) { \ - float __tmp1 = in1 ;\ - scolumncata(&__tmp1 , 1, 1, in2, size[0], size[1], out);\ -} -#define d0d2catd2(in1,in2,size,out) {\ - double __tmp1 = in1 ;\ - dcolumncata(&__tmp1 , 1, 1, in2, size[0], size[1], out); \ -} - -#define c0c2catc2(in1,in2,size,out) { \ - floatComplex __tmp1 = in1 ;\ - ccolumncata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define z0z2catz2(in1,in2,size,out) { \ - doubleComplex __tmp1 = in1 ;\ - zcolumncata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define u80u82catu82(in1,in2,size,out) {\ - uint8 __tmp1 = in1 ;\ - u8columncata(&__tmp1,1,1,in2,size[0],size[1],out);\ -} - -#define u160u162catu162(in1,in2,size,out) {\ - uint16 __tmp1 = in1 ;\ - u16columncata(&__tmp1,1,1,in2,size[0],size[1],out);\ -} - -#define i80i82cati82(in1,in2,size,out) {\ - int8 __tmp1 = in1 ;\ - i8columncata(&__tmp1,1,1,in2,size[0],size[1],out);\ -} - -#define i160i162cati162(in1,in2,size,out) {\ - int16 __tmp1 = in1 ;\ - i16columncata(&__tmp1,1,1,in2,size[0],size[1],out);\ -} - - -/* Different type */ -#define s0c2catc2(in1,in2,size,out) c0c2OpRcc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2catz2(in1,in2,size,out) z0z2OpRcz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2catc2(in1,in2,size,out) sfilla((float*)out,size[0],size[1],0); \ - c0c2OpRcc2(in1,FloatComplexMatrix(in2,(float*)out,size[0]*size[1]),size,out) - -#define z0d2catz2(in1,in2,size,out) dfilla((double*)out,size[0],size[1],0); \ - z0z2OpRcz2(in1,DoubleComplexMatrix(in2,(double*)out,size[0]*size[1]),size,out) - - -/* Column Cat */ - -/* Same input elements */ - -#define s0s0cats2(in1,in2,out) srowcats(in1,in2,out) - -#define d0d0catd2(in1,in2,out) drowcats(in1,in2,out) - -#define c0c0catc2(in1,in2,out) crowcats(in1,in2,out) - -#define z0z0catz2(in1,in2,out) zrowcats(in1,in2,out) - -#define u80u80catu82(in1,in2,out) u8rowcats(in1,in2,out) - -#define u160u160catu162(in1,in2,out) u16rowcats(in1,in2,out) - -#define i80i80cati82(in1,in2,out) i8rowcats(in1,in2,out) - -#define i160i160cati162(in1,in2,out) i16rowcats(in1,in2,out) - -#define s2s2cats2(in1,size1,in2,size2,out) srowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define d2d2catd2(in1,size1,in2,size2,out) drowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define c2c2catc2(in1,size1,in2,size2,out) crowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define z2z2catz2(in1,size1,in2,size2,out) zrowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define u82u82catu82(in1,size1,in2,size2,out) u8rowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define u162u162catu162(in1,size1,in2,size2,out) u16rowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define i82i82cati82(in1,size1,in2,size2,out) i8rowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define i162i162cati162(in1,size1,in2,size2,out) i16rowcata(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -/* Differents input elements */ -#define s0c0catc2(in1,in2,out) c0c0OpCcc2(FloatComplex(in1,0),in2,out) - -#define d0z0catz2(in1,in2,out) z0z0OpCcz2(DoubleComplex(in1,0),in2,out) - -#define c0s0catc2(in1,in2,out) c0c0OpCcc2(in1,FloatComplex(in2,0),out) - -#define z0d0catz2(in1,in2,out) z0z0OpCcz2(in1,DoubleComplex(in2,0),out) - -#define s2c2catc2(in1,size1,in2,size2,out) sfilla((float*)out,size1[0],size1[1],0); \ - c2c2OpCcc2(FloatComplexMatrix(in1,(float*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define d2z2catz2(in1,size1,in2,size2,out) dfilla((double*)out,size1[0],size1[1],0); \ - z2z2OpCcz2(DoubleComplexMatrix(in1,(double*)out,size1[0]*size1[1]), size1, in2, size2, out) - -#define c2s2catc2(in1,size1,in2,size2,out) sfilla((float*)out,size2[0],size2[1],0); \ - c2c2OpCcc2(in1, size1, FloatComplexMatrix(in2,(float*)out,size2[0]*size2[1]), size2, out) - -#define z2d2catz2(in1,size1,in2,size2,out) dfilla((double*)out,size2[0],size2[1],0); \ - z2z2OpCcz2(in1, size1, DoubleComplexMatrix(in2,(double*)out,size2[0]*size2[1]), size2, out) - -/* Matrix-Scalar */ - -/* Same type */ - -#define s2s0cats2(in1,size,in2,out) { float temp=in2; \ - srowcata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define d2d0catd2(in1,size,in2,out) { double temp=in2; \ - drowcata(in1, size[0], size[1],&temp, 1, 1, out); \ - } - -#define c2c0catc2(in1,size,in2,out) { floatComplex temp = in2; \ - crowcata(in1, size[0], size[1],&temp, 1, 1, out);\ - } - -#define z2z0catz2(in1,size,in2,out) { doubleComplex temp =in2; \ - zrowcata(in1, size[0], size[1],&temp, 1, 1, out);\ - } - -#define u82u80catu82(in1,size,in2,out) { uint8 temp=in2; \ - u8rowcata(in1, size[0], size[1],&temp, 1,1,out);\ - } -#define u162u160catu162(in1,size,in2,out) { uint16 temp=in2; \ - u16rowcata(in1, size[0], size[1],&temp, 1,1,out);\ - } - -#define i82i80cati82(in1,size,in2,out) { int8 temp=in2; \ - i8rowcata(in1, size[0], size[1],&temp, 1,1,out);\ - } -#define i162i160cati162(in1,size,in2,out) { int16 temp=in2; \ - i16rowcata(in1, size[0], size[1],&temp, 1,1,out);\ - } - - - -/* Different type */ -#define s2c0catc2(in1,size,in2,out) sfilla((float *)out,size[0],size[1],0); \ - c2c0OpCcc2(FloatComplexMatrix(in1,(float*)out,size[0]*size[1]),size,in2,out) - -#define d2z0catz2(in1,size,in2,out) dfilla((double *)out,size[0],size[1],0); \ - z2z0OpCcz2(DoubleComplexMatrix(in1,(double *)out,size[0]*size[1]),size,in2,out) - -#define c2s0catc2(in1,size,in2,out) { floatComplex temp = FloatComplex(in2, 0); c2c0OpCcc2(in1, size, temp, out)} - -#define z2d0catz2(in1,size,in2,out) { doubleComplex temp = DoubleComplex(in2, 0); z2z0OpCcz2(in1, size, temp, out)} - - -/* Scalar-Matrix */ - -/* Same type */ -#define s0s2cats2(in1,in2,size,out) { \ - float __tmp1 = in1 ;\ - srowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define d0d2catd2(in1,in2,size,out) { \ - double __tmp1 = in1 ;\ - drowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define c0c2catc2(in1,in2,size,out) { \ - floatComplex __tmp1 = in1 ;\ - crowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define z0z2catz2(in1,in2,size,out) { \ - doubleComplex __tmp1 = in1 ;\ - zrowcata(&__tmp1, 1, 1, in2, size[0], size[1], out);\ -} - -#define u80u82catu82(in1,in2,size,out) { \ - uint8 __tmp1 = in1;\ - u8rowcata(&__tmp1, 1,1, in2, size[0], size[1], out);\ -} - -#define u160u162catu162(in1,in2,size,out) { \ - uint16 __tmp1 = in1;\ - u16rowcata(&__tmp1, 1,1, in2, size[0], size[1], out);\ -} - -#define i80i82cati82(in1,in2,size,out) { \ - int8 __tmp1 = in1;\ - i8rowcata(&__tmp1, 1,1, in2, size[0], size[1], out);\ -} - -#define i160i162cati162(in1,in2,size,out) { \ - int16 __tmp1 = in1;\ - i16rowcata(&__tmp1, 1,1, in2, size[0], size[1], out);\ -} - - -/* Different type */ -#define s0c2catc2(in1,in2,size,out) c0c2OpCcc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2catz2(in1,in2,size,out) z0z2OpCcz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2catc2(in1,in2,size,out) sfilla((float*)out,size[0],size[1],0); \ - c0c2OpCcc2(in1,FloatComplexMatrix(in2,(float*)out,size[0]*size[1]),size,out) - -#define z0d2catz2(in1,in2,size,out) dfilla((double*)out,size[0],size[1],0); \ - z0z2OpCcz2(in1,DoubleComplexMatrix(in2,(double*)out,size[0]*size[1]),size,out) - - -#endif /* !__INT_CAT__H */ - diff --git a/interfaces/int_ceil.h b/interfaces/int_ceil.h deleted file mode 100644 index 33c0176..0000000 --- a/interfaces/int_ceil.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_CEIL_H__ -#define __INT_CEIL_H__ - -#define s0ceils0(in) sceils(in) - -#define d0ceild0(in) dceils(in) - -#define c0ceilc0(in) cceils(in) - -#define z0ceilz0(in) zceils(in) - -#define u80ceilu80(in) u8ceils(in) - -#define i80ceili80(in) i8ceils(in) - -#define u160ceilu160(in) u16ceils(in) - -#define i160ceili160(in) i16ceils(in) - -#define s2ceils2(in,size,out) sceila(in, size[0]*size[1], out) - -#define d2ceild2(in,size,out) dceila(in, size[0]*size[1], out) - -#define c2ceilc2(in,size,out) cceila(in, size[0]*size[1], out) - -#define z2ceilz2(in,size,out) zceila(in, size[0]*size[1], out) - -#define u82ceilu82(in,size,out) u8ceila(in, size[0]*size[1], out) - -#define i82ceili82(in,size,out) i8ceila(in, size[0]*size[1], out) - -#define u162ceilu162(in,size,out) u16ceila(in, size[0]*size[1], out) - -#define i162ceili162(in,size,out) i16ceila(in, size[0]*size[1], out) - -#endif /* !__INT_CEIL_H__ */ diff --git a/interfaces/int_cepstrum.h b/interfaces/int_cepstrum.h deleted file mode 100644 index af1991b..0000000 --- a/interfaces/int_cepstrum.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_CEPSTRUM_H__ -#define __INT_CEPSTRUM_H__ - -#define s0cepstrums0(in) scepstrums(in) - -#define d0cepstrumd0(in) dcepstrums(in) - -#define c0cepstrumc0(in) ccepstrums(in) - -#define z0cepstrumz0(in) zcepstrums(in) - -#define s2cepstrums2(in,size,out) scepstruma(in, size[0]*size[1], out) - -#define d2cepstrumd2(in,size,out) dcepstruma(in, size[0]*size[1], out) - -#define c2cepstrumc2(in,size,out) ccepstruma(in, size[0]*size[1], out) - -#define z2cepstrumz2(in,size,out) zcepstruma(in, size[0]*size[1], out) - -#endif /* !__INT_CEPSTRUM_H__ */ diff --git a/interfaces/int_chol.h b/interfaces/int_chol.h deleted file mode 100644 index 861ad4d..0000000 --- a/interfaces/int_chol.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_CHOL_H__ -#define __INT_CHOL_H__ - -#define s0chols0(in) schols(in) - -#define d0chold0(in) dchols(in) - -#define c0cholc0(in) cchols(in) - -#define z0cholz0(in) zchols(in) - -#define s2chols2(in,size,out) schola(in, size[0], out) - -#define d2chold2(in,size,out) dchola(in, size[0], out) - -#define c2cholc2(in,size,out) cchola(in, size[0], out) - -#define z2cholz2(in,size,out) zchola(in, size[0], out) - -#endif /* !__INT_CHOL_H__ */ diff --git a/interfaces/int_conj.h b/interfaces/int_conj.h deleted file mode 100644 index 7884c99..0000000 --- a/interfaces/int_conj.h +++ /dev/null @@ -1,52 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_CONJ_H__ -#define __INT_CONJ_H__ - -#define copy_c(in,size,out) {int i;for (i=0; i<size[0]*size[1];i++) out[i]=in[i];} - -#define s0conjs0(in) in - -#define d0conjd0(in) in - -#define c0conjc0(in) cconjs(in) - -#define z0conjz0(in) zconjs(in) - -#define u80conju80(in) in - -#define i80conji80(in) in - -#define u160conju160(in) in - -#define i160conji160(in) in - -#define s2conjs2(in,size,out) copy_c(in,size,out) - -#define d2conjd2(in,size,out) copy_c(in,size,out) - -#define c2conjc2(in,size,out) cconja(in, size[0]*size[1], out) - -#define z2conjz2(in,size,out) zconja(in, size[0]*size[1], out) - -#define u82conju82(in,size,out) copy_c(in,size,out) - -#define i82conji82(in,size,out) copy_c(in,size,out) - -#define u162conju162(in,size,out) copy_c(in,size,out) - -#define i162conji162(in,size,out) copy_c(in,size,out) - -#endif /* !__INT_CONJ_H__ */ diff --git a/interfaces/int_convol.h b/interfaces/int_convol.h deleted file mode 100644 index 80ec65b..0000000 --- a/interfaces/int_convol.h +++ /dev/null @@ -1,153 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_CONVOL_H__ -#define __INT_CONVOL_H__ - - -/* Scalar - Scalar */ - -#define s0s0convols0(in1,in2) in1*in2 - -#define d0d0convold0(in1,in2) in1*in2 - -#define c0c0convolc0(in1,in2) cmuls(in1,in2) - -#define z0z0convolz0(in1,in2) zmuls(in1,in2) - -#define s0c0convolc0(in1,in2) cmuls(FloatComplex(in1,0),in2) - -#define d0z0convolz0(in1,in2) zmuls(DoubleComplex(in1,0),in2) - -#define c0s0convolc0(in1,in2) cmuls(in1,FloatComplex(in2,0)) - -#define z0d0convolz0(in1,in2) zmuls(in1,DoubleComplex(in2,0)) - -/* Scalar - Matrix */ - -#define s0s2convols2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];\ - } - -#define d0d2convold2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*in2[i];\ - } - -#define c0c2convolc2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,in2[i]);\ - } - -#define z0z2convolz2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,in2[i]);\ - } - -#define s0c2convolc2(in1,in2,size,out) c0c2convolc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2convolz2(in1,in2,size,out) z0z2convolz2(DoubleComplex(in1,0),in2,size,out) - -#define c0s2convolc2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1,FloatComplex(in2[i],0));\ - } - -#define z0d2convolz2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1,DoubleComplex(in2[i],0));\ - } - -/* Matrix - Scalar */ - -#define s2s0convols2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ - } - -#define d2d0convold2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ - } - -#define c2c0convolc2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1[i],in2);\ - } - -#define z2z0convolz2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1[i],in2);\ - } - -#define s2c0convolc2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(FloatComplex(in1[i],0),in2);\ - } - -#define d2z0convolz2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(DoubleComplex(in1[i],0),in2);\ - } - -#define c2s0convolc2(in1,size,in2,out) c2c0convolc2(in1,size,FloatComplex(in2,0),out) - -#define z2d0convolz2(in1,size,in2,out) z2z0convolz2(in1,size,DoubleComplex(in2,0),out) - - -/* Matrix - Matrix */ - -#define s2s2convols2(in1,size1,in2,size2,out) if(((size1[0]==1)||(size1[1]==1))&&((size2[0]==1)||(size2[1]==1))){\ - sconva(in1,size1[0]*size1[1],in2,size2[0]*size2[1],out);\ - }else{\ - sconv2da(in1,size1[0],size1[1],in2,size2[0],size2[1],out);\ - } - -#define d2d2convold2(in1,size1,in2,size2,out) if(((size1[0]==1)||(size1[1]==1))&&((size2[0]==1)||(size2[1]==1))){\ - dconva(in1,size1[0]*size1[1],in2,size2[0]*size2[1],out);\ - }else{\ - dconv2da(in1,size1[0],size1[1],in2,size2[0],size2[1],out);\ - } - -#define c2c2convolc2(in1,size1,in2,size2,out) if(((size1[0]==1)||(size1[1]==1))&&((size2[0]==1)||(size2[1]==1))){\ - cconva(in1,size1[0]*size1[1],in2,size2[0]*size2[1],out);\ - }else{\ - cconv2da(in1,size1[0],size1[1],in2,size2[0],size2[1],out);\ - } - -#define z2z2convolz2(in1,size1,in2,size2,out) if(((size1[0]==1)||(size1[1]==1))&&((size2[0]==1)||(size2[1]==1))){\ - zconva(in1,size1[0]*size1[1],in2,size2[0]*size2[1],out);\ - }else{\ - zconv2da(in1,size1[0],size1[1],in2,size2[0],size2[1],out);\ - } - -#define s2c2convolc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - c2c2convolc2(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1,in2,size2,out);\ - free(temp);\ - } - -#define d2z2convolz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - z2z2convolz2(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1,in2,size2,out);\ - free(temp);\ - } - -#define c2s2convolc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(float));\ - sfilla(temp,size2[0],size2[1],0);\ - c2c2convolc2(in1,size1,FloatComplexMatrix(in2,temp,size2[0]*size2[1]),size2,out);\ - free(temp);\ - } - - -#define z2d2convolz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ - dfilla(temp,size2[0],size2[1],0);\ - z2z2convolz2(in1,size1,DoubleComplexMatrix(in2,temp,size2[0]*size2[1]),size2,out);\ - free(temp);\ - } - -#endif /* !__INT_CONVOL_H__ */ diff --git a/interfaces/int_convstr.h b/interfaces/int_convstr.h deleted file mode 100644 index 2eade50..0000000 --- a/interfaces/int_convstr.h +++ /dev/null @@ -1,27 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_CONVSTR_H__ -#define __INT_CONVSTR_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define g2g2convstrg2(in,size,flag,size2,out) gconvstrs(in,size[0]*size[1],flag,size2[1],out) -/*#define g2g2convstrg0(in,size,type,typesize,out) (type=='u': \ - gconvstrs(in,size[0]*size[1],0,out)?gconvstrs(in,size[0]*size[1],1,out)) -*/ - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_CONVSTR_H__*/ diff --git a/interfaces/int_cos.h b/interfaces/int_cos.h deleted file mode 100644 index b19bcfc..0000000 --- a/interfaces/int_cos.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_COS_H__ -#define __INT_COS_H__ - -#define s0coss0(in) scoss(in) - -#define d0cosd0(in) dcoss(in) - -#define c0cosc0(in) ccoss(in) - -#define z0cosz0(in) zcoss(in) - -#define u80coss0(in) u8coss(in) - -#define i80coss0(in) i8coss(in) - -#define u160coss0(in) u16coss(in) - -#define i160coss0(in) i16coss(in) - -#define s2coss2(in,size,out) scosa(in, size[0]*size[1], out) - -#define d2cosd2(in,size,out) dcosa(in, size[0]*size[1], out) - -#define c2cosc2(in,size,out) ccosa(in, size[0]*size[1], out) - -#define z2cosz2(in,size,out) zcosa(in, size[0]*size[1], out) - -#define u82coss2(in,size,out) u8cosa(in, size[0]*size[1], out) - -#define i82coss2(in,size,out) i8cosa(in, size[0]*size[1], out) - -#define u162coss2(in,size,out) u16cosa(in, size[0]*size[1], out) - -#define i162coss2(in,size,out) i16cosa(in, size[0]*size[1], out) - -#endif /* !__INT_COS_H__ */ diff --git a/interfaces/int_cosd.h b/interfaces/int_cosd.h deleted file mode 100644 index 9ca9945..0000000 --- a/interfaces/int_cosd.h +++ /dev/null @@ -1,28 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_COSD_H__ -#define __INT_COSD_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2cosdd2(in,size,out) dcosda(in,size[1],out) -#define d0cosdd0(in) dcosds(in) -#define s2cosds2(in,size,out) scosda(in,size[1],out) -#define s0cosds0(in) scosds(in) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_COSD_H__*/ diff --git a/interfaces/int_cosh.h b/interfaces/int_cosh.h deleted file mode 100644 index c2b97ad..0000000 --- a/interfaces/int_cosh.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_COSH_H__ -#define __INT_COSH_H__ - -#define s0coshs0(in) scoshs(in) - -#define d0coshd0(in) dcoshs(in) - -#define c0coshc0(in) ccoshs(in) - -#define z0coshz0(in) zcoshs(in) - -#define u80coshs0(in) u8coshs(in) - -#define i80coshs0(in) i8coshs(in) - -#define u160coshs0(in) u16coshs(in) - -#define i160coshs0(in) i16coshs(in) - -#define s2coshs2(in,size,out) scosha(in, size[0]*size[1], out) - -#define d2coshd2(in,size,out) dcosha(in, size[0]*size[1], out) - -#define c2coshc2(in,size,out) ccosha(in, size[0]*size[1], out) - -#define z2coshz2(in,size,out) zcosha(in, size[0]*size[1], out) - -#define u82coshs2(in,size,out) u8cosha(in, size[0]*size[1], out) - -#define i82coshs2(in,size,out) i8cosha(in, size[0]*size[1], out) - -#define u162coshs2(in,size,out) u16cosha(in, size[0]*size[1], out) - -#define i162coshs2(in,size,out) i16cosha(in, size[0]*size[1], out) - -#endif /* !__INT_COSH_H__ */ diff --git a/interfaces/int_cotd.h b/interfaces/int_cotd.h deleted file mode 100644 index 382f780..0000000 --- a/interfaces/int_cotd.h +++ /dev/null @@ -1,28 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_COTD_H__ -#define __INT_COTD_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2cotdd2(in,size,out) dcotda(in,size[1],out) -#define s2cotds2(in,size,out) scotda(in,size[1],out) -#define d0cotdd0(in) dcotds(in) -#define s0cotds0(in) scotds(in) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_COTD_H__*/ diff --git a/interfaces/int_coth.h b/interfaces/int_coth.h deleted file mode 100644 index db8887a..0000000 --- a/interfaces/int_coth.h +++ /dev/null @@ -1,32 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_COTH_H__ -#define __INT_COTH_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2cothd2(in,size,out) dcotha(in,size[1],out) -#define s2coths2(in,size,out) scotha(in,size[1],out) -#define d0cothd0(in) dcoths(in) -#define s0coths0(in) scoths(in) -#define z0cothz0(in) zcoths(in) -#define z2cothz2(in,size,out) zcoths(in,size[1],out) -#define c0cothc0(in) ccoths(in) -#define c2cothc2(in,size,out) ccoths(in,size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_COTH_H__*/ diff --git a/interfaces/int_csc.h b/interfaces/int_csc.h deleted file mode 100644 index 74038c9..0000000 --- a/interfaces/int_csc.h +++ /dev/null @@ -1,32 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_CSC_H__ -#define __INT_CSC_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2cscd2(in,size,out) dcsca(in,size[1],out) -#define d0cscd0(in) dcscs(in) -#define s2cscs2(in,size,out) scsca(in,size[1],out) -#define s0cscs0(in) scscs(in) -#define z2cscz2(in,size,out) zcsca(in,size[1],out) -#define z0cscz0(in) zcscs(in) -#define c2cscc2(in,size,out) ccsca(in,size[1],out) -#define c0cscc0(in) ccscs(in) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_CSC_H__*/ diff --git a/interfaces/int_cscd.h b/interfaces/int_cscd.h deleted file mode 100644 index 99bc49a..0000000 --- a/interfaces/int_cscd.h +++ /dev/null @@ -1,32 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_CSCD_H__ -#define __INT_CSCD_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2cscdd2(in,size,out) dcscda(in,size[1],out) -#define d0cscdd0(in) dcscds(in) -#define s2cscds2(in,size,out) scscda(in,size[1],out) -#define s0cscds0(in) scscds(in) -#define z0cscdz0(in) zcscds(in) -#define z2cscdz2(in,size,out) zcscds(in,size[1],out) -#define c0cscdc0(in) ccscds(in) -#define c2cscdc2(in,size,out) ccscds(in,size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_CSCD_H__*/ diff --git a/interfaces/int_csch.h b/interfaces/int_csch.h deleted file mode 100644 index ce35589..0000000 --- a/interfaces/int_csch.h +++ /dev/null @@ -1,32 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_CSCH_H__ -#define __INT_CSCH_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2cschd2(in,size,out) dcscha(in,size[1],out) -#define d0cschd0(in) dcschs(in) -#define s2cschs2(in,size,out) scscha(in,size[1],out) -#define s0cschs0(in) scschs(in) -#define z0cschz0(in) zcschs(in) -#define z2cschz2(in,size,out) zcschs(in,size[1],out) -#define c0cschc0(in) ccschs(in) -#define c2cschc2(in,size,out) ccschs(in,size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_CSC_H__*/ diff --git a/interfaces/int_cumprod.h b/interfaces/int_cumprod.h deleted file mode 100644 index 5ba3cc7..0000000 --- a/interfaces/int_cumprod.h +++ /dev/null @@ -1,54 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_CUMPROD_H__ -#define __INT_CUMPROD_H__ - - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0cumprodd0(in) in -#define s0cumprods0(in) in -#define u80cumprodu80(in) in -#define u160cumprodu160(in) in -#define i80cumprodi80(in) in -#define i160cumprodi160(in) in - -#define d2cumprodd2(in1, size1, out) dcumproda(in1, size1[0], size1[1], out) -#define s2cumprods2(in1, size1, out) scumproda(in1, size1[0], size1[1], out) -#define u82cumprodu82(in1, size1, out) u8cumproda(in1, size1[0], size1[1], out) -#define u162cumprodu162(in1, size1, out) u16cumproda(in1, size1[0], size1[1], out) -#define i82cumprodi82(in1, size1, out) i8cumproda(in1, size1[0], size1[1], out) -#define i162cumprodi162(in1, size1, out) i16cumproda(in1, size1[0], size1[1], out) - -#define d2g2cumprodd2(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - drowcumproda(in1,size1[0],size1[1],out) : dcolumncumproda(in1,size1[0],size1[1],out) -#define s2g2cumprods2(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - srowcumproda(in1,size1[0],size1[1],out) : scolumncumproda(in1,size1[0],size1[1],out) -#define u82g2cumprodu82(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - u8rowcumproda(in1,size1[0],size1[1],out) : u8columncumproda(in1,size1[0],size1[1],out) -#define i82g2cumprodi82(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - i8rowcumproda(in1,size1[0],size1[1],out) : i8columncumproda(in1,size1[0],size1[1],out) -#define u162g2cumprodu162(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - u16rowcumproda(in1,size1[0],size1[1],out) : u16columncumproda(in1,size1[0],size1[1],out) -#define i162g2cumprodi162(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - i16rowcumproda(in1,size1[0],size1[1],out) : i16columncumproda(in1,size1[0],size1[1],out) - - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_CUMPROD_H__*/ diff --git a/interfaces/int_cumsum.h b/interfaces/int_cumsum.h deleted file mode 100644 index 0eda0ac..0000000 --- a/interfaces/int_cumsum.h +++ /dev/null @@ -1,54 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_CUMSUM_H__ -#define __INT_CUMSUM_H__ - - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0cumsumd0(in) in -#define s0cumsums0(in) in -#define u80cumsumu80(in) in -#define u160cumsumu160(in) in -#define i80cumsumi80(in) in -#define i160cumsumi160(in) in - -#define d2cumsumd2(in1, size1, out) dcumsuma(in1, size1[0], size1[1], out) -#define s2cumsums2(in1, size1, out) scumsuma(in1, size1[0], size1[1], out) -#define u82cumsumu82(in1, size1, out) u8cumsuma(in1, size1[0], size1[1], out) -#define u162cumsumu162(in1, size1, out) u16cumsuma(in1, size1[0], size1[1], out) -#define i82cumsumi82(in1, size1, out) i8cumsuma(in1, size1[0], size1[1], out) -#define i162cumsumi162(in1, size1, out) i16cumsuma(in1, size1[0], size1[1], out) - -#define d2g2cumsumd2(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - drowcumsuma(in1,size1[0],size1[1],out) : dcolumncumsuma(in1,size1[0],size1[1],out) -#define s2g2cumsums2(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - srowcumsuma(in1,size1[0],size1[1],out) : scolumncumsuma(in1,size1[0],size1[1],out) -#define u82g2cumsumu82(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - u8rowcumsuma(in1,size1[0],size1[1],out) : u8columncumsuma(in1,size1[0],size1[1],out) -#define i82g2cumsumi82(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - i8rowcumsuma(in1,size1[0],size1[1],out) : i8columncumsuma(in1,size1[0],size1[1],out) -#define u162g2cumsumu162(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - u16rowcumsuma(in1,size1[0],size1[1],out) : u16columncumsuma(in1,size1[0],size1[1],out) -#define i162g2cumsumi162(in1, size1, in2, size2, out) (in2[0]=='r') ? \ - i16rowcumsuma(in1,size1[0],size1[1],out) : i16columncumsuma(in1,size1[0],size1[1],out) - - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_CUMSUM_H__*/ diff --git a/interfaces/int_dec2base.h b/interfaces/int_dec2base.h deleted file mode 100644 index 637f099..0000000 --- a/interfaces/int_dec2base.h +++ /dev/null @@ -1,35 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_dec2base_H__ -#define __INT_dec2base_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0d0dec2baseg2(in,base,out) ddec2bases(in,base,0,out) -#define s0d0dec2baseg2(in,base,out) sdec2bases(in,base,0,out) - -#define d2d0dec2baseg2(in,size,out) ddec2basea(in,size[0]*size[1],base,0,out) -#define s2d0dec2baseg2(in,size,out) sdec2basea(in,size[0]*size[1],base,0,out) - -#define d0d0d0dec2baseg2(in,base,n,out) ddec2bases(in,base,n,out) -#define s0d0d0dec2baseg2(in,base,n,out) sdec2bases(in,base,n,out) - -#define d2d0d0dec2baseg2(in,size,base,n,out) ddec2basea(in,size[0]*size[1],base,n,out) -#define s2d0d0dec2baseg2(in,size,base,n,out) sdec2basea(in,size[0]*size[1],base,n,out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_dec2base_H__*/ diff --git a/interfaces/int_dec2bin.h b/interfaces/int_dec2bin.h deleted file mode 100644 index c6f2008..0000000 --- a/interfaces/int_dec2bin.h +++ /dev/null @@ -1,48 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_dec2bin_H__ -#define __INT_dec2bin_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0dec2bind2(in,out) ddec2bins(in,0,out) -#define i80dec2bini82(in,out) i8dec2bins(in,0,out) -#define i160dec2bini162(in,out) i16dec2bins(in,0,out) -#define u80dec2binu82(in,out) u8dec2bins(in,0,out) -#define u160dec2binu162(in,out) u16dec2bins(in,0,out) - -#define d2dec2bind2(in,size,out) ddec2bina(in,size[0]*size[1],0,out) -#define i82dec2bini82(in,size,out) i8dec2bina(in,size[0]*size[1],0,out) -#define i162dec2bini162(in,size,out) i16dec2bina(in,size[0]*size[1],0,out) -#define u82dec2binu82(in,size,out) u8dec2bina(in,size[0]*size[1],0,out) -#define u162dec2binu162(in,size,out) u16dec2bina(in,size[0]*size[1],0,out) - -#define d0d0dec2bind2(in,n,out) ddec2bins(in,n,out) -#define i80d0dec2bini82(in,n,out) i8dec2bins(in,n,out) -#define i160d0dec2bini162(in,n,out) i16dec2bins(in,n,out) -#define u80d0dec2binu82(in,n,out) u8dec2bins(in,n,out) -#define u160d0dec2binu162(in,n,out) u16dec2bins(in,n,out) - -#define d2d0dec2bind2(in,size,n,out) ddec2bina(in,size[0]*size[1],n,out) -#define i82d0dec2bini82(in,size,n,out) i8dec2bina(in,size[0]*size[1],n,out) -#define i162d0dec2bini162(in,size,n,out) i16dec2bina(in,size[0]*size[1],n,out) -#define u82d0dec2binu82(in,size,n,out) u8dec2bina(in,size[0]*size[1],n,out) -#define u162d0dec2binu162(in,size,n,out) u16dec2bina(in,size[0]*size[1],n,out) - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_dec2bin_H__*/ diff --git a/interfaces/int_dec2hex.h b/interfaces/int_dec2hex.h deleted file mode 100644 index bed85be..0000000 --- a/interfaces/int_dec2hex.h +++ /dev/null @@ -1,35 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_dec2hex_H__ -#define __INT_dec2hex_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0dec2hexg2(in,out) ddec2hexs(in,out) -#define i80dec2hexg2(in,out) i8dec2hexs(in,out) -#define i160dec2hexg2(in,out) i16dec2hexs(in,out) -#define u80dec2hexg2(in,out) u8dec2hexs(in,out) -#define u160dec2hexg2(in,out) u16dec2hexs(in,out) - -#define d2dec2hexg2(in,size,out) ddec2hexa(in,size[0]*size[1],out) -#define i82dec2hexg2(in,size,out) i8dec2hexa(in,size[0]*size[1],out) -#define i162dec2hexg2(in,size,out) i16dec2hexa(in,size[0]*size[1],out) -#define u82dec2hexg2(in,size,out) u8dec2hexa(in,size[0]*size[1],out) -#define u162dec2hexg2(in,size,out) u16dec2hexa(in,size[0]*size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_dec2hex_H__*/ diff --git a/interfaces/int_dec2oct.h b/interfaces/int_dec2oct.h deleted file mode 100644 index 5cf61be..0000000 --- a/interfaces/int_dec2oct.h +++ /dev/null @@ -1,36 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_dec2oct_H__ -#define __INT_dec2oct_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0dec2octd2(in,out) ddec2octs(in,out) -#define i80dec2octi82(in,out) i8dec2octs(in,out) -#define i160dec2octi162(in,out) i16dec2octs(in,out) -#define u80dec2octu82(in,out) u8dec2octs(in,out) -#define u160dec2octu162(in,out) u16dec2octs(in,out) - -#define d2dec2octd2(in,size,out) ddec2octa(in,size[0]*size[1],out) -#define i82dec2octi82(in,size,out) i8dec2octa(in,size[0]*size[1],out) -#define i162dec2octi162(in,size,out) i16dec2octa(in,size[0]*size[1],out) -#define u82dec2octu82(in,size,out) u8dec2octa(in,size[0]*size[1],out) -#define u162dec2octu162(in,size,out) u16dec2octa(in,size[0]*size[1],out) - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_dec2oct_H__*/ diff --git a/interfaces/int_det.h b/interfaces/int_det.h deleted file mode 100644 index f7760b1..0000000 --- a/interfaces/int_det.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_DETERM_H__ -#define __INT_DETERM_H__ - -#define s0dets0(in) in - -#define d0detd0(in) in - -#define c0detc0(in) in - -#define z0detz0(in) in - -#define s2dets0(in,size) sdeterma(in, size[0]) - -#define d2detd0(in,size) ddeterma(in, size[0]) - -#define c2detc0(in,size) cdeterma(in, size[0]) - -#define z2detz0(in,size) zdeterma(in, size[0]) - -#endif /* !__INT_DETERM_H__ */ diff --git a/interfaces/int_diag.h b/interfaces/int_diag.h deleted file mode 100644 index 339831b..0000000 --- a/interfaces/int_diag.h +++ /dev/null @@ -1,85 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_DIAG_H__ -#define __INT_DIAG_H__ - - - -#define d0diagd0(in1) ddiags(in1) - -#define d0d0diagd0(in1,in2) ddiags(in1) - -#define d0d0diagd2(in1,in2,out) ddiaga(in1,1,in2,out) - -#define d2diagd2(in1,size,out) if(size[0] != size[1]) { (size[0]==1) ? ddiagins(in1,size[1],out) : ddiagins(in1,size[0],out); } else {ddiagexa(in1,size[0],size[1],0,out) ;} - -#define d2d0diagd2(in1,size,in2,out) if((size[0] != 1) && (size[1] != 1) ) { ddiagexa(in1,size[0],size[1],in2,out); } else { if(in2 != 0) {ddiagina(in1,size[0],size[1],in2,out);} else { (size[0] == 1) ? ddiagins(in1,size[1],out) : ddiagins(in1,size[0],out); };} - -#define d2d0diagd0(in1,size,in2) ddiagexs(in1,size[0],size[1],in2) - - - -#define u80diagu80(in1) u8diags(in1) - -#define u80d0diagu80(in1,in2) u8diags(in1) - -#define u80d0diagu82(in1,in2,out) u8diaga(in1,1,in2,out) - -#define u82diagu82(in1,size,out) if(size[0] != size[1]) { (size[0]==1) ? u8diagins(in1,size[1],out) : u8diagins(in1,size[0],out); } else {u8diagexa(in1,size[0],size[1],0,out) ;} - -#define u82d0diagu82(in1,size,in2,out) if((size[0] != 1) && (size[1] != 1) ) { u8diagexa(in1,size[0],size[1],in2,out); } else { if(in2 != 0) {u8diagina(in1,size[0],size[1],in2,out);} else { (size[0] == 1) ? u8diagins(in1,size[1],out) : u8diagins(in1,size[0],out); };} - -#define u82d0diagu80(in1,size,in2) u8diagexs(in1,size[0],size[1],in2) - -#define u160diagu160(in1) u16diags(in1) - -#define u160d0diagu160(in1,in2) u16diags(in1) - -#define u160d0diagu162(in1,in2,out) u16diaga(in1,1,in2,out) - -#define u162diagu162(in1,size,out) if(size[0] != size[1]) { (size[0]==1) ? u16diagins(in1,size[1],out) : u16diagins(in1,size[0],out); } else {u16diagexa(in1,size[0],size[1],0,out) ;} - -#define u162d0diagu162(in1,size,in2,out) if((size[0] != 1) && (size[1] != 1) ) { u16diagexa(in1,size[0],size[1],in2,out); } else { if(in2 != 0) {u16diagina(in1,size[0],size[1],in2,out);} else { (size[0] == 1) ? u16diagins(in1,size[1],out) : u16diagins(in1,size[0],out); };} - -#define u162d0diagu160(in1,size,in2) u16diagexs(in1,size[0],size[1],in2) - - - -#define i80diagi80(in1) i8diags(in1) - -#define i80d0diagi80(in1,in2) i8diags(in1) - -#define i80d0diagi82(in1,in2,out) i8diaga(in1,1,in2,out) - -#define i82diagi82(in1,size,out) if(size[0] != size[1]) { (size[0]==1) ? i8diagins(in1,size[1],out) : i8diagins(in1,size[0],out); } else {i8diagexa(in1,size[0],size[1],0,out) ;} - -#define i82d0diagi82(in1,size,in2,out) if((size[0] != 1) && (size[1] != 1) ) { i8diagexa(in1,size[0],size[1],in2,out); } else { if(in2 != 0) {i8diagina(in1,size[0],size[1],in2,out);} else { (size[0] == 1) ? i8diagins(in1,size[1],out) : i8diagins(in1,size[0],out); };} - -#define i82d0diagi80(in1,size,in2) i8diagexs(in1,size[0],size[1],in2) - -#define i160diagi160(in1) i16diags(in1) - -#define i160d0diagi160(in1,in2) i16diags(in1) - -#define i160d0diagi162(in1,in2,out) i16diaga(in1,1,in2,out) - - -#define i162diagi162(in1,size,out) if(size[0] != size[1]) { (size[0]==1) ? i16diagins(in1,size[1],out) : i16diagins(in1,size[0],out); } else {i16diagexa(in1,size[0],size[1],0,out) ;} - -#define i162d0diagi162(in1,size,in2,out) if((size[0] != 1) && (size[1] != 1) ) { i16diagexa(in1,size[0],size[1],in2,out); } else { if(in2 != 0) {i16diagina(in1,size[0],size[1],in2,out);} else { (size[0] == 1) ? i16diagins(in1,size[1],out) : i16diagins(in1,size[0],out); };} - -#define i162d0diagi160(in1,size,in2) i16diagexs(in1,size[0],size[1],in2) - - - -#endif /* !__INT_DIAG_H__ */ diff --git a/interfaces/int_diffc.h b/interfaces/int_diffc.h deleted file mode 100644 index 3c03242..0000000 --- a/interfaces/int_diffc.h +++ /dev/null @@ -1,105 +0,0 @@ - /* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_DIFFC_H__ -#define __INT_DIFFC_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define d2diffd2(in, size, out) ddiffca(in, size[0], size[1], 1, 0, out) - -#define d2d0diffd2(in, size, depth, out) ddiffca (in, size[0], size[1], \ - depth, 0, out) - -#define d2d0d0diffd2(in, size, depth, dim, out) ddiffca(in, size[0], size[1], \ - depth, dim, out) - -#define s2diffs2(in, size, out) sdiffca(in, size[0], size[1], 1, 0, out) - -#define s2d0diffs2(in, size, depth, out) sdiffca (in, size[0], size[1], \ - depth, 0, out) - -#define s2s0diffs2(in, size, depth, out) sdiffca (in, size[0], size[1], \ - depth, 0, out) - -#define s2s0d0diffs2(in, size, depth, dim, out) sdiffca(in, size[0], size[1], \ - depth, dim, out) - -#define s2d0d0diffs2(in, size, depth, dim, out) sdiffca(in, size[0], size[1], \ - depth, dim, out) - -#define u82diffu82(in, size, out) u8diffca(in, size[0], size[1], 1, 0, out) - -#define u82d0diffu82(in, size, depth, out) u8diffca (in, size[0], size[1], \ - depth, 0, out) - -#define u82u80diffu82(in, size, depth, out) u8diffca (in, size[0], size[1], \ - depth, 0, out) - -#define u82u80d0diffu82(in, size, depth, dim, out) u8diffca(in, size[0], size[1], \ - depth, dim, out) - - -#define u82d0d0diffu82(in, size, depth, dim, out) u8diffca(in, size[0], size[1], \ - depth, dim, out) - -#define i82diffi82(in, size, out) i8diffca(in, size[0], size[1], 1, 0, out) - -#define i82d0diffi82(in, size, depth, out) i8diffca (in, size[0], size[1], \ - depth, 0, out) - -#define i82u80diffi82(in, size, depth, out) i8diffca (in, size[0], size[1], \ - depth, 0, out) - -#define i82u80d0diffi82(in, size, depth, dim, out) i8diffca(in, size[0], size[1], \ - depth, dim, out) - - -#define i82d0d0diffi82(in, size, depth, dim, out) i8diffca(in, size[0], size[1], \ - depth, dim, out) - -#define u162diffu162(in, size, out) u16diffca(in, size[0], size[1], 1, 0, out) - -#define u162d0diffu162(in, size, depth, out) u16diffca (in, size[0], size[1], \ - depth, 0, out) - -#define u162u160diffu162(in, size, depth, out) u16diffca (in, size[0], size[1], \ - depth, 0, out) - -#define u162u160d0diffu162(in, size, depth, dim, out) u16diffca(in, size[0], size[1], \ - depth, dim, out) - - -#define u162d0d0diffu162(in, size, depth, dim, out) u16diffca(in, size[0], size[1], \ - depth, dim, out) - -#define i162diffi162(in, size, out) i16diffca(in, size[0], size[1], 1, 0, out) - -#define i162d0diffi162(in, size, depth, out) i16diffca (in, size[0], size[1], \ - depth, 0, out) - -#define i162u160diffi162(in, size, depth, out) i16diffca (in, size[0], size[1], \ - depth, 0, out) - -#define i162u160d0diffi162(in, size, depth, dim, out) i16diffca(in, size[0], size[1], \ - depth, dim, out) - - -#define i162d0d0diffi162(in, size, depth, dim, out) i16diffca(in, size[0], size[1], \ - depth, dim, out) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_DIFFC_H__*/ diff --git a/interfaces/int_disp.h b/interfaces/int_disp.h deleted file mode 100644 index 3bb7852..0000000 --- a/interfaces/int_disp.h +++ /dev/null @@ -1,60 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_DISP_H__ -#define __INT_DISP_H__ - -#include <stdio.h> - -#define s0disp(in) sdisps(in) - -#define d0disp(in) ddisps(in) - -#define c0disp(in) cdisps(in) - -#define z0disp(in) zdisps(in) - -#define u80disp(in) u8disps(in) - -#define i80disp(in) i8disps(in) - -#define u160disp(in) u16disps(in) - -#define i160disp(in) i16disps(in) - -#define s2disp(in,size) sdispa(in,size[0],size[1]) - -#define d2disp(in,size) ddispa(in,size[0],size[1]) - -#define c2disp(in,size) cdispa(in,size[0],size[1]) - -#define z2disp(in,size) zdispa(in,size[0],size[1]) - -#define u82disp(in,size) u8dispa(in,size[0],size[1]) - -#define i82disp(in,size) i8dispa(in,size[0],size[1]) - -#define u162disp(in,size) u16dispa(in,size[0],size[1]) - -#define i162disp(in,size) i16dispa(in,size[0],size[1]) - -#define d3disp(in,size) ddisph(in,size[0],size[1],size[2]) - -#define g2disp(in, size) printf("%s\n",in) - -#endif /* __INT_DISP_H__ */ - - - - diff --git a/interfaces/int_dist.h b/interfaces/int_dist.h deleted file mode 100644 index 36809c7..0000000 --- a/interfaces/int_dist.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_DIST_H__ -#define __INT_DIST_H__ - -#define s0s0dists0(in1,in2) sdists(in1,in2) - -#define d0d0distd0(in1,in2) ddists(in1,in2) - -#define c0c0dists0(in1,in2) cdists(in1,in2) - -#define z0z0distd0(in1,in2) zdists(in1,in2) - -#define s2s2dists0(in1,size1,in2,size2) sdista(in1, in2, size1[0], size2[1]) - -#define d2d2distd0(in1,size1,in2,size2) ddista(in1, in2, size1[0], size2[1]) - -#define c2c2dists0(in1,size1,in2,size2) cdista(in1, in2, size1[0], size2[1]) - -#define z2z2distd0(in1,size1,in2,size2) zdista(in1, in2, size1[0], size2[1]) - -#endif /* !__INT_DIST_H__ */ diff --git a/interfaces/int_exp.h b/interfaces/int_exp.h deleted file mode 100644 index bcb8dd9..0000000 --- a/interfaces/int_exp.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_EXP_H__ -#define __INT_EXP_H__ - -#define s0exps0(in) sexps(in) - -#define d0expd0(in) dexps(in) - -#define c0expc0(in) cexps(in) - -#define z0expz0(in) zexps(in) - -#define u80exps0(in) u8exps(in) - -#define i80exps0(in) i8exps(in) - -#define u160exps0(in) u16exps(in) - -#define i160exps0(in) i16exps(in) - -#define s2exps2(in,size,out) sexpa(in, size[0]*size[1], out) - -#define d2expd2(in,size,out) dexpa(in, size[0]*size[1], out) - -#define c2expc2(in,size,out) cexpa(in, size[0]*size[1], out) - -#define z2expz2(in,size,out) zexpa(in, size[0]*size[1], out) - -#define u82exps2(in,size,out) u8expa(in, size[0]*size[1], out) - -#define i82exps2(in,size,out) i8expa(in, size[0]*size[1], out) - -#define u162exps2(in,size,out) u16expa(in, size[0]*size[1], out) - -#define i162exps2(in,size,out) i16expa(in, size[0]*size[1], out) - -#endif /* !__INT_EXP_H__ */ diff --git a/interfaces/int_exp10.h b/interfaces/int_exp10.h deleted file mode 100644 index 6cd9f13..0000000 --- a/interfaces/int_exp10.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_EXP10_H__ -#define __INT_EXP10_H__ - -#define s0exp10s0(in) sexp10s(in) - -#define d0exp10d0(in) dexp10s(in) - -#define c0exp10c0(in) cexp10s(in) - -#define z0exp10z0(in) zexp10s(in) - -#define s2exp10s2(in,size,out) sexp10a(in, size[0]*size[1], out) - -#define d2exp10d2(in,size,out) dexp10a(in, size[0]*size[1], out) - -#define c2exp10c2(in,size,out) cexp10a(in, size[0]*size[1], out) - -#define z2exp10z2(in,size,out) zexp10a(in, size[0]*size[1], out) - -#endif /* !__INT_EXP10_H__ */ diff --git a/interfaces/int_expm.h b/interfaces/int_expm.h deleted file mode 100644 index 6e54fb3..0000000 --- a/interfaces/int_expm.h +++ /dev/null @@ -1,26 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_EXPM_H__ -#define __INT_EXPM_H__ - -#define s2expms2(in,size,out) sexpma(in, out, size[0]) - -#define d2expmd2(in,size,out) dexpma(in, out, size[0]) - -#define c2expmc2(in,size,out) cexpma(in, out, size[0]) - -#define z2expmz2(in,size,out) zexpma(in, out, size[0]) - -#endif /* !__INT_EXPM_H__ */ diff --git a/interfaces/int_eye.h b/interfaces/int_eye.h deleted file mode 100644 index 1e10eb8..0000000 --- a/interfaces/int_eye.h +++ /dev/null @@ -1,88 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_EYE_H__ -#define __INT_EYE_H__ - - -#define eyes0() 1.0f - -#define eyed0() 1 - -#define eyeu80() (uint8)1 - -#define eyei80() (int8)1 - -#define eyeu160() (uint16)1 - -#define eyei160() (int16)1 - -#define s0eyes0(in) seyes(in) - -#define d0eyed0(in) deyes(in) - -#define c0eyec0(in) ceyes(in) - -#define z0eyez0(in) zeyes(in) - -#define u80eyeu80(in) u8eyes(in) - -#define i80eyei80(in) i8eyes(in) - -#define u160eyeu160(in) u16eyes(in) - -#define i160eyei160(in) i16eyes(in) - -#define s0s0eyes0(in1,in2) 1.0f - -#define d0d0eyed0(in,in2) 1 - -#define u80u80eyeu80(in1,in2) (uint8)1 - -#define i80i80eyei80(in1,in2) (int8)1 - -#define u160u160eyeu160(in1,in2) (uint16)1 - -#define i160i160eyei160(in1,in2) (int16)1 - -#define s0s0eyes2(in1,in2,out) seyea(out, in1, in2) - -#define d0d0eyed2(in1,in2,out) deyea(out, in1, in2) - -#define u80u80eyeu82(in1,in2,out) u8eyea(out, in1, in2) - -#define i80i80eyei82(in1,in2,out) i8eyea(out, in1, in2) - -#define u160u160eyeu162(in1,in2,out) u16eyea(out, in1, in2) - -#define i160i160eyei162(in1,in2,out) i16eyea(out, in1, in2) - -#define s2eyes2(in,size,out) seyea(out, size[0], size[1]) - -#define d2eyed2(in,size,out) deyea(out, size[0], size[1]) - -#define c2eyec2(in,size,out) ceyea(out, size[0], size[1]) - -#define z2eyez2(in,size,out) zeyea(out, size[0], size[1]) - -#define u82eyeu82(in,size,out) u8eyea(out, size[0], size[1]) - -#define i82eyei82(in,size,out) i8eyea(out, size[0], size[1]) - -#define u162eyeu162(in,size,out) u16eyea(out, size[0], size[1]) - -#define i162eyei162(in,size,out) i16eyea(out, size[0], size[1]) - - -#endif /* !__INT_EYE_H__ */ diff --git a/interfaces/int_factor.h b/interfaces/int_factor.h deleted file mode 100644 index 5e0991a..0000000 --- a/interfaces/int_factor.h +++ /dev/null @@ -1,29 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_FACTOR_H__ -#define __INT_FACTOR_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0factord2(in,out) dfactors(in,out) -#define s0factors2(in,out) sfactors(in,out) - - - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_FACTOR_H__*/ diff --git a/interfaces/int_factorial.h b/interfaces/int_factorial.h deleted file mode 100644 index 446b513..0000000 --- a/interfaces/int_factorial.h +++ /dev/null @@ -1,31 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_FACTORIAL_H__ -#define __INT_FACTORIAL_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0factoriald0(in) dfactorials(in) -#define s0factorials0(in) sfactorials(in) - -#define d2factoriald2(in,size,out) dfactoriala(in,size[0]*size[1],out) -#define s2factorials2(in,size,out) sfactoriala(in,size[0]*size[1],out) - - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_FACTORIAL_H__*/ diff --git a/interfaces/int_fft.h b/interfaces/int_fft.h deleted file mode 100644 index ea2c69b..0000000 --- a/interfaces/int_fft.h +++ /dev/null @@ -1,71 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FFT_H__ -#define __INT_FFT_H__ - -#define s0ffts0(in) sffts(in) - -#define d0fftd0(in) dffts(in) - -#define c0fftc0(in) cffts(in) - -#define z0fftz0(in) zffts(in) - - -#define s2ffts2(in,size,out) sfftma(in, size[0], size[1], out) - -#define d2fftd2(in,size,out) dfftma(in, size[0], size[1], out) - -#define c2fftc2(in,size,out) cfftma(in, size[0], size[1], out) - -#define z2fftz2(in,size,out) zfftma(in, size[0], size[1], out) - -/* FIXME : malloc here */ -#define s2fftc2(in,size,out) {float* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[1]*sizeof(float));\ - szerosa(ZEROS,size[0],size[1]);\ - cfftma(FloatComplexMatrix(in,ZEROS,size[0]*size[1]), size[0], size[1], out);\ - } -/* FIXME : malloc here */ -#define d2fftz2(in,size,out) {double* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[1]*sizeof(double));\ - dzerosa(ZEROS,size[0],size[1]);\ - zfftma(DoubleComplexMatrix(in,ZEROS,size[0]*size[1]), size[0], size[1], out);\ - } - - - -#define s0s0ffts0(in1,in2) (in2==-1.0f) ? s0ffts0(in1) : s0iffts0(in1) - -#define d0d0fftd0(in1,in2) (in2==-1.0) ? d0fftd0(in1) : d0ifftd0(in1) - -#define c0s0fftc0(in1,in2) (in2==-1.0f) ? c0fftc0(in1) : c0ifftc0(in1) - -#define z0d0fftz0(in1,in2) (in2==-1.0) ? z0fftz0(in1) : z0ifftz0(in1) - -#define s2s0ffts2(in1,size,in2,out) (in2==-1.0f) ? s2ffts2(in1,size,out) : s2iffts2(in1,size,out) - -#define d2d0fftd2(in1,size,in2,out) (in2==-1.0) ? d2fftd2(in1,size,out) : d2ifftd2(in1,size,out) - -#define c2s0fftc2(in1,size,in2,out) (in2==-1.0f) ? c2fftc2(in1,size,out) : c2ifftc2(in1,size,out) - -#define z2d0fftz2(in1,size,in2,out) (in2==-1.0) ? z2fftz2(in1,size,out) : z2ifftz2(in1,size,out) - -#define s2s0fftc2(in1,size,in2,out) (in2==-1.0f) ? s2fftc2(in1,size,out) : s2ifftc2(in1,size,out) - -#define d2d0fftz2(in1,size,in2,out) (in2==-1.0) ? d2fftz2(in1,size,out) : d2ifftz2(in1,size,out) - - -#endif /* !__INT_FFT_H__ */ diff --git a/interfaces/int_fftshift.h b/interfaces/int_fftshift.h deleted file mode 100644 index d490657..0000000 --- a/interfaces/int_fftshift.h +++ /dev/null @@ -1,51 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FFTSHIFT_H__ -#define __INT_FFTSHIFT_H__ - -#define s0fftshifts0(in) sfftshifts(in) - -#define d0fftshiftd0(in) dfftshifts(in) - -#define c0fftshiftc0(in) cfftshifts(in) - -#define z0fftshiftz0(in) zfftshifts(in) - -#define s2fftshifts2(in,size,out) sfftshifta(in, size[0], size[1], out) - -#define d2fftshiftd2(in,size,out) dfftshifta(in, size[0], size[1], out) - -#define c2fftshiftc2(in,size,out) cfftshifta(in, size[0], size[1], out) - -#define z2fftshiftz2(in,size,out) zfftshifta(in, size[0], size[1], out) - - -#define s0s0fftshifts0(in1,in2) sfftshifts(in1) - -#define d0d0fftshiftd0(in1,in2) dfftshifts(in1) - -#define c0s0fftshiftc0(in1,in2) cfftshifts(in1) - -#define z0d0fftshiftz0(in1,in2) zfftshifts(in1) - -#define s2s0fftshifts2(in,size,in2,out) (in2==1) ? srowfftshifta(in, size[0], size[1], out) : scolumnfftshifta(in, size[0], size[1], out) - -#define d2d0fftshiftd2(in,size,in2,out) (in2==1) ? drowfftshifta(in, size[0], size[1], out) : dcolumnfftshifta(in, size[0], size[1], out) - -#define c2s0fftshiftc2(in,size,in2,out) (in2==1) ? crowfftshifta(in, size[0], size[1], out) : ccolumnfftshifta(in, size[0], size[1], out) - -#define z2d0fftshiftz2(in,size,in2,out) (in2==1) ? zrowfftshifta(in, size[0], size[1], out) : zcolumnfftshifta(in, size[0], size[1], out) - -#endif /* !__INT_FFTSHIFT_H__ */ diff --git a/interfaces/int_files.h b/interfaces/int_files.h deleted file mode 100644 index 862754f..0000000 --- a/interfaces/int_files.h +++ /dev/null @@ -1,58 +0,0 @@ - /* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_FILES_H__ -#define __INT_FILES_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define g2g2mopenf0(path, pathsize, mode, modesize) mopen(path, mode) - -#define f0mclosei0(fptr) mclose(fptr) - -#define d0g2f0mputi0(data, format, formatsize, fptr) dmputs(fptr, data) - -#define s0g2f0mputi0(data, format, formatsize, fptr) smputs(fptr, data) - -#define u80g2f0mputi0(data, format, formatsize, fptr) u8mputs(fptr, data) - -#define i80g2f0mputi0(data, format, formatsize, fptr) i8mputs(fptr, data) - -#define u160g2f0mputi0(data, format, formatsize, fptr) u16mputs(fptr, data) - -#define i160g2f0mputi0(data, format, formatsize, fptr) i16mputs(fptr, data) - -#define d2g2f0mputi0(data, size1, format, formatsize, fptr) \ - dmputa(fptr, data, size1[0], size1[1]) - -#define s2g2f0mputi0(data, size1, format, formatsize, fptr) \ - smputa(fptr, data, size1[0], size1[1]) - -#define u82g2f0mputi0(data, size1, format, formatsize, fptr) \ - u8mputa(fptr, data, size1[0], size1[1]) - -#define i82g2f0mputi0(data, size1, format, formatsize, fptr) \ - i8mputa(fptr, data, size1[0], size1[1]) - -#define u162g2f0mputi0(data, size1, format, formatsize, fptr) \ - u16mputa(fptr, data, size1[0], size1[1]) - -#define i162g2f0mputi0(data, size1, format, formatsize, fptr) \ - i16mputa(fptr, data, size1[0], size1[1]) - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_FILES_H__*/ diff --git a/interfaces/int_fill.h b/interfaces/int_fill.h deleted file mode 100644 index 5614cb1..0000000 --- a/interfaces/int_fill.h +++ /dev/null @@ -1,51 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FILL_H__ -#define __INT_FILL_H__ - - -#define fills0(in) in; - -#define filld0(in) in; - -#define fillc0(in) in; - -#define fillz0(in) in; - -#define s0fills0(in,out) out=in; - -#define d0filld0(in,out) out=in; - -#define c0fillc0(in,out) out=in; - -#define z0fillz0(in,out) out=in; - -#define s2s0fills2(in1,size,in2,out) sfilla(out,size[0],size[1],in2); - -#define d2d0filld2(in1,size,in2,out) dfilla(out,size[0],size[1],in2); - -#define c2c0fillc2(in1,size,in2,out) cfilla(out,size[0],size[1],in2); - -#define z2z0fillz2(in1,size,in2,out) zfilla(out,size[0],size[1],in2); - -#define s0s0s0fills2(in1,in2,in3,out) sfilla(out,in1,in2,in3) - -#define d0d0d0filld2(in1,in2,in3,out) sfilla(out,in1,in2,in3) - -#define s0s0c0fillc2(in1,in2,in3,out) sfilla(out,in1,in2,in3) - -#define d0d0z0fillz2(in1,in2,in3,out) sfilla(out,in1,in2,in3) - -#endif /* !__INT_FILL_H__ */ diff --git a/interfaces/int_find.h b/interfaces/int_find.h deleted file mode 100644 index ec1e157..0000000 --- a/interfaces/int_find.h +++ /dev/null @@ -1,184 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FIND_H__ -#define __INT_FIND_H__ - -/* 1 input, 1 output */ - -#define s0finds0(in) (in == 0) ? -1 : 1 - -#define d0findd0(in) (in == 0) ? -1 : 1 - -#define c0finds0(in) ((creals(in) == 0) && (cimags(in) == 0)) ? -1 : 1 - -#define z0findd0(in) ((zreals(in) == 0) && (zimags(in) == 0)) ? -1 : 1 - -#define u80findu80(in) (in == 0) ? -1 : 1 - -#define u160findu160(in) (in == 0) ? -1 : 1 - -#define i80findi80(in) (in == 0) ? -1 : 1 - -#define i160findi160(in) (in == 0) ? -1 : 1 - -#define s2finds2(in,size,out) sfinda(in, size[0]*size[1], out, -1) - -#define d2findd2(in,size,out) dfinda(in, size[0]*size[1], out, -1) - -#define c2finds2(in,size,out) cfinda(in, size[0]*size[1], out, -1) - -#define z2findd2(in,size,out) zfinda(in, size[0]*size[1], out, -1) - -#define u82findu82(in,size,out) u8finda(in,size[0]*size[1],out, -1) - -#define u162findu162(in,size,out) u16finda(in,size[0]*size[1],out, -1) - -#define i82findi82(in,size,out) i8finda(in,size[0]*size[1],out, -1) - -#define i162findi162(in,size,out) i16finda(in,size[0]*size[1],out, -1) - -/* 1 input, 2 outputs */ - -#define s0finds0s0(in,out2) *out2 = s0finds0(in);s0finds0(in) - -#define d0findd0d0(in,out2) *out2 = d0findd0(in);d0findd0(in) - -#define c0finds0s0(in,out2) if ((creals(in)==0) && (cimags(in)==0)) {out2=0;} else {out2=1;} - -#define z0findd0d0(in,out2) if ((zreals(in)==0) && (zimags(in)==0)) {out2=0;} else {out2=1;} - -#define u80findu80u80(in,out2) *out2 = u80findu80(in);u80findu80(in) - -#define u160findu160u160(in,out2) *out2 = u160findu160(in);u160findu160(in) - -#define i80findi80i80(in,out2) *out2 = i80findi80(in);i80findi80(in) - -#define i160findi160i160(in,out2) *out2 = i160findi160(in);i160findi160(in) - - -#define s2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2) sfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2,-1) - -#define d2findd2d2(in,size,out1,out2) dfind2da(in,size[0],size[1],out1,out2,-1) - -#define c2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2) cfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2,-1) - -#define z2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2) zfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2,-1) - -/* 2 inputs, 1 output */ - -#define s0s0finds0(in1,in2) s0finds0(in1) - -#define d0d0findd0(in1,in2) d0findd0(in1) - -#define c0s0finds0(in1,in2) c0finds0(in1) - -#define z0d0findd0(in1,in2) z0findd0(in1) - -#define u80u80findu80(in1,in2) u80findu80(in1) - -#define u160u160findu160(in1,in2) u160findu160(in1) - -#define i80i80findi80(in1,in2) i80findi80(in1) - -#define i160i160findi160(in1,in2) i160findi160(in1) - -#define s2s0finds2(in1,size,in2,out) {\ - int temp_out_indice[2] = {0} ;\ - sfinda(in1,size[0]*size[1],out,in2);\ - } - -#define d2d0findd2(in1,size,in2,out) {\ - int temp_out_indice[2] = {0} ;\ - dfinda(in1,size[0]*size[1],out,in2);\ - } - -#define c2s0finds2(in1,size,in2,out) {\ - int temp_out_indice[2] = {0} ;\ - cfinda(in1,size[0]*size[1],out,in2);\ - } - -#define z2d0findd2(in1,size,in2,out) {\ - int temp_out_indice[2] = {0} ;\ - zfinda(in1,size[0]*size[1],out,in2);\ - } - -#define u82u80findu82(in1,size,in2,out) {\ - int temp_out_indice[2] = {0};\ - u8finda(in1,size[0]*size[1],out,in2);\ -} - -#define u162u160findu162(in1,size,in2,out) {\ - int temp_out_indice[2] = {0};\ - u16finda(in1,size[0]*size[1],out,in2);\ -} - -#define i82i80findi82(in1,size,in2,out) {\ - int temp_out_indice[2] = {0};\ - i8finda(in1,size[0]*size[1],out,in2);\ -} - -#define i162i160findi162(in1,size,in2,out) {\ - int temp_out_indice[2] = {0};\ - i16finda(in1,size[0]*size[1],out,in2);\ -} -/* 2 inputs, 2 outputs */ - -#define s0s0finds0s0(in1,in2,out1,out2) s0finds0s0(in1,out1,out2) - -#define d0d0findd0d0(in1,in2,out1,out2) d0findd0d0(in1,out1,out2) - -#define c0s0finds0s0(in1,in2,out1,out2) c0finds0s0(in1,out1,out2) - -#define z0d0findd0d0(in1,in2,out1,out2) z0findd0d0(in1,out1,out2) - -#define u80u80findu80u80(in1,in2,out1,out2) u80findu80u80(in1,out1,out2) - -#define u160u160findu160u160(in1,in2,out1,out2) u160findu160u160(in1,out1,out2) - -#define i80i80findi80i80(in1,in2,out1,out2) i80findi80i80(in1,out1,out2) - -#define i160i60findi60i60(in1,in2,out1,out2) i60findi60i60(in1,out1,out2) - - -/*FIXME : prototypes are wrong*/ -#define s2s0finds2s2(in1,size,in2,out1,out2) {\ - int temp_out_indice1[2] = {0} ;\ - int temp_out_indice2[2] = {0} ;\ - sfind2da(in1,size[0],size[1],out1,temp_out_indice1,out2,temp_out_indice2,in2);\ - } - -#define d2d0findd2d2(in1,size,in2,out1,out2) {\ - int temp_out_indice1[2] = {0} ;\ - int temp_out_indice2[2] = {0} ;\ - dfind2da(in1,size[0],size[1],out1,temp_out_indice1,out2,temp_out_indice2,in2);\ - } - - -#define c2s0finds2s2(in1,size,in2,out1,out2) {\ - int temp_out_indice1[2] = {0} ;\ - int temp_out_indice2[2] = {0} ;\ - cfind2da(in1,size[0],size[1],out1,temp_out_indice1,out2,temp_out_indice2,in2);\ - } - -#define z2d0findd2d2(in1,size,in2,out1,out2) {\ - int temp_out_indice1[2] = {0} ;\ - int temp_out_indice2[2] = {0} ;\ - zfind2da(in1,size[0],size[1],out1,temp_out_indice1,out2,temp_out_indice2,in2);\ - } - - - -#endif /* !__INT_FIND_H__ */ - diff --git a/interfaces/int_fix.h b/interfaces/int_fix.h deleted file mode 100644 index 2a00e2c..0000000 --- a/interfaces/int_fix.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FIX_H__ -#define __INT_FIX_H__ - -#define s0fixs0(in) sfixs(in) - -#define d0fixd0(in) dfixs(in) - -#define c0fixc0(in) cfixs(in) - -#define z0fixz0(in) zfixs(in) - -#define u80fixu80(in) u8fixs(in) - -#define i80fixi80(in) i8fixs(in) - -#define u160fixu160(in) u16fixs(in) - -#define i160fixi160(in) i16fixs(in) - -#define s2fixs2(in,size,out) sfixa(in, size[0]*size[1], out) - -#define d2fixd2(in,size,out) dfixa(in, size[0]*size[1], out) - -#define c2fixc2(in,size,out) cfixa(in, size[0]*size[1], out) - -#define z2fixz2(in,size,out) zfixa(in, size[0]*size[1], out) - -#define u82fixu82(in,size,out) u8fixa(in, size[0]*size[1], out) - -#define i82fixi82(in,size,out) i8fixa(in, size[0]*size[1], out) - -#define u162fixu162(in,size,out) u16fixa(in, size[0]*size[1], out) - -#define i162fixi162(in,size,out) i16fixa(in, size[0]*size[1], out) - -#endif /* !__INT_FIX_H__ */ diff --git a/interfaces/int_flipdim.h b/interfaces/int_flipdim.h deleted file mode 100644 index 0c27181..0000000 --- a/interfaces/int_flipdim.h +++ /dev/null @@ -1,109 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_FLIPDIM_H__ -#define __INT_FLIPDIM_H__ - - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0d0flipdimd0(in1, in2) in1 -#define s0s0flipdims0(in1, in2) in1 -#define u80u80flipdimu80(in1, in2) in1 -#define i80i80flipdimi80(in1, in2) in1 -#define u160u160flipdimu160(in1, in2) in1 -#define i160i160flipdimi160(in1, in2) in1 -#define u80d0flipdimu80(in1, in2) in1 -#define i80d0flipdimi80(in1, in2) in1 -#define u160d0flipdimu160(in1, in2) in1 -#define i160d0flipdimi160(in1, in2) in1 - -#define d0d0d0flipdimd0(in1, in2, in3) in1 -#define s0s0s0flipdims0(in1, in2, in3) in1 -#define u80u80u80flipdimu80(in1, in2, in3) in1 -#define i80i80i80flipdimi80(in1, in2, in3) in1 -#define u160u160u160flipdimu160(in1, in2, in3) in1 -#define i160i160i160flipdimi160(in1, in2, in3) in1 -#define u80d0d0flipdimu80(in1, in2, in3) in1 -#define i80d0d0flipdimi80(in1, in2, in3) in1 -#define u160d0d0flipdimu160(in1, in2, in3) in1 -#define i160d0d0flipdimi160(in1, in2, in3) in1 - - -#define d2d0flipdimd2(in1, size1, in2, out) dflipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define s2s0flipdims2(in1, size1, in2, out) sflipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define u82u80flipdimu82(in1, size1, in2, out) u8flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define i82i80flipdimi82(in1, size1, in2, out) i8flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define u162u160flipdimu162(in1, size1, in2, out) u16flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define i162i160flipdimi162(in1, size1, in2, out) i16flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define u82d0flipdimu82(in1, size1, in2, out) u8flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define i82d0flipdimi82(in1, size1, in2, out) i8flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define u162d0flipdimu162(in1, size1, in2, out) u16flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define i162d0flipdimi162(in1, size1, in2, out) i16flipdima (in1, size1[0], size1[1], \ - in2, 1, out); - -#define d2d0d0flipdimd2(in1, size1, in2, in3, out) dflipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define s2s0s0flipdims2(in1, size1, in2, in3, out) sflipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define u82u80u80flipdimu82(in1, size1, in2, in3, out) u8flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define i82i80i80flipdimi82(in1, size1, in2, in3, out) i8flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define u162u160u160flipdimu162(in1, size1, in2, in3, out) u16flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define i162i160i160flipdimi162(in1, size1, in2, in3, out) i16flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define u82d0d0flipdimu82(in1, size1, in2, in3, out) u8flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define i82d0d0flipdimi82(in1, size1, in2, in3, out) i8flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define u162d0d0flipdimu162(in1, size1, in2, in3, out) u16flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - -#define i162d0d0flipdimi162(in1, size1, in2, in3, out) i16flipdima(in1, size1[0], size1[1], \ - in2, in3, out); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_FLIPDIM_H__*/ diff --git a/interfaces/int_float.h b/interfaces/int_float.h deleted file mode 100644 index df9aa39..0000000 --- a/interfaces/int_float.h +++ /dev/null @@ -1,38 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * Author - Shamik Guha - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FLOAT_H__ -#define __INT_FLOAT_H__ - -#define s0floats0(in) sfloats(in) - -#define d0floats0(in) dfloats(in) - -#define i80floats0(in) i8floats(in) - -#define u160floats0(in) u16floats(in) - -#define i160floats0(in) i16floats(in) - -#define s2floats2(in,size,out) sfloata(in, size[0]*size[1], out) - -#define d2floats2(in,size,out) dfloata(in, size[0]*size[1], out) - -#define i82floats2(in,size,out) i8floata(in, size[0]*size[1], out) - -#define u162floats2(in,size,out) u16floata(in, size[0]*size[1], out) - -#define i162floats2(in,size,out) i16floata(in, size[0]*size[1], out) - -#endif /* !__INT_FLOAT_H__ */ diff --git a/interfaces/int_floor.h b/interfaces/int_floor.h deleted file mode 100644 index 639819a..0000000 --- a/interfaces/int_floor.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FLOOR_H__ -#define __INT_FLOOR_H__ - -#define s0floors0(in) sfloors(in) - -#define d0floord0(in) dfloors(in) - -#define c0floorc0(in) cfloors(in) - -#define z0floorz0(in) zfloors(in) - -#define u80flooru80(in) u8floors(in) - -#define i80floori80(in) i8floors(in) - -#define u160flooru160(in) u16floors(in) - -#define i160floori160(in) i16floors(in) - -#define s2floors2(in,size,out) sfloora(in, size[0]*size[1], out) - -#define d2floord2(in,size,out) dfloora(in, size[0]*size[1], out) - -#define c2floorc2(in,size,out) cfloora(in, size[0]*size[1], out) - -#define z2floorz2(in,size,out) zfloora(in, size[0]*size[1], out) - -#define u82flooru82(in,size,out) u8floora(in, size[0]*size[1], out) - -#define i82floori82(in,size,out) i8floora(in, size[0]*size[1], out) - -#define u162flooru162(in,size,out) u16floora(in, size[0]*size[1], out) - -#define i162floori162(in,size,out) i16floora(in, size[0]*size[1], out) - -#endif /* !__INT_FLOOR_H__ */ diff --git a/interfaces/int_frexp.h b/interfaces/int_frexp.h deleted file mode 100644 index fa72417..0000000 --- a/interfaces/int_frexp.h +++ /dev/null @@ -1,22 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_FREXP_H__ -#define __INT_FREXP_H__ - -#define s0s2frexps0(in1,in2) sfrexps(in1,in2) - -#define d0d2frexps0(in1,in2) dfrexps(in1,in2) - -#endif /* !__INT_FREXP_H__ */ diff --git a/interfaces/int_hex2dec.h b/interfaces/int_hex2dec.h deleted file mode 100644 index d558936..0000000 --- a/interfaces/int_hex2dec.h +++ /dev/null @@ -1,26 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_hex2dec_H__ -#define __INT_hex2dec_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define g2hex2decd0(in,size) ghex2decs(in,size[1]) -#define d0hex2decd0(in) dhex2decs(in) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_hex2dec_H__*/ diff --git a/interfaces/int_hilbert.h b/interfaces/int_hilbert.h deleted file mode 100644 index c4c9c7e..0000000 --- a/interfaces/int_hilbert.h +++ /dev/null @@ -1,26 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_HILBERT_H__ -#define __INT_HILBERT_H__ - -#define s0hilberts0(in) shilberts(in) - -#define d0hilbertd0(in) dhilberts(in) - -#define s2hilbertc2(in,size,out) shilberta(in, size[0], size[1], out) - -#define d2hilbertz2(in,size,out) dhilberta(in, size[0], size[1], out) - -#endif /* !__INT_HILBERT_H__ */ diff --git a/interfaces/int_ifft.h b/interfaces/int_ifft.h deleted file mode 100644 index 78e6375..0000000 --- a/interfaces/int_ifft.h +++ /dev/null @@ -1,52 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_IFFT_H__ -#define __INT_IFFT_H__ - - -#define s0iffts0(in) siffts(in) - -#define d0ifftd0(in) diffts(in) - -#define s0ifftc0(in) FloatComplex(siffts(in),0) - -#define d0ifftz0(in) DoubleComplex(diffts(in),0) - -#define c0ifftc0(in) ciffts(in) - -#define z0ifftz0(in) ziffts(in) - -#define s2iffts2(in,size,out) sifftma(in, size[0], size[1], out) - -#define d2ifftd2(in,size,out) difftma(in, size[0], size[1], out) - -#define c2ifftc2(in,size,out) cifftma(in, size[0], size[1], out) - -#define z2ifftz2(in,size,out) zifftma(in, size[0], size[1], out) - -/* FIXME : malloc here */ -#define s2ifftc2(in,size,out) {float* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[1]*sizeof(float)));\ - szerosa(ZEROS,size[0],size[1]);\ - cifftma(FloatComplexMatrix(in,ZEROS,size[0]*size[1]), size[0], size[1], out);\ - } -/* FIXME : malloc here */ -#define d2ifftz2(in,size,out) {double* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[1]*sizeof(double)));\ - dzerosa(ZEROS,size[0],size[1]);\ - zifftma(DoubleComplexMatrix(in,ZEROS,size[0]*size[1]), size[0], size[1], out);\ - } - -#endif /* !__INT_IFFT_H__ */ diff --git a/interfaces/int_imag.h b/interfaces/int_imag.h deleted file mode 100644 index 6e6b736..0000000 --- a/interfaces/int_imag.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Arnaud Torset - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_IMAG_H__ -#define __INT_IMAG_H__ - -#define s0imags0(in) 0 - -#define d0imagd0(in) 0 - -#define c0imags0(in) cimags(in) - -#define z0imagd0(in) zimags(in) - -#define u80imagu80(in) 0 - -#define i80imagi80(in) 0 - -#define u160imagu160(in) 0 - -#define i160imagi160(in) 0 - -#define s2imags2(in,size,out) szerosa(out,size[0],size[1]) - -#define d2imagd2(in,size,out) dzerosa(out,size[0],size[1]) - -#define c2imags2(in,size,out) cimaga(in, size[0]*size[1], out) - -#define z2imagd2(in,size,out) zimaga(in, size[0]*size[1], out) - -#define u82imagu82(in,size,out) u8zerosa(out,size[0],size[1]) - -#define i82imagi82(in,size,out) i8zerosa(out,size[0],size[1]) - -#define u162imagu162(in,size,out) u16zerosa(out,size[0],size[1]) - -#define i162imagi162(in,size,out) i16zerosa(out,size[0],size[1]) - -#endif /* !__INT_IMAG_H__ */ diff --git a/interfaces/int_int.h b/interfaces/int_int.h deleted file mode 100644 index b40811a..0000000 --- a/interfaces/int_int.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_INT_H__ -#define __INT_INT_H__ - -#define s0ints0(in) sints(in) - -#define d0intd0(in) dints(in) - -#define c0intc0(in) cints(in) - -#define z0intz0(in) zints(in) - -#define s2ints2(in,size,out) sinta(in, size[0]*size[1], out) - -#define d2intd2(in,size,out) dinta(in, size[0]*size[1], out) - -#define c2intc2(in,size,out) cinta(in, size[0]*size[1], out) - -#define z2intz2(in,size,out) zinta(in, size[0]*size[1], out) - -#endif /* !__INT_INT_H__ */ diff --git a/interfaces/int_int16.h b/interfaces/int_int16.h deleted file mode 100644 index 4f32fe9..0000000 --- a/interfaces/int_int16.h +++ /dev/null @@ -1,38 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_INT16_H__ -#define __INT_INT16_H__ - -#define s0int16i160(in) sint16s(in) - -#define d0int16i160(in) dint16s(in) - -#define u80int16i160(in) u8int16s(in) - -#define i80int16i160(in) i8int16s(in) - -#define u160int16i160(in) u16int16s(in) - -#define s2int16i162(in,size,out) sint16a(in, size[0]*size[1], out) - -#define d2int16i162(in,size,out) dint16a(in, size[0]*size[1], out) - -#define u82int16i162(in,size,out) u8int16a(in, size[0]*size[1], out) - -#define i82int16i162(in,size,out) i8int16a(in, size[0]*size[1], out) - -#define u162int16i162(in,size,out) u16int16a(in, size[0]*size[1], out) - -#endif /* !__INT_INT8_H__ */ diff --git a/interfaces/int_int8.h b/interfaces/int_int8.h deleted file mode 100644 index 5628c5a..0000000 --- a/interfaces/int_int8.h +++ /dev/null @@ -1,38 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_INT8_H__ -#define __INT_INT8_H__ - -#define s0int8i80(in) sint8s(in) - -#define d0int8i80(in) dint8s(in) - -#define u80int8i80(in) u8int8s(in) - -#define u160int8i80(in) u16int8s(in) - -#define i160int8i80(in) i16int8s(in) - -#define s2int8i82(in,size,out) sint8a(in, size[0]*size[1], out) - -#define d2int8i82(in,size,out) dint8a(in, size[0]*size[1], out) - -#define u82int8i82(in,size,out) u8int8a(in, size[0]*size[1], out) - -#define u162int8i82(in,size,out) u16int8a(in, size[0]*size[1], out) - -#define i162int8i82(in,size,out) i16int8a(in, size[0]*size[1], out) - -#endif /* !__INT_INT8_H__ */ diff --git a/interfaces/int_invert.h b/interfaces/int_invert.h deleted file mode 100644 index 285a0f4..0000000 --- a/interfaces/int_invert.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_INV_H__ -#define __INT_INV_H__ - -#define s0invs0(in) 1.0f/in - -#define d0invd0(in) 1.0/in - -#define c0invc0(in) crdivs(FloatComplex(1,0),in) - -#define z0invz0(in) zrdivs(DoubleComplex(1,0),in) - -#define u80invs0(in) 1.0f/(float)in - -#define i80invs0(in) 1.0f/(float)in - -#define u160invs0(in) 1.0f/(float)in - -#define i160invs0(in) 1.0f/(float)in - -#define s2invs2(in,size,out) sinverma(in, out, size[0]) - -#define d2invd2(in,size,out) dinverma(in, out, size[0]) - -#define c2invc2(in,size,out) cinverma(in, out, size[0]) - -#define z2invz2(in,size,out) zinverma(in, out, size[0]) - -#define u82invs2(in,size,out) u8inverma(in, out, size[0]) - -#define i82invs2(in,size,out) i8inverma(in, out, size[0]) - -#define u162invs2(in,size,out) u16inverma(in, out, size[0]) - -#define i162invs2(in,size,out) i16inverma(in, out, size[0]) - -#endif /* !__INT_INV_H__ */ diff --git a/interfaces/int_isempty.h b/interfaces/int_isempty.h deleted file mode 100644 index 403bc56..0000000 --- a/interfaces/int_isempty.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ISEMPTY_H__ -#define __INT_ISEMPTY_H__ - -#define s0isemptys0(in) sisemptys(in) - -#define d0isemptyd0(in) disemptys(in) - -#define c0isemptys0(in) cisemptys(in) - -#define z0isemptyd0(in) zisemptys(in) - -#define s2isemptys0(in,size) sisemptya(in, size[0]*size[1]) - -#define d2isemptyd0(in,size) disemptya(in, size[0]*size[1]) - -#define c2isemptys0(in,size) cisemptya(in, size[0]*size[1]) - -#define z2isemptyd0(in,size) zisemptya(in, size[0]*size[1]) - -#endif /* !__INT_ISEMPTY_H__ */ diff --git a/interfaces/int_isnan.h b/interfaces/int_isnan.h deleted file mode 100644 index 8ab7c74..0000000 --- a/interfaces/int_isnan.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ISNAN_H__ -#define __INT_ISNAN_H__ - -#define s0isnans0(in) sisnans(in) - -#define d0isnand0(in) disnans(in) - -#define c0isnans0(in) cisnans(in) - -#define z0isnand0(in) zisnans(in) - -#define s2isnans2(in,size,out) sisnana(in, size[0]*size[1], out) - -#define d2isnand2(in,size,out) disnana(in, size[0]*size[1], out) - -#define c2isnans2(in,size,out) cisnana(in, size[0]*size[1], out) - -#define z2isnand2(in,size,out) zisnana(in, size[0]*size[1], out) - -#endif /* !__INT_ISNAN_H__ */ diff --git a/interfaces/int_kron.h b/interfaces/int_kron.h deleted file mode 100644 index a6fbaab..0000000 --- a/interfaces/int_kron.h +++ /dev/null @@ -1,43 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_KRON_H__ -#define __INT_KRON_H__ - - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0d0krond0(in1, in2) in1*in2 -#define s0s0krons0(in1, in2) in1*in2 - -#define d0d2krond2(in1, in2, size2, out) {int i; \ - for(i=0;i < size2[0]*size2[1];i++) out[i] = in2[i]*in1;} -#define s0s2krons2(in1, in2, size2, out) {int i; \ - for(i=0;i < size2[0]*size2[1];i++) out[i] = in2[i]*in1;} - -#define d2d0krond2(in1, size1, in2, out) {int i; \ - for(i=0;i < size1[0]*size1[1];i++) out[i] = in1[i]*in2;} -#define s2s0krons2(in1, in2, size2, out) {int i; \ - for(i=0;i < size2[0]*size2[1];i++) out[i] = in2[i]*in1;} - -#define d2d2krond2(in1, size1, in2, size2, out) dkrona(in1, size1[0], size1[1], \ - in2, size2[0], size2[1], out); -#define s2s2krons2(in1, size1, in2, size2, out) skrona(in1, size1[0], size1[1], \ - in2, size2[0], size2[1], out); - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_KRON_H__*/ diff --git a/interfaces/int_length.h b/interfaces/int_length.h deleted file mode 100644 index fe84a92..0000000 --- a/interfaces/int_length.h +++ /dev/null @@ -1,70 +0,0 @@ -/* -** -*- C -*- -** -** int_length.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for length in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('g0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('g0'+ArgSeparator+'d0',ClassFileName,'file','y'); - - PrintStringInfo('s2'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('g2'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('g2'+ArgSeparator+'d0',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_LENGTH_H__ -#define __INT_LENGTH_H__ - -#define s0lengths0(in) \
-slengths(in) - -#define d0lengthd0(in) \
-dlengths(in) -
-#define c0lengths0(in) \
-clengths(in) - -#define z0lengthd0(in) \
-zlengths(in) - -#define g0lengths0(in) \
-slengths(in) - -#define g0lengthd0(in) \
-dlengths(in) - -#define s2lengths0(inptr,insizeptr) \
-slengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define d2lengthd0(inptr,insizeptr) \
-dlengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define c2lengths0(inptr,insizeptr) \
-clengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define z2lengthd0(inptr,insizeptr) \
-zlengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define g2lengths0(inptr,insizeptr) \
-slengtha(inptr, insizeptr[0]*insizeptr[1]) - -#define g2lengthd0(inptr,insizeptr) \
-dlengtha(inptr, insizeptr[0]*insizeptr[1]) -#endif /* !__INT_LENGTH_H__ */ diff --git a/interfaces/int_lev.h b/interfaces/int_lev.h deleted file mode 100644 index f15f9ea..0000000 --- a/interfaces/int_lev.h +++ /dev/null @@ -1,53 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LEV_H__ -#define __INT_LEV_H__ - -#define s2levs2(in,size,out) {float sigma2;\ - sigma2=sleva2(in,size[0]*size[1],out);\ - } - -#define s2levs2s0(in,size,out) sleva2(in,size[0]*size[1],out); - -#define s2levs2s0s2(in,size,out1,out2) sleva(in,size[0]*size[1],out1,out2); - - -#define d2levd2(in,size,out) {double sigma2;\ - sigma2=dleva2(in,size[0]*size[1],out);\ - } - -#define d2levd2d0(in,size,out) dleva2(in,size[0]*size[1],out); - -#define d2levd2d0d2(in,size,out1,out2) dleva(in,size[0]*size[1],out1,out2); - - -#define c2levc2(in,size,out) {floatComplex sigma2;\ - sigma2=cleva2(in,size[0]*size[1],out);\ - } - -#define c2levc2c0(in,size,out) cleva2(in,size[0]*size[1],out); - -#define c2levc2c0c2(in,size,out1,out2) cleva(in,size[0]*size[1],out1,out2); - - -#define z2levz2(in,size,out) {doubleComplex sigma2;\ - sigma2=zleva2(in,size[0]*size[1],out);\ - } - -#define z2levz2z0(in,size,out) zleva2(in,size[0]*size[1],out); - -#define z2levz2z0z2(in,size,out1,out2) zleva(in,size[0]*size[1],out1,out2); - -#endif /* !__INT_LEV_H__ */ diff --git a/interfaces/int_levin.h b/interfaces/int_levin.h deleted file mode 100644 index b48b578..0000000 --- a/interfaces/int_levin.h +++ /dev/null @@ -1,60 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LEVIN_H__ -#define __INT_LEVIN_H__ - -/* FIXME : many malloc here */ - -#define s0s2levins2(in1,in2,size,out1,out2) {float* out2;\ - float* out3;\ - out2 = malloc((uint)*(size[1]*size[1]*in1)*sizeof(float));\ - out3 = malloc((uint)*(size[1]*size[1]*in1*(in1+1))*sizeof(float));\ - slevina (in1, in2, size[0], size[1], out1, out2, out3);\ - free(out3);\ - free(out2);\ - } - - -#define s0s2levins2(in1,in2,size,out1,out2) {double* out2;\ - double* out3;\ - out2 = malloc((uint)*(size[1]*size[1]*in1)*sizeof(double));\ - out3 = malloc((uint)*(size[1]*size[1]*in1*(in1+1))*sizeof(double));\ - slevina (in1, in2, size[0], size[1], out1, out2, out3);\ - free(out3);\ - free(out2);\ - } - - - -#define s0s2levins2s2(in1,in2,size,out1,out2) {float* out3;\ - out3 = malloc((uint)*(size[1]*size[1]*in1*(in1+1))*sizeof(float));\ - slevina (in1, in2, size[0], size[1], out1, out2, out3);\ - free(out3);\ - } - -#define d0d2levind2d2(in1,in2,size,out1,out2) {double* out3;\ - out3 = malloc((uint)*(size[1]*size[1]*in1*(in1+1))*sizeof(double));\ - dlevina (in1, in2, size[0], size[1], out1, out2, out3);\ - free(out3);\ - } - - - -#define s0s2levins2s2s2(in1,in2,size,out1,out2,out3) slevina (in1, in2, size[0], size[1], out1, out2, out3); - -#define d0d2levind2d2d2(in1,in2,size,out1,out2,out3) dlevina (in1, in2, size[0], size[1], out1, out2, out3); - - -#endif /* !__INT_LEVIN_H__ */ diff --git a/interfaces/int_linspace.h b/interfaces/int_linspace.h deleted file mode 100644 index f8af947..0000000 --- a/interfaces/int_linspace.h +++ /dev/null @@ -1,20 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_LINSPACE_H__ -#define __INT_LINSPACE_H__ - -#define d0d0d0linspaced2(in1,in2,in3,out) dlinspaces(in1,in2,in3,out) - -#define d2d2d0linspaced2(in1,size1,in2,size2,in3,out) dlinspacea(in1,size1[0],in2,in3,out) - -#endif diff --git a/interfaces/int_lnp1m1.h b/interfaces/int_lnp1m1.h deleted file mode 100644 index 0a74511..0000000 --- a/interfaces/int_lnp1m1.h +++ /dev/null @@ -1,26 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LNP1M1_H__ -#define __INT_LNP1M1_H__ - -/* -** Compute v = log ( (1 + s)/(1 - s) ) for different types . -*/ - -#define s0lnp1m1s0(in1) slnp1m1s(in1) - -#define d0lnp1m1d0(in1) dlnp1m1s(in1) - -#endif /* !__INT_LNP1M1_H__ */ diff --git a/interfaces/int_log.h b/interfaces/int_log.h deleted file mode 100644 index d7f19fe..0000000 --- a/interfaces/int_log.h +++ /dev/null @@ -1,42 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LOG_H__ -#define __INT_LOG_H__ - -#define s0logs0(in) slogs(in) - -#define s0logc0(in) clogs(FloatComplex(in,0)) - -#define d0logd0(in) dlogs(in) - -#define d0logz0(in) zlogs(DoubleComplex(in,0)) - -#define c0logc0(in) clogs(in) - -#define z0logz0(in) zlogs(in) - -#define s2logs2(in,size,out) sloga(in, size[0]*size[1], out) - -#define s2logc2(in,size,out) cloga(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2logd2(in,size,out) dloga(in, size[0]*size[1], out) - -#define d2logz2(in,size,out) zloga(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2logc2(in,size,out) cloga(in, size[0]*size[1], out) - -#define z2logz2(in,size,out) zloga(in, size[0]*size[1], out) - -#endif /* !__INT_LOG_H__ */ diff --git a/interfaces/int_log10.h b/interfaces/int_log10.h deleted file mode 100644 index 85d5dde..0000000 --- a/interfaces/int_log10.h +++ /dev/null @@ -1,42 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LOG10_H__ -#define __INT_LOG10_H__ - -#define s0log10s0(in) slog10s(in) - -#define s0log10c0(in) clog10s(FloatComplex(in,0)) - -#define d0log10d0(in) dlog10s(in) - -#define d0log10z0(in) zlog10s(DoubleComplex(in,0)) - -#define c0log10c0(in) clog10s(in) - -#define z0log10z0(in) zlog10s(in) - -#define s2log10s2(in,size,out) slog10a(in, size[0]*size[1], out) - -#define s2log10c2(in,size,out) clog10a(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2log10d2(in,size,out) dlog10a(in, size[0]*size[1], out) - -#define d2log10z2(in,size,out) zlog10a(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2log10c2(in,size,out) clog10a(in, size[0]*size[1], out) - -#define z2log10z2(in,size,out) zlog10a(in, size[0]*size[1], out) - -#endif /* !__INT_LOG10_H__ */ diff --git a/interfaces/int_log1p.h b/interfaces/int_log1p.h deleted file mode 100644 index 29f6fb3..0000000 --- a/interfaces/int_log1p.h +++ /dev/null @@ -1,41 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LOG1p1P_H__ -#define __INT_LOG1p1P_H__ - -#define s0log1ps0(in) slog1ps(in) - -#define s0log1pc0(in) clog1ps(FloatComplex(in,0)) - -#define d0log1pd0(in) dlog1ps(in) - -#define d0log1pz0(in) zlog1ps(DoubleComplex(in,0)) - -#define c0log1pc0(in) clog1ps(in) - -#define z0log1pz0(in) zlog1ps(in) - -#define s2log1ps2(in,size,out) slog1pa(in, size[0]*size[1], out) - -#define s2log1pc2(in,size,out) clog1pa(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2log1pd2(in,size,out) dlog1pa(in, size[0]*size[1], out) - -#define d2log1pz2(in,size,out) zlog1pa(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2log1pc2(in,size,out) clog1pa(in, size[0]*size[1], out) - -#define z2log1pz2(in,size,out) zlog1pa(in, size[0]*size[1], out) -#endif /* !__INT_LOG1p1P_H__ */ diff --git a/interfaces/int_logspace.h b/interfaces/int_logspace.h deleted file mode 100644 index 2c24400..0000000 --- a/interfaces/int_logspace.h +++ /dev/null @@ -1,20 +0,0 @@ -/* 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: Mushir - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_LOGSPACE_H__ -#define __INT_LOGSPACE_H__ - -#define d0d0d0logspaced2(in1,in2,in3,out) dlogspaces(in1,in2,in3,out) - -#define d2d2d0logspaced2(in1,size1,in2,size2,in3,out) dlogspacea(in1,size1[0],in2,in3,out) - -#endif diff --git a/interfaces/int_lpc2cep.h b/interfaces/int_lpc2cep.h deleted file mode 100644 index 6e6e719..0000000 --- a/interfaces/int_lpc2cep.h +++ /dev/null @@ -1,27 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_LPC2CEP_H__ -#define __INT_LPC2CEP_H__ - - -#define s2lpc2ceps2(in,size,out) slpc2cepa(in, size[0]*size[1], out) - -#define d2lpc2cepd2(in,size,out) dlpc2cepa(in, size[0]*size[1], out) - -#define c2lpc2cepc2(in,size,out) clpc2cepa(in, size[0]*size[1], out) - -#define z2lpc2cepz2(in,size,out) zlpc2cepa(in, size[0]*size[1], out) - -#endif /* !__INT_LPC2CEP_H__ */ diff --git a/interfaces/int_lqe.h b/interfaces/int_lqe.h deleted file mode 100644 index d801bf3..0000000 --- a/interfaces/int_lqe.h +++ /dev/null @@ -1,25 +0,0 @@ - /* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_LQE_H__ -#define __INT_LQE_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define ss2lqed2d2(in1,size1,out1,out2) dlqea(in1,size1[0],size1[1],out1,out2); - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_LQE_H__*/ diff --git a/interfaces/int_lqr.h b/interfaces/int_lqr.h deleted file mode 100644 index e6f534f..0000000 --- a/interfaces/int_lqr.h +++ /dev/null @@ -1,25 +0,0 @@ - /* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_LQR_H__ -#define __INT_LQR_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define ss2lqrd2d2(in1,size1,out1,out2) dlqra(in1,size1[0],size1[1],out1,out2); - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_LQR_H__*/ diff --git a/interfaces/int_max.h b/interfaces/int_max.h deleted file mode 100644 index 0dc0eef..0000000 --- a/interfaces/int_max.h +++ /dev/null @@ -1,53 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Arnaud Torset - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_MAX_H__ -#define __INT_MAX_H__ - -#define s0maxs0(in) in - -#define d0maxd0(in) in - -#define s2maxs0(in,size) smaxa(in,size[0]*size[1]); - -#define d2maxd0(in,size) dmaxa(in,size[0]*size[1]); - - - -#define s0s0maxs0(in1,in2) max(in1,in2) - -#define d0d0maxd0(in1,in2) max(in1,in2) - -#define s2s2maxs2(in1,size1,in2,size2,out) maxa(in1, size1, in2, size2, out) - -#define d2d2maxd2(in1,size1,in2,size2,out) maxa(in1, size1, in2, size2, out) - - -#define s2s0maxs2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=max(in1[i],in2);\ - } - -#define d2d0maxd2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=max(in1[i],in2);\ - } - -#define s0s2maxs2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=max(in1,in2[i]);\ - } - -#define d0d2maxd2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=max(in1,in2[i]);\ - } - -#endif /* !__INT_MAX_H__ */ diff --git a/interfaces/int_mean.h b/interfaces/int_mean.h deleted file mode 100644 index d1d301c..0000000 --- a/interfaces/int_mean.h +++ /dev/null @@ -1,71 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_MEAN_H__ -#define __INT_MEAN_H__ - -#define s0means0(in) smeans(in) - -#define d0meand0(in) dmeans(in) - -#define c0meanc0(in) cmeans(in) - -#define z0meanz0(in) zmeans(in) - -#define s2means0(in,size) smeana(in, size[0]*size[1]) - -#define d2meand0(in,size) dmeana(in, size[0]*size[1]) - -#define c2meanc0(in,size) cmeana(in, size[0]*size[1]) - -#define z2meanz0(in,size) zmeana(in, size[0]*size[1]) - - -#define s0s0means0(in1,in2) (in2==1) ? srowmeans(in1) : scolumnmeans(in1) - -#define d0d0meand0(in1,in2) (in2==1) ? drowmeans(in1) : dcolumnmeans(in1) - -#define c0s0meanc0(in1,in2) (in2==1) ? crowmeans(in1) : ccolumnmeans(in1) - -#define z0d0meanz0(in1,in2) (in2==1) ? zrowmeans(in1) : zcolumnmeans(in1) - -#define s2s0means2(in1,size,in2,out) (in2==1) ? srowmeana(in1,size[0],size[1],out) : scolumnmeana(in1,size[0],size[1],out) - -#define d2d0meand2(in1,size,in2,out) (in2==1) ? drowmeana(in1,size[0],size[1],out) : dcolumnmeana(in1,size[0],size[1],out) - -#define c2s0meanc2(in1,size,in2,out) (in2==1) ? crowmeana(in1,size[0],size[1],out) : ccolumnmeana(in1,size[0],size[1],out) - -#define z2d0meanz2(in1,size,in2,out) (in2==1) ? zrowmeana(in1,size[0],size[1],out) : zcolumnmeana(in1,size[0],size[1],out) - - /*'r' and 'c' case */ -#define s0g2means0(in1,in2,size2) (in2[0]=='r') ? srowmeans(in1) : scolumnmeans(in1) - -#define d0g2meand0(in1,in2,size2) (in2[0]=='r') ? drowmeans(in1) : dcolumnmeans(in1) - -#define c0g2meanc0(in1,in2,size2) (in2[0]=='r') ? crowmeans(in1) : ccolumnmeans(in1) - -#define z0g2meanz0(in1,in2,size2) (in2[0]=='r') ? zrowmeans(in1) : zcolumnmeans(in1) - -#define s2g2means2(in1,size,in2,size2,out) (in2[0]=='r') ? srowmeana(in1,size[0],size[1],out) : scolumnmeana(in1,size[0],size[1],out) - -#define d2g2meand2(in1,size,in2,size2,out) (in2[0]=='r') ? drowmeana(in1,size[0],size[1],out) : dcolumnmeana(in1,size[0],size[1],out) - -#define c2g2meanc2(in1,size,in2,size2,out) (in2[0]=='r') ? crowmeana(in1,size[0],size[1],out) : ccolumnmeana(in1,size[0],size[1],out) - -#define z2g2meanz2(in1,size,in2,size2,out) (in2[0]=='r') ? zrowmeana(in1,size[0],size[1],out) : zcolumnmeana(in1,size[0],size[1],out) - - - - -#endif /* !__INT_MEAN_H__ */ diff --git a/interfaces/int_meanf.h b/interfaces/int_meanf.h deleted file mode 100644 index c7fb4da..0000000 --- a/interfaces/int_meanf.h +++ /dev/null @@ -1,183 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Allan SIMON - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_MEANF_H__ -#define __INT_MEANF_H__ - -#define s0s0meanfs0(in1,in2) smeanfs(in1,in2) - -#define d0d0meanfd0(in1,in2) dmeanfs(in1,in2) - -#define c0s0meanfc0(in1,in2) cmeanfs(in1,FloatComplex(in2 , 0.0f)) - -#define z0d0meanfz0(in1,in2) zmeanfs(in1,DoubleComplex(in2, 0.0)) - -#define s2s2meanfs0(in1, size1, in2, size2) smeanfa(in1, size1[0]*size1[1], in2) - -#define d2d2meanfd0(in1, size1, in2, size2) dmeanfa(in1, size1[0]*size1[1], in2) - -#define c2s2meanfc0(in1, size1, in2, size2) cmeanfcs(in1, size1[0], size1[1], in2) - -#define z2d2meanfz0(in1, size1, in2, size2) zmeanfzd(in1, size1[0], size1[1], in2) - - -/*by rows or columns */ - -#define s0s0s0meanfs0(in1,in2,in3) (in3==1) ? srowmeanfs(in1,in2) : scolumnmeanfs(in1,in2) - -#define d0d0d0meanfd0(in1,in2,in3) (in3==1) ? drowmeanfs(in1,in2) : dcolumnmeanfs(in1,in2) - -#define c0s0s0meanfc0(in1,in2,in3) (in3==1) ? crowmeanfs(in1,FloatComplex(in2 , 0.0f)) : ccolumnmeanfs(in1,FloatComplex(in2 , 0.0f)) - -#define z0d0d0meanfz0(in1,in2,in3) (in3==1) ? zrowmeanfs(in1,DoubleComplex(in2, 0.0)) : zcolumnmeanfs(in1,DoubleComplex(in2, 0.0)) - - -#define s2s2s0meanfs2(in1, size1, in2, size2,in3,out) (in3==1) ? srowmeanfa(in1,size1[0],size1[1],in2,out) : scolumnmeanfa(in1,size1[0],size1[1],in2,out) - -#define d2d2d0meanfd2(in1, size1, in2, size2,in3,out) (in3==1) ? drowmeanfa(in1,size1[0],size1[1],in2,out) : dcolumnmeanfa(in1,size1[0],size1[1],in2,out) - - - - - -#define c2s2s0meanfc2(in1, size1, in2, size2,in3,out) if (in3==1) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - crowmeanfa(in1,size1[0],size1[1],FloatComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - }\ - else\ - {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - ccolumnmeanfa(in1,size1[0],size1[1],FloatComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - } - -#define z2d2d0meanfz2(in1, size1, in2, size2,in3,out) if (in3==1) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zrowmeanfa(in1,size1[0],size1[1],DoubleComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - }\ - else\ - {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zcolumnmeanfa(in1,size1[0],size1[1],DoubleComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - } - - -/**/ - - -#define s0c0meanfs0(in1,in2) creals (cmeanfs(FloatComplex(in1 , 0.0f),in2)) -#define s0c0meanfc0(in1,in2) cmeanfs(FloatComplex(in1 , 0.0f),in2) - -#define d0z0meanfd0(in1,in2) zreals(zmeanfs(DoubleComplex(in1, 0.0 ),in2)) -#define d0z0meanfz0(in1,in2) zmeanfs(DoubleComplex(in1, 0.0 ),in2) - -#define c0c0meanfc0(in1,in2) cmeanfs(in1,in2) - -#define z0z0meanfz0(in1,in2) zmeanfs(in1,in2) - - -#define s2c2meanfs0(in1, size1, in2, size2) creals (cmeanfsc(in1, size1[0],size1[1], in2)) -#define s2c2meanfc0(in1, size1, in2, size2) cmeanfsc(in1, size1[0],size1[1], in2) - -#define d2z2meanfd0(in1, size1, in2, size2) zreals(zmeanfdz(in1, size1[0],size1[1], in2)) -#define d2z2meanfz0(in1, size1, in2, size2) zmeanfdz(in1, size1[0],size1[1], in2) - -#define c2c2meanfc0(in1, size1, in2, size2) cmeanfa(in1, size1[0]* size1[1], in2) - -#define z2z2meanfz0(in1, size1, in2, size2) zmeanfa(in1, size1[0]* size1[1], in2) - - -/*by rows or columns */ - -#define s0c0s0meanfs0(in1,in2,in3) (in3==1) ? crowmeanfs(FloatComplex(in1, 0.0f),in2) : ccolumnmeanfs(FloatComplex(in1, 0.0f),in2) - -#define d0z0d0meanfd0(in1,in2,in3) (in3==1) ? zrowmeanfs(DoubleComplex(in1, 0.0),in2) : zcolumnmeanfs(DoubleComplex(in1, 0.0),in2) - -#define c0c0s0meanfc0(in1,in2,in3) (in3==1) ? crowmeanfs(in1,in2) : ccolumnmeanfs(in1,in2) - -#define z0z0d0meanfz0(in1,in2,in3) (in3==1) ? zrowmeanfs(in1,in2) : zcolumnmeanfs(in1,in2) - - -#define s2c2s0meanfs2(in1, size1, in2, size2,in3,out) if (in3==1) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - crowmeanfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - }\ - else\ - {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - ccolumnmeanfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - } - -#define d2z2d0meanfd2(in1, size1, in2, size2,in3,out) if (in3==1) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zrowmeanfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - }\ - else\ - {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zcolumnmeanfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - } - -/*complex output*/ -#define s2c2s0meanfc2(in1, size1, in2, size2,in3,out) if (in3==1) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - crowmeanfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - }\ - else\ - {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - ccolumnmeanfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - } - -#define d2z2d0meanfz2(in1, size1, in2, size2,in3,out) if (in3==1) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zrowmeanfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - }\ - else\ - {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zcolumnmeanfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - } - - - -#define c2c2s0meanfc2(in1, size1, in2, size2,in3,out) (in3==1) ? crowmeanfa(in1,size1[0],size1[1],in2,out) : ccolumnmeanfa(in1,size1[0],size1[1],in2,out) - -#define z2z2d0meanfz2(in1, size1, in2, size2,in3,out) (in3==1) ? zrowmeanfa(in1,size1[0],size1[1],in2,out) : zcolumnmeanfa(in1,size1[0],size1[1],in2,out) - - -#endif /* !__INT_MEANF_H__ */ diff --git a/interfaces/int_min.h b/interfaces/int_min.h deleted file mode 100644 index ec48da7..0000000 --- a/interfaces/int_min.h +++ /dev/null @@ -1,53 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Arnaud Torset - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_MIN_H__ -#define __INT_MIN_H__ - -#define s0mins0(in) in - -#define d0mind0(in) in - -#define s2mins0(in,size) smina(in,size[0]*size[1]); - -#define d2mind0(in,size) dmina(in,size[0]*size[1]); - - - -#define s0s0mins0(in1,in2) min(in1,in2) - -#define d0d0mind0(in1,in2) min(in1,in2) - -#define s2s2mins2(in1,size1,in2,size2,out) mina(in1, size1, in2, size2, out) - -#define d2d2mind2(in1,size1,in2,size2,out) mina(in1, size1, in2, size2, out) - - -#define s2s0mins2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=min(in1[i],in2);\ - } - -#define d2d0mind2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=min(in1[i],in2);\ - } - -#define s0s2mins2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=min(in1,in2[i]);\ - } - -#define d0d2mind2(in1,in2,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=min(in1,in2[i]);\ - } - -#endif /* !__INT_MIN_H__ */ diff --git a/interfaces/int_norm.h b/interfaces/int_norm.h deleted file mode 100644 index a42a675..0000000 --- a/interfaces/int_norm.h +++ /dev/null @@ -1,53 +0,0 @@ - /* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ - -#ifndef __INT_NORM_H__ -#define __INT_NORM_H__ - -#include "statMax.h" - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0normd0(in) in -#define s0norms0(in) in - -#define d2normd0(in,size,out) ((size[0] == 1) || (size[1]==1))? \ - dnormv(in, size[0]*size[1], 2): \ - dnorma(in, size[0], size[1], 2) - -#define s2norms0(in,size,out) ((size[0] == 1) || (size[1]==1))? \ - snormv(in, size[0]*size[1], 2): \ - snorma(in, size[0], size[1], 2) - -#define d2d0normd0(in,size,norm) ((size[0] == 1) || (size[1]==1))? \ - dnormv(in,size[0]*size[1],norm) : \ - dnorma(in,size[0],size[1],norm) - -#define s2s0norms0(in,size,norm) ((size[0] == 1) || (size[1]==1))? \ - snormv(in,size[0]*size[1],norm) : \ - snorma(in,size[0],size[1],norm) - -#define d2g2normd0(in,size,norm,normsize) ((size[0] == 1) || (size[1]==1))? \ - (norm[0]=='i') ? dmaxa(in,size[0]*size[1]) : dnormv(in,size[0]*size[1],2) : \ - (norm[0]=='i') ? dnorma(in,size[0],size[1],3) : dnorma(in,size[0],size[1],4) - -#define s2g2norms0(in,size,norm,normsize) ((size[0] == 1) || (size[1]==1))? \ - (norm[0]=='i') ? smaxa(in,size[0]*size[1]) : snormv(in,size[0]*size[1],2) : \ - (norm[0]=='i') ? snorma(in,size[0],size[1],3) : snorma(in,size[0],size[1],4) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_NORM_H__*/ diff --git a/interfaces/int_obscont.h b/interfaces/int_obscont.h deleted file mode 100644 index fd3a823..0000000 --- a/interfaces/int_obscont.h +++ /dev/null @@ -1,29 +0,0 @@ - /* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_OBSCONT_H__ -#define __INT_OBSCONT_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define ss2d2d2obscontd2(in1,size1,in2,size2,in3,size3,out) \ - dobsconta(in1,size1[0],size1[1],in2,in3,out,NULL) - -#define ss2d2d2obscontd2d2(in1,size1,in2,size2,in3,size3,out1,out2) \ - dobsconta(in1,size1[0],size1[1],in2,in3,out1,out2) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_OBSCONT_H__*/ diff --git a/interfaces/int_oct2dec.h b/interfaces/int_oct2dec.h deleted file mode 100644 index 0f5d1f2..0000000 --- a/interfaces/int_oct2dec.h +++ /dev/null @@ -1,35 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_oct2dec_H__ -#define __INT_oct2dec_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0oct2decd0(in) doct2decs(in) -#define i80oct2deci80(in) i8oct2decs(in) -#define i160oct2deci160(in) i16oct2decs(in) -#define u80oct2decu80(in) u8oct2decs(in) -#define u160oct2decu160(in) u16oct2decs(in) - -#define d2oct2decd2(in,size,out) doct2deca(in,size[0]*size[1],out) -#define i82oct2deci82(in,size,out) i8oct2deca(in,size[0]*size[1],out) -#define i162oct2deci162(in,size,out) i16oct2deca(in,size[0]*size[1],out) -#define u82oct2decu82(in,size,out) u8oct2deca(in,size[0]*size[1],out) -#define u162oct2decu162(in,size,out) u16oct2deca(in,size[0]*size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_oct2dec_H__*/ diff --git a/interfaces/int_ode.h b/interfaces/int_ode.h deleted file mode 100644 index 51764ea..0000000 --- a/interfaces/int_ode.h +++ /dev/null @@ -1,68 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_ODE_H__ -#define __INT_ODE_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0d0d0fn0oded0(in1, in2, in3, func_name) dodes(in1, in2, in3, \ - func_name, "rkf",1, 1.0e-2, 1.0e-2, 1.0e-6, NULL) - -#define d2d0d0fn0oded2(in1, size1, in2, in3, func_name, out) dodea(in1, \ - in2, in3, func_name, "rkf",size1[1], 1.0e-2, 1.0e-2, \ - 1.0e-6, size1, out) - -#define d0d0d2fn0oded2(in1, in2, in3, size3, func_name, out) dodea(in1, in2, \ - in3, func_name, "rkf", 1, 1.0e-2, 1.0e-2, 1.0e-6, size3, out) - -#define d2d0d2fn0oded2(in1, size1, in2, in3, size3, func_name, out) dodea(in1, \ - in2, in3, func_name, "rkf",size1[1], 1.0e-2, 1.0e-2, \ - 1.0e-6, size1, out) - -#define g2d0d0d0fn0oded0(solvertype, typesize, in1, in2, in3, func_name) dodes(in1, in2, in3, \ - func_name, solvertype, 1, 1.0e-2, 1.0e-2, 1.0e-6, NULL) - -#define g2d2d0d0fn0oded2(solvertype, typesize, in1, size1, in2, in3, func_name, out) \ - dodea(in1, in2, in3, func_name, solvertype, size1[1], \ - 1.0e-2, 1.0e-2, 1.0e-6, size1, out) - -#define g2d0d0d2fn0oded2(solvertype, typesize, in1, in2, in3, size3, func_name, out) \ - dodea(in1, in2, in3, func_name, solvertype,1, 1.0e-2, 1.0e-2, \ - 1.0e-6, size3, out) - -#define g2d2d0d2fn0oded2(solvertype, typesize, in1, size1, in2, in3, size3, func_name, out) dodea(in1, \ - in2, in3, func_name, solvertype, size1[1], 1.0e-2, 1.0e-2, \ - 1.0e-6, size1, out) - -#define d0d0d0d0d0fn0oded0(in1, in2, in3, in4, in5, func_name) \ - dodes(in1, in2, in3, func_name, "rkf",1, in5, in4, 1.0e-6, NULL) - -#define d2d0d0d0d0fn0oded2(in1, size1, in2, in3, in4, in5, func_name, out) \ - dodea(in1, in2, in3, func_name, "rkf", size1[1], in5, in4, \ - 1.0e-6, size1, out) - -#define d0d0d2d0d0fn0oded2(in1, in2, in3, size3, in4, in5, func_name, out) \ - dodea(in1, in2, in3, func_name, "rkf", 1, in5, in4, 1.0e-6, size3, out) - -#define d2d0d2d0d0fn0oded2(in1, size1, in2, in3, size3, in4, in5, func_name, out) \ - dodea(in1, in2, in3, func_name, "rkf", size1[1], in5, in4, \ - 1.0e-6, size1, out) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - - -#endif /*__INT_ODE_H__*/
\ No newline at end of file diff --git a/interfaces/int_ones.h b/interfaces/int_ones.h deleted file mode 100644 index e266ee5..0000000 --- a/interfaces/int_ones.h +++ /dev/null @@ -1,87 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ONES_H__ -#define __INT_ONES_H__ - - -#define oness0() 1.0f - -#define onesd0() 1 - -#define onesu80() (uint8)1 - -#define onesi80() (int8)1 - -#define onesu160() (uint16)1 - -#define onesi160() (int16)1 - -#define s0oness0(in) soness(in) - -#define d0onesd0(in) doness(in) - -#define c0onesc0(in) coness(in) - -#define z0onesz0(in) zoness(in) - -#define u80onesu80(in) u8oness(in) - -#define i80onesi80(in) i8oness(in) - -#define u160onesu160(in) u16oness(in) - -#define i160onesi160(in) i16oness(in) - -#define s0s0oness0(in1,in2) 1.0f - -#define d0d0onesd0(in,in2) 1 - -#define u80u80onesu80(in1,in2) (uint8)1 - -#define i80i80onesi80(in1,in2) (int8)1 - -#define u160u160onesu160(in1,in2) (uint16)1 - -#define i160i160onesi160(in1,in2) (int16)1 - -#define s0s0oness2(in1,in2,out) sonesa(out, in1, in2) - -#define d0d0onesd2(in1,in2,out) donesa(out, in1, in2) - -#define u80u80onesu82(in1,in2,out) u8onesa(out, in1, in2) - -#define i80i80onesi82(in1,in2,out) i8onesa(out, in1, in2) - -#define u160u160onesu162(in1,in2,out) u16onesa(out, in1, in2) - -#define i160i160onesi162(in1,in2,out) i16onesa(out, in1, in2) - -#define s2oness2(in,size,out) sonesa(out, size[0], size[1]) - -#define d2onesd2(in,size,out) donesa(out, size[0], size[1]) - -#define c2onesc2(in,size,out) conesa(out, size[0], size[1]) - -#define z2onesz2(in,size,out) zonesa(out, size[0], size[1]) - -#define u82onesu82(in,size,out) u8onesa(out, size[0], size[1]) - -#define i82onesi82(in,size,out) i8onesa(out, size[0], size[1]) - -#define u162onesu162(in,size,out) u16onesa(out, size[0], size[1]) - -#define i162onesi162(in,size,out) i16onesa(out, size[0], size[1]) - -#endif /* !__INT_ONES_H__ */ diff --git a/interfaces/int_permute.h b/interfaces/int_permute.h deleted file mode 100644 index 66049ac..0000000 --- a/interfaces/int_permute.h +++ /dev/null @@ -1,28 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_PERMUTE_H__ -#define __INT_PERMUTE_H__ - - -#ifdef __cplusplus -#extern "C" { -#endif - -#define d2d2permuted2(in1, size1, in2, size2, out) (if(in2[0]==1)?in1: \ - dtransposea(in1, size1[0],size1[1],out)) - -#ifdef __cplusplus -#} /* extern "C" */ -#endif - -#endif /*__INT_FLIPDIM_H__*/ diff --git a/interfaces/int_pow.h b/interfaces/int_pow.h deleted file mode 100644 index 39f5e1a..0000000 --- a/interfaces/int_pow.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_OPDOTHAT_H__ -#define __INT_OPDOTHAT_H__ - -#define s0s0OpDotHats0(in1, in2) spows(in1, in2) - -#define d0d0OpDotHatd0(in1, in2) dpows(in1, in2) - -#define c0c0OpDotHatc0(in1, in2) cpows(in1, in2) - -#define z0z0OpDotHatz0(in1, in2) zpows(in1, in2) - -#define s2s0OpDotHats2(in1, size, in2, out) spowa(in1, size[0]*size[1], in2, out) - -#define d2d0OpDotHatd2(in1, size, in2, out) dpowa(in1, size[0]*size[1], in2, out) - -#define c2c0OpDotHatc2(in1, size, in2, out) cpowa(in1, size[0]*size[1], in2, out) - -#define z2z0OpDotHatz2(in1, size, in2, out) zpowa(in1, size[0]*size[1], in2, out) - -#endif /* !__INT_OPDOTHAT_H__ */ diff --git a/interfaces/int_primes.h b/interfaces/int_primes.h deleted file mode 100644 index d48a683..0000000 --- a/interfaces/int_primes.h +++ /dev/null @@ -1,29 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_PRIMES_H__ -#define __INT_PRIMES_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d0primesd2(in,out) dprimess(in,out) -#define s0primess2(in,out) sprimess(in,out) - - - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_PRIMES_H__*/ diff --git a/interfaces/int_prod.h b/interfaces/int_prod.h deleted file mode 100644 index dfec854..0000000 --- a/interfaces/int_prod.h +++ /dev/null @@ -1,71 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_PROD_H__ -#define __INT_PROD_H__ - -#define s0prods0(in) sprods(in) - -#define d0prodd0(in) dprods(in) - -#define c0prodc0(in) cprods(in) - -#define z0prodz0(in) zprods(in) - -#define s2prods0(in,size) sproda(in, size[0]*size[1]) - -#define d2prodd0(in,size) dproda(in, size[0]*size[1]) - -#define c2prodc0(in,size) cproda(in, size[0]*size[1]) - -#define z2prodz0(in,size) zproda(in, size[0]*size[1]) - - -#define s0s0prods0(in1,in2) (in2==1) ? srowprods(in1) : scolumnprods(in1) - -#define d0d0prodd0(in1,in2) (in2==1) ? drowprods(in1) : dcolumnprods(in1) - -#define c0s0prodc0(in1,in2) (in2==1) ? crowprods(in1) : ccolumnprods(in1) - -#define z0d0prodz0(in1,in2) (in2==1) ? zrowprods(in1) : zcolumnprods(in1) - -#define s2s0prods2(in1,size,in2,out) (in2==1) ? srowproda(in1,size[0],size[1],out) : scolumnproda(in1,size[0],size[1],out) - -#define d2d0prodd2(in1,size,in2,out) (in2==1) ? drowproda(in1,size[0],size[1],out) : dcolumnproda(in1,size[0],size[1],out) - -#define c2s0prodc2(in1,size,in2,out) (in2==1) ? crowproda(in1,size[0],size[1],out) : ccolumnproda(in1,size[0],size[1],out) - -#define z2d0prodz2(in1,size,in2,out) (in2==1) ? zrowproda(in1,size[0],size[1],out) : zcolumnproda(in1,size[0],size[1],out) - - /*'r' and 'c' case */ -#define s0g2prods0(in1,in2,size2) (in2[0]=='r') ? srowprods(in1) : scolumnprods(in1) - -#define d0g2prodd0(in1,in2,size2) (in2[0]=='r') ? drowprods(in1) : dcolumnprods(in1) - -#define c0g2prodc0(in1,in2,size2) (in2[0]=='r') ? crowprods(in1) : ccolumnprods(in1) - -#define z0g2prodz0(in1,in2,size2) (in2[0]=='r') ? zrowprods(in1) : zcolumnprods(in1) - -#define s2g2prods2(in1,size,in2,size2,out) (in2[0]=='r') ? srowproda(in1,size[0],size[1],out) : scolumnproda(in1,size[0],size[1],out) - -#define d2g2prodd2(in1,size,in2,size2,out) (in2[0]=='r') ? drowproda(in1,size[0],size[1],out) : dcolumnproda(in1,size[0],size[1],out) - -#define c2g2prodc2(in1,size,in2,size2,out) (in2[0]=='r') ? crowproda(in1,size[0],size[1],out) : ccolumnproda(in1,size[0],size[1],out) - -#define z2g2prodz2(in1,size,in2,size2,out) (in2[0]=='r') ? zrowproda(in1,size[0],size[1],out) : zcolumnproda(in1,size[0],size[1],out) - - - - -#endif /* !__INT_PROD_H__ */ diff --git a/interfaces/int_pythag.h b/interfaces/int_pythag.h deleted file mode 100644 index 67f559a..0000000 --- a/interfaces/int_pythag.h +++ /dev/null @@ -1,27 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_PYTHAG_H__ -#define __INT_PYTHAG_H__ - -#define s0s0pythags0(in1,in2) spythags(in1,in2) - -#define d0d0pythagd0(in1,in2) dpythags(in1,in2) - -#define c0c0pythagc0(in1,in2) cpythags(in1,in2) - -#define z0z0pythagz0(in1,in2) zpythags(in1,in2) - - -#endif /* !__INT_PYTHAG_H__ */ diff --git a/interfaces/int_rand.h b/interfaces/int_rand.h deleted file mode 100644 index 85d08ea..0000000 --- a/interfaces/int_rand.h +++ /dev/null @@ -1,94 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_RAND_H__ -#define __INT_RAND_H__ - - -#define rands0() srands() - -#define randd0() drands() - -#define randu80() u8rands() - -#define randu160() u16rands() - -#define randi80() i8rands() - -#define randi160() i16rands() - - - -#define s0rands0(in) srands() - -#define d0randd0(in) drands() - -#define c0randc0(in) crands() - -#define z0randz0(in) zrands() - -#define u80randd0(in) u8rands() - -#define u160randd0(in) u16rands() - -#define i80randd0(in) i8rands() - -#define i160randd0(in) i16rands() - - -#define s0s0rands0(in1,in2) srands() - -#define d0d0randd0(in,in2) drands() - -#define u80u80randd0(in1,in2) u8rands() - -#define u160u160randd0(in1,in2) u16rands() - -#define i80i80randd0(in1,in2) i8rands() - -#define i160i160randd0(in1,in2) i16rands() - - -#define s0s0rands2(in1,in2,out) sranda(out,(int)in1*(int)in2) - -#define d0d0randd2(in1,in2,out) dranda(out,(int)in1*(int)in2) - -#define u80u80randd2(in1,in2,out) u8randa(out,(int)in1*(int)in2) - -#define u160u160randd2(in1,in2,out) u16randa(out,(int)in1*(int)in2) - -#define i80i80randd2(in1,in2,out) i8randa(out,(int)in1*(int)in2) - -#define i160i160randd2(in1,in2,out) i16randa(out,(int)in1*(int)in2) - -#define s2rands2(in,size,out) sranda(out, size[0]*size[1]) - -#define d2randd2(in,size,out) dranda(out, size[0]*size[1]) - -#define c2randc2(in,size,out) cranda(out, size[0]*size[1]) - -#define z2randz2(in,size,out) zranda(out, size[0]*size[1]) - -#define u82randd2(in,size,out) u8randa(out, size[0]*size[1]) - -#define u162randd2(in,size,out) u16randa(out, size[0]*size[1]) - -#define i82randd2(in,size,out) i8randa(out, size[0]*size[1]) - -#define i62randd2(in,size,out) i16randa(out, size[0]*size[1]) - - - - -#endif /* !__INT_RAND_H__ */ diff --git a/interfaces/int_rcond.h b/interfaces/int_rcond.h deleted file mode 100644 index 6e6a445..0000000 --- a/interfaces/int_rcond.h +++ /dev/null @@ -1,25 +0,0 @@ - /* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_RCOND_H__ -#define __INT_RCOND_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define d2rcondd0(in1,size1) drconda(in1,size1[0]) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_RCOND_H__*/ diff --git a/interfaces/int_real.h b/interfaces/int_real.h deleted file mode 100644 index ce097ec..0000000 --- a/interfaces/int_real.h +++ /dev/null @@ -1,61 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Arnaud Torset - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_REAL_H__ -#define __INT_REAL_H__ - -#define s0reals0(in) in - -#define d0reald0(in) in - -#define c0reals0(in) creals(in) - -#define z0reald0(in) zreals(in) - -#define u80realu80(in) in - -#define i80reali80(in) in - -#define u160realu160(in) in - -#define i160reali160(in) in - -#define s2reals2(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\ - } - -#define d2reald2(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\ - } - -#define c2reals2(in,size,out) creala(in, size[0]*size[1],out) - -#define z2reald2(in,size,out) zreala(in, size[0]*size[1],out) - -#define u82realu82(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\ - } - -#define i82reali82(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\ - } -#define u162realu162(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\ - } - -#define i162reali162(in,size,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\ - } - -#endif /* !__INT_REAL_H__ */ diff --git a/interfaces/int_round.h b/interfaces/int_round.h deleted file mode 100644 index 7d013c1..0000000 --- a/interfaces/int_round.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ROUND_H__ -#define __INT_ROUND_H__ - -#define s0rounds0(in) srounds(in) - -#define d0roundd0(in) drounds(in) - -#define c0roundc0(in) crounds(in) - -#define z0roundz0(in) zrounds(in) - -#define u80roundu80(in) u8rounds(in) - -#define i80roundi80(in) i8rounds(in) - -#define u160roundu160(in) u16rounds(in) - -#define i160roundi160(in) i16rounds(in) - -#define s2rounds2(in,size,out) srounda(in, size[0]*size[1], out) - -#define d2roundd2(in,size,out) drounda(in, size[0]*size[1], out) - -#define c2roundc2(in,size,out) crounda(in, size[0]*size[1], out) - -#define z2roundz2(in,size,out) zrounda(in, size[0]*size[1], out) - -#define u82roundu82(in,size,out) u8rounda(in, size[0]*size[1], out) - -#define i82roundi82(in,size,out) i8rounda(in, size[0]*size[1], out) - -#define u162roundu162(in,size,out) u16rounda(in, size[0]*size[1], out) - -#define i162roundi162(in,size,out) i16rounda(in, size[0]*size[1], out) - -#endif /* !__INT_ROUND_H__ */ diff --git a/interfaces/int_schur.h b/interfaces/int_schur.h deleted file mode 100644 index 81324e6..0000000 --- a/interfaces/int_schur.h +++ /dev/null @@ -1,60 +0,0 @@ - /* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_SCHUR_H__ -#define __INT_SCHUR_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define d2schurd2(in1,size1,out1) dschura(in1,size1[0],0,1,out1,NULL) - -#define d2schurd2d2(in1,size1,out1,out2) dschura(in1,size1[0],0,2,out1,out2) - -#define d2g2schurd2(in1,size1,in2,size2,out1) (in2[0]=='c')? \ - dschura(in1,size1[0],1,1,out1,NULL): \ - dschura(in1,size1[0],2,1,out1,NULL) - -#define d2g2schurd2d0(in1,size1,in2,size2,out1) (in2[0]=='c')? \ - dschura(in1,size1[0],1,2,out1,NULL): \ - dschura(in1,size1[0],2,2,out1,NULL) - -#define d2g2schurd2d0d2(in1,size1,in2,size2,out1,out2) (in2[0]=='c')? \ - dschura(in1,size1[0],1,3,out1,out2): \ - dschura(in1,size1[0],2,3,out1,out2) - -#define d2d2schurd2d2(in1,size1,in2,size2,out1,out2) dgschura(in1,size1[0], \ - in2,0,2,out1,out2,NULL,NULL) - -#define d2d2schurd2d2d2d2(in1,size1,in2,size2,out1,out2,out3,out4) \ - dgschura(in1,size1[0],in2,0,4,out1,out2,out3,out4) - -#define d2d2g2schurd0(in1,size1,in2,size2,in3,size3) dgschura(in1,size1[0], \ - in2,1,1,NULL,NULL,NULL,NULL) - -#define d2d2g2schurd2d0(in1,size1,in2,size2,in3,size3,out1) \ - dgschura(in1,size1[0],in2,1,2,out1,NULL,NULL,NULL) - -#define d2d2g2schurd2d2d0(in1,size1,in2,size2,in3,size3,out1,out2) \ - dgschura(in1,size1[0],in2,1,3,out1,out2,NULL,NULL) - -#define d2d2g2schurd2d2d2d0(in1,size1,in2,size2,in3,size3,out1,out2,out3) \ - dgschura(in1,size1[0],in2,1,4,out1,out2,out3,NULL) - -#define d2d2g2schurd2d2d2d2d0(in1,size1,in2,size2,in3,size3,out1,out2,out3, \ - out4) dgschura(in1,size1[0],in2,1,5,out1,out2,out3,out4) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_SCHUR_H__*/ diff --git a/interfaces/int_sec.h b/interfaces/int_sec.h deleted file mode 100644 index b07cdfc..0000000 --- a/interfaces/int_sec.h +++ /dev/null @@ -1,34 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_SEC_H__ -#define __INT_SEC_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2secd2(in,size,out) dseca(in,size[1],out) -#define d0secd0(in) dsecs(in) -#define s2secs2(in,size,out) sseca(in,size[1],out) -#define s0secs0(in) ssecs(in) - -#define z2secz2(in,size,out) zseca(in,size[1],out) -#define z0secz0(in) zsecs(in) -#define c2secc2(in,size,out) cseca(in,size[1],out) -#define c0secc0(in) csecs(in) - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_SEC__*/ diff --git a/interfaces/int_secd.h b/interfaces/int_secd.h deleted file mode 100644 index 9304eb0..0000000 --- a/interfaces/int_secd.h +++ /dev/null @@ -1,28 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_SECD_H__ -#define __INT_SECD_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2secdd2(in,size,out) dsecda(in,size[1],out) -#define d0secdd0(in) dsecds(in) -#define s2secds2(in,size,out) ssecda(in,size[1],out) -#define s0secds0(in) ssecds(in) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_SECD_H__*/ diff --git a/interfaces/int_sech.h b/interfaces/int_sech.h deleted file mode 100644 index 1cd4221..0000000 --- a/interfaces/int_sech.h +++ /dev/null @@ -1,32 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_SECH_H__ -#define __INT_SECH_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define d2sechd2(in,size,out) dsecha(in,size[1],out) -#define s2sechs2(in,size,out) ssecha(in,size[1],out) -#define d0sechd0(in) dsechs(in) -#define s0sechs0(in) ssechs(in) -#define z0sechz0(in) zsechs(in) -#define z2sechz2(in,size,out) zsechs(in,size[1],out) -#define c0sechc0(in) csechs(in) -#define c2sechc2(in,size,out) csechs(in,size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_SECH_H__*/ diff --git a/interfaces/int_sign.h b/interfaces/int_sign.h deleted file mode 100644 index 1003fe7..0000000 --- a/interfaces/int_sign.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_SIGN_H__ -#define __INT_SIGN_H__ - -#define s0signs0(in) ssigns(in) - -#define d0signd0(in) dsigns(in) - -#define c0signc0(in) csigns(in) - -#define z0signz0(in) zsigns(in) - -#define u80signi80(in) u8signs(in) - -#define i80signi80(in) i8signs(in) - -#define u160signi160(in) u16signs(in) - -#define i160signi160(in) i16signs(in) - -#define s2signs2(in,size,out) ssigna(in, size[0]*size[1], out) - -#define d2signd2(in,size,out) dsigna(in, size[0]*size[1], out) - -#define c2signc2(in,size,out) csigna(in, size[0]*size[1], out) - -#define z2signz2(in,size,out) zsigna(in, size[0]*size[1], out) - -#define u82signi82(in,size,out) u8signa(in, size[0]*size[1], out) - -#define i82signi82(in,size,out) i8signa(in, size[0]*size[1], out) - -#define u162signi162(in,size,out) u16signa(in, size[0]*size[1], out) - -#define i162signi162(in,size,out) i16signa(in, size[0]*size[1], out) - -#endif /* !__INT_SIGN_H__ */ diff --git a/interfaces/int_sin.h b/interfaces/int_sin.h deleted file mode 100644 index 4132704..0000000 --- a/interfaces/int_sin.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_SIN_H__ -#define __INT_SIN_H__ - -#define s0sins0(in) ssins(in) - -#define d0sind0(in) dsins(in) - -#define c0sinc0(in) csins(in) - -#define z0sinz0(in) zsins(in) - -#define u80sins0(in) u8sins(in) - -#define i80sins0(in) i8sins(in) - -#define u160sins0(in) u16sins(in) - -#define i160sins0(in) i16sins(in) - -#define s2sins2(in,size,out) ssina(in, size[0]*size[1], out) - -#define d2sind2(in,size,out) dsina(in, size[0]*size[1], out) - -#define c2sinc2(in,size,out) csina(in, size[0]*size[1], out) - -#define z2sinz2(in,size,out) zsina(in, size[0]*size[1], out) - -#define u82sins2(in,size,out) u8sina(in, size[0]*size[1], out) - -#define i82sins2(in,size,out) i8sina(in, size[0]*size[1], out) - -#define u162sins2(in,size,out) u16sina(in, size[0]*size[1], out) - -#define i162sins2(in,size,out) i16sina(in, size[0]*size[1], out) - -#endif /* !__INT_SIN_H__ */ diff --git a/interfaces/int_sinh.h b/interfaces/int_sinh.h deleted file mode 100644 index c5682a4..0000000 --- a/interfaces/int_sinh.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_SINH_H__ -#define __INT_SINH_H__ - -#define s0sinhs0(in) ssinhs(in) - -#define d0sinhd0(in) dsinhs(in) - -#define c0sinhc0(in) csinhs(in) - -#define z0sinhz0(in) zsinhs(in) - -#define u80sinhs0(in) u8sinhs(in) - -#define i80sinhs0(in) i8sinhs(in) - -#define u160sinhs0(in) u16sinhs(in) - -#define i160sinhs0(in) i16sinhs(in) - -#define s2sinhs2(in,size,out) ssinha(in, size[0]*size[1], out) - -#define d2sinhd2(in,size,out) dsinha(in, size[0]*size[1], out) - -#define c2sinhc2(in,size,out) csinha(in, size[0]*size[1], out) - -#define z2sinhz2(in,size,out) zsinha(in, size[0]*size[1], out) - -#define u82sinhs2(in,size,out) u8sinha(in, size[0]*size[1], out) - -#define i82sinhs2(in,size,out) i8sinha(in, size[0]*size[1], out) - -#define u162sinhs2(in,size,out) u16sinha(in, size[0]*size[1], out) - -#define i162sinhs2(in,size,out) i16sinha(in, size[0]*size[1], out) - -#endif /* !__INT_SINH_H__ */ diff --git a/interfaces/int_size.h b/interfaces/int_size.h deleted file mode 100644 index c529a97..0000000 --- a/interfaces/int_size.h +++ /dev/null @@ -1,72 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ -/* ADDED BY NUTRICATO, BUT WAITING FOR THE AUTOMATIC GENERATION OF IT - AS SHOWN BELOW MANY CASES ARE MISSING. SCALAR RANDOM GENERATOR NOT - IMPLEMENTED YET, SEE DRANDS.C -*/ - - -#ifndef __INT_SIZE_H__ -#define __INT_SIZE_H__ - -#define s0sizes2(in,out) out[0]=1.0f;out[1]=1.0f; - -#define d0sized2(in,out) out[0]=1.0;out[1]=1.0; - -#define c0sizes2(in,out) out[0]=1.0f;out[1]=1.0f; - -#define z0sized2(in,out) out[0]=1.0;out[1]=1.0; - -#define s2sizes2(in,size,out) out[0]=size[0];out[1]=size[1]; - -#define d2sized2(in,size,out) out[0]=size[0];out[1]=size[1]; - -#define c2sizes2(in,size,out) out[0]=size[0];out[1]=size[1]; - -#define z2sized2(in,size,out) out[0]=size[0];out[1]=size[1]; - -#define s0sizes0s0(in,out1,out2) out1=1.0f;out2=1.0f; - -#define d0sized0d0(in,out1,out2) out1=1.0;out2=1.0; - -#define c0sizes0s0(in,out1,out2) out1=1.0f;out2=1.0f; - -#define z0sized0d0(in,out1,out2) out1=1.0;out2=1.0; - -#define s2sizes0s0(in,size,out1,out2) out1=size[0];out2=size[1]; - -#define d2sized0d0(in,size,out1,out2) out1=size[0];out2=size[1]; - -#define c2sizes0s0(in,size,out1,out2) out1=size[0];out2=size[1]; - -#define z2sized0d0(in,size,out1,out2) out1=size[0];out2=size[1]; - -#define s0s0sizes0(in1,in2) 1.0f - -#define d0d0sized0(in1,in2) 1. - -#define c0s0sizes0(in1,in2) 1.0f - -#define z0d0sized0(in1,in2) 1. - -#define s2s0sizes0(in1,size,in2) (in2==1) ? size[0] : size[1] - -#define d2d0sized0(in1,size,in2) (in2==1) ? size[0] : size[1] - -#define c2s0sizes0(in1,size,in2) (in2==1) ? size[0] : size[1] - -#define z2d0sized0(in1,size,in2) (in2==1) ? size[0] : size[1] - -#define d2g2sized0(in1,size1,in2,size2) dallsizea(size1, in2) -#endif /* !__INT_SIZE_H__ */ - - diff --git a/interfaces/int_spec.h b/interfaces/int_spec.h deleted file mode 100644 index 77ab55e..0000000 --- a/interfaces/int_spec.h +++ /dev/null @@ -1,71 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_SPEC_H__ -#define __INT_SPEC_H__ - -/* Only eigenvalues */ - -#define s0specc0(in) FloatComplex (sspecs(in) , 0) - -#define d0specz0(in) DoubleComplex ( dspecs(in) , 0) - -#define c0specc0(in) cspecs(in) - -#define z0specz0(in) zspecs(in) - -#define s2specc2(in,size,out) {float* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[0]*sizeof(float)));\ - szerosa(ZEROS,size[0],size[0]);\ - cspeca(FloatComplexMatrix(in,ZEROS,size[0]*size[0]), size[0], out);\ - } - -#define d2specz2(in,size,out) {double* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[0]*sizeof(double)));\ - dzerosa(ZEROS,size[0],size[0]);\ - zspeca(DoubleComplexMatrix(in,ZEROS,size[0]*size[0]), size[0] , out);\ - } - -#define c2specc2(in,size,out) cspeca(in, size[0], out) - -#define z2specz2(in,size,out) zspeca(in, size[0], out) - -/* Eigenvalues and eigenvectors */ - -#define s0specc0c0(in,out) cspec2s(FloatComplex( in,0) ,out) - -#define d0specz0z0(in,out) zspec2s(DoubleComplex(in,0) ,out) - -#define c0specc0c0(in,out) cspec2s(in,out) - -#define z0specz0z0(in,out) zspec2s(in,out) - -#define s2specc2c2(in,size,out1,out2) {float* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[0]*sizeof(float)));\ - szerosa(ZEROS,size[0],size[0]);\ - cspec2a(FloatComplexMatrix(in,ZEROS,size[0]*size[0]), size[0] , out1 , out2 );\ - } - -#define d2specz2z2(in,size,out1,out2) {double* ZEROS;\ - ZEROS=malloc((uint)(size[0]*size[0]*sizeof(double)));\ - dzerosa(ZEROS,size[0],size[0]);\ - zspec2a(DoubleComplexMatrix(in,ZEROS,size[0]*size[0]), size[0] , out1 , out2 );\ - } - - -#define c2specc2c2(in,size,out1,out2) cspec2a(in, size[0], out2, out1) - -#define z2specz2z2(in,size,out1,out2) zspec2a(in, size[0], out2, out1) - -#endif /* !__INT_SPEC_H__ */ diff --git a/interfaces/int_sqrt.h b/interfaces/int_sqrt.h deleted file mode 100644 index 090d982..0000000 --- a/interfaces/int_sqrt.h +++ /dev/null @@ -1,64 +0,0 @@ -/* -** -*- C -*- -** -** int_sqrt.h -** Made by Raffaele Nutricato <raffaele.nutricato@tiscali.it> -** -** -** Copyright POLIBA 2008 -*/ -/* - 1. Search for sqrt in INIT_FillSCI2LibCDirs.sci - 2. Search for // --- Function List Class. --- in INIT_FillSCI2LibCDirs.sci - 3. You will find - PrintStringInfo('s0'+ArgSeparator+'s0',ClassFileName,'file','y'); - PrintStringInfo('s0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'d0',ClassFileName,'file','y'); - PrintStringInfo('d0'+ArgSeparator+'z0',ClassFileName,'file','y'); - PrintStringInfo('c0'+ArgSeparator+'c0',ClassFileName,'file','y'); - PrintStringInfo('z0'+ArgSeparator+'z0',ClassFileName,'file','y'); - - PrintStringInfo('s2'+ArgSeparator+'s2',ClassFileName,'file','y'); - PrintStringInfo('s2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'d2',ClassFileName,'file','y'); - PrintStringInfo('d2'+ArgSeparator+'z2',ClassFileName,'file','y'); - PrintStringInfo('c2'+ArgSeparator+'c2',ClassFileName,'file','y'); - PrintStringInfo('z2'+ArgSeparator+'z2',ClassFileName,'file','y'); - 4. These are all the functions to be implemented. - 5. According to functions available in src you have to generate the mapping between - functions in step3 and functions in src. -*/ - -#ifndef __INT_SQRT_H__ -#define __INT_SQRT_H__ - -#define s0sqrts0(in) ssqrts(in) - -#define s0sqrtc0(in) csqrts(FloatComplex(in,0)) - -#define d0sqrtd0(in) dsqrts(in) - -#define d0sqrtz0(in) zsqrts(DoubleComplex(in,0)) - -#define c0sqrtc0(in) csqrts(in) - -#define z0sqrtz0(in) zsqrts(in) - - - -#define s2sqrts2(in,size,out) ssqrta(in, size[0]*size[1], out) - -#define s2sqrtc2(in,size,out) csqrta(FloatComplexMatrix(in,0), size[0]*size[1], out) - -#define d2sqrtd2(in,size,out) dsqrta(in, size[0]*size[1], out) - -#define d2sqrtz2(in,size,out) zsqrta(DoubleComplexMatrix(in,0), size[0]*size[1], out) - -#define c2sqrtc2(in,size,out) csqrta(in, size[0]*size[1], out) - -#define z2sqrtz2(in,size,out) zsqrta(in, size[0]*size[1], out) - - - - -#endif /* !__INT_SQRT_H__ */ diff --git a/interfaces/int_stdevf.h b/interfaces/int_stdevf.h deleted file mode 100644 index 940b415..0000000 --- a/interfaces/int_stdevf.h +++ /dev/null @@ -1,188 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Allan SIMON - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_STDEVF_H__ -#define __INT_STDEVF_H__ - -#define s0s0stdevfs0(in1,in2) sstdevfs(in1,in2) - -#define d0d0stdevfd0(in1,in2) dstdevfs(in1,in2) - -#define c0s0stdevfc0(in1,in2) cstdevfs(in1,FloatComplex(in2 , 0.0f)) - -#define z0d0stdevfz0(in1,in2) zstdevfs(in1,DoubleComplex(in2, 0.0)) - -#define s2s2stdevfs0(in1, size1, in2, size2) sstdevfa(in1, size1[0],size1[1], in2) - -#define d2d2stdevfd0(in1, size1, in2, size2) dstdevfa(in1, size1[0],size1[1], in2) - -#define c2s2stdevfc0(in1, size1, in2, size2) cstdevfcs(in1, size1[0], size1[1], in2) - -#define z2d2stdevfz0(in1, size1, in2, size2) zstdevfzd(in1, size1[0], size1[1], in2) - - -/*by rows or columns */ - -#define s0s0s0stdevfs0(in1,in2,in3) (in3==1) ? srowstdevfs(in1,in2) : scolumnstdevfs(in1,in2) - -#define d0d0d0stdevfd0(in1,in2,in3) (in3==1) ? drowstdevfs(in1,in2) : dcolumnstdevfs(in1,in2) - -#define c0s0s0stdevfc0(in1,in2,in3) (in3==1) ? crowstdevfs(in1,FloatComplex(in2 , 0.0f)) : ccolumnstdevfs(in1,FloatComplex(in2 , 0.0f)) - -#define z0d0d0stdevfz0(in1,in2,in3) (in3==1) ? zrowstdevfs(in1,DoubleComplex(in2, 0.0)) : zcolumnstdevfs(in1,DoubleComplex(in2, 0.0)) - - -#define s2s2s0stdevfs2(in1, size1, in2, size2,in3,out) (in3==1) ? srowstdevfa(in1,size1[0],size1[1],in2,out) : scolumnstdevfa(in1,size1[0],size1[1],in2,out) - -#define d2d2d0stdevfd2(in1, size1, in2, size2,in3,out) (in3==1) ? drowstdevfa(in1,size1[0],size1[1],in2,out) : dcolumnstdevfa(in1,size1[0],size1[1],in2,out) - - - - - -#define c2s2s0stdevfc2(in1, size1, in2, size2,in3,out) if (in3 == 1) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - crowstdevfa(in1,size1[0],size1[1],FloatComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - }\ - else\ - {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - ccolumnstdevfa(in1,size1[0],size1[1],FloatComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - } - -#define z2d2d0stdevfz2(in1, size1, in2, size2,in3,out) if (in3 == 1) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zrowstdevfa(in1,size1[0],size1[1],DoubleComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - }\ - else\ - {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zcolumnstdevfa(in1,size1[0],size1[1],DoubleComplexMatrix(in2,temp,size1[0]*size1[1]),out);\ - free(temp);\ - } - - -/**/ - - -#define s0c0stdevfs0(in1,in2) creals (cstdevfs(FloatComplex(in1 , 0.0f),in2)) -#define s0c0stdevfc0(in1,in2) cstdevfs(FloatComplex(in1 , 0.0f),in2) - -#define d0z0stdevfd0(in1,in2) zreals(zstdevfs(DoubleComplex(in1, 0.0 ),in2) -#define d0z0stdevfz0(in1,in2) zstdevfs(DoubleComplex(in1, 0.0 ),in2) - - -#define c0c0stdevfc0(in1,in2) cstdevfs(in1,in2) - -#define z0z0stdevfz0(in1,in2) zstdevfs(in1,in2) - - -#define s2c2stdevfs0(in1, size1, in2, size2) creals(cstdevfsc(in1, size1[0],size1[1], in2)) -#define s2c2stdevfc0(in1, size1, in2, size2) cstdevfsc(in1, size1[0],size1[1], in2) - -#define d2z2stdevfd0(in1, size1, in2, size2) zreals(zstdevfdz(in1, size1[0],size1[1], in2)) -#define d2z2stdevfz0(in1, size1, in2, size2) zstdevfdz(in1, size1[0],size1[1], in2) - -#define c2c2stdevfc0(in1, size1, in2, size2) cstdevfa(in1, size1[0], size1[1], in2) - -#define z2z2stdevfz0(in1, size1, in2, size2) zstdevfa(in1, size1[0], size1[1], in2) - - -/*by rows or columns */ - -#define s0c0s0stdevfs0(in1,in2,in3) (in3==1) ? creals(crowstdevfs(FloatComplex(in1, 0.0f),in2)) : creals(ccolumnstdevfs(FloatComplex(in1, 0.0f),in2)) - -#define d0z0d0stdevfd0(in1,in2,in3) (in3==1) ? zreals(zrowstdevfs(DoubleComplex(in1, 0.0),in2)) : zreals(zcolumnstdevfs(DoubleComplex(in1, 0.0),in2)) - -#define c0c0s0stdevfc0(in1,in2,in3) (in3==1) ? crowstdevfs(in1,in2) : ccolumnstdevfs(in1,in2) - -#define z0z0d0stdevfz0(in1,in2,in3) (in3==1) ? zrowstdevfs(in1,in2) : zcolumnstdevfs(in1,in2) - - -#define s2c2s0stdevfs2(in1, size1, in2, size2,in3,out) if (in3 == 1) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - crowstdevfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,FloatComplexMatrix(out,temp,size1[0]*size1[1]));\ - free(temp);\ - }\ - else\ - {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - ccolumnstdevfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,FloatComplexMatrix(out,temp,size1[0]*size1[1]));\ - free(temp);\ - } - -#define d2z2d0stdevfd2(in1, size1, in2, size2,in3,out) if (in3 == 1) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zrowstdevfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,DoubleComplexMatrix(out,temp,size1[0]));\ - free(temp);\ - }\ - else\ - {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zcolumnstdevfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,DoubleComplexMatrix(out,temp,size1[0]));\ - free(temp);\ - } - - -/*complex output*/ - -#define s2c2s0stdevfc2(in1, size1, in2, size2,in3,out) if (in3 == 1) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - crowstdevfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - }\ - else\ - {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - ccolumnstdevfa(FloatComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - } - -#define d2z2d0stdevfz2(in1, size1, in2, size2,in3,out) if (in3 == 1) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zrowstdevfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - }\ - else\ - {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size1[0],size1[1],0);\ - zcolumnstdevfa(DoubleComplexMatrix(in1,temp,size1[0]*size1[1]),size1[0],size1[1],in2,out);\ - free(temp);\ - } - - - -#define c2c2s0stdevfc2(in1, size1, in2, size2,in3,out) (in3==1) ? crowstdevfa(in1,size1[0],size1[1],in2,out) : ccolumnstdevfa(in1,size1[0],size1[1],in2,out) - -#define z2z2d0stdevfz2(in1, size1, in2, size2,in3,out) (in3==1) ? zrowstdevfa(in1,size1[0],size1[1],in2,out) : zcolumnstdevfa(in1,size1[0],size1[1],in2,out) - - -/**/ - -#endif /* !__INT_STDEVF_H__ */ diff --git a/interfaces/int_string.h b/interfaces/int_string.h deleted file mode 100644 index 7cea779..0000000 --- a/interfaces/int_string.h +++ /dev/null @@ -1,52 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_STRING_H__ -#define __INT_STRING_H__ - -#include <stdio.h> - -#define s0stringg0(in,out) sstrings(in,out) - -#define d0stringg0(in,out) dstrings(in,out) - -#define c0stringg0(in,out) cstrings(in,out) - -#define z0stringg0(in,out) zstrings(in,out) - -#define u80stringg0(in,out) u8strings(in,out) - -#define i80stringg0(in,out) i8strings(in,out) - -#define u160stringg0(in,out) u16strings(in,out) - -#define i160stringg0(in,out) i16strings(in,out) - -#define s2stringg2(in,size,out) sstringa(in,size[0]*size[1],out) - -#define d2stringg2(in,size,out) dstringa(in,size[0]*size[1],out) - -#define c2stringg2(in,size,out) cstringa(in,size[0]*size[1],out) - -#define z2stringg2(in,size,out) zstringa(in,size[0]*size[1],out) - -#define u82stringg2(in,size,out) u8stringa(in,size[0]*size[1],out) - -#define i82stringg2(in,size,out) i8stringa(in,size[0]*size[1],out) - -#define u162stringg2(in,size,out) u16stringa(in,size[0]*size[1],out) - -#define i162stringg2(in,size,out) i16stringa(in,size[0]*size[1],out) - -#endif /* __INT_STRING_H__ */ diff --git a/interfaces/int_strrchr.h b/interfaces/int_strrchr.h deleted file mode 100644 index 7ec94eb..0000000 --- a/interfaces/int_strrchr.h +++ /dev/null @@ -1,25 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_STRRCHR_H__ -#define __INT_STRRCHR_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define g2g2strrchrg2(str,size,key,size2,out) gstrrchra(str,size[1],key,size2[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_STRRCHR_H__*/ diff --git a/interfaces/int_strrev.h b/interfaces/int_strrev.h deleted file mode 100644 index 8429f6a..0000000 --- a/interfaces/int_strrev.h +++ /dev/null @@ -1,25 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_STRREV_H__ -#define __INT_STRREV_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define g2strrevg2(str,size,out) gstrreva(str,size[1],out) - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_STRREV_H__*/ diff --git a/interfaces/int_strsubst.h b/interfaces/int_strsubst.h deleted file mode 100644 index c8dd67a..0000000 --- a/interfaces/int_strsubst.h +++ /dev/null @@ -1,28 +0,0 @@ - /* 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: Shamik Guha - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in - */ -#ifndef __INT_STRSUBST_H__ -#define __INT_STRSUBST_H__ - - #ifdef __cplusplus - extern "C" { - #endif - -#define g2g2g2g2strsubstg2(str,size,search,size2,rep,size3,flagmain,size4,out) gstrsubsta(str,size[1],search,size2[1],rep,size3[1],flagmain,size4[1],out) -#define g2g2g2strsubstg2(in,size,search,size2,rep,size3,out) gstrsubsta(in,size[1],search,size2[1],rep,size3[1],'s',size3[1],out) - - - - #ifdef __cplusplus - } /* extern "C" */ - #endif - -#endif /*__INT_STRSUBST_H__*/ diff --git a/interfaces/int_sum.h b/interfaces/int_sum.h deleted file mode 100644 index 08f01fe..0000000 --- a/interfaces/int_sum.h +++ /dev/null @@ -1,70 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_SUM_H__ -#define __INT_SUM_H__ - -#define s0sums0(in) ssums(in) - -#define d0sumd0(in) dsums(in) - -#define c0sumc0(in) csums(in) - -#define z0sumz0(in) zsums(in) - -#define s2sums0(in,size) ssuma(in, size[0]*size[1]) - -#define d2sumd0(in,size) dsuma(in, size[0]*size[1]) - -#define c2sumc0(in,size) csuma(in, size[0]*size[1]) - -#define z2sumz0(in,size) zsuma(in, size[0]*size[1]) - - -#define s0s0sums0(in1,in2) (in2==1) ? srowsums(in1) : scolumnsums(in1) - -#define d0d0sumd0(in1,in2) (in2==1) ? drowsums(in1) : dcolumnsums(in1) - -#define c0s0sumc0(in1,in2) (in2==1) ? crowsums(in1) : ccolumnsums(in1) - -#define z0d0sumz0(in1,in2) (in2==1) ? zrowsums(in1) : zcolumnsums(in1) - -#define s2s0sums2(in1,size,in2,out) (in2==1) ? srowsuma(in1,size[0],size[1],out) : scolumnsuma(in1,size[0],size[1],out) - -#define d2d0sumd2(in1,size,in2,out) (in2==1) ? drowsuma(in1,size[0],size[1],out) : dcolumnsuma(in1,size[0],size[1],out) - -#define c2s0sumc2(in1,size,in2,out) (in2==1) ? crowsuma(in1,size[0],size[1],out) : ccolumnsuma(in1,size[0],size[1],out) - -#define z2d0sumz2(in1,size,in2,out) (in2==1) ? zrowsuma(in1,size[0],size[1],out) : zcolumnsuma(in1,size[0],size[1],out) - - -/*'r' and 'c' case */ -#define s0g2sums0(in1,in2,size2) (in2[0]=='r') ? srowsums(in1) : scolumnsums(in1) - -#define d0g2sumd0(in1,in2,size2) (in2[0]=='r') ? drowsums(in1) : dcolumnsums(in1) - -#define c0g2sumc0(in1,in2,size2) (in2[0]=='r') ? crowsums(in1) : ccolumnsums(in1) - -#define z0g2sumz0(in1,in2,size2) (in2[0]=='r') ? zrowsums(in1) : zcolumnsums(in1) - -#define s2g2sums2(in1,size,in2,size2,out) (in2[0]=='r') ? srowsuma(in1,size[0],size[1],out) : scolumnsuma(in1,size[0],size[1],out) - -#define d2g2sumd2(in1,size,in2,size2,out) (in2[0]=='r') ? drowsuma(in1,size[0],size[1],out) : dcolumnsuma(in1,size[0],size[1],out) - -#define c2g2sumc2(in1,size,in2,size2,out) (in2[0]=='r') ? crowsuma(in1,size[0],size[1],out) : ccolumnsuma(in1,size[0],size[1],out) - -#define z2g2sumz2(in1,size,in2,size2,out) (in2[0]=='r') ? zrowsuma(in1,size[0],size[1],out) : zcolumnsuma(in1,size[0],size[1],out) - - -#endif /* !__INT_SUM_H__ */ diff --git a/interfaces/int_syslin.h b/interfaces/int_syslin.h deleted file mode 100644 index 3f74ea6..0000000 --- a/interfaces/int_syslin.h +++ /dev/null @@ -1,78 +0,0 @@ -/* Copyright (C) 2017 - 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_SYSLIN_H__ -#define __INT_SYSLIN_H__ - -#ifdef __cplusplus -extern "C" { -#endif - -#define g2d2d2d2syslinss2(in1,size1,in2,size2,in3,size3,in4,size4,out) \ - dsyslina(in1,in2,size2[0],in3,size3[1],in4,size4[0],NULL,NULL,out) - -#define g2d2d2d2d2syslinss2(in1,size1,in2,size2,in3,size3,in4,size4,in5, \ - size5,out) dsyslina(in1,in2,size2[0],in3,size3[1],in4,size4[0],in5,NULL,out) - -#define g2d2d2d2d2d2syslinss2(in1,size1,in2,size2,in3,size3,in4,size4, \ - in5,size5,in6,size6,out) dsyslina(in1,in2,size2[0],in3,size3[1],in4, \ - size4[0],in5,in6,out) -// -#define g2d0d0d0syslinss2(in1,size1,in2,in3,in4,out) \ - dsyslina(in1,&in2,1,&in3,1,&in4,1,NULL,NULL,out) - -#define g2d0d2d0syslinss2(in1,size1,in2,in3,size3,in4,out) \ - dsyslina(in1,&in2,1,in3,size3[1],&in4,1,NULL,NULL,out) - -#define g2d0d0d2syslinss2(in1,size1,in2,in3,in4,size4,out) \ - dsyslina(in1,&in2,1,&in3,1,in4,size4[0],NULL,NULL,out) - -#define g2d0d2d2syslinss2(in1,size1,in2,in3,size3,in4,size4,out) \ - dsyslina(in1,&in2,1,in3,size3[1],in4,size4[0],NULL,NULL,out) -// -#define g2d0d0d0d0syslinss2(in1,size1,in2,in3,in4,in5,out) \ - dsyslina(in1,&in2,1,&in3,1,&in4,1,&in5,NULL,out) - -#define g2d0d2d0d2syslinss2(in1,size1,in2,in3,size3,in4,in5,size5, \ - out) dsyslina(in1,&in2,1,in3,size3[1],&in4,1,&in5,NULL,out) - -#define g2d0d0d2d2syslinss2(in1,size1,in2,in3,in4,size4,in5,size5, \ - out) dsyslina(in1,&in2,1,&in3,1,in4,size4[0],in5,NULL,out) - -#define g2d0d2d2d2syslinss2(in1,size1,in2,in3,size3,in4,size4,in5, \ - size5, out) dsyslina(in1,&in2,1,in3,size3[1],in4,size4[0],in5,NULL,out) - -#define g2d2d2d2d0syslinss2(in1,size1,in2,size2,in3,size3,in4,size4, \ - in5,out) dsyslina(in1,in2,size2[0],in3,size3[1],in4,size4[0],&in5,NULL,out) -// -#define g2d0d0d0d0d0syslinss2(in1,size1,in2,in3,in4,in5,in6,out) \ - dsyslina(in1,&in2,1,&in3,1,&in4,1,&in5,&in6,out) - -#define g2d0d2d0d2d0syslinss2(in1,size1,in2,in3,size3,in4,in5,size5, \ - in6,out) dsyslina(in1,&in2,1,in3,size3[1],in4,1,in5,&in6,out) - -#define g2d0d0d2d2d0syslinss2(in1,size1,in2,in3,in4,size4,in5,size5, \ - in6,out) dsyslina(in1,&in2,1,in3,1,in4,size4[0],in5,&in6,out) - -#define g2d0d2d2d2d0syslinss2(in1,size1,in2,in3,size3,in4,size4,in5, \ - size5,in6,out) dsyslina(in1,&in2,1,in3,size3[1],in4,size4[0],in5,&in6,out) - -#define g2d2d2d2d0d2syslinss2(in1,size1,in2,size2,in3,size3,in4,size4, \ - in5,in6,size6,out) dsyslina(in1,in2,size2[0],in3,size3[1],in4,size4[0], \ - &in5,in6,out) - -#ifdef __cplusplus -} /* extern "C" */ -#endif - - -#endif /*__INT_SYSLIN_H__*/
\ No newline at end of file diff --git a/interfaces/int_tan.h b/interfaces/int_tan.h deleted file mode 100644 index ddfb4ca..0000000 --- a/interfaces/int_tan.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_TAN_H__ -#define __INT_TAN_H__ - -#define s0tans0(in) stans(in) - -#define d0tand0(in) dtans(in) - -#define c0tanc0(in) ctans(in) - -#define z0tanz0(in) ztans(in) - -#define u80tans0(in) u8tans(in) - -#define i80tans0(in) i8tans(in) - -#define u160tans0(in) u16tans(in) - -#define i160tans0(in) i16tans(in) - -#define s2tans2(in,size,out) stana(in, size[0]*size[1], out) - -#define d2tand2(in,size,out) dtana(in, size[0]*size[1], out) - -#define c2tanc2(in,size,out) ctana(in, size[0]*size[1], out) - -#define z2tanz2(in,size,out) ztana(in, size[0]*size[1], out) - -#define u82tans2(in,size,out) u8tana(in, size[0]*size[1], out) - -#define i82tans2(in,size,out) i8tana(in, size[0]*size[1], out) - -#define u162tans2(in,size,out) u16tana(in, size[0]*size[1], out) - -#define i162tans2(in,size,out) i16tana(in, size[0]*size[1], out) - -#endif /* !__INT_TAN_H__ */ diff --git a/interfaces/int_tanh.h b/interfaces/int_tanh.h deleted file mode 100644 index e60e2c2..0000000 --- a/interfaces/int_tanh.h +++ /dev/null @@ -1,50 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_TANH_H__ -#define __INT_TANH_H__ - -#define s0tanhs0(in) stanhs(in) - -#define d0tanhd0(in) dtanhs(in) - -#define c0tanhc0(in) ctanhs(in) - -#define z0tanhz0(in) ztanhs(in) - -#define u80tanhs0(in) u8tanhs(in) - -#define i80tanhs0(in) i8tanhs(in) - -#define u160tanhs0(in) u16tanhs(in) - -#define i160tanhs0(in) i16tanhs(in) - -#define s2tanhs2(in,size,out) stanha(in, size[0]*size[1], out) - -#define d2tanhd2(in,size,out) dtanha(in, size[0]*size[1], out) - -#define c2tanhc2(in,size,out) ctanha(in, size[0]*size[1], out) - -#define z2tanhz2(in,size,out) ztanha(in, size[0]*size[1], out) - -#define u82tanhs2(in,size,out) u8tanha(in, size[0]*size[1], out) - -#define i82tanhs2(in,size,out) i8tanha(in, size[0]*size[1], out) - -#define u162tanhs2(in,size,out) u16tanha(in, size[0]*size[1], out) - -#define i162tanhs2(in,size,out) i16tanha(in, size[0]*size[1], out) - -#endif /* !__INT_TANH_H__ */ diff --git a/interfaces/int_trace.h b/interfaces/int_trace.h deleted file mode 100644 index 58c4299..0000000 --- a/interfaces/int_trace.h +++ /dev/null @@ -1,48 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_TRACE_H__ -#define __INT_TRACE_H__ - -#define s0traces0(in) in - -#define d0traced0(in) in - -#define c0tracec0(in) in - -#define u80traceu80(in) (uint8)in - -#define u160traceu160(in) (uint16)in - -#define i80tracei80(in) (int8)in - -#define i160tracei160(in) (int16)in - -#define s2traces0(in,size) stracea(in, size[0]) - -#define d2traced0(in,size) dtracea(in, size[0]) - -#define c2tracec0(in,size) ctracea(in, size[0]) - -#define z2tracez0(in,size) ztracea(in, size[0]) - -#define u82traceu80(in,size) u8tracea(in, size[0]) - -#define u162traceu160(in,size) u16tracea(in, size[0]) - -#define i82tracei80(in,size) i8tracea(in, size[0]) - -#define i162tracei160(in,size) i16trace(in,size[0]) - -#endif /* !__INT_TRACE_H__ */ diff --git a/interfaces/int_transpose.h b/interfaces/int_transpose.h deleted file mode 100644 index 3fd328f..0000000 --- a/interfaces/int_transpose.h +++ /dev/null @@ -1,51 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_TRANSPOSE_H__ -#define __INT_TRANSPOSE_H__ - -#define s0transposes0(in) in - -#define d0transposed0(in) in - -#define c0transposec0(in) in - -#define z0transposez0(in) in - -#define u80transposeu80(in) (uint8)in - -#define u160transposeu160(in) (uint16)in - -#define i80transposei80(in) (int8)in - -#define i160transposei160(in) (int16)in - -#define s2transposes2(in,size,out) stransposea(in, size[0], size[1], out) - -#define d2transposed2(in,size,out) dtransposea(in, size[0], size[1], out) - -#define c2transposec2(in,size,out) ctransposea(in, size[0], size[1], out) - -#define z2transposez2(in,size,out) ztransposea(in, size[0], size[1], out) - - -#define u82transposeu82(in,size,out) u8transposea(in, size[0], size[1], out) - -#define u162transposeu162(in,size,out) u16transposea(in, size[0], size[1], out) - -#define i82transposei82(in,size,out) i8transposea(in, size[0], size[1], out) - -#define i162transposei162(in,size,out) i16transposea(in, size[0], size[1], out) - -#endif /* !__INT_TRANSPOSE_H__ */ diff --git a/interfaces/int_tril.h b/interfaces/int_tril.h deleted file mode 100644 index 6d69451..0000000 --- a/interfaces/int_tril.h +++ /dev/null @@ -1,62 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_TRIL_H__ -#define __INT_TRIL_H__ - - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0trild0(in) in -#define s0trils0(in) in -#define u80trilu80(in) in -#define u160trilu160(in) in -#define i80trili80(in) in -#define i160trili160(in) in - -#define d0d0trild0(in1, in2) (in2 == 0 ? in1 : 0) -#define s0s0trils0(in1, in2) (in2 == 0 ? in1 : 0) -#define u80u80trilu80(in1, in2) (in2 == 0 ? in1 : 0) -#define i80i80trili80(in1, in2) (in2 == 0 ? in1 : 0) -#define u160u160trilu160(in1, in2) (in2 == 0 ? in1 : 0) -#define i160i160trili160(in1, in2) (in2 == 0 ? in1 : 0) -#define u80d0trilu80(in1, in2) (in2 == 0 ? in1 : 0) -#define i80d0trili80(in1, in2) (in2 == 0 ? in1 : 0) -#define u160d0trilu160(in1, in2) (in2 == 0 ? in1 : 0) -#define i160d0trili160(in1, in2) (in2 == 0 ? in1 : 0) - -#define d2trild2(in, size, out) dtrila(in, size[0], size[1], 0, out); -#define s2trils2(in, size, out) strila(in, size[0], size[1], 0, out); -#define u82trilu82(in, size, out) u8trila(in, size[0], size[1], 0, out); -#define u162trilu162(in, size, out) u16trila(in, size[0], size[1], 0, out); -#define i82trili82(in, size, out) i8trila(in, size[0], size[1], 0, out); -#define i162trili162(in, size, out) i16trila(in, size[0], size[1], 0, out); - -#define d2d0trild2(in1, size1, in2, out) dtrila(in1, size1[0], size1[1], in2, out); -#define s2s0trils2(in1, size1, in2, out) strila(in1, size1[0], size1[1], in2, out); -#define u82u80trilu82(in1, size1, in2, out) u8trila(in1, size1[0], size1[1], (double)in2, out); -#define i82i80trili82(in1, size1, in2, out) i8trila(in1, size1[0], size1[1], (double)in2, out); -#define u162u160trilu162(in1, size1, in2, out) u16trila(in1, size1[0], size1[1], (double)in2, out); -#define i162i160trili162(in1, size1, in2, out) i16trila(in1, size1[0], size1[1], (double)in2, out); -#define u82d0trilu82(in1, size1, in2, out) u8trila(in1, size1[0], size1[1], in2, out); -#define i82d0trili82(in1, size1, in2, out) i8trila(in1, size1[0], size1[1], in2, out); -#define u162d0trilu162(in1, size1, in2, out) u16trila(in1, size1[0], size1[1], in2, out); -#define i162d0trili162(in1, size1, in2, out) i16trila(in1, size1[0], size1[1], in2, out); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_TRIL_H__*/ diff --git a/interfaces/int_triu.h b/interfaces/int_triu.h deleted file mode 100644 index 1aef311..0000000 --- a/interfaces/int_triu.h +++ /dev/null @@ -1,62 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_TRIU_H__ -#define __INT_TRIU_H__ - - -#ifdef __cplusplus -extern "C" { -#endif - -#define d0triud0(in) in -#define s0trius0(in) in -#define u80triuu80(in) in -#define u160triuu160(in) in -#define i80triui80(in) in -#define i160triui160(in) in - -#define d0d0triud0(in1, in2) (in2 == 0 ? in1 : 0) -#define s0s0trius0(in1, in2) (in2 == 0 ? in1 : 0) -#define u80u80triuu80(in1, in2) (in2 == 0 ? in1 : 0) -#define i80i80triui80(in1, in2) (in2 == 0 ? in1 : 0) -#define u160u160triuu160(in1, in2) (in2 == 0 ? in1 : 0) -#define i160i160triui160(in1, in2) (in2 == 0 ? in1 : 0) -#define u80d0triuu80(in1, in2) (in2 == 0 ? in1 : 0) -#define i80d0triui80(in1, in2) (in2 == 0 ? in1 : 0) -#define u160d0triuu160(in1, in2) (in2 == 0 ? in1 : 0) -#define i160d0triui160(in1, in2) (in2 == 0 ? in1 : 0) - -#define d2triud2(in, size, out) dtriua(in, size[0], size[1], 0, out); -#define s2trius2(in, size, out) striua(in, size[0], size[1], 0, out); -#define u82triuu82(in, size, out) u8triua(in, size[0], size[1], 0, out); -#define u162triuu162(in, size, out) u16triua(in, size[0], size[1], 0, out); -#define i82triui82(in, size, out) i8triua(in, size[0], size[1], 0, out); -#define i162triui162(in, size, out) i16triua(in, size[0], size[1], 0, out); - -#define d2d0triud2(in1, size1, in2, out) dtriua(in1, size1[0], size1[1], in2, out); -#define s2s0trius2(in1, size1, in2, out) striua(in1, size1[0], size1[1], in2, out); -#define u82u80triuu82(in1, size1, in2, out) u8triua(in1, size1[0], size1[1], (double)in2, out); -#define i82i80triui82(in1, size1, in2, out) i8triua(in1, size1[0], size1[1], (double)in2, out); -#define u162u160triuu162(in1, size1, in2, out) u16triua(in1, size1[0], size1[1], (double)in2, out); -#define i162i160triui162(in1, size1, in2, out) i16triua(in1, size1[0], size1[1], (double)in2, out); -#define u82d0triuu82(in1, size1, in2, out) u8triua(in1, size1[0], size1[1], in2, out); -#define i82d0triui82(in1, size1, in2, out) i8triua(in1, size1[0], size1[1], in2, out); -#define u162d0triuu162(in1, size1, in2, out) u16triua(in1, size1[0], size1[1], in2, out); -#define i162d0triui162(in1, size1, in2, out) i16triua(in1, size1[0], size1[1], in2, out); - - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /*__INT_TRIU_H__*/ diff --git a/interfaces/int_type.h b/interfaces/int_type.h deleted file mode 100644 index 3862cb8..0000000 --- a/interfaces/int_type.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_TYPE_H__ -#define __INT_TYPE_H__ - -#define s0types0(in) stypes(in) - -#define d0typed0(in) dtypes(in) - -#define c0types0(in) ctypes(in) - -#define z0typed0(in) ztypes(in) - -#define s2types0(in,size) stypea(in, size[0]*size[1]) - -#define d2typed0(in,size) dtypea(in, size[0]*size[1]) - -#define c2types0(in,size) ctypea(in, size[0]*size[1]) - -#define z2typed0(in,size) ztypea(in, size[0]*size[1]) - -#endif /* !__INT_TYPE_H__ */ diff --git a/interfaces/int_uint16.h b/interfaces/int_uint16.h deleted file mode 100644 index 1280877..0000000 --- a/interfaces/int_uint16.h +++ /dev/null @@ -1,36 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_UINT16_H__ -#define __INT_UINT16_H__ - -#define s0uint16u160(in) suint16s(in) - -#define d0uint16u160(in) duint16s(in) - -#define u80uint16u160(in) u8uint16s(in) - -#define i80uint16u160(in) i8uint16s(in) - -#define i160uint16u160(in) i16uint16s(in) - -#define s2uint16u162(in,size,out) suint16a(in, size[0]*size[1], out) - -#define d2uint16u162(in,size,out) duint16a(in, size[0]*size[1], out) - -#define u82uint16u162(in,size,out) u8uint16a(in, size[0]*size[1], out) - -#define i82uint16u162(in,size,out) i8int16a(in, size[0]*size[1], out) - -#define i162uint16u162(in,size,out) i16uint16a(in, size[0]*size[1], out) - -#endif /* !__INT_UINT8_H__ */ diff --git a/interfaces/int_uint8.h b/interfaces/int_uint8.h deleted file mode 100644 index ac0bc43..0000000 --- a/interfaces/int_uint8.h +++ /dev/null @@ -1,36 +0,0 @@ -/* 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: Siddhesh Wani - Organization: FOSSEE, IIT Bombay - Email: toolbox@scilab.in -*/ - -#ifndef __INT_UINT8_H__ -#define __INT_UINT8_H__ - -#define s0uint8u80(in) suint8s(in) - -#define d0uint8u80(in) duint8s(in) - -#define i80uint8u80(in) i8uint8s(in) - -#define u160uint8u80(in) u16uint8s(in) - -#define i160uint8u80(in) i16uint8s(in) - -#define s2uint8u82(in,size,out) suint8a(in, size[0]*size[1], out) - -#define d2uint8u82(in,size,out) duint8a(in, size[0]*size[1], out) - -#define i82uint8u82(in,size,out) i8uint8a(in, size[0]*size[1], out) - -#define u162uint8u82(in,size,out) u16uint8a(in, size[0]*size[1], out) - -#define i162uint8u82(in,size,out) i16uint8a(in, size[0]*size[1], out) - -#endif /* !__INT_UINT8_H__ */ diff --git a/interfaces/int_v2magn.h b/interfaces/int_v2magn.h deleted file mode 100644 index 759cecf..0000000 --- a/interfaces/int_v2magn.h +++ /dev/null @@ -1,34 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_V2MAGN_H__ -#define __INT_V2MAGN_H__ - -#define s0v2magns0(in) ssquMagns(in) - -#define d0v2magnd0(in) dsquMagns(in) - -#define c0v2magnc0(in) csquMagns(in) - -#define z0v2magnz0(in) zsquMagns(in) - -#define s2v2magns2(in,size) ssquMagna(in, size[0], size[1]) - -#define d2v2magnd2(in,size) dsquMagna(in, size[0], size[1]) - -#define c2v2magnc2(in,size) csquMagna(in, size[0], size[1]) - -#define z2v2magnz2(in,size) zsquMagna(in, size[0], size[1]) - -#endif /* !__INT_V2MAGN_H__ */ diff --git a/interfaces/int_variance.h b/interfaces/int_variance.h deleted file mode 100644 index dfc191c..0000000 --- a/interfaces/int_variance.h +++ /dev/null @@ -1,71 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_VARIANCE_H__ -#define __INT_VARIANCE_H__ - -#define s0variances0(in) svariances(in) - -#define d0varianced0(in) dvariances(in) - -#define c0variancec0(in) cvariances(in) - -#define z0variancez0(in) zvariances(in) - -#define s2variances0(in,size) svariancea(in, size[0]*size[1]) - -#define d2varianced0(in,size) dvariancea(in, size[0]*size[1]) - -#define c2variancec0(in,size) cvariancea(in, size[0]*size[1]) - -#define z2variancez0(in,size) zvariancea(in, size[0]*size[1]) - - -#define s0s0variances0(in1,in2) (in2==1) ? srowvariances(in1) : scolumnvariances(in1) - -#define d0d0varianced0(in1,in2) (in2==1) ? drowvariances(in1) : dcolumnvariances(in1) - -#define c0s0variancec0(in1,in2) (in2==1) ? crowvariances(in1) : ccolumnvariances(in1) - -#define z0d0variancez0(in1,in2) (in2==1) ? zrowvariances(in1) : zcolumnvariances(in1) - -#define s2s0variances2(in1,size,in2,out) (in2==1) ? srowvariancea(in1,size[0],size[1],out) : scolumnvariancea(in1,size[0],size[1],out) - -#define d2d0varianced2(in1,size,in2,out) (in2==1) ? drowvariancea(in1,size[0],size[1],out) : dcolumnvariancea(in1,size[0],size[1],out) - -#define c2s0variancec2(in1,size,in2,out) (in2==1) ? crowvariancea(in1,size[0],size[1],out) : ccolumnvariancea(in1,size[0],size[1],out) - -#define z2d0variancez2(in1,size,in2,out) (in2==1) ? zrowvariancea(in1,size[0],size[1],out) : zcolumnvariancea(in1,size[0],size[1],out) - - - /*'r' and 'c' case */ -#define s0g2variances0(in1,in2,size2) (in2[0]=='r') ? srowvariances(in1) : scolumnvariances(in1) - -#define d0g2varianced0(in1,in2,size2) (in2[0]=='r') ? drowvariances(in1) : dcolumnvariances(in1) - -#define c0g2variancec0(in1,in2,size2) (in2[0]=='r') ? crowvariances(in1) : ccolumnvariances(in1) - -#define z0g2variancez0(in1,in2,size2) (in2[0]=='r') ? zrowvariances(in1) : zcolumnvariances(in1) - -#define s2g2variances2(in1,size,in2,size2,out) (in2[0]=='r') ? srowvariancea(in1,size[0],size[1],out) : scolumnvariancea(in1,size[0],size[1],out) - -#define d2g2varianced2(in1,size,in2,size2,out) (in2[0]=='r') ? drowvariancea(in1,size[0],size[1],out) : dcolumnvariancea(in1,size[0],size[1],out) - -#define c2g2variancec2(in1,size,in2,size2,out) (in2[0]=='r') ? crowvariancea(in1,size[0],size[1],out) : ccolumnvariancea(in1,size[0],size[1],out) - -#define z2g2variancez2(in1,size,in2,size2,out) (in2[0]=='r') ? zrowvariancea(in1,size[0],size[1],out) : zcolumnvariancea(in1,size[0],size[1],out) - - - -#endif /* !__INT_VARIANCE_H__ */ diff --git a/interfaces/int_vmagn.h b/interfaces/int_vmagn.h deleted file mode 100644 index a8647aa..0000000 --- a/interfaces/int_vmagn.h +++ /dev/null @@ -1,51 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_VMAGN_H__ -#define __INT_VMAGN_H__ - - -#define s0vmagns0(in) smagns(in) - -#define d0vmagnd0(in) dmagns(in) - -#define c0vmagnc0(in) cmagns(in) - -#define z0vmagnz0(in) zmagns(in) - -#define u80vmagnu80(in) u8magns(in) - -#define u160vmagnu160(in) u16magns(in) - -#define i80vmagni80(in) i8magns(in) - -#define i160vmagni160(in) i16magns(in) - -#define s2vmagns2(in,size) smagna(in, size[0], size[1]) - -#define d2vmagnd2(in,size) dmagna(in, size[0], size[1]) - -#define c2vmagnc2(in,size) cmagna(in, size[0], size[1]) - -#define z2vmagnz2(in,size) zmagna(in, size[0], size[1]) - -#define u82vmagnu82(in,size) u8magna(in, size[0], size[1]) - -#define u162vmagnu162(in,size) u16magna(in, size[0], size[1]) - -#define i82vmagni82(in,size) i8magna(in, size[0], size[1]) - -#define i162vmagni162(in,size) i16magna(in, size[0], size[1]) - -#endif /* !__INT_VMAGN_H__ */ diff --git a/interfaces/int_xcorr.h b/interfaces/int_xcorr.h deleted file mode 100644 index 50a99d7..0000000 --- a/interfaces/int_xcorr.h +++ /dev/null @@ -1,176 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_XCORR_H__ -#define __INT_XCORR_H__ - -#define s0xcorrs0(in) in*in - -#define d0xcorrd0(in) in*in - -#define c0xcorrc0(in) cmuls(in,cconjs(in)) - -#define z0xcorrz0(in) zmuls(in,zconjs(in)) - -#define s2xcorrs2(in,size) s2s2xcorrs2(in,size,in,size,out) - -#define d2xcorrd2(in,size) d2d2xcorrd2(in,size,in,size,out) - -#define c2xcorrc2(in,size) c2c2xcorrc2(in,size,in,size,out) - -#define z2xcorrz2(in,size) z2z2xcorrz2(in,size,in,size,out) - - -/* Scalar - Scalar */ - -#define s0s0xcorrs0(in1,in2) in1*in2 - -#define d0d0xcorrd0(in1,in2) in1*in2 - -#define c0c0xcorrc0(in1,in2) cmuls(in1,cconjs(in2)) - -#define z0z0xcorrz0(in1,in2) zmuls(in1,zconjs(in2)) - -#define s0c0xcorrs0(in1,in2) cmuls(FloatComplex(in1,0),cconjs(in2)) - -#define d0z0xcorrd0(in1,in2) zmuls(DoubleComplex(in1,0),zconjs(in2)) - -#define c0s0xcorrc0(in1,in2) cmuls(in1,FloatComplex(in2,0)) - -#define z0d0xcorrz0(in1,in2) zmuls(in1,DoubleComplex(in2,0)) - -/* Scalar - Scalar*/ - -#define s0s2xcorrs2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=in1*in2[mn-i];\ - } - -#define d0d2xcorrd2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=in1*in2[mn-i];\ - } - -#define c0c2xcorrc2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=cmuls(in1,cconjs(in2[mn-i]));\ - } - -#define z0z2xcorrz2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=zmuls(in1,zconjs(in2[mn-i]));\ - } - -#define s0c2xcorrs2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=cmuls(FloatComplex(in1,0),cconjs(in2[mn-i]));\ - } - -#define d0z2xcorrd2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=zmuls(DoubleComplex(in1,0),zconjs(in2[mn-i]));\ - } - -#define c0s2xcorrc2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=cmuls(in1,FloatComplex(in2[mn-i],0));\ - } - -#define z0d2xcorrz2(in1,in2,size,out) {int i;\ - int mn=size[0]*size[1];\ - for (i=1;i<=mn;i++) out[i]=zmuls(in1,DoubleComplex(in2[mn-i],0)));\ - } - - - - - -/* Matrix - Scalar*/ - -#define s2s0xcorrs2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ - } - -#define d2d0xcorrd2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ - } - -#define c2c0xcorrc2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1[i],cconjs(in2));\ - } - -#define z2z0xcorrz2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1[i],zconjs(in2));\ - } - -#define s2c0xcorrc2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ - } - -#define d2z0xcorrz2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1[i]*in2;\ - } - -#define c2s0xcorrc2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=cmuls(in1[i],FloatComplex(in2,0));\ - } - -#define z2d0xcorrz2(in1,size,in2,out) {int i;\ - for (i=0;i<size[0]*size[1];i++) out[i]=zmuls(in1[i],DoubleComplex(in2,0));\ - } - - - -/* Matrix - Matrix */ - -#define s2s2xcorrs2(in1,size1,in2,size2,out) scrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define d2d2xcorrd2(in1,size1,in2,size2,out) dcrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define c2c2xcorrc2(in1,size1,in2,size2,out) ccrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - -#define z2z2xcorrz2(in1,size1,in2,size2,out) zcrossCorra(in1, size1[0], size1[1], in2, size2[0], size2[1], out) - - -/*FIXME : malloc here*/ -#define s2c2xcorrc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(float));\ - sfilla(temp,size1[0],size1[1],0);\ - c2c2xcorrc2(FloatComplex(in1,0,size1[0]*size1[1]),size1,in2,size2,out);\ - free(temp);\ - } - -#define d2z2xcorrz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size1[0]*size1[1])*sizeof(double));\ - dfilla(temp,size[0],size[1],0);\ - z2z2xcorrz2(DoubleComplex(in1,0,size1[0]*size1[1]),size1,in2,size2,out);\ - free(temp);\ - } - - -#define c2s2xcorrc2(in1,size1,in2,size2,out) {float* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(float));\ - sfilla(temp,size2[0],size2[1],0);\ - c2c2xcorrc2(in1,size1,FloatComplex(in2,0,size2[0]*size2[1]),size2,out);\ - free(temp);\ - } - -#define z2d2xcorrz2(in1,size1,in2,size2,out) {double* temp;\ - temp=malloc((uint)(size2[0]*size2[1])*sizeof(double));\ - sfilla(temp,size2[0],size2[1],0);\ - c2c2xcorrc2(in1,size1,DoubleComplex(in2,0,size2[0]*size2[1]),size2,out);\ - free(temp);\ - } - -#endif /* !__INT_XCORR_H__ */ diff --git a/interfaces/int_zeros.h b/interfaces/int_zeros.h deleted file mode 100644 index ac7e020..0000000 --- a/interfaces/int_zeros.h +++ /dev/null @@ -1,89 +0,0 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab - * Copyright (C) 2008-2008 - INRIA - Bruno JOFRET - * Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET - * - * 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 - * - */ - -/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */ - -#ifndef __INT_ZEROS_H__ -#define __INT_ZEROS_H__ - - -#define zeross0() 0.0f - -#define zerosd0() 0 - -#define zerosu80() (uint8)0 - -#define zerosi80() (int8)0 - -#define zerosu160() (uint16)0 - -#define zerosi160() (int16)0 - -#define s0zeross0(in) szeross(in) - -#define d0zerosd0(in) dzeross(in) - -#define c0zerosc0(in) czeross(in) - -#define z0zerosz0(in) zzeross(in) - -#define u80zerosu80(in) u8zeross(in) - -#define i80zerosi80(in) i8zeross(in) - -#define u160zerosu160(in) u16zeross(in) - -#define i160zerosi160(in) i16zeross(in) - -#define s0s0zeross0(in1,in2) 0.0f - -#define d0d0zerosd0(in1,in2) 0 - -#define u80u80zerosu80(in1,in2) (uint8)0 - -#define i80i80zerosi80(in1,in2) (int8)0 - -#define u160u160zerosu160(in1,in2) (uint16)0 - -#define i160i160zerosi160(in1,in2) (int16)0 - -#define s0s0zeross2(in1,in2,out) szerosa(out, in1, in2) - -#define d0d0zerosd2(in1,in2,out) dzerosa(out, in1, in2) - -#define u80u80zerosu82(in1,in2,out) u8zerosa(out, in1, in2) - -#define i80i80zerosi82(in1,in2,out) i8zerosa(out, in1, in2) - -#define u160u160zerosu162(in1,in2,out) u16zerosa(out, in1, in2) - -#define i160i160zerosi162(in1,in2,out) i16zerosa(out, in1, in2) - -#define s2zeross2(in,size,out) szerosa(out, size[0], size[1]) - -#define d2zerosd2(in,size,out) dzerosa(out, size[0], size[1]) - -#define c2zerosc2(in,size,out) czerosa(out, size[0], size[1]) - -#define z2zerosz2(in,size,out) zzerosa(out, size[0], size[1]) - -#define u82zerosu82(in,size,out) u8zerosa(out, size[0], size[1]) - -#define i82zerosi82(in,size,out) i8zerosa(out, size[0], size[1]) - -#define u162zerosu162(in,size,out) u16zerosa(out, size[0], size[1]) - -#define i162zerosi162(in,size,out) i16zerosa(out, size[0], size[1]) - -#define d0d0d0zerosd3(in1, in2, in3, out) dzerosh(out, in1, in2, in3); -#endif /* !__INT_ZEROS_H__ */ |