--- rxvt-unicode/src/typemap 2006/01/02 17:50:53 1.1 +++ rxvt-unicode/src/typemap 2022/12/30 16:51:59 1.12 @@ -1,19 +1,59 @@ -rxvt_term * T_TERM -timer * T_TIMER -iow * T_IOW +overlay * OVERLAY + +Time T_UV +XID T_U32 +Atom T_UV +Window T_U32 +Pixmap T_U32 +Region T_UV +rxvt_img::nv T_NV + +urxvt::pixbuf T_PTROBJ + +octet_string OCTET_STRING +utf8_string UTF8_STRING + +rxvt_term * TERM +rxvt_img * IMG + +GError ** T_UV + +render_repeat_mode RENDER_REPEAT_MODE INPUT -T_TERM + +TERM $var = SvTERM ($arg); -T_TIMER - $var = SvTIMER ($arg); -T_IOW - $var = SvIOW ($arg); +OVERLAY + $var = SvOVERLAY ($arg); + +OCTET_STRING + $var = SvPVbyte_nolen ($arg) + +UTF8_STRING + $var = SvPVutf8_nolen ($arg) /* imperfect, destroys references */ + +IMG + if (SvROK ($arg) && sv_derived_from ($arg, \"urxvt::img\")) + $var = INT2PTR ($type, SvIV ((SV *) SvRV ($arg))); + else + croak (\"%s is not of type urxvt::img\", \"$var\") + +RENDER_REPEAT_MODE + if (SvOK ($arg)) + { + $var = SvIV ($arg); + if ($var != RepeatNone && $var != RepeatNormal && $var != RepeatPad && $var != RepeatReflect) + croak (\"invalid repeat mode specified (%d)\\n\", $var); + } + else + $var = RepeatNormal; OUTPUT -T_TERM + +TERM $arg = newSVterm ($var); -T_TIMER - $arg = newSVtimer ($var); -T_IOW - $arg = newSViow ($var); + +IMG + sv_setref_pv ($arg, "urxvt::img", (void *)$var); +