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
|
#include "stack-c.h"
extern int dblearrayc __PARAMS((double **a, int *m, int *n,int *err));
extern int intarrayc __PARAMS((int **a, int *m, int *n,int *err));
extern int crestrc __PARAMS((char **a, int *m,int *err));
int intex6c(fname)
char* fname;
{
char *l1;
int *l2;
double *l3;
int m1,n1,m2,n2,m3,n3,ierr=0;
int minlhs=1, minrhs=0, maxlhs=4, maxrhs=0;
CheckRhs(minrhs,maxrhs) ;
CheckLhs(minlhs,maxlhs) ;
crestrc( &l1, &m1, &ierr);
intarrayc( &l2, &m2, &n2, &ierr);
dblearrayc( &l3, &m3, &n3, &ierr);
if ( ierr > 0 )
{
Scierror(999,"%s: Internal error \r\n",fname);
return 0;
}
n1=1;
/* Creating variable #1 of type character and dimension m1 x n1 (m1=1) */
CreateVarFromPtr( 1, "c", &m1, &n1, &l1);
CreateVarFromPtr( 2, "i", &m2, &n2, &l2);
CreateVarFromPtr( 3, "d", &m3, &n3, &l3);
FreePtr(&l1); FreePtr(&l2); FreePtr(&l3);
/* Returning 3 variables (#1, #2, #3) to Scilab */
LhsVar(1) = 1;
LhsVar(2) = 2;
LhsVar(3) = 3;
return(0);
}
|
