Typo fixes
[scilab.git] / scilab / modules / dynamic_link / examples / dynamic_link_c_and_fortran / ext1f.sce
1
2
3 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 // Copyright (C) INRIA -
5 //
6 // This file must be used under the terms of the CeCILL.
7 // This source file is licensed as described in the file COPYING, which
8 // you should have received as part of this distribution.  The terms
9 // are also available at
10 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
11 // Demo file for ext1f example
12
13 // builder code for ext1f.c
14 link_name = "ext1f";    // functions to be added to the call table
15 flag  = "f";            // ext1f is a Fortran function
16 files = ["ext1f.f" ];   // objects files for ext1f
17 libs  = [];             // other libs needed for linking
18
19 // the next call generates files (Makelib,loader.sce) used
20 // for compiling and loading ext1f and performs the compilation
21
22 ilib_for_link(link_name,files,libs,flag);
23
24 // load new function code in the scope of call
25 // using the previously generated loader
26 exec loader.sce;
27
28 // test new function through the call function
29 //(very) simple example 1
30
31 a=[1,2,3];b=[4,5,6];n=3;
32 c=call("ext1f",n,1,"i",a,2,"d",b,3,"d","out",[1,3],4,"d");
33 if norm(c-(a+b)) > %eps then pause,end
34