diff options
Diffstat (limited to 'sci_gateway/cpp/sci_matrix_bkup.cpp')
-rw-r--r-- | sci_gateway/cpp/sci_matrix_bkup.cpp | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/sci_gateway/cpp/sci_matrix_bkup.cpp b/sci_gateway/cpp/sci_matrix_bkup.cpp deleted file mode 100644 index 071d330..0000000 --- a/sci_gateway/cpp/sci_matrix_bkup.cpp +++ /dev/null @@ -1,32 +0,0 @@ -extern "C" -{ -#include<Scierror.h> -#include<api_scilab.h> -#include "localization.h" -#include<fun.h> - -static const char fname[] = "octave_fun"; - -int sci_octave_fun(scilabEnv env, int nin, scilabVar* in, int nopt, scilabOpt* opt, int nout, scilabVar* out) - -{ - -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; - } - - double x = fun(); - - out[0] = scilab_createDouble( env, x); - - return 0; -} -} |