summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorroot <root>2012-06-14 18:19:11 +0000
committerroot <root>2012-06-14 18:19:11 +0000
commit1504b7903ba28fb7b4b420c3c74d96dbb6edae65 (patch)
tree4e153a51540c067d1af8e34a3e74ce8b10a3b7f7
parent8825f1b028df864898228f0a5b14f2d4d5604ebe (diff)
*** empty log message ***
-rw-r--r--src/typemap57
1 files changed, 57 insertions, 0 deletions
diff --git a/src/typemap b/src/typemap
new file mode 100644
index 0000000..8ad9f12
--- /dev/null
+++ b/src/typemap
@@ -0,0 +1,57 @@
+overlay * OVERLAY
+
+Time T_UV
+Atom T_UV
+Window T_UV
+Pixmap 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
+
+TERM
+ $var = SvTERM ($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
+
+TERM
+ $arg = newSVterm ($var);
+
+IMG
+ sv_setref_pv ($arg, "urxvt::img", (void *)$var);
+