scilab/modules/dynamic_link/demos/call_c.sce

   1 //
   2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   3 // Copyright (C) 2009 - DIGITEO - Allan CORNET
   4 //
   5 // This file is distributed under the same license as the Scilab package.
   6 //
   7
   8 //           CALLING EXTERNAL C FUNCTION
   9
  10 if haveacompiler() then
  11
  12
  13 // we use TMPDIR for compilation
  14
  15   foo=['void foo(double *a,double *b,double *c)';
  16      '{ *c = *a + *b; }'  ];
  17
  18   mprintf('\n');
  19   mprintf(gettext('C Function to call in scilab.\n'));
  20
  21   disp(foo);
  22
  23 if ~c_link('foo') then
  24   cur_ilib_verbose = ilib_verbose();
  25   ilib_verbose(1);
  26   path = pwd();
  27   chdir(TMPDIR);
  28   mputl(foo,'foo.c');
  29
  30   mprintf('\n');
  31   mprintf(gettext('Call ilib_for_link to build C function.\n'));
  32   ilib_for_link(['foo'],'foo.c',[],"c");
  33   exec loader.sce ;
  34   chdir(path);
  35   ilib_verbose(cur_ilib_verbose);
  36 end
  37
  38 //Z = X+Y by C function
  39 X = 5;
  40 Y = 7;
  41 mprintf('\n');
  42 mprintf(gettext('Call C function. Z = X+Y'));
  43 mprintf('\n');
  44 mprintf(gettext('with X = %d'), X);
  45 mprintf('\n');
  46 mprintf(gettext('with Y = %d'), Y);
  47 mprintf('\n');
  48 mprintf("Z = call(''foo'', X, 1, ''d'', Y, 2, ''d'', ''out'', [1,1], 3, ''d'');");
  49 mprintf('\n');
  50 Z = call('foo', X, 1, 'd', Y, 2, 'd', 'out', [1,1], 3, 'd');
  51 mprintf(gettext('result Z = %d'), Z);
  52 mprintf('\n');
  53
  54 end