be1c930db6ccc9a142ba4436c89042acba28201f
[scilab.git] / scilab / modules / dynamic_link / tests / unit_tests / call.tst
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) ????-2008 - INRIA
4 // Copyright (C) 2009 - DIGITEO
5 //
6 //  This file is distributed under the same license as the Scilab package.
7 // =============================================================================
8
9 // <-- CLI SHELL MODE -->
10
11 ilib_verbose(0);
12
13 //================================================
14 // test call
15 //================================================
16 foo=['void foo(double *a,double *b,double *c)';
17      '{ *c = *a + *b; }'  ];
18
19 // we use TMPDIR for compilation 
20         
21 if ~c_link('foo') then
22   curPath = pwd(); 
23   chdir(TMPDIR); 
24   mputl(foo,'foo.c');
25   
26   ilib_for_link(['foo'],'foo.c',[],"c");
27
28   // load the shared library 
29   exec loader.sce ;
30   chdir(curPath) ;
31 end     
32
33 //5+7 by C function
34 v = call('foo',5,1,'d',7,2,'d','out',[1,1],3,'d');
35 if v <> 12 then pause,end
36 //================================================