diff options
Diffstat (limited to 'src/c/operations/interface')
| -rw-r--r-- | src/c/operations/interface/int_OpBackSlash.h | 112 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpDotBackSlash.h | 105 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpDotSlash.h | 140 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpDotStar.h | 111 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpEqual.h | 39 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpMinus.h | 173 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpPlus.h | 140 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpSlash.h | 148 | ||||
| -rw-r--r-- | src/c/operations/interface/int_OpStar.h | 130 |
9 files changed, 0 insertions, 1098 deletions
diff --git a/src/c/operations/interface/int_OpBackSlash.h b/src/c/operations/interface/int_OpBackSlash.h deleted file mode 100644 index 217aaa34..00000000 --- a/src/c/operations/interface/int_OpBackSlash.h +++ /dev/null @@ -1,112 +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(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1,in2[i]);} - -#define d0d2OpBackSlashd2(in1,in2,size,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1,in2[i]);} - -#define c0c2OpBackSlashc2(in1,in2,size,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,in2[i]);} - -#define z0z2OpBackSlashz2(in1,in2,size,out) {int i;\ - for(int 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(DoubleCompelex(in1,0),in2,size,out) - -#define c0s2OpBackSlashc2(in1,in2,size,out) {int i;\ - for(int 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(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,DoubleComplex(in2[i],0));} - - -/* Matrix \ Scalar */ - -#define s2s0OpBackSlashs2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1[i],in2);} - -#define d2d0OpBackSlashd2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1[i],in2);} - -#define c2c0OpBackSlashc2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],in2);} - -#define z2z0OpBackSlashz2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],in2);} - -#define s2c0OpBackSlashc2(in1,size,in2,out) {int i;\ - for(int 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(int 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 z2z2OpBackSlashz2(in1,size1,in2,size2,out) zldivma(in1,size1[0],size1[1],in2,size2[0],size2[1],out) - -#define c2s2OpBackSlashc2(in1,size1,in2,size2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],FloatComplex(in2[i],0));} - -#define s2c2OpBackSlashc2(in1,size1,in2,size2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(FloatComplex(in1[i],0),in2[i]);} - -#define z2d2OpBackSlashc2(in1,size1,in2,size2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],DoubleComplex(in2[i],0));} - -#define d2z2OpBackSlashc2(in1,size1,in2,size2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(DoubleComplex(in1[i],0),in2[i]);} - - - -#endif /* !__INT_OPBACKSLASH_H__ */ diff --git a/src/c/operations/interface/int_OpDotBackSlash.h b/src/c/operations/interface/int_OpDotBackSlash.h deleted file mode 100644 index 5ccd70ef..00000000 --- a/src/c/operations/interface/int_OpDotBackSlash.h +++ /dev/null @@ -1,105 +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 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(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1,in2[i]);} - -#define d0d2OpDotBackSlashd2(in1,in2,size,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1,in2[i]);} - -#define c0c2OpDotBackSlashc2(in1,in2,size,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1,in2[i]);} - -#define z0z2OpDotBackSlashz2(in1,in2,size,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1,in2[i]);} - -#define s0c2OpDotBackSlashc2(in1,in2,size,out) c0c2OpDotBackSlashc2(FloatComplex(in1,0),in2,size,out) - -#define d0z2OpDotBackSlashz2(in1,in2,size,out) z0z2OpDotBackSlashz2(DoubleCompelex(in1,0),in2,size,out) - -#define c0s2OpDotBackSlashc2(in1,in2,size,out) {int i;\ - for(int 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(int 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(int i=0;i<size[0]*size[1];i++) out[i]= sldivs(in1[i],in2);} - -#define d2d0OpDotBackSlashd2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= dldivs(in1[i],in2);} - -#define c2c0OpDotBackSlashc2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= cldivs(in1[i],in2);} - -#define z2z0OpDotBackSlashz2(in1,size,in2,out) {int i;\ - for(int i=0;i<size[0]*size[1];i++) out[i]= zldivs(in1[i],in2);} - -#define s2c0OpDotBackSlashc2(in1,size,in2,out) {int i;\ - for(int 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(int 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 c2s2OpDotBackSlashc2(in1,size1,in2,size2,out) cldiva(in1,FloatComplexMatrix(in2,0,size2[0]*size2[1]),size2[0]*size2[1],out) - -#define s2c2OpDotBackSlashc2(in1,size1,in2,size2,out) cldiva(FloatComplexMatrix(in1,0,size1[0]*size1[1]),in2,size2[0]*size2[1],out) - -#define z2z2OpDotBackSlashz2(in1,size1,in2,size2,out) zldiva(in1,in2,size2[0]*size2[1],out) - -#define z2d2OpDotBackSlashc2(in1,size1,in2,size2,out) cldiva(in1,DoubleComplexMatrix(in2,0,size2[0]*size2[1]),size2[0]*size2[1],out) - -#define d2z2OpDotBackSlashc2(in1,size1,in2,size2,out) cldiva(DoubleComplexMatrix(in1,0,size1[0]*size1[1]),in2,size2[0]*size2[1],out) - - -#endif /* !__INT_OPDOTBACKSLASH_H__ */ diff --git a/src/c/operations/interface/int_OpDotSlash.h b/src/c/operations/interface/int_OpDotSlash.h deleted file mode 100644 index a0f097de..00000000 --- a/src/c/operations/interface/int_OpDotSlash.h +++ /dev/null @@ -1,140 +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 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;\ - sinverma(in2,out,size[0]);\ - for (i=0;i<size[0]*size[1];i++) out[i]=in1*out[i];} - - -#define d0d2OpDotSlashd2(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 c0c2OpDotSlashc2(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 z0z2OpDotSlashz2(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 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) - - -/* FIXME: malloc */ -#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));} - - -/* FIXME: malloc */ -#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 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 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/src/c/operations/interface/int_OpDotStar.h b/src/c/operations/interface/int_OpDotStar.h deleted file mode 100644 index 22e09a92..00000000 --- a/src/c/operations/interface/int_OpDotStar.h +++ /dev/null @@ -1,111 +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 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 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 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 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/src/c/operations/interface/int_OpEqual.h b/src/c/operations/interface/int_OpEqual.h deleted file mode 100644 index 869b28dc..00000000 --- a/src/c/operations/interface/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/src/c/operations/interface/int_OpMinus.h b/src/c/operations/interface/int_OpMinus.h deleted file mode 100644 index ac27ddb6..00000000 --- a/src/c/operations/interface/int_OpMinus.h +++ /dev/null @@ -1,173 +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)) - -/* - 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])); \ - } - - -/* 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)) - -/* 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); \ - } - - -/* 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)); \ - } - - - -/* 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)); \ - } - - - - -#endif /* !__INT_OPMINUS_H__ */ diff --git a/src/c/operations/interface/int_OpPlus.h b/src/c/operations/interface/int_OpPlus.h deleted file mode 100644 index 512b0bfb..00000000 --- a/src/c/operations/interface/int_OpPlus.h +++ /dev/null @@ -1,140 +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)) - - - -/* 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);\ - } - - -/* 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));\ - } - - - -/* 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));\ - } - - - - - - -#endif /* !__INT_OPPLUS_H__ */ diff --git a/src/c/operations/interface/int_OpSlash.h b/src/c/operations/interface/int_OpSlash.h deleted file mode 100644 index 440b05a0..00000000 --- a/src/c/operations/interface/int_OpSlash.h +++ /dev/null @@ -1,148 +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)) - - -/* 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));} - - -/* 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) - - - - - -/* 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);} - - -#endif /* !__INT_OPSLASH_H__ */ diff --git a/src/c/operations/interface/int_OpStar.h b/src/c/operations/interface/int_OpStar.h deleted file mode 100644 index f8ef73fe..00000000 --- a/src/c/operations/interface/int_OpStar.h +++ /dev/null @@ -1,130 +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)) - - -/* 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));} - - -/* 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) - -/* 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);} - -#endif /* !__INT_OPSTAR_H__ */ |