Add lev files end linked files

14 files changed, 45 insertions, 15 deletions

diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index 21cfa491..cdca2826 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -4,6 +4,13 @@ function mainfunction()
 
 //test lev
 b=[1 2 3 4]
+
+disp(lev(b))
+
+[u,v]=lev(b)
+disp(u)
+disp(v)
+
 [x,y,z]=lev(b)
 disp(x)
 disp(y)
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
index 9b901097..9b6e2fe7 100644
--- a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
@@ -405,7 +405,16 @@ SWSRCS	=	\
 	$(CSRCDIR)/dchola.c \
 	$(CSRCDIR)/schols.c \
 	$(CSRCDIR)/schola.c \
-	$(CSRCDIR)/zchola.c 
+	$(CSRCDIR)/zchola.c \
+	$(CSRCDIR)/cleva.c \
+	$(CSRCDIR)/dleva.c \
+	$(CSRCDIR)/sleva.c \
+	$(CSRCDIR)/zleva.c \
+	$(CSRCDIR)/cleva2.c \
+	$(CSRCDIR)/dleva2.c \
+	$(CSRCDIR)/sleva2.c \
+	$(CSRCDIR)/zleva2.c  
+	
 	
 	
 	
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cleva.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cleva.c
new file mode 120000
index 00000000..ee94f0db
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cleva.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/cleva.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cleva2.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cleva2.c
new file mode 120000
index 00000000..a97f60ff
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/cleva2.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/cleva2.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dleva.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dleva.c
new file mode 120000
index 00000000..a5d85bd1
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dleva.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/dleva.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dleva2.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dleva2.c
new file mode 120000
index 00000000..16a77247
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/dleva2.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/dleva2.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sleva.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sleva.c
new file mode 120000
index 00000000..e84106d0
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sleva.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/sleva.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sleva2.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sleva2.c
new file mode 120000
index 00000000..6df9bec3
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sleva2.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/sleva2.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zleva.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zleva.c
new file mode 120000
index 00000000..95624244
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zleva.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/zleva.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zleva2.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zleva2.c
new file mode 120000
index 00000000..786add44
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/zleva2.c
@@ -0,0 +1 @@
+../../../../signalProcessing/lev/zleva2.c
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/lev.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/lev.h
new file mode 120000
index 00000000..d4ca1d58
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/lev.h
@@ -0,0 +1 @@
+../../../../signalProcessing/includes/lev.h
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
index 2c829432..8baf8b24 100644
--- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
@@ -34,9 +34,9 @@
 #include "pythag.h"
 
 /* LIB */
-/* interefacing lapack */
+/* interfacing lapack */
 #include "lapack.h"
-/* interefacing blas */
+/* interfacing blas */
 #include "blas.h"
 
 /* AUXILIARY FUNCTIONS */
@@ -163,24 +163,24 @@
 #include "cat.h"
 #include "int_OpRc.h"
 #include "int_OpCc.h"
-/* interefacing chol */
+/* interfacing chol */
 #include "chol.h"
 #include "int_chol.h"
-/* interefacing determinant */
+/* interfacing determinant */
 #include "determ.h"
 #include "int_det.h"
 /* interfacing expm */
 #include "matrixExponential.h"
 #include "int_expm.h"
-/* interefacing eye */
+/* interfacing eye */
 #include "eye.h"
 #include "int_eye.h"
 /* interfacing fill */
 #include "fill.h"
-/* interefacing inversion */
+/* interfacing inversion */
 #include "matrixInversion.h"
 #include "int_invert.h"
-/* interefacing infinite norm */
+/* interfacing infinite norm */
 #include "infiniteNorm.h"
/* interfacing ones */
 #include "ones.h"
 /* interfacing trace */
@@ -191,18 +191,22 @@
 
 
 /* STATISTICS FUNCTIONS */
-/* interefacing convol */
+/* interfacing convol */
 #include "conv.h"
 #include "conv2d.h"
 #include "int_convol.h"
-/* interefacing fft */
+/* interfacing fft */
 #include "fft.h"
 #include "fft_internal.h"
 #include "int_fft.h"
-/* interefacing ifft */
+/* interfacing ifft */
 #include "ifft.h"
 #include "ifft_internal.h"
 #include "int_ifft.h"
+/* interfacing lev */
+#include "lev.h"
+#include "int_lev.h"
+
 
 
 
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_lev.h b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_lev.h
new file mode 120000
index 00000000..ff49b4d3
--- /dev/null
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cinterfaces/int_lev.h
@@ -0,0 +1 @@
+../../../../signalProcessing/interfaces/int_lev.h
\ No newline at end of file
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci
index f16c8e37..eb4c5463 100644
--- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci
+++ b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci
@@ -2351,13 +2351,13 @@ ClassFileName = fullfile(SCI2CLibCAnnClsDir,ClassName+ExtensionCAnnCls);
 PrintStringInfo('NIN=          1',ClassFileName,'file','y');
 PrintStringInfo('NOUT=         1',ClassFileName,'file','y');
 PrintStringInfo('OUT(1).TP=    IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SUB(IN(1).SZ(1),''1'')',ClassFileName,'file','y');
+PrintStringInfo('OUT(1).SZ(1)= FA_SUB(FA_ADD(IN(1).SZ(1),IN(1).SZ(2)),''2'')',ClassFileName,'file','y');
 PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
 
 PrintStringInfo('NIN=          1',ClassFileName,'file','y');
 PrintStringInfo('NOUT=         2',ClassFileName,'file','y');
 PrintStringInfo('OUT(1).TP=    IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SUB (IN(1).SZ(1),''1'')',ClassFileName,'file','y');
+PrintStringInfo('OUT(1).SZ(1)= FA_SUB(FA_ADD(IN(1).SZ(1),IN(1).SZ(2)),''2'')',ClassFileName,'file','y');
 PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
 PrintStringInfo('OUT(2).TP=    IN(1).TP',ClassFileName,'file','y');
 PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y');
@@ -2366,13 +2366,13 @@ PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y');
 PrintStringInfo('NIN=          1',ClassFileName,'file','y');
 PrintStringInfo('NOUT=         3',ClassFileName,'file','y');
 PrintStringInfo('OUT(1).TP=    IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(1).SZ(1)= FA_SUB(IN(1).SZ(1),''1'')',ClassFileName,'file','y');
+PrintStringInfo('OUT(1).SZ(1)= FA_SUB(FA_ADD(IN(1).SZ(1),IN(1).SZ(2)),''2'')',ClassFileName,'file','y');
 PrintStringInfo('OUT(1).SZ(2)= ''1''',ClassFileName,'file','y');
 PrintStringInfo('OUT(2).TP=    IN(1).TP',ClassFileName,'file','y');
 PrintStringInfo('OUT(2).SZ(1)= ''1''',ClassFileName,'file','y');
 PrintStringInfo('OUT(2).SZ(2)= ''1''',ClassFileName,'file','y');
 PrintStringInfo('OUT(3).TP=    IN(1).TP',ClassFileName,'file','y');
-PrintStringInfo('OUT(3).SZ(1)= FA_SUB(IN(1).SZ(1),''1'')',ClassFileName,'file','y');
+PrintStringInfo('OUT(3).SZ(1)= FA_SUB(FA_ADD(IN(1).SZ(1),IN(1).SZ(2)),''2'')',ClassFileName,'file','y');
 PrintStringInfo('OUT(3).SZ(2)= ''1''',ClassFileName,'file','y');
 
 // --- Function List Class. ---