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
|
/* Copyright ENPC */
#ifdef WIN32
#include "wmen_scilab.h"
#else
#include "men_scilab.h"
#endif
#ifdef WIN32
#include "../os_specific/win_mem_alloc.h" /* MALLOC */
#else
#include "../os_specific/sci_mem_alloc.h" /* MALLOC */
#endif
int MatrixDialogWindow(void);
MADialog MAD = { NULL,NULL,NULL,NULL,-1,0,0,0};
/*************************************************
* Interface with Scilab
**********************************************************/
void C2F(xmatdg)(int *label, int *ptrlab, int *nlab, int *value, int *ptrv, int *descv, int *ptrdescv, int *desch, int *ptrdesch, int *nl, int *nc, int *res, int *ptrres, int *ierr)
{
int i,rep;
int maxchars;
if ( MAD.nv >= 0)
{
sciprint("Only one madialog at a time please \r\n");
return ;
}
maxchars = *ierr;
*ierr=0;
MAD.nv = *nl*(*nc);
/* conversion of scilab characters into strings */
ScilabMStr2C(label,nlab,ptrlab,&(MAD.labels),ierr);
if ( *ierr == 1) { MAD.nv = -1; return; }
ScilabMStr2CM(descv,nl,ptrdescv,&(MAD.VDesc),ierr);
if ( *ierr == 1) { MAD.nv = -1; return; }
ScilabMStr2CM(desch,nc,ptrdesch,&(MAD.HDesc),ierr);
if ( *ierr == 1) { MAD.nv = -1; return; }
ScilabMStr2CM(value,&(MAD.nv),ptrv,&(MAD.data),ierr);
if ( *ierr == 1) { MAD.nv = -1; return; }
MAD.nl = *nl;
MAD.nc = *nc;
MAD.ierr = 0;
rep = MatrixDialogWindow();
if ( rep == FALSE || MAD.ierr == 1 )
{
*nl = 0;
}
else
{
ScilabCM2MStr(MAD.data,MAD.nv,res,ptrres,maxchars,ierr);
}
FREE(MAD.labels);
for (i=0;i< MAD.nl*MAD.nc;i++) FREE(MAD.data[i]); FREE(MAD.data);
for (i=0;i< MAD.nl;i++) FREE(MAD.VDesc[i]); FREE(MAD.VDesc);
for (i=0;i< MAD.nc;i++) FREE(MAD.HDesc[i]); FREE(MAD.HDesc);
MAD.nv = -1;
}
|
