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
|
#include "stack-c.h"
/*--------------------------------------------------------
* An example of an hand written interface
* passing a Scilab function as input of function ex14c
*
* call in Scilab:-->ex14c(x1,x2,a_function)
* x1<->1 (double array)
* x2<->2 (double array)
* a_function <-> 3 (a scilab function).
* a_function is the function "myfunction" defined
* in ex14c.sce. It has mlhs=2 inputs and mrhs=3 outputs.
*
*--------------------------------------------------------*/
int intex14c(fname)
char *fname;
{
int ibegin;
static int l1, m1, n1, m2, n2, l2,mlhs,mrhs,lf, l4,l5,i;
static int minlhs=1, minrhs=3, maxlhs=3, maxrhs=3;
CheckRhs(minrhs,maxrhs) ;
CheckLhs(minlhs,maxlhs) ;
/* Getting x1 and x2 at l1 and l2 . x1 is m1 x n1 and x2 is m2 x n2 */
GetRhsVar(1, "d", &m1, &n1, &l1);
GetRhsVar(2, "d", &m2, &n2, &l2);
/* Getting the Scilab function:
It is the 3rd input parameter of ex14c and it is a function ("f") */
GetRhsVar(3, "f", &mlhs, &mrhs, &lf);
/* It is at lf and has mlhs outputs and mrhs inputs */
if ( mrhs != 2 )
{
Scierror(999,"%s: Third argument has an invalid rhs\r\n",fname);
return 0;
}
/*
* To call a_function it is required that its input arguments are
* stored in the last positions of the variables stack. NOTE that when
* called, the function destroys its input variables and replaces them by
* the output variables. so in this case we need to make a copy of
* them.
* Remark: if the calling sequence of ex14c had been ex14c(a_function,x1,x2)
* the following two copies would be un-necessary.
*/
CreateVar(3+1, "d", &m1, &n1, &l4);
for (i =0 ; i < m1*n1 ; i++) *stk(l4+i) = *stk(l1+i);
CreateVar(3+mrhs, "d", &m2, &n2, &l5);
for (i =0 ; i < m1*n1 ; i++) *stk(l5+i) = *stk(l2+i);
/*
* Here a_function takes variables 4 and 5 as inputs and generates output
* variables at positions 4 to 4-1+mlhs
* ibegin must be the index of the first input variable of a_function
*/
ibegin=3+1;
/* execute the function */
SciFunction(&ibegin,&lf,&mlhs,&mrhs);
/* check if an error has occured while running a_function */
if (Err > 0 ) return 0;
/* output variables: 4 and 5 (created by a_function) and possibly 6
* if a_function has 3 output parameters
*/
LhsVar(1) = 4;
LhsVar(2) = 5;
if ( mlhs == 3) LhsVar(3) = 6;
return 0;
}
|
