#! /bin/sh /usr/share/dpatch/dpatch-run
## add_encode_func.dpatch by Nobuhiro Iwamatsu <iwamatsu@nigauri.org>
##
## All lines beginning with `## DP:' are a description of the patch.
## DP: Add get font encoding and num_charmaps funcion.

@DPATCH@
diff -urNad libfont-freetype-perl-0.03~/FreeType.xs libfont-freetype-perl-0.03/FreeType.xs
--- libfont-freetype-perl-0.03~/FreeType.xs	2008-10-21 18:03:12.000000000 +0900
+++ libfont-freetype-perl-0.03/FreeType.xs	2008-10-21 18:03:58.000000000 +0900
@@ -432,7 +432,6 @@
     OUTPUT:
         RETVAL
 
-
 SV *
 qefft2_face_postscript_name (Font_FreeType_Face face)
     PREINIT:
@@ -446,6 +445,22 @@
     OUTPUT:
         RETVAL
 
+int
+qefft2_face_num_charmaps (Font_FreeType_Face face)
+    CODE:
+        RETVAL = face->num_charmaps;
+    OUTPUT:
+        RETVAL
+
+long
+qefft2_face_encoding (Font_FreeType_Face face)
+	CODE:
+		if (face->num_charmaps < 0)
+			RETVAL = -1;
+		else
+			RETVAL = face->charmaps[0]->encoding;
+	OUTPUT:
+		RETVAL
 
 const char *
 qefft2_face_family_name (Font_FreeType_Face face)