da2a914365
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7538 626c5289-ae23-0410-ae9c-e8d60b6d4f22
65 lines
1.9 KiB
Text
65 lines
1.9 KiB
Text
/* ------------------------------------------------------------
|
|
* Enums
|
|
* ------------------------------------------------------------ */
|
|
|
|
/* --- Input typemaps --- */
|
|
%typemap(in) enum SWIGTYPE "$1 = ($1_ltype) NUM2INT($input);";
|
|
|
|
%typemap(in) const enum SWIGTYPE & ($*1_ltype temp)
|
|
"temp = ($*1_ltype) NUM2INT($input);
|
|
$1 = &temp;";
|
|
|
|
|
|
%typemap(directorout) enum SWIGTYPE "$result = ($1_ltype) NUM2INT($input);";
|
|
%typemap(directorout) const enum SWIGTYPE & ($*1_ltype temp)
|
|
"temp = ($*1_ltype) NUM2INT($input);
|
|
$result = &temp;";
|
|
|
|
|
|
/* --- Output typemaps --- */
|
|
%typemap(out) enum SWIGTYPE "$result = INT2NUM($1);";
|
|
|
|
%typemap(out) const enum SWIGTYPE & "$result = INT2NUM((long) *($1));";
|
|
|
|
%typemap(directorin) enum SWIGTYPE "$input = INT2NUM($1);";
|
|
%typemap(directorin) const enum SWIGTYPE& "$input = INT2NUM($1);";
|
|
|
|
/* --- Variable Input --- */
|
|
|
|
%{
|
|
static void SWIG_AsVal(VALUE obj, int *val)
|
|
{
|
|
*val = (int) NUM2INT(obj);
|
|
}
|
|
%}
|
|
|
|
%typemap(varin) enum SWIGTYPE {
|
|
if (sizeof(int) != sizeof($1)) {
|
|
rb_raise(rb_eTypeError, "enum variable '$name' can not be set.");
|
|
}
|
|
SWIG_AsVal($input, (int *)(void *) &$1);
|
|
}
|
|
|
|
/* --- Variable Output --- */
|
|
|
|
%typemap(varout) enum SWIGTYPE "$result = INT2NUM($1);";
|
|
|
|
/* --- Constants --- */
|
|
%typemap(constant) enum SWIGTYPE "rb_define_const($module,\"$symname\", INT2NUM($1));";
|
|
|
|
/* ------------------------------------------------------------
|
|
* Typechecking rules
|
|
* ------------------------------------------------------------ */
|
|
|
|
%typecheck(SWIG_TYPECHECK_INTEGER) enum SWIGTYPE, const enum SWIGTYPE &
|
|
{
|
|
$1 = ((TYPE($input) == T_FIXNUM) || (TYPE($input) == T_BIGNUM)) ? 1 : 0;
|
|
}
|
|
|
|
/* ------------------------------------------------------------
|
|
* Exception handling
|
|
* ------------------------------------------------------------ */
|
|
|
|
%typemap(throws) enum SWIGTYPE
|
|
"(void)$1; rb_exc_raise(rb_exc_new3(rb_eRuntimeError, rb_obj_as_string(INT2NUM($1))));"
|
|
|