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
|
/* -----------------------------------------------------------------------------
* typemaps.i
*
* ----------------------------------------------------------------------------- */
// INPUT typemaps
%define %scilab_input_typemap(Type)
%typemap(in, noblock=1, fragment=SWIG_AsVal_frag(Type)) Type *INPUT(Type temp)(int ecode), Type &INPUT(Type temp)(int ecode) {
ecode = SWIG_AsVal_dec(Type)($input, &temp);
if (!SWIG_IsOK(ecode)) {
%argument_fail(ecode, "$type", $symname, $argnum);
}
$1 = &temp;
}
%typemap(freearg, noblock=1) Type *INPUT, Type &INPUT {
}
%typemap(typecheck) Type *INPUT, Type &INPUT {
}
%enddef
// OUTPUT typemaps
%define %scilab_output_typemap(Type)
%typemap(argout, noblock=1, fragment=SWIG_From_frag(Type)) Type *OUTPUT, Type &OUTPUT {
%set_output(SWIG_From_dec(Type)(*$1));
}
%enddef
// INOUT typemaps
%define %scilab_inout_typemap(Type)
%typemap(in) Type *INOUT = Type *INPUT;
%typemap(in) Type &INOUT = Type &INPUT;
%typemap(argout) Type *INOUT = Type *OUTPUT;
%typemap(argout) Type &INOUT = Type &OUTPUT;
%enddef
%define %scilab_inout_typemaps(Type)
%scilab_input_typemap(%arg(Type))
%scilab_output_typemap(%arg(Type))
%scilab_inout_typemap(%arg(Type))
%enddef
%scilab_inout_typemaps(double);
%scilab_inout_typemaps(signed char);
%scilab_inout_typemaps(unsigned char);
%scilab_inout_typemaps(short);
%scilab_inout_typemaps(unsigned short);
%scilab_inout_typemaps(int);
%scilab_inout_typemaps(unsigned int);
%scilab_inout_typemaps(long);
%scilab_inout_typemaps(unsigned long);
%scilab_inout_typemaps(bool);
%scilab_inout_typemaps(float);
//%apply_ctypes(%scilab_inout_typemaps);
|