--- deliantra/Deliantra-Client/typemap	2006/07/30 13:14:15	1.9
+++ deliantra/Deliantra-Client/typemap	2007/12/26 20:46:39	1.14
@@ -1,7 +1,31 @@
 uint8_t *		T_PV
 uint32_t *		T_PV
-CFPlus::MixChunk	T_PTROBJ
-CFPlus::MixMusic	T_PTROBJ
-CFPlus::Font		T_PTROBJ
-CFPlus::Layout	T_PTROBJ
-CFPlus::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);
+