6 files changed, 91 insertions, 24 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index 5d7af3a3..02b5c3a7 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -1,30 +1,20 @@
 //SCI2C: DEFAULT_PRECISION= DOUBLE
 
-function mainfunction()
+function mainfunction()
+
+disp(real(4));
+disp(imag(4));
 
-//test max && min
+disp(real(1+2*%i));
+disp(imag(1+2*%i));
 
-//reals
+a=[4 2 7 5;4 8 6 1];
 
-disp(norm(3))
-disp(max(3,1))
-disp(max(3,2))
-
-
-disp(min(7))
-disp(min(7,1))
-disp(min(7,2))
-
-a=[4 -2 4 8;-3 4 5 -1;1 -4 5 6; -7 -4 5 3]
-
-
-disp(max(a))
-disp(max(a,1))
-disp(max(a,2))
-
-disp(min(a))
-disp(min(a,1))
-disp(min(a,2))
+disp(real(a));
+disp(imag(a));
 
+b=a+%i*2*a
+disp(real(b));
+disp(imag(b));
 
 endfunction
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
index 16b8b970..9d4a3726 100644
--- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
@@ -220,8 +220,6 @@
 
 
 
-
-
 /* STATISTICS FUNCTIONS */
 
 /* interfacing max */
@@ -238,4 +236,9 @@
 #include "variance.h"
 #include "int_variance.h"
 
+/* TYPE */
+/* interfacing real */
+#include "int_real.h"
+/* interfacing imag */
+#include "int_imag.h"
 
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_imag.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_imag.h
new file mode 120000
index 00000000..3fcea215
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_imag.h
@@ -0,0 +1 @@
+../../../../type/int_imag.h
+\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_real.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_real.h
new file mode 120000
index 00000000..5651ef5d
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_real.h
@@ -0,0 +1 @@
+../../../../type/int_real.h
+\ No newline at end of file
diff --git a/src/type/int_imag.h b/src/type/int_imag.h
new file mode 100644
index 00000000..9647f6ad
--- /dev/null
+++ b/src/type/int_imag.h
@@ -0,0 +1,34 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008-2008 - INRIA - Arnaud Torset
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
+/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */
+
+#ifndef __INT_IMAG_H__
+#define __INT_IMAG_H__
+
+#define s0imags0(in)			0
+
+#define d0imagd0(in)			0
+
+#define c0imags0(in)			cimags(in)
+
+#define z0imagd0(in)			zimags(in)
+
+#define s2imags2(in,size,out)		szerosa(out,size[0],size[1])
+
+#define d2imagd2(in,size,out)		dzerosa(out,size[0],size[1])
+
+#define c2imags2(in,size,out)		cimaga(in, size[0]*size[1], out)
+
+#define z2imagd2(in,size,out)		zimaga(in, size[0]*size[1], out)
+
+#endif /* !__INT_IMAG_H__ */
diff --git a/src/type/int_real.h b/src/type/int_real.h
new file mode 100644
index 00000000..4949b883
--- /dev/null
+++ b/src/type/int_real.h
@@ -0,0 +1,38 @@
+/*
+ * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+ * Copyright (C) 2008-2008 - INRIA - Arnaud Torset
+ * 
+ * This file must be used under the terms of the CeCILL.
+ * This source file is licensed as described in the file COPYING, which
+ * you should have received as part of this distribution.  The terms
+ * are also available at    
+ * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
+ *
+ */
+
+/* THIS IS AN AUTOMATICALLY GENERATED FILE : DO NOT EDIT BY HAND. */
+
+#ifndef __INT_REAL_H__
+#define __INT_REAL_H__
+
+#define s0reals0(in)			in
+
+#define d0reald0(in)			in
+
+#define c0reals0(in)			creals(in)
+
+#define z0reald0(in)			zreals(in)
+
+#define s2reals2(in,size,out)		{int i;\
+						for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\
+						}
+
+#define d2reald2(in,size,out)		{int i;\
+						for (i=0;i<size[0]*size[1];i++) out[i]=in[i];\
+						}
+
+#define c2reals2(in,size,out)		creala(in, size[0]*size[1],out)
+
+#define z2reald2(in,size,out)		zreala(in, size[0]*size[1],out)
+
+#endif /* !__INT_REAL_H__ */