25ef77d499
literals are properly converted for enums. git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@8731 626c5289-ae23-0410-ae9c-e8d60b6d4f22
111 lines
3.4 KiB
Text
111 lines
3.4 KiB
Text
/* Define a C preprocessor symbol that can be used in interface files
|
|
to distinguish between the SWIG language modules. */
|
|
|
|
#define SWIG_CFFI
|
|
|
|
/* Typespecs for basic types. */
|
|
|
|
%typemap(cin) void ":void";
|
|
|
|
%typemap(cin) char ":char";
|
|
%typemap(cin) char * ":string";
|
|
%typemap(cin) unsigned char ":unsigned-char";
|
|
%typemap(cin) signed char ":char";
|
|
|
|
%typemap(cin) short ":short";
|
|
%typemap(cin) signed short ":short";
|
|
%typemap(cin) unsigned short ":unsigned-short";
|
|
|
|
%typemap(cin) int ":int";
|
|
%typemap(cin) signed int ":int";
|
|
%typemap(cin) unsigned int ":unsigned-int";
|
|
|
|
%typemap(cin) long ":long";
|
|
%typemap(cin) signed long ":long";
|
|
%typemap(cin) unsigned long ":unsigned-long";
|
|
|
|
%typemap(cin) float ":float";
|
|
%typemap(cin) double ":double";
|
|
%typemap(cin) SWIGTYPE ":pointer";
|
|
|
|
%typemap(cout) void ":void";
|
|
|
|
%typemap(cout) char ":char";
|
|
%typemap(cout) char * ":string";
|
|
%typemap(cout) unsigned char ":unsigned-char";
|
|
%typemap(cout) signed char ":char";
|
|
|
|
%typemap(cout) short ":short";
|
|
%typemap(cout) signed short ":short";
|
|
%typemap(cout) unsigned short ":unsigned-short";
|
|
|
|
%typemap(cout) int ":int";
|
|
%typemap(cout) signed int ":int";
|
|
%typemap(cout) unsigned int ":unsigned-int";
|
|
|
|
%typemap(cout) long ":long";
|
|
%typemap(cout) signed long ":long";
|
|
%typemap(cout) unsigned long ":unsigned-long";
|
|
|
|
%typemap(cout) float ":float";
|
|
%typemap(cout) double ":double";
|
|
%typemap(cout) SWIGTYPE ":pointer";
|
|
|
|
|
|
%typemap(ctype) bool "int";
|
|
%typemap(ctype) char, unsigned char, signed char,
|
|
short, signed short, unsigned short,
|
|
int, signed int, unsigned int,
|
|
long, signed long, unsigned long,
|
|
float, double, long double, char *, void *, void,
|
|
enum SWIGTYPE, SWIGTYPE *,
|
|
SWIGTYPE[ANY], SWIGTYPE & "$1_ltype";
|
|
%typemap(ctype) SWIGTYPE "$&1_type";
|
|
|
|
%typemap(in) bool "$1 = (bool)$input;";
|
|
%typemap(in) char, unsigned char, signed char,
|
|
short, signed short, unsigned short,
|
|
int, signed int, unsigned int,
|
|
long, signed long, unsigned long,
|
|
float, double, long double, char *, void *, void,
|
|
enum SWIGTYPE, SWIGTYPE *,
|
|
SWIGTYPE[ANY], SWIGTYPE & "$1 = $input;";
|
|
%typemap(in) SWIGTYPE "$1 = *$input;";
|
|
|
|
%typemap(out) bool "$result = (int)$1;";
|
|
%typemap(out) char, unsigned char, signed char,
|
|
short, signed short, unsigned short,
|
|
int, signed int, unsigned int,
|
|
long, signed long, unsigned long,
|
|
float, double, long double, char *, void *, void,
|
|
enum SWIGTYPE, SWIGTYPE *,
|
|
SWIGTYPE[ANY], SWIGTYPE & "$result = $1;";
|
|
%typemap(out) SWIGTYPE "$result = new $1_type($1);";
|
|
|
|
|
|
%{
|
|
|
|
#ifdef __cplusplus
|
|
# define EXTERN extern "C"
|
|
#else
|
|
# define EXTERN extern
|
|
#endif
|
|
|
|
#define EXPORT EXTERN SWIGEXPORT
|
|
|
|
#include <string.h>
|
|
%}
|
|
|
|
%insert("swiglisp") %{
|
|
;;;SWIG wrapper code starts here
|
|
|
|
(defmacro defanonenum (&body enums)
|
|
"Converts anonymous enums to defconstants."
|
|
`(progn ,@(loop for value in enums
|
|
for index = 0 then (1+ index)
|
|
when (listp value) do (setf index (second value)
|
|
value (first value))
|
|
collect `(defconstant ,value ,index))))
|
|
|
|
;;;SWIG wrapper code ends here
|
|
%}
|