Updates Interfaces

13 files changed, 292 insertions, 8 deletions

diff --git a/src/elementaryFunctions/interfaces/int_acos.h b/src/elementaryFunctions/interfaces/int_acos.h
index 697558ac..ad625348 100644
--- a/src/elementaryFunctions/interfaces/int_acos.h
+++ b/src/elementaryFunctions/interfaces/int_acos.h
@@ -17,16 +17,24 @@
 
 #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)
diff --git a/src/elementaryFunctions/interfaces/int_acosh.h b/src/elementaryFunctions/interfaces/int_acosh.h
index ca0dc53d..51280aa4 100644
--- a/src/elementaryFunctions/interfaces/int_acosh.h
+++ b/src/elementaryFunctions/interfaces/int_acosh.h
@@ -17,16 +17,24 @@
 
 #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)
diff --git a/src/elementaryFunctions/interfaces/int_asin.h b/src/elementaryFunctions/interfaces/int_asin.h
index 4e63e269..65b5d17f 100644
--- a/src/elementaryFunctions/interfaces/int_asin.h
+++ b/src/elementaryFunctions/interfaces/int_asin.h
@@ -17,16 +17,24 @@
 
 #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)
diff --git a/src/elementaryFunctions/interfaces/int_atanh.h b/src/elementaryFunctions/interfaces/int_atanh.h
index b6f173a0..492fa746 100644
--- a/src/elementaryFunctions/interfaces/int_atanh.h
+++ b/src/elementaryFunctions/interfaces/int_atanh.h
@@ -17,16 +17,24 @@
 
 #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)
diff --git a/src/elementaryFunctions/interfaces/int_log.h b/src/elementaryFunctions/interfaces/int_log.h
index cefa7c31..d7f19fee 100644
--- a/src/elementaryFunctions/interfaces/int_log.h
+++ b/src/elementaryFunctions/interfaces/int_log.h
@@ -17,16 +17,24 @@
 
 #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)
diff --git a/src/elementaryFunctions/interfaces/int_log10.h b/src/elementaryFunctions/interfaces/int_log10.h
index 3363ab18..85d5ddeb 100644
--- a/src/elementaryFunctions/interfaces/int_log10.h
+++ b/src/elementaryFunctions/interfaces/int_log10.h
@@ -17,16 +17,24 @@
 
 #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)
diff --git a/src/elementaryFunctions/interfaces/int_log1p.h b/src/elementaryFunctions/interfaces/int_log1p.h
new file mode 100644
index 00000000..29f6fb3a
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_log1p.h
@@ -0,0 +1,41 @@
+/*
+ * 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/src/elementaryFunctions/interfaces/int_pow.h b/src/elementaryFunctions/interfaces/int_pow.h
index d6021c9c..39f5e1ae 100644
--- a/src/elementaryFunctions/interfaces/int_pow.h
+++ b/src/elementaryFunctions/interfaces/int_pow.h
@@ -15,20 +15,20 @@
 #ifndef __INT_OPDOTHAT_H__
 #define __INT_OPDOTHAT_H__
 
-#define s0OpDotHats0(in1, in2)			spows(in1, in2)
+#define s0s0OpDotHats0(in1, in2)			spows(in1, in2)
 
-#define d0OpDotHatd0(in1, in2)			dpows(in1, in2)
+#define d0d0OpDotHatd0(in1, in2)			dpows(in1, in2)
 
-#define c0OpDotHatc0(in1, in2)			cpows(in1, in2)
+#define c0c0OpDotHatc0(in1, in2)			cpows(in1, in2)
 
-#define z0OpDotHatz0(in1, in2)			zpows(in1, in2))
+#define z0z0OpDotHatz0(in1, in2)			zpows(in1, in2)
 
-#define s2OpDotHats2(in1, size, in2, out)	spowa(in1, size[0]*size[1], in2, out)
+#define s2s0OpDotHats2(in1, size, in2, out)	spowa(in1, size[0]*size[1], in2, out)
 
-#define d2OpDotHatd2(in1, size, in2, out)	dpowa(in1, size[0]*size[1], in2, out)
+#define d2d0OpDotHatd2(in1, size, in2, out)	dpowa(in1, size[0]*size[1], in2, out)
 
-#define c2OpDotHatc2(in1, size, in2, out)	cpowa(in1, size[0]*size[1], in2, out)
+#define c2c0OpDotHatc2(in1, size, in2, out)	cpowa(in1, size[0]*size[1], in2, out)
 
-#define z2OpDotHatz2(in1, size, in2, out)	zpowa(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/src/elementaryFunctions/interfaces/int_sin.h b/src/elementaryFunctions/interfaces/int_sin.h
new file mode 100644
index 00000000..556281a5
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_sin.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_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 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)
+
+#endif /* !__INT_SIN_H__ */
diff --git a/src/elementaryFunctions/interfaces/int_sinh.h b/src/elementaryFunctions/interfaces/int_sinh.h
new file mode 100644
index 00000000..e0c930e9
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_sinh.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_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 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)
+
+#endif /* !__INT_SINH_H__ */
diff --git a/src/elementaryFunctions/interfaces/int_sqrt.h b/src/elementaryFunctions/interfaces/int_sqrt.h
new file mode 100644
index 00000000..0efbca96
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_sqrt.h
@@ -0,0 +1,59 @@
+/*
+**  -*- 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/src/elementaryFunctions/interfaces/int_tan.h b/src/elementaryFunctions/interfaces/int_tan.h
new file mode 100644
index 00000000..c2c3df2e
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_tan.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_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 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)
+
+#endif /* !__INT_TAN_H__ */
diff --git a/src/elementaryFunctions/interfaces/int_tanh.h b/src/elementaryFunctions/interfaces/int_tanh.h
new file mode 100644
index 00000000..1819d3a1
--- /dev/null
+++ b/src/elementaryFunctions/interfaces/int_tanh.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_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 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)
+
+#endif /* !__INT_TANH_H__ */