22 lines
496 B
OpenEdge ABL
22 lines
496 B
OpenEdge ABL
|
/* -----------------------------------------------------------------------------
|
||
|
|
* attribute.i
|
||
|
|
*
|
||
|
|
* SWIG library file for implementing attributes.
|
||
|
|
* ----------------------------------------------------------------------------- */
|
||
|
|
|
||
|
|
/* we use a simple exception warning here */
|
||
|
|
%{
|
||
|
|
#include <stdio.h>
|
||
|
|
%}
|
||
|
|
#define %attribute_exception(code,msg) printf("%s\n",msg)
|
||
|
|
|
||
|
|
#ifndef %arg
|
||
|
|
#define %arg(x...) x
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef %mangle
|
||
|
|
#define %mangle(Type...) #@Type
|
||
|
|
#endif
|
||
|
|
|
||
|
|
%include <typemaps/attribute.swg>
|