1 files changed, 49 insertions, 0 deletions
diff --git a/sci_gateway/cpp/sci_sym_solve.cpp~ b/sci_gateway/cpp/sci_sym_solve.cpp~
new file mode 100644
index 0000000..4abb268
--- /dev/null
+++ b/sci_gateway/cpp/sci_sym_solve.cpp~
@@ -0,0 +1,49 @@
+/*
+ * 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);
+	}
+}