ilib_for_link — utility for shared library management with link
libn=ilib_for_link(names,files,libs,flag [,makename [,loadername [,libname [,ldflags [,cflags [,fflags [,cc]]]]]]])
a string matrix giving the entry names which are to be linked.
string matrix giving source (from Scilab 5.0) or object files needed for shared library creation
string matrix giving extra libraries needed for shared library creation
a string flag ("c" or "f") for C or Fortran entry points.
character string. The pathname of the Makefile file without extension (default value Makelib).
This parameter is useless since Scilab 5.0.
A warning will be displayed in Scilab 5.3 if you use another value that the default.
character string. The pathname of the loader file (default
value is loader.sce).
optional character string. The name of the generated shared
library (default value is '', and in this case the name is derived
from names(1)).
optional character string. It can be used to add specific linker options in the generated Makefile. Default value is ''
optional character string. It can be used to add specific C compiler options in the generated Makefile. Default value is ''
optional character string. It can be used to add specific Fortran compiler options in the generated Makefile. Default value is ''
optional character string. It can be used to specify a C compiler. Default value is ''
character string. The path of the really generated shared library file.
This tool is used to create shared libraries and to generate a
loader file which can be used to dynamically load the shared library
into Scilab with the link function. New entry points
given by names are then accessible through the call
function or with non linear tools ode, optim,...
The file to compile are supposed to be located given by
makename. If makename sets a path different to the
current directory, loader script must be located in
the same directory using the loadername variable.
Many examples are provided in SCI/modules/dynamic_link/examples
directory. They are all released into the public domain.
Note that a compiler must be available on the system to use this function.
Languages handle by this function are: C, C++, Fortran and Fortran 90.
if haveacompiler() then
chdir(TMPDIR)
f1=['int ext1c(int *n, double *a, double *b, double *c)'
'{int k;'
' for (k = 0; k < *n; ++k) '
' c[k] = a[k] + b[k];'
' return(0);}'];
mputl(f1,'fun1.c')
//creating the shared library (a gateway, a Makefile and a loader are
//generated.
ilib_for_link('ext1c','fun1.c',[],"c")
// load the shared library
exec loader.sce
//using the new primitive
a=[1,2,3];b=[4,5,6];n=3;
c=call('ext1c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
if norm(c-(a+b)) > %eps then pause,end
end