update compilation path with visual studio 2012 with Win8 sdk path and update some... 03/12603/1
Antoine ELIAS [Thu, 19 Sep 2013 18:18:56 +0000 (20:18 +0200)]
Change-Id: Iaac0ba0f5e5661f113167c6898b7eb11d37f68a7

scilab/modules/differential_equations/tests/unit_tests/daskr.dia.ref
scilab/modules/differential_equations/tests/unit_tests/daskr.tst
scilab/modules/differential_equations/tests/unit_tests/intg.dia.ref
scilab/modules/differential_equations/tests/unit_tests/intg.tst
scilab/modules/differential_equations/tests/unit_tests/ode.win.dia.ref
scilab/modules/dynamic_link/macros/windows/dlwSetEnvCommonVc11.sci
scilab/modules/dynamic_link/tests/nonreg_tests/bug_12852.dia.ref
scilab/modules/dynamic_link/tests/nonreg_tests/bug_12852.tst

index ecc8008..91baa72 100644 (file)
@@ -8,6 +8,7 @@
 // The terms are also available at
 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 // =============================================================================
+//<-- ENGLISH IMPOSED -->
 //C-----------------------------------------------------------------------
 //C First problem.
 //C The initial value problem is..
index 4196e09..8b8aefb 100644 (file)
@@ -9,6 +9,8 @@
 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 // =============================================================================
 
+//<-- ENGLISH IMPOSED -->
+
 //C-----------------------------------------------------------------------
 //C First problem.
 //C The initial value problem is..
index ef36fc7..08d7a39 100644 (file)
@@ -7,6 +7,7 @@
 // <-- CLI SHELL MODE -->
 // <-- ENGLISH IMPOSED -->
 // Run with test_run('differential_equations','intg',['no_check_error_output'])
+ilib_verbose(0);
 // Function written in the Scilab language
 function y = f(x), y = x*sin(30*x)/sqrt(1-((x/(2*%pi))^2)), endfunction
 exact = -2.5432596188;
@@ -27,18 +28,9 @@ F=['      double precision function ffun(x)'
    '      end'];
 mputl(F, fullfile(TMPDIR, 'ffun.f'));
 // compile the function
-l = ilib_for_link('ffun', fullfile(TMPDIR, 'ffun.f'), [], 'f');
-   Generate a loader file
-   Generate a Makefile
-   ilib_gen_Make: Copy compilation files (Makefile*, libtool...) to TMPDIR
-   ilib_gen_Make: Copy TMPDIR/ffun.f to TMPDIR
-   ilib_gen_Make: Modification of the Makefile in TMPDIR.
-   Running the Makefile
-   Generate a cleaner file
+l = ilib_for_link('ffun', 'ffun.f', [], 'f');
 // add the function to the working environment
 link(l, 'ffun', 'f');
-Shared archive loaded.
-Link done.
 // integrate the function
 I = intg(0, 2*%pi, 'ffun');
 abs(exact-I);
@@ -54,18 +46,9 @@ C=['#include <math.h>'
    '}'];
 mputl(C, fullfile(TMPDIR, 'cfun.c'));
 // compile the function
-l = ilib_for_link('cfun', fullfile(TMPDIR, 'cfun.c'), [], 'c');
-   Generate a loader file
-   Generate a Makefile
-   ilib_gen_Make: Copy compilation files (Makefile*, libtool...) to TMPDIR
-   ilib_gen_Make: Copy TMPDIR/cfun.c to TMPDIR
-   ilib_gen_Make: Modification of the Makefile in TMPDIR.
-   Running the Makefile
-   Generate a cleaner file
+l = ilib_for_link('cfun', 'cfun.c', [], 'c');
 // add the function to the working environment
 link(l, 'cfun', 'c');
-Shared archive loaded.
-Link done.
 // integrate the function
 I = intg(0, 2*%pi, 'cfun');
 if abs(exact-I) > 1e-9 then bugmes();quit;end
index aca1280..3960534 100644 (file)
@@ -10,6 +10,7 @@
 
 // Run with test_run('differential_equations','intg',['no_check_error_output'])
 
+ilib_verbose(0);
 // Function written in the Scilab language
 function y = f(x), y = x*sin(30*x)/sqrt(1-((x/(2*%pi))^2)), endfunction
 exact = -2.5432596188;
@@ -33,7 +34,7 @@ F=['      double precision function ffun(x)'
 mputl(F, fullfile(TMPDIR, 'ffun.f'));
 
 // compile the function
-l = ilib_for_link('ffun', fullfile(TMPDIR, 'ffun.f'), [], 'f');
+l = ilib_for_link('ffun', 'ffun.f', [], 'f');
 
 // add the function to the working environment
 link(l, 'ffun', 'f');
@@ -55,7 +56,7 @@ C=['#include <math.h>'
 mputl(C, fullfile(TMPDIR, 'cfun.c'));
 
 // compile the function
-l = ilib_for_link('cfun', fullfile(TMPDIR, 'cfun.c'), [], 'c');
+l = ilib_for_link('cfun', 'cfun.c', [], 'c');
 
 // add the function to the working environment
 link(l, 'cfun', 'c');
index f56b65b..149ce3a 100644 (file)
@@ -309,13 +309,6 @@ assert_checkalmostequal(rd1(1), 2.64d-01, 1d-4);
 [yout2,rd2,w,iw] = ode("root", y, t0, tout, 'fex1', 2, 'gex', w, iw);
 assert_checkalmostequal(rd2(1), 2.0795776d+07, 4d-7);
 err = execstr("[yout3,rd,w,iw] = ode(""root"", y, t0, tout, ""fex1"", 2, ""gex"", w, iw);","errcatch");
-intdy--  t (=r1) illegal      
-      where r1 is :   0.4000000000000D+00                                       
-      t n est pas entre tcur - hu (= r1) et tcur (=r2)
-      where r1 is :   0.2012809069511D+08   and r2 :   0.2087425106905D+08      
-lsodar-  trouble from intdy. itask = i1, tout = r1
-      where i1 is :          1                                                  
-      where r1 is :   0.4000000000000D+00                                       
 assert_checkequal( err == 0 , %f);
 // check results
 assert_checkalmostequal(resDocRoot(:,1), yout1, 2.0D-8, [], "matrix");
index b4de6ea..39fb177 100644 (file)
@@ -93,9 +93,8 @@ function newLIB = getNewLIBx64(LIB, msvsPath, sdkPath, bIsExpress)
     end
 
     newLIB = newLIB + ..
-    sdkPath + "\lib\x64" + pathsep() + LIB;// + ..
-    //getenv("PROGRAMFILES(X86)") + "\Windows Kits\8.0\Lib\win8\um\x64\;";
-
+    sdkPath + "\lib\x64" + pathsep() + LIB + pathsep() + ..
+    getenv("PROGRAMFILES(X86)") + "\Windows Kits\8.0\Lib\win8\um\x64\;";
 endfunction
 //=============================================================================
 function newLIB = getNewLIBx86(LIB, msvsPath, sdkPath, bIsExpress)
@@ -106,9 +105,8 @@ function newLIB = getNewLIBx86(LIB, msvsPath, sdkPath, bIsExpress)
     newLIB = newLIB + ..
     msvsPath + filesep() + "VC\LIB" + pathsep() + ..
     sdkPath + filesep() + "lib" + pathsep() + ..
-    LIB;// + ..
-    //getenv("PROGRAMFILES") + "\Windows Kits\8.0\Lib\win8\um\x86\;";
-
+    LIB + pathsep() + ..
+    getenv("PROGRAMFILES") + "\Windows Kits\8.0\Lib\win8\um\x86\;";
 endfunction
 //=============================================================================
 function newPATH = getNewPATHx64(PATH, msvsPath, sdkPath, bIsExpress)
index e3cf885..b588f26 100644 (file)
@@ -16,6 +16,7 @@
 //
 // <-- Short Description -->
 // Visual Studio 2012 SDK configuration is incorrect.
+ilib_verbose(0);
 curPath = pwd();
 cd TMPDIR;
 src = ['#include <windows.h>'
@@ -26,12 +27,6 @@ src = ['#include <windows.h>'
 srcfile = 'test_windows_sdk.c';
 mputl(src, srcfile);
 libn = ilib_for_link('test_windows_sdk', srcfile, [], "c");
-   Generate a loader file
-   Generate a Makefile
-   Running the Makefile
-   Compilation of test_windows_sdk.c
-   Building shared library (be patient)
-   Generate a cleaner file
 assert_checktrue(libn <> 0);
 exec('cleaner.sce');
 cd(curPath);
index f9e8c04..e2c634f 100644 (file)
@@ -17,6 +17,7 @@
 // <-- Short Description -->
 // Visual Studio 2012 SDK configuration is incorrect.
 
+ilib_verbose(0);
 curPath = pwd();
 cd TMPDIR;
 src = ['#include <windows.h>'