2
#include "C-LAB_Interf.h"
3
#include "TK_uicontrol.h"
4
#include "TK_ScilabCallback.h"
22
Matrix *MOutputHandle;
30
Mfield = (Matrix *)Interf.Param[0];
31
field = MatrixReadString(Mfield);
34
Mvalue = (Matrix *)Interf.Param[1];
35
value = MatrixReadString(Mvalue);
37
sprintf(MyCommand, "set MyTmpBertrand [FindObj \"%s\" \"%s\"];", field, value);
39
Tcl_Eval(TKinterp,MyCommand);
40
StrHandle = Tcl_GetVar(TKinterp, "MyTmpBertrand", 0);
41
Handle = (int)atoi(StrHandle);
43
/* object not found */
44
MOutputHandle = (Matrix *)MatrixCreate(0,0,"real");
48
MOutputHandle = (Matrix *)MatrixCreate(1,1,"real");
49
OutputHandle = (double *)MatrixGetPr(MOutputHandle);
50
*OutputHandle = (double)Handle;
52
ReturnParam(MOutputHandle);