b094149eb8
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10469 626c5289-ae23-0410-ae9c-e8d60b6d4f22
61 lines
1.3 KiB
OpenEdge ABL
61 lines
1.3 KiB
OpenEdge ABL
%module wrapmacro
|
|
|
|
#ifdef SWIGLUA // lua only has one numeric type, so some overloads shadow each other creating warnings
|
|
%warnfilter(SWIGWARN_LANG_OVERLOAD_SHADOW) SWIGMACRO_max;
|
|
#endif
|
|
|
|
/* Testing technique for wrapping macros */
|
|
|
|
%{
|
|
#ifdef max
|
|
#undef max
|
|
#endif
|
|
%}
|
|
|
|
/* Here, some macros to wrap */
|
|
%inline %{
|
|
|
|
typedef unsigned short guint16;
|
|
|
|
#define GUINT16_SWAP_LE_BE_CONSTANT(val) ((guint16) ( \
|
|
(guint16) ((guint16) (val) >> 8) | \
|
|
(guint16) ((guint16) (val) << 8)))
|
|
|
|
#define max(a,b) ((a) > (b) ? (a) : (b))
|
|
|
|
%}
|
|
|
|
|
|
/* Here, the auxiliary macro to wrap a macro */
|
|
%define %wrapmacro(type, name, lparams, lnames)
|
|
%rename(name) SWIGMACRO_##name;
|
|
%inline %{
|
|
type SWIGMACRO_##name(lparams) {
|
|
return name(lnames);
|
|
}
|
|
%}
|
|
%enddef
|
|
#define PLIST(...) __VA_ARGS__
|
|
|
|
|
|
|
|
/* Here, wrapping the macros */
|
|
%wrapmacro(guint16, GUINT16_SWAP_LE_BE_CONSTANT, guint16 val, val);
|
|
%wrapmacro(size_t, max, PLIST(size_t a, const size_t& b), PLIST(a, b));
|
|
%wrapmacro(double, max, PLIST(double a, double b), PLIST(a, b));
|
|
|
|
|
|
/* Maybe in the future, a swig directive will make this easier:
|
|
|
|
#define max(a,b) ((a) > (b) ? (a) : (b))
|
|
|
|
%wrapmacro double max(long a, double b); // target name is 'max'
|
|
%wrapmacro(max_i) int max(int a, int b); // changes target name to 'max_i'.
|
|
|
|
*/
|
|
|
|
%{
|
|
#ifdef max
|
|
#undef max
|
|
#endif
|
|
%}
|