From 8b44229ef44f0558ce045e46ff833fb44df913c9 Mon Sep 17 00:00:00 2001
From: jofret
Date: Mon, 21 Jun 2010 06:24:38 +0000
Subject: Tagging the 2.0 release of scilab2c

---
 src/c/auxiliaryFunctions/interfaces/int_abs.h     |  34 ++++++
 src/c/auxiliaryFunctions/interfaces/int_conj.h    |  36 +++++++
 src/c/auxiliaryFunctions/interfaces/int_find.h    | 125 ++++++++++++++++++++++
 src/c/auxiliaryFunctions/interfaces/int_frexp.h   |  22 ++++
 src/c/auxiliaryFunctions/interfaces/int_isempty.h |  34 ++++++
 src/c/auxiliaryFunctions/interfaces/int_isnan.h   |  34 ++++++
 src/c/auxiliaryFunctions/interfaces/int_length.h  |  70 ++++++++++++
 src/c/auxiliaryFunctions/interfaces/int_max.h     |  53 +++++++++
 src/c/auxiliaryFunctions/interfaces/int_min.h     |  53 +++++++++
 src/c/auxiliaryFunctions/interfaces/int_pythag.h  |  27 +++++
 src/c/auxiliaryFunctions/interfaces/int_rand.h    |  53 +++++++++
 src/c/auxiliaryFunctions/interfaces/int_sign.h    |  34 ++++++
 src/c/auxiliaryFunctions/interfaces/int_size.h    |  71 ++++++++++++
 src/c/auxiliaryFunctions/interfaces/int_type.h    |  34 ++++++
 14 files changed, 680 insertions(+)
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_abs.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_conj.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_find.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_frexp.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_isempty.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_isnan.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_length.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_max.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_min.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_pythag.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_rand.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_sign.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_size.h
 create mode 100644 src/c/auxiliaryFunctions/interfaces/int_type.h

(limited to 'src/c/auxiliaryFunctions/interfaces')

diff --git a/src/c/auxiliaryFunctions/interfaces/int_abs.h b/src/c/auxiliaryFunctions/interfaces/int_abs.h
new file mode 100644
index 00000000..4c353fee
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_abs.h
@@ -0,0 +1,34 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_conj.h b/src/c/auxiliaryFunctions/interfaces/int_conj.h
new file mode 100644
index 00000000..f54de243
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_conj.h
@@ -0,0 +1,36 @@
+/*
+ * 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[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 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/c/auxiliaryFunctions/interfaces/int_find.h b/src/c/auxiliaryFunctions/interfaces/int_find.h
new file mode 100644
index 00000000..2448cf88
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_find.h
@@ -0,0 +1,125 @@
+/*
+ * 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,-1)
+
+#define d2findd2(in,size,out,sizeOut)			dfinda(in, size[0]*size[1], out, sizeOut,-1)
+
+#define c2finds2(in,size,out,sizeOut)			cfinda(in, size[0]*size[1], out, sizeOut,-1)
+
+#define z2findd2(in,size,out,sizeOut)			zfinda(in, size[0]*size[1], out, sizeOut,-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 s2finds2s2(in,size,out1,sizeOut1,out2,sizeOut2)			sfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2,-1)
+
+#define d2findd2d2(in,size,out1,sizeOut1,out2,sizeOut2)			dfind2da(in,size[0],size[1],out1,sizeOut1,out2,sizeOut2,-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 s2s0finds2(in1,size,in2,out)			{\
+ int temp_out_indice[2] = {0} ;\
+ sfinda(in1,size[0]*size[1],out,temp_out_indice,in2);\
+ }
+
+#define d2d0findd2(in1,size,in2,out)			{\
+ int temp_out_indice[2] = {0} ;\
+ dfinda(in1,size[0]*size[1],out,temp_out_indice,in2);\
+ }
+
+#define c2s0finds2(in1,size,in2,out)			{\
+ int temp_out_indice[2] = {0} ;\
+ cfinda(in1,size[0]*size[1],out,temp_out_indice,in2);\
+ }
+
+#define z2d0findd2(in1,size,in2,out)			{\
+ int temp_out_indice[2] = {0} ;\
+ zfinda(in1,size[0]*size[1],out,temp_out_indice,in2);\
+ }
+
+/* 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)		{\
+ 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/src/c/auxiliaryFunctions/interfaces/int_frexp.h b/src/c/auxiliaryFunctions/interfaces/int_frexp.h
new file mode 100644
index 00000000..fa72417d
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_frexp.h
@@ -0,0 +1,22 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_isempty.h b/src/c/auxiliaryFunctions/interfaces/int_isempty.h
new file mode 100644
index 00000000..403bc56e
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_isempty.h
@@ -0,0 +1,34 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_isnan.h b/src/c/auxiliaryFunctions/interfaces/int_isnan.h
new file mode 100644
index 00000000..8ab7c74c
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_isnan.h
@@ -0,0 +1,34 @@
+/*
+ * 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/src/c/auxiliaryFunctions/interfaces/int_length.h b/src/c/auxiliaryFunctions/interfaces/int_length.h
new file mode 100644
index 00000000..fe84a92a
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_length.h
@@ -0,0 +1,70 @@
+/*
+**  -*- 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/c/auxiliaryFunctions/interfaces/int_max.h b/src/c/auxiliaryFunctions/interfaces/int_max.h
new file mode 100644
index 00000000..0dc0eef0
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_max.h
@@ -0,0 +1,53 @@
+/*
+ * 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/src/c/auxiliaryFunctions/interfaces/int_min.h b/src/c/auxiliaryFunctions/interfaces/int_min.h
new file mode 100644
index 00000000..ec48da72
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_min.h
@@ -0,0 +1,53 @@
+/*
+ * 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/src/c/auxiliaryFunctions/interfaces/int_pythag.h b/src/c/auxiliaryFunctions/interfaces/int_pythag.h
new file mode 100644
index 00000000..67f559ae
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_pythag.h
@@ -0,0 +1,27 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_rand.h b/src/c/auxiliaryFunctions/interfaces/int_rand.h
new file mode 100644
index 00000000..597309a4
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_rand.h
@@ -0,0 +1,53 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_sign.h b/src/c/auxiliaryFunctions/interfaces/int_sign.h
new file mode 100644
index 00000000..4463901a
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_sign.h
@@ -0,0 +1,34 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_size.h b/src/c/auxiliaryFunctions/interfaces/int_size.h
new file mode 100644
index 00000000..2608bc81
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_size.h
@@ -0,0 +1,71 @@
+/*
+ * 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/c/auxiliaryFunctions/interfaces/int_type.h b/src/c/auxiliaryFunctions/interfaces/int_type.h
new file mode 100644
index 00000000..3862cb8f
--- /dev/null
+++ b/src/c/auxiliaryFunctions/interfaces/int_type.h
@@ -0,0 +1,34 @@
+/*
+ * 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__ */
-- 
cgit