PageRenderTime 8ms CodeModel.GetById 2ms app.highlight 3ms RepoModel.GetById 1ms app.codeStats 0ms

/trunk/Lib/octave/boost_shared_ptr.i

#
Swig | 307 lines | 281 code | 26 blank | 0 comment | 0 complexity | 31f8ff37dac8960e8150ef81705e3d10 MD5 | raw file
  1%include <shared_ptr.i>
  2
  3// Language specific macro implementing all the customisations for handling the smart pointer
  4%define SWIG_SHARED_PTR_TYPEMAPS(CONST, TYPE...)
  5
  6// %naturalvar is as documented for member variables
  7%naturalvar TYPE;
  8%naturalvar SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >;
  9
 10// destructor wrapper customisation
 11%feature("unref") TYPE 
 12//"if (debug_shared) { cout << \"deleting use_count: \" << (*smartarg1).use_count() << \" [\" << (boost::get_deleter<SWIG_null_deleter>(*smartarg1) ? std::string(\"CANNOT BE DETERMINED SAFELY\") : ( (*smartarg1).get() ? (*smartarg1)->getValue() : std::string(\"NULL PTR\") )) << \"]\" << endl << flush; }\n"
 13                               "(void)arg1; delete smartarg1;"
 14
 15// Typemap customisations...
 16
 17// plain value
 18%typemap(in) CONST TYPE (void *argp, int res = 0) {
 19  int newmem = 0;
 20  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
 21  if (!SWIG_IsOK(res)) {
 22    %argument_fail(res, "$type", $symname, $argnum); 
 23  }
 24  if (!argp) {
 25    %argument_nullref("$type", $symname, $argnum);
 26  } else {
 27    $1 = *(%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *)->get());
 28    if (newmem & SWIG_CAST_NEW_MEMORY) delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 29  }
 30}
 31%typemap(out) CONST TYPE {
 32  %set_output(SWIG_NewPointerObj(new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(new $1_ltype(($1_ltype &)$1)), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
 33}
 34
 35%typemap(varin) CONST TYPE {
 36  void *argp = 0;
 37  int newmem = 0;
 38  int res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
 39  if (!SWIG_IsOK(res)) {
 40    %variable_fail(res, "$type", "$name");
 41  }
 42  if (!argp) {
 43    %argument_nullref("$type", $symname, $argnum);
 44  } else {
 45    $1 = *(%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *)->get());
 46    if (newmem & SWIG_CAST_NEW_MEMORY) delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 47  }
 48}
 49%typemap(varout) CONST TYPE {
 50  %set_varoutput(SWIG_NewPointerObj(new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(new $1_ltype(($1_ltype &)$1)), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
 51}
 52
 53// plain pointer
 54// Note: $disown not implemented as it will lead to a memory leak of the shared_ptr instance
 55%typemap(in) CONST TYPE * (void  *argp = 0, int res = 0, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > tempshared, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartarg = 0) {
 56  int newmem = 0;
 57  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
 58  if (!SWIG_IsOK(res)) {
 59    %argument_fail(res, "$type", $symname, $argnum); 
 60  }
 61  if (newmem & SWIG_CAST_NEW_MEMORY) {
 62    tempshared = *%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 63    delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 64    $1 = %const_cast(tempshared.get(), $1_ltype);
 65  } else {
 66    smartarg = %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 67    $1 = %const_cast((smartarg ? smartarg->get() : 0), $1_ltype);
 68  }
 69}
 70%typemap(out, fragment="SWIG_null_deleter") CONST TYPE * {
 71  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = $1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >($1 SWIG_NO_NULL_DELETER_$owner) : 0;
 72  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), $owner | SWIG_POINTER_OWN));
 73}
 74
 75%typemap(varin) CONST TYPE * {
 76  void *argp = 0;
 77  int newmem = 0;
 78  int res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
 79  if (!SWIG_IsOK(res)) {
 80    %variable_fail(res, "$type", "$name");
 81  }
 82  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > tempshared;
 83  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartarg = 0;
 84  if (newmem & SWIG_CAST_NEW_MEMORY) {
 85    tempshared = *%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 86    delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 87    $1 = %const_cast(tempshared.get(), $1_ltype);
 88  } else {
 89    smartarg = %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
 90    $1 = %const_cast((smartarg ? smartarg->get() : 0), $1_ltype);
 91  }
 92}
 93%typemap(varout, fragment="SWIG_null_deleter") CONST TYPE * {
 94  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = $1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >($1 SWIG_NO_NULL_DELETER_0) : 0;
 95  %set_varoutput(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
 96}
 97
 98// plain reference
 99%typemap(in) CONST TYPE & (void  *argp = 0, int res = 0, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > tempshared) {
100  int newmem = 0;
101  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
102  if (!SWIG_IsOK(res)) {
103    %argument_fail(res, "$type", $symname, $argnum); 
104  }
105  if (!argp) { %argument_nullref("$type", $symname, $argnum); }
106  if (newmem & SWIG_CAST_NEW_MEMORY) {
107    tempshared = *%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
108    delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
109    $1 = %const_cast(tempshared.get(), $1_ltype);
110  } else {
111    $1 = %const_cast(%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *)->get(), $1_ltype);
112  }
113}
114%typemap(out, fragment="SWIG_null_deleter") CONST TYPE & {
115  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >($1 SWIG_NO_NULL_DELETER_$owner);
116  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
117}
118
119%typemap(varin) CONST TYPE & {
120  void *argp = 0;
121  int newmem = 0;
122  int res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
123  if (!SWIG_IsOK(res)) {
124    %variable_fail(res, "$type", "$name");
125  }
126  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > tempshared;
127  if (!argp) { %argument_nullref("$type", $symname, $argnum); }
128  if (newmem & SWIG_CAST_NEW_MEMORY) {
129    tempshared = *%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
130    delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
131    $1 = *%const_cast(tempshared.get(), $1_ltype);
132  } else {
133    $1 = *%const_cast(%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *)->get(), $1_ltype);
134  }
135}
136%typemap(varout, fragment="SWIG_null_deleter") CONST TYPE & {
137  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(&$1 SWIG_NO_NULL_DELETER_0);
138  %set_varoutput(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
139}
140
141// plain pointer by reference
142// Note: $disown not implemented as it will lead to a memory leak of the shared_ptr instance
143%typemap(in) TYPE *CONST& (void  *argp = 0, int res = 0, $*1_ltype temp = 0, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > tempshared) {
144  int newmem = 0;
145  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
146  if (!SWIG_IsOK(res)) {
147    %argument_fail(res, "$type", $symname, $argnum); 
148  }
149  if (newmem & SWIG_CAST_NEW_MEMORY) {
150    tempshared = *%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
151    delete %reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *);
152    temp = %const_cast(tempshared.get(), $*1_ltype);
153  } else {
154    temp = %const_cast(%reinterpret_cast(argp, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *)->get(), $*1_ltype);
155  }
156  $1 = &temp;
157}
158%typemap(out, fragment="SWIG_null_deleter") TYPE *CONST& {
159  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(*$1 SWIG_NO_NULL_DELETER_$owner);
160  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
161}
162
163%typemap(varin) TYPE *CONST& %{
164#error "varin typemap not implemented"
165%}
166%typemap(varout) TYPE *CONST& %{
167#error "varout typemap not implemented"
168%}
169
170// shared_ptr by value
171%typemap(in) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > (void *argp, int res = 0) {
172  int newmem = 0;
173  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
174  if (!SWIG_IsOK(res)) {
175    %argument_fail(res, "$type", $symname, $argnum); 
176  }
177  if (argp) $1 = *(%reinterpret_cast(argp, $&ltype));
178  if (newmem & SWIG_CAST_NEW_MEMORY) delete %reinterpret_cast(argp, $&ltype);
179}
180%typemap(out) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > {
181  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = $1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >($1) : 0;
182  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
183}
184
185%typemap(varin) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > {
186  int newmem = 0;
187  void *argp = 0;
188  int res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
189  if (!SWIG_IsOK(res)) {
190    %variable_fail(res, "$type", "$name");
191  }
192  $1 = argp ? *(%reinterpret_cast(argp, $&ltype)) : SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE >();
193  if (newmem & SWIG_CAST_NEW_MEMORY) delete %reinterpret_cast(argp, $&ltype);
194}
195%typemap(varout) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > {
196  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = $1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >($1) : 0;
197  %set_varoutput(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
198}
199
200// shared_ptr by reference
201%typemap(in) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > & (void *argp, int res = 0, $*1_ltype tempshared) {
202  int newmem = 0;
203  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
204  if (!SWIG_IsOK(res)) {
205    %argument_fail(res, "$type", $symname, $argnum); 
206  }
207  if (newmem & SWIG_CAST_NEW_MEMORY) {
208    if (argp) tempshared = *%reinterpret_cast(argp, $ltype);
209    delete %reinterpret_cast(argp, $ltype);
210    $1 = &tempshared;
211  } else {
212    $1 = (argp) ? %reinterpret_cast(argp, $ltype) : &tempshared;
213  }
214}
215%typemap(out) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > & {
216  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = *$1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(*$1) : 0;
217  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
218}
219
220%typemap(varin) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > & %{
221#error "varin typemap not implemented"
222%}
223%typemap(varout) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > & %{
224#error "varout typemap not implemented"
225%}
226
227// shared_ptr by pointer
228%typemap(in) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > * (void *argp, int res = 0, $*1_ltype tempshared) {
229  int newmem = 0;
230  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
231  if (!SWIG_IsOK(res)) {
232    %argument_fail(res, "$type", $symname, $argnum); 
233  }
234  if (newmem & SWIG_CAST_NEW_MEMORY) {
235    if (argp) tempshared = *%reinterpret_cast(argp, $ltype);
236    delete %reinterpret_cast(argp, $ltype);
237    $1 = &tempshared;
238  } else {
239    $1 = (argp) ? %reinterpret_cast(argp, $ltype) : &tempshared;
240  }
241}
242%typemap(out) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > * {
243  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = $1 && *$1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(*$1) : 0;
244  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
245  if ($owner) delete $1;
246}
247
248%typemap(varin) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > * %{
249#error "varin typemap not implemented"
250%}
251%typemap(varout) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > * %{
252#error "varout typemap not implemented"
253%}
254
255// shared_ptr by pointer reference
256%typemap(in) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *& (void *argp, int res = 0, SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > tempshared, $*1_ltype temp = 0) {
257  int newmem = 0;
258  res = SWIG_ConvertPtrAndOwn($input, &argp, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), %convertptr_flags, &newmem);
259  if (!SWIG_IsOK(res)) {
260    %argument_fail(res, "$type", $symname, $argnum); 
261  }
262  if (argp) tempshared = *%reinterpret_cast(argp, $*ltype);
263  if (newmem & SWIG_CAST_NEW_MEMORY) delete %reinterpret_cast(argp, $*ltype);
264  temp = &tempshared;
265  $1 = &temp;
266}
267%typemap(out) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *& {
268  SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *smartresult = *$1 && **$1 ? new SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >(**$1) : 0;
269  %set_output(SWIG_NewPointerObj(%as_voidptr(smartresult), $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), SWIG_POINTER_OWN));
270}
271
272%typemap(varin) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *& %{
273#error "varin typemap not implemented"
274%}
275%typemap(varout) SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *& %{
276#error "varout typemap not implemented"
277%}
278
279// Typecheck typemaps
280// Note: SWIG_ConvertPtr with void ** parameter set to 0 instead of using SWIG_ConvertPtrAndOwn, so that the casting 
281// function is not called thereby avoiding a possible smart pointer copy constructor call when casting up the inheritance chain.
282%typemap(typecheck,precedence=SWIG_TYPECHECK_POINTER,noblock=1) 
283                      TYPE CONST,
284                      TYPE CONST &,
285                      TYPE CONST *,
286                      TYPE *CONST&,
287                      SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >,
288                      SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > &,
289                      SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *,
290                      SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE > *& {
291  int res = SWIG_ConvertPtr($input, 0, $descriptor(SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< TYPE > *), 0);
292  $1 = SWIG_CheckState(res);
293}
294
295
296// various missing typemaps - If ever used (unlikely) ensure compilation error rather than runtime bug
297%typemap(in) CONST TYPE[], CONST TYPE[ANY], CONST TYPE (CLASS::*) %{
298#error "typemaps for $1_type not available"
299%}
300%typemap(out) CONST TYPE[], CONST TYPE[ANY], CONST TYPE (CLASS::*) %{
301#error "typemaps for $1_type not available"
302%}
303
304
305%template() SWIG_SHARED_PTR_QNAMESPACE::shared_ptr< CONST TYPE >;
306%enddef
307