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
|
/* Copyright ENPC */
/********************************************************
* choice.c
* All the generic stuff for dealing with choice widgets.
* (from xgc)
***********************************************************/
#ifdef WIN32
#include "wmen_scilab.h"
#else
#include "men_scilab.h"
#endif
SciStuff **Everything = NULL;
/*************************************************
* Interface to work with Scilab
************************************************/
void C2F(xchoices)(descla,ptrdescla,nvla,desc,ptrdesc,nv,defval,nitems,rep)
int *desc,*ptrdesc,*nv,*defval,*nitems;
int *descla,*ptrdescla,*nvla,*rep;
{
int ierr,i,sepc=0;
char **items,*label;
ierr=0;
ScilabMStr2C(descla,nvla,ptrdescla,&label,&ierr);
if ( ierr == 1) return;
ScilabMStr2CM(desc,nv,ptrdesc,&items,&ierr);
if ( ierr == 1) return;
for (i = 0 ; i < *nv ; i++ )
if ( strcmp(items[i],"[--sep--]")==0)
{
sepc++;
FREE(items[i]);
items[i]= (char *) NULL;
};
if ( sepc != *nitems-1)
{
sciprint("x_choices : the choice vector is too small\r\n");
return;
}
*rep=SciChoice(label,items,defval,*nitems);
for (i=0;i< *nv;i++) FREE(items[i]); FREE(items);
FREE(label);
}
/*************************************************
* test function
************************************************/
int TestChoice()
{
static char* items[] = {
"Label1", "choice1", "a choice2",
NULL,
"colors", "1","4","5","2","3","7","6",
NULL,
"Label2", "poo", "foo","goo",
NULL,
"Label3", "Blue", "train",
NULL,
};
static int defch[]={1,3,3,2};
static int nitems= 4;
return(SciChoice("test",items,defch,nitems));
}
/*************************************************
*
* Main function
*if test == 1
*a test is used whitout using items, defval, nitems
*see choice-test.c
************************************************/
int SciChoice(label,items,defval,nitems)
char **items,*label;
int defval[], nitems;
{
int rep;
rep = SciChoiceCreate(items,defval,nitems);
if ( rep == 0 )
{
sciprint("x_choices : No more place\r\n");
return(-1);
}
else if ( rep == -1 )
{
sciprint("Only one toggle menu at a time please \n");
return(-1);
}
rep=SciChoiceI(label,defval,nitems);
SciChoiceFree(nitems);
return(rep);
}
|
