diff options
Diffstat (limited to 'sci_gateway/cpp/sci_sym_solve.cpp~')
-rw-r--r-- | sci_gateway/cpp/sci_sym_solve.cpp~ | 49 |
1 files changed, 0 insertions, 49 deletions
diff --git a/sci_gateway/cpp/sci_sym_solve.cpp~ b/sci_gateway/cpp/sci_sym_solve.cpp~ deleted file mode 100644 index 4abb268..0000000 --- a/sci_gateway/cpp/sci_sym_solve.cpp~ +++ /dev/null @@ -1,49 +0,0 @@ -/* - * Implementation Symphony Tool Box for Scilab - * Contains sym_solve function - * Author : Sai Kiran - */ - -#include <symphony.h> -#include <sci_iofunc.hpp> -extern sym_environment* global_sym_env;//defined in globals.cpp - -extern "C" { -#include <api_scilab.h> -#include <Scierror.h> -#include <BOOL.h> -#include <localization.h> -#include <sciprint.h> -#include <stdio.h> -int process_ret_val(int); - -int sci_sym_solve(char *fname, unsigned long fname_len){ - - int status=0; - - //check whether we have no input and one output argument or not - CheckInputArgument(pvApiCtx, 0, 0) ;//no input argument - CheckOutputArgument(pvApiCtx, 1, 1) ;//one output argument - - // Check environment - if(global_sym_env==NULL) - sciprint("Error: Symphony environment is not initialized.\n"); - else {// There is an environment opened - double time_limit = -1.0; - status = sym_get_dbl_param(global_sym_env,"time_limit",&time_limit); - - if (status == FUNCTION_TERMINATED_NORMALLY) { - if ( time_limit < 0.0 ) - sciprint("\nNote: There is no limit on time.\n"); - else sciprint("\nNote: Time limit has been set to %lf.\n",time_limit); - status=process_ret_val(sym_solve(global_sym_env));// Call function - } - else { - sciprint("\nUnable to read time limit.\n"); - status = 1; //Error state - } - } - // Return result to scilab - return returnDoubleToScilab(status); - } -} |