/* ----------------------------------------------------------------------------- * SWIG API. Portion only visible from SWIG * ----------------------------------------------------------------------------- */ #define SWIG_arg(Arg...) Arg #define SWIG_str(Type...) #Type #define SWIG_Mangle(Type...) #@Type #define SWIG_Descriptor(Type...) SWIGTYPE_ ## #@Type #define SWIG_NameType(Name, Type...) SWIG_ ## Name ## _ ## #@Type #define SWIG_StringType(Name, Type...) "SWIG_" #Name "_" {Type} #define SWIG_AsVal(Type...) SWIG_NameType(AsVal, Type) #define SWIG_AsPtr(Type...) SWIG_NameType(AsPtr, Type) #define SWIG_As(Type...) SWIG_NameType(As, Type) #define SWIG_From(Type...) SWIG_NameType(From, Type) #define SWIG_Check(Type...) SWIG_NameType(Check, Type) #define SWIG_CCode(Type...) SWIG_NameType(TYPECHECK, Type) #define SWIG_OrderType(Type...) SWIG_NameType(OrderType, Type) #define SWIG_EqualType(Type...) SWIG_NameType(EqualType, Type) #define SWIG_Traits_frag(Type...) SWIG_StringType(Traits, Type) #define SWIG_AsPtr_frag(Type...) SWIG_StringType(AsPtr, Type) #define SWIG_AsVal_frag(Type...) SWIG_StringType(AsVal, Type) #define SWIG_As_frag(Type...) SWIG_StringType(As, Type) #define SWIG_From_frag(Type...) SWIG_StringType(From, Type) #define SWIG_Check_frag(Type...) SWIG_StringType(Check, Type) #define SWIG_CCode_frag(Type...) SWIG_StringType(TYPECHECK, Type) /* Internal C/C++ API */ #ifdef SWIG_NO_CPLUSPLUS_CAST /* ----------------------------------------------------------------------------- * Disable 'modern' cplusplus casting operators * ----------------------------------------------------------------------------- */ #ifdef SWIG_CPLUSPLUS_CAST #undef SWIG_CPLUSPLUS_CAST #endif #endif #if defined(__cplusplus) #define SWIG_new(Type...) (new Type) #define SWIG_new_copy(ptr,Type...) (new Type(*ptr)) #define SWIG_new_array(size,Type...) (new Type[(size)]) #define SWIG_delete(cptr) delete cptr #define SWIG_delete_array(cptr) delete[] cptr #else /* C case */ #define SWIG_new(Type...) ((Type*)malloc(sizeof(Type))) #define SWIG_new_copy(ptr,Type...) ((Type*)memcpy(malloc(sizeof(Type)),ptr,sizeof(Type))) #define SWIG_new_array(size,Type...) ((Type*) malloc((size)*sizeof(Type))) #define SWIG_delete(cptr) free((char*)cptr) #define SWIG_delete_array(cptr) free((char*)cptr) #endif /* __cplusplus */ #if defined(__cplusplus) && defined(SWIG_CPLUSPLUS_CAST) #define SWIG_const_cast(a,Type...) const_cast(a) #define SWIG_static_cast(a,Type...) static_cast(a) #define SWIG_reinterpret_cast(a,Type...) reinterpret_cast(a) #define SWIG_numeric_cast(a,Type...) static_cast(a) #else /* C case */ #define SWIG_const_cast(a,Type...) (Type)(a) #define SWIG_static_cast(a,Type...) (Type)(a) #define SWIG_reinterpret_cast(a,Type...) (Type)(a) #define SWIG_numeric_cast(a,Type...) (Type)(a) #endif /* __cplusplus */ /* ----------------------------------------------------------------------------- * Auxiliar swig macros used to write typemaps * ----------------------------------------------------------------------------- */ /* define a new macro */ %define SWIG_define(Def, Val) %#define Def Val %enddef /* include C++ or C value */ %define SWIG_cplusplus(cppval, cval) #ifdef __cplusplus cppval #else cval #endif %enddef /* for loop for macro with one argument */ %define %_formacro_1(macro, arg1,...) macro(arg1) #if #__VA_ARGS__ != "__fordone__" %_formacro_1(macro, __VA_ARGS__) #endif %enddef /* for loop for macro with one argument */ %define %formacro_1(macro,...) %_formacro_1(macro,__VA_ARGS__,__fordone__) %enddef /* for loop for macro with two arguments */ %define %_formacro_2(macro, arg1, arg2, ...) macro(arg1, arg2) #if #__VA_ARGS__ != "__fordone__" %_formacro_2(macro, __VA_ARGS__) #endif %enddef /* for loop for macro with two arguments */ %define %formacro_2(macro,...) %_formacro_2(macro, __VA_ARGS__, __fordone__) %enddef /* mark a flag, ie, define a macro name but ignore it in the interface. the flags latter can be used with %evalif */ %define %swig_mark_flag(x) %ignore x; #define x 1 %enddef /* %swig_equal_type and %swig_order_type flagged a type of having equal (==,!=) and/or order methods (<=,>=,<,>). */ #define %swig_equal_type(...) %swig_mark_flag(SWIG_EqualType(__VA_ARGS__)) #define %swig_order_type(...) \ %swig_mark_flag(SWIG_EqualType(__VA_ARGS__)) \ %swig_mark_flag(SWIG_OrderType(__VA_ARGS__)) /* %evalif and %evalif_2 are use to evaluate or process an expression if the given predicate is 'true' (1). */ %define %_evalif(_x,_expr) #if _x == 1 _expr #endif %enddef %define %_evalif_2(_x,_y,_expr) #if _x == 1 && _y == 1 _expr #endif %enddef %define %evalif(_x,...) %_evalif(SWIG_arg(_x),SWIG_arg(__VA_ARGS__)) %enddef %define %evalif_2(_x,_y,...) %_evalif_2(SWIG_arg(_x),SWIG_arg(_y),SWIG_arg(__VA_ARGS__)) %enddef