1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
// Copyright (C) 2015 - IIT Bombay - FOSSEE
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
// Author: Keyur Joshi, Iswarya
// Organization: FOSSEE, IIT Bombay
// Email: toolbox@scilab.in
#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>
/* Function that initializes the symphony environment
* Returns 1 on success , 0 on failure
*/
int sci_sym_open(char *fname, unsigned long fname_len){
// Error management variable
SciErr sciErr;
double 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("Warning: Symphony environment is already initialized.\n");
// }else{
global_sym_env = sym_open_environment();//open an environment
if (!global_sym_env)
sciprint("Error: Unable to create symphony environment.\n");
else{
status=1;
//sciprint("Symphony environment is created successfully. Please run 'sym_close()' to close.\n");
//create useful variables for user
createNamedScalarDouble(pvApiCtx,"sym_minimize",1);
createNamedScalarDouble(pvApiCtx,"sym_maximize",-1);
}
}
/*write satus of function (success-1 or failure-0) as output argument to scilab*/
if(returnDoubleToScilab(status))
return 1;
return 0;
}
/*Function that closes symphony environment
* Returns 1 on success , 0 on failure
*/
int sci_sym_close(char *fname, unsigned long fname_len){
// Error management variable
SciErr sciErr;
double status=0;
int output;//output parameter for closing the environment
//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
if (global_sym_env==NULL){//check for environment
sciprint("Error: symphony environment is not initialized.\n");
}else{
output=sym_close_environment(global_sym_env);//close environment
if(output==ERROR__USER){
status=0;//User error detected in user_free_master() function or when function invoked unsuccessfully
sciprint("Error in user_free_master()\n");
}else if(output==FUNCTION_TERMINATED_ABNORMALLY){
status=0;//function invoked unsuccessfully
sciprint("Symphony environment could not be closed.\n");
}else if(output==FUNCTION_TERMINATED_NORMALLY){
status=1;//function invoked successfully and no error
global_sym_env=NULL;//important to set to NULL, so that other functions can detect that environment is not open.
//sciprint("Symphony environement closed successfully. Please run 'sym_open()' to restart.\n");
//delete the sym_ variables
deleteNamedVariable(pvApiCtx,"sym_minimize");
deleteNamedVariable(pvApiCtx,"sym_maximize");
}
}
/*write satus of function (success-1 or failure-0) as output argument to scilab*/
if(returnDoubleToScilab(status))
return 1;
return 0;
}
}
|
