From 1504b7903ba28fb7b4b420c3c74d96dbb6edae65 Mon Sep 17 00:00:00 2001
From: root <root>
Date: Thu, 14 Jun 2012 18:19:11 +0000
Subject: *** empty log message ***

---
 src/typemap | 57 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 src/typemap

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);
+
-- 
cgit v1.2.3