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
|
exec("swigtest.start", -1);
// bool
checkequal(arr_bool([%T %F %F %T %F %T %T %T], 8), 5, "arr_bool");
// char
checkequal(arr_char(["charptr"], 7), 756, "arr_char");
// signed char
checkequal(arr_schar([1, 2, 3, 4], 4), 10, "arr_schar");
checkequal(arr_schar(int8([1, 2, 3, 4]), 4), 10, "arr_schar");
// unsigned char
checkequal(arr_uchar([1, 2, 3, 4], 4), 10, "arr_uchar");
checkequal(arr_uchar(uint8([1, 2, 3, 4]), 4), 10, "arr_uchar");
// short
checkequal(arr_short([1, 2, 3, 4], 4), 10, "arr_short");
checkequal(arr_short(int16([1, 2, 3, 4]), 4), 10, "arr_short");
// unsigned short
checkequal(arr_ushort([1, 2, 3, 4], 4), 10, "arr_ushort");
checkequal(arr_ushort(uint16([1, 2, 3, 4]), 4), 10, "arr_ushort");
// int
checkequal(arr_int([1, 2, 3, 4], 4), 10, "arr_int");
checkequal(arr_int(int32([1, 2, 3, 4]), 4), 10, "arr_int");
// unsigned int
checkequal(arr_uint([1, 2, 3, 4], 4), 10, "");
checkequal(arr_uint(uint32([1, 2, 3, 4]), 4), 10, "");
// long
checkequal(arr_long([1, 2, 3, 4], 4), 10, "arr_long");
checkequal(arr_long(int32([1, 2, 3, 4]), 4), 10, "arr_long");
// unsigned long
checkequal(arr_ulong([1, 2, 3, 4], 4), 10, "arr_ulong");
checkequal(arr_ulong(uint32([1, 2, 3, 4]), 4), 10, "arr_ulong");
// long long
// No equivalent in Scilab 5
// unsigned long long
// No equivalent in Scilab 5
// float
a = [1, 2, 3, 4];
checkequal(arr_float(a, 4), 10, "arr_float");
// double
a = [1, 2, 3, 4];
checkequal(arr_double(a, 4), 10, "arr_double");
exec("swigtest.quit", -1);
|
