From ac01f75eaa0475879647e8c6e1343e4c49d7c18c Mon Sep 17 00:00:00 2001 From: rupak Date: Thu, 10 Oct 2019 12:57:46 +0530 Subject: added help for toolbox --- sci_gateway/cpp/sci_matrix.c | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100644 sci_gateway/cpp/sci_matrix.c (limited to 'sci_gateway/cpp/sci_matrix.c') diff --git a/sci_gateway/cpp/sci_matrix.c b/sci_gateway/cpp/sci_matrix.c deleted file mode 100644 index cf217d6..0000000 --- a/sci_gateway/cpp/sci_matrix.c +++ /dev/null @@ -1,38 +0,0 @@ - -#include -#include -#include -#include "localization.h" -#include "fun.h" -#include -#include - -static const char fname[] = "octave_fun"; - -int sci_octave_fun(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt* opt, int nout, scilabVar* out) - -{ -double retval; -double* out1 = NULL; - -if (nin != 0) - { - Scierror(77, _("%s: Wrong number of input argument(s): %d expected.\n"), fname, 2); - return 1; - } - -if (nout != 1) - { - Scierror(77, _("%s: Wrong number of output argument(s): %d expected.\n"), fname, 1); - return 1; - } - *out = scilab_createDoubleMatrix2d(env, 1, 1, 5); - fun(&retval); - printf("%f\n", retval); - *out1 = retval; - scilab_getDoubleArray(env, out[0], &out1); - - - - return 0; -} -- cgit