--- deliantra/Deliantra-Client/typemap	2006/04/23 21:47:30	1.8
+++ deliantra/Deliantra-Client/typemap	2007/12/26 21:03:21	1.15
@@ -1,7 +1,31 @@
 uint8_t *		T_PV
 uint32_t *		T_PV
-CFClient::MixChunk	T_PTROBJ
-CFClient::MixMusic	T_PTROBJ
-CFClient::Font		T_PTROBJ
-CFClient::Layout	T_PTROBJ
-CFClient::Map		T_PTROBJ
+
+GLenum			T_IV
+GLsize			T_UV
+GLsizei			T_IV
+GLint			T_IV
+GLfloat			T_NV
+GLdouble		T_NV
+
+DC::Channel		T_IVOBJ
+DC::RW			T_PTROBJ
+DC::MixChunk		T_PTROBJ
+DC::MixMusic		T_PTROBJ
+DC::Font		T_PTROBJ
+DC::Layout		T_PTROBJ
+DC::Map			T_PTROBJ
+
+INPUT
+
+T_IVOBJ
+        if (sv_derived_from($arg, \"${ntype}\"))
+          $var = SvIV (SvRV ($arg));
+        else
+          croak (\"$var is not of type ${ntype}\")
+
+OUTPUT
+
+T_IVOBJ
+        sv_setref_iv ($arg, \"${ntype}\", $var);
+