ilib_verbose

Name

ilib_verbose — set level of display used by dynamic link functions.

Calling Sequence

level = ilib_verbose()
ilib_verbose(level)

Parameters

level :

level of verbose for dynamic link functions.

0 : no message

1 : default level (as previous version of scilab)

2 : maximum verbose level (configure , makefile, debug information, ...)

Description

"ilib_verbose" set level of display used by dynamic link functions.

All dynamic functions in dynamic link module check this value and display or not some informations.

Examples

 
if haveacompiler() then
  cur_verbose = ilib_verbose();
  ilib_verbose(0);

  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');

  ilib_for_link('ext1c','fun1.c',[],"c");
  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

  ilib_verbose(1);

  f2=['int ext2c(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(f2,'fun2.c');

  ilib_for_link('ext2c','fun2.c',[],"c") 
  exec loader.sce;

  //using the new primitive
  a = [1,2,3]; b = [4,5,6];n = 3;
  c = call('ext2c',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d');
  if norm(c-(a+b)) > %eps then pause,end

  ilib_verbose(cur_verbose);

end

Authors

Allan CORNET