summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci8
-rw-r--r--tests/unit_tests/test_double_Lev.sci31
2 files changed, 35 insertions, 4 deletions
diff --git a/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci
index 7ef4c098..b2bd775d 100644
--- a/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci
+++ b/macros/ToolInitialization/INIT_FillSCI2LibCDirs.sci
@@ -2628,7 +2628,7 @@ PrintStringInfo('z2'+ArgSeparator+'z2z0',ClassFileName,'file','y');
PrintStringInfo('z2'+ArgSeparator+'z2z0z2',ClassFileName,'file','y');
// --- Annotation Function And Function List Function. ---
-FunctionName = 'lev';
+FunctionName = 'lev'; // AS : Done
PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y');
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun);
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun);
@@ -2814,7 +2814,7 @@ PrintStringInfo('g2s2'+ArgSeparator+'g2',ClassFileName,'file','y');
PrintStringInfo('g2d2'+ArgSeparator+'g2',ClassFileName,'file','y');
// --- Annotation Function And Function List Function. ---
-FunctionName = 'part';
+FunctionName = 'part'; // to code
PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y');
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun);
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun);
@@ -2843,7 +2843,7 @@ PrintStringInfo('g2g2'+ArgSeparator+'s2',ClassFileName,'file','y');
PrintStringInfo('g2g2'+ArgSeparator+'d2',ClassFileName,'file','y');
// --- Annotation Function And Function List Function. ---
-FunctionName = 'strindex';
+FunctionName = 'strindex'; // to code
PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y');
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun);
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun);
@@ -2869,7 +2869,7 @@ ClassFileName = fullfile(SCI2CLibCFLClsDir,ClassName+ExtensionCFuncListCls);
PrintStringInfo('g2g2g2'+ArgSeparator+'g2',ClassFileName,'file','y');
// --- Annotation Function And Function List Function. ---
-FunctionName = 'strsubst';
+FunctionName = 'strsubst'; // to code
PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y');
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCAnnFunDir,ClassName,GeneralReport,ExtensionCAnnFun);
INIT_GenAnnFLFunctions(FunctionName,SCI2CLibCFLFunDir,ClassName,GeneralReport,ExtensionCFuncListFun);
diff --git a/tests/unit_tests/test_double_Lev.sci b/tests/unit_tests/test_double_Lev.sci
new file mode 100644
index 00000000..d1669822
--- /dev/null
+++ b/tests/unit_tests/test_double_Lev.sci
@@ -0,0 +1,31 @@
+function test_double_Lev()
+
+ a = [1 2 3 4 5 6 7 8 9 10] ;
+
+ disp(lev(a)) ;
+
+ [aa aaa] = lev(a);
+ disp(aa);
+ disp(aaa)
+
+ [a1 aa1 aaa1] = lev (a);
+ disp(a1);
+ disp(aa1);
+ disp(aaa1);
+
+// complex
+ b =%i * [1 2 3 4 5 6 7 8 9 10] ;
+
+ disp(lev(b)) ;
+
+ [bb bbb] = lev(b);
+ disp(bb);
+ disp(bbb)
+
+ [b1 bb1 bbb1] = lev (b);
+ disp(b1);
+ disp(bb1);
+ disp(bbb1);
+
+
+endfunction