blob: 695dd068f811eb35c284184b189285cbf923065f (
plain)
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
87
|
/* Test %apply for char *, signed char *, unsigned char *
This won't work in all situations, so does not necessarily have to be implemented. See
http://groups.google.com.ai/group/comp.lang.c++.moderated/browse_thread/thread/ad5873ce25d49324/0ae94552452366be?lnk=raot */
%module(directors="1") apply_strings
%warnfilter(SWIGWARN_TYPEMAP_THREAD_UNSAFE,SWIGWARN_TYPEMAP_DIRECTOROUT_PTR) DirectorTest;
%warnfilter(SWIGWARN_TYPEMAP_VARIN_UNDEF) DigitsGlobalB;
%warnfilter(SWIGWARN_TYPEMAP_SWIGTYPELEAK) DigitsGlobalC;
#if defined(SWIGSCILAB)
%rename(TNum) TNumber;
%rename(DirTest) DirectorTest;
#endif
%apply char * {UCharPtr};
%apply char * {SCharPtr};
%apply const char * {CUCharPtr};
%apply const char * {CSCharPtr};
%inline %{
typedef unsigned char* UCharPtr;
typedef signed char* SCharPtr;
typedef const unsigned char* CUCharPtr;
typedef const signed char* CSCharPtr;
UCharPtr UCharFunction(UCharPtr str) { return str; }
SCharPtr SCharFunction(SCharPtr str) { return str; }
CUCharPtr CUCharFunction(CUCharPtr str) { return str; }
CSCharPtr CSCharFunction(CSCharPtr str) { return str; }
%}
%typemap(freearg) SWIGTYPE * ""
%apply SWIGTYPE* {CharPtr};
%apply SWIGTYPE* {CCharPtr};
%inline %{
typedef char* CharPtr;
typedef const char* CCharPtr;
CharPtr CharFunction(CharPtr buffer) { return buffer; }
CCharPtr CCharFunction(CCharPtr buffer) { return buffer; }
%}
// unsigned char* as strings
#if defined(SWIGJAVA) || defined(SWIGCSHARP)
/* Note: Chicken does not allow unsigned char * in strings */
%apply char [ANY] {TAscii[ANY]}
%apply char [] {TAscii []}
%apply char * {TAscii *}
#endif
%inline %{
typedef unsigned char TAscii;
typedef struct {
TAscii DigitsMemberA[20];
TAscii *DigitsMemberB;
} TNumber;
TAscii DigitsGlobalA[20];
TAscii DigitsGlobalB[] = {(unsigned char)'A', (unsigned char)'B', 0};
TAscii *DigitsGlobalC;
%}
// Director test
%feature("director");
#if defined(SWIGGO)
%typemap(godirectorout) CharPtr, CCharPtr ""
#endif
%inline %{
struct DirectorTest {
virtual UCharPtr UCharFunction(UCharPtr str) { return str; }
virtual SCharPtr SCharFunction(SCharPtr str) { return str; }
virtual CUCharPtr CUCharFunction(CUCharPtr str) { return str; }
virtual CSCharPtr CSCharFunction(CSCharPtr str) { return str; }
virtual CharPtr CharFunction(CharPtr buffer) { return buffer; }
virtual CCharPtr CCharFunction(CCharPtr buffer) { return buffer; }
virtual ~DirectorTest() {}
};
%}
|
