|
1899
|
1 /* -----------------------------------------------------------------------------
|
|
|
2 * cdata.i
|
|
|
3 *
|
|
|
4 * SWIG library file containing macros for manipulating raw C data as strings.
|
|
|
5 * ----------------------------------------------------------------------------- */
|
|
|
6
|
|
|
7 %{
|
|
|
8 typedef struct SWIGCDATA {
|
|
|
9 char *data;
|
|
|
10 int len;
|
|
|
11 } SWIGCDATA;
|
|
|
12 %}
|
|
|
13
|
|
|
14 /* -----------------------------------------------------------------------------
|
|
|
15 * Typemaps for returning binary data
|
|
|
16 * ----------------------------------------------------------------------------- */
|
|
|
17
|
|
|
18 #if SWIGGUILE
|
|
|
19 %typemap(out) SWIGCDATA {
|
|
|
20 $result = scm_from_locale_stringn($1.data,$1.len);
|
|
|
21 }
|
|
|
22 %typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
|
|
|
23 #elif SWIGCHICKEN
|
|
|
24 %typemap(out) SWIGCDATA {
|
|
|
25 C_word *string_space = C_alloc(C_SIZEOF_STRING($1.len));
|
|
|
26 $result = C_string(&string_space, $1.len, $1.data);
|
|
|
27 }
|
|
|
28 %typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
|
|
|
29 #elif SWIGPHP
|
|
|
30 %typemap(out) SWIGCDATA {
|
|
|
31 ZVAL_STRINGL($result, $1.data, $1.len, 1);
|
|
|
32 }
|
|
|
33 %typemap(in) (const void *indata, int inlen) = (char *STRING, int LENGTH);
|
|
|
34 #else
|
|
|
35 %echo "cdata.i module not supported."
|
|
|
36 #endif
|
|
|
37
|
|
|
38
|
|
|
39 /* -----------------------------------------------------------------------------
|
|
|
40 * %cdata(TYPE [, NAME])
|
|
|
41 *
|
|
|
42 * Convert raw C data to a binary string.
|
|
|
43 * ----------------------------------------------------------------------------- */
|
|
|
44
|
|
|
45 %define %cdata(TYPE,NAME...)
|
|
|
46
|
|
|
47 %insert("header") {
|
|
|
48 #if #NAME == ""
|
|
|
49 static SWIGCDATA cdata_##TYPE(TYPE *ptr, int nelements) {
|
|
|
50 #else
|
|
|
51 static SWIGCDATA cdata_##NAME(TYPE *ptr, int nelements) {
|
|
|
52 #endif
|
|
|
53 SWIGCDATA d;
|
|
|
54 d.data = (char *) ptr;
|
|
|
55 #if #TYPE != "void"
|
|
|
56 d.len = nelements*sizeof(TYPE);
|
|
|
57 #else
|
|
|
58 d.len = nelements;
|
|
|
59 #endif
|
|
|
60 return d;
|
|
|
61 }
|
|
|
62 }
|
|
|
63
|
|
|
64 %typemap(default) int nelements "$1 = 1;"
|
|
|
65
|
|
|
66 #if #NAME == ""
|
|
|
67 SWIGCDATA cdata_##TYPE(TYPE *ptr, int nelements);
|
|
|
68 #else
|
|
|
69 SWIGCDATA cdata_##NAME(TYPE *ptr, int nelements);
|
|
|
70 #endif
|
|
|
71 %enddef
|
|
|
72
|
|
|
73 %typemap(default) int nelements;
|
|
|
74
|
|
|
75 %rename(cdata) ::cdata_void(void *ptr, int nelements);
|
|
|
76
|
|
|
77 %cdata(void);
|
|
|
78
|
|
|
79 /* Memory move function. Due to multi-argument typemaps this appears to be wrapped as
|
|
|
80 void memmove(void *data, const char *s); */
|
|
|
81 void memmove(void *data, const void *indata, int inlen);
|
