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
|
/* Copyright INRIA */
#include "C-LAB_Interf.h"
#include "TK_uicontrol.h"
#include "TK_ScilabCallback.h"
#include "tksci.h"
#include <stdio.h>
void LAB_findobj()
{
Matrix *Mfield;
char *field;
Matrix *Mvalue;
char *value;
Matrix *MOutputHandle;
double *OutputHandle;
char MyCommand[2000];
char *StrHandle;
int Handle;
Mfield = (Matrix *)Interf.Param[0];
field = MatrixReadString(Mfield);
nocase(field);
Mvalue = (Matrix *)Interf.Param[1];
value = MatrixReadString(Mvalue);
nocase(value);
sprintf(MyCommand, "set MyTmpBertrand [FindObj \"%s\" \"%s\"];", field, value);
Tcl_Eval(TKinterp,MyCommand);
StrHandle = Tcl_GetVar(TKinterp, "MyTmpBertrand", 0);
Handle = (int)atoi(StrHandle);
if (Handle == -1)
/* object not found */
MOutputHandle = (Matrix *)MatrixCreate(0,0,"real");
else
{
/* objet found */
MOutputHandle = (Matrix *)MatrixCreate(1,1,"real");
OutputHandle = (double *)MatrixGetPr(MOutputHandle);
*OutputHandle = (double)Handle;
}
ReturnParam(MOutputHandle);
}
|
