diff options
author | jofret | 2009-04-28 06:52:28 +0000 |
---|---|---|
committer | jofret | 2009-04-28 06:52:28 +0000 |
commit | 127ac18608c72acfed9d59599252ad62cb562ee5 (patch) | |
tree | efb7e9416342cd3758bf623710c46d2d4cdb5df4 /src/auxiliaryFunctions/interfaces | |
parent | c1abfc271612a255d4491f2e0220bace5fdf11d2 (diff) | |
download | scilab2c-127ac18608c72acfed9d59599252ad62cb562ee5.tar.gz scilab2c-127ac18608c72acfed9d59599252ad62cb562ee5.tar.bz2 scilab2c-127ac18608c72acfed9d59599252ad62cb562ee5.zip |
Moving source code
Diffstat (limited to 'src/auxiliaryFunctions/interfaces')
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_abs.h | 34 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_conj.h | 36 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_find.h | 96 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_frexp.h | 22 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_isempty.h | 34 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_isnan.h | 34 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_length.h | 70 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_max.h | 53 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_min.h | 53 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_pythag.h | 27 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_rand.h | 53 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_sign.h | 34 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_size.h | 71 | ||||
-rw-r--r-- | src/auxiliaryFunctions/interfaces/int_type.h | 34 |
14 files changed, 0 insertions, 651 deletions
diff --git a/src/auxiliaryFunctions/interfaces/int_abs.h b/src/auxiliaryFunctions/interfaces/int_abs.h deleted file mode 100644 index 4c353fee..00000000 --- a/src/auxiliaryFunctions/interfaces/int_abs.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_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 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) - -#endif /* !__INT_ABS_H__ */ diff --git a/src/auxiliaryFunctions/interfaces/int_conj.h b/src/auxiliaryFunctions/interfaces/int_conj.h deleted file mode 100644 index e37819e4..00000000 --- a/src/auxiliaryFunctions/interfaces/int_conj.h +++ /dev/null @@ -1,36 +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(in, size, out) {int i;for (i=0; i<size;i++) out[i]=in[i];} - -#define s0conjs0(in) in - -#define d0conjd0(in) in - -#define c0conjc0(in) cconjs(in) - -#define z0conjz0(in) zconjs(in) - -#define s2conjs2(in,size,out) copy(in,size,out) - -#define d2conjd2(in,size,out) copy(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) - -#endif /* !__INT_CONJ_H__ */ diff --git a/src/auxiliaryFunctions/interfaces/int_find.h b/src/auxiliaryFunctions/interfaces/int_find.h deleted file mode 100644 index 7d620e6c..00000000 --- a/src/auxiliaryFunctions/interfaces/int_find.h +++ /dev/null @@ -1,96 +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 s2finds2(in,size,out,sizeOut) sfinda(in, size[0]*size[1], out, sizeOut) - -#define d2findd2(in,size,out,sizeOut) dfinda(in, size[0]*size[1], out, sizeOut) - -#define c2finds2(in,size,out,sizeOut) cfinda(in, size[0]*size[1], out, sizeOut) - -#define z2findd2(in,size,out,sizeOut) zfinda(in, size[0]*size[1], out, sizeOut) - -/* 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 s2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2) sfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2) - -#define d2findd2d2(in,size,out1,sizeOut1,out2,sizeOut2) dfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2) - -#define c2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2) cfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2) - -#define z2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2) zfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2) - -/* 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 s2s0finds2(in1,size,in2,out) s2finds2(in1,size,out_tmp);for(int i=0;i<in2;i++) out[i]=out_tmp[i]; - -#define d2d0findd2(in1,size,in2,out) d2findd2(in1,size,out_tmp);for(int i=0;i<in2;i++) out[i]=out_tmp[i]; - -#define c2s0finds2(in1,size,in2,out) c2finds2(in1,size,out_tmp);for(int i=0;i<in2;i++) out[i]=out_tmp[i]; - -#define z2d0findd2(in1,size,in2,out) z2findd2(in1,size,out_tmp);for(int i=0;i<in2;i++) out[i]=out_tmp[i]; - -/* 2 inputs, 2 outputs */ - -#define s0s0finds0s0(in1,in2,out2) s0finds0s0(in1,out2) - -#define d0d0findd0d0(in1,in2,out2) d0findd0d0(in1,out2) - -#define c0s0finds0s0(in1,in2,out2) c0finds0s0(in1,out2) - -#define z0d0findd0d0(in1,in2,out2) z0findd0d0(in1,out2) - - -/*FIXME : prototypes are wrong*/ -#define s2s0finds2s2(in1,size,in2,out1,out2) s2finds2s2(in1,size,out1_tmp,out_tmp2);for(int i=0;i<in2;i++) {out1[i]=out1_tmp[i];out2[i]= out2_tmp[i];} - -#define d2d0findd2d2(in1,size,in2,out1,out2) d2findd2d2(in1,size,out1_tmp,out_tmp2);for(int i=0;i<in2;i++) {out1[i]=out1_tmp[i];out2[i]= out2_tmp[i];} - -#define c2s0finds2s2(in1,size,in2,out1,out2) c2finds2s2(in1,size,out1_tmp,out_tmp2);for(int i=0;i<in2;i++) {out1[i]=out1_tmp[i];out2[i]= out2_tmp[i];} - -#define z2d0findd2d2(in1,size,in2,out1,out2) z2findd2d2(in1,size,out1_tmp,out_tmp2);for(int i=0;i<in2;i++) {out1[i]=out1_tmp[i];out2[i]= out2_tmp[i];} - - - -#endif /* !__INT_FIND_H__ */ - diff --git a/src/auxiliaryFunctions/interfaces/int_frexp.h b/src/auxiliaryFunctions/interfaces/int_frexp.h deleted file mode 100644 index fa72417d..00000000 --- a/src/auxiliaryFunctions/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/src/auxiliaryFunctions/interfaces/int_isempty.h b/src/auxiliaryFunctions/interfaces/int_isempty.h deleted file mode 100644 index 403bc56e..00000000 --- a/src/auxiliaryFunctions/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/src/auxiliaryFunctions/interfaces/int_isnan.h b/src/auxiliaryFunctions/interfaces/int_isnan.h deleted file mode 100644 index 4e2e4d7f..00000000 --- a/src/auxiliaryFunctions/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 c0isnanc0(in) cisnans(in) - -#define z0isnanz0(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 c2isnanc2(in,size,out) cisnana(in, size[0]*size[1], out) - -#define z2isnanz2(in,size,out) zisnana(in, size[0]*size[1], out) - -#endif /* !__INT_ISNAN_H__ */ diff --git a/src/auxiliaryFunctions/interfaces/int_length.h b/src/auxiliaryFunctions/interfaces/int_length.h deleted file mode 100644 index fe84a92a..00000000 --- a/src/auxiliaryFunctions/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/src/auxiliaryFunctions/interfaces/int_max.h b/src/auxiliaryFunctions/interfaces/int_max.h deleted file mode 100644 index efef39d3..00000000 --- a/src/auxiliaryFunctions/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[0]*size1[1], in2, size2[0]*size2[1], out) - -#define d2d2maxd2(in1,size1,in2,size2,out) maxa(in1, size1[0]*size1[1], in2, size2[0]*size2[1], 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/src/auxiliaryFunctions/interfaces/int_min.h b/src/auxiliaryFunctions/interfaces/int_min.h deleted file mode 100644 index d7bd5669..00000000 --- a/src/auxiliaryFunctions/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[0]*size1[1], in2, size2[0]*size2[1], out) - -#define d2d2mind2(in1,size1,in2,size2,out) mina(in1, size1[0]*size1[1], in2, size2[0]*size2[1], 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/src/auxiliaryFunctions/interfaces/int_pythag.h b/src/auxiliaryFunctions/interfaces/int_pythag.h deleted file mode 100644 index 67f559ae..00000000 --- a/src/auxiliaryFunctions/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/src/auxiliaryFunctions/interfaces/int_rand.h b/src/auxiliaryFunctions/interfaces/int_rand.h deleted file mode 100644 index 597309a4..00000000 --- a/src/auxiliaryFunctions/interfaces/int_rand.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_RAND_H__ -#define __INT_RAND_H__ - - -#define rands0() srands() - -#define randd0() drands() - - - -#define s0rands0(in) srands() - -#define d0randd0(in) drands() - -#define c0randc0(in) crands() - -#define z0randz0(in) zrands() - - -#define s0s0rands0(in1,in2) srands() - -#define d0d0randd0(in,in2) drands() - - -#define s0s0rands2(in1,in2,out) sranda(out,(int)in1*(int)in2) - -#define d0d0randd2(in1,in2,out) dranda(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]) - - -#endif /* !__INT_RAND_H__ */ diff --git a/src/auxiliaryFunctions/interfaces/int_sign.h b/src/auxiliaryFunctions/interfaces/int_sign.h deleted file mode 100644 index 4463901a..00000000 --- a/src/auxiliaryFunctions/interfaces/int_sign.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_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 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) - -#endif /* !__INT_SIGN_H__ */ diff --git a/src/auxiliaryFunctions/interfaces/int_size.h b/src/auxiliaryFunctions/interfaces/int_size.h deleted file mode 100644 index 2608bc81..00000000 --- a/src/auxiliaryFunctions/interfaces/int_size.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 - * - */ -/* 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] - - -#endif /* !__INT_SIZE_H__ */ - - diff --git a/src/auxiliaryFunctions/interfaces/int_type.h b/src/auxiliaryFunctions/interfaces/int_type.h deleted file mode 100644 index 3862cb8f..00000000 --- a/src/auxiliaryFunctions/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__ */ |