+#include "open-type-font.hh"
+
+
+Index_to_charcode_map
+make_index_to_charcode_map (FT_Face face)
+{
+ Index_to_charcode_map m;
+ FT_ULong charcode;
+ FT_UInt gindex;
+
+ FT_CharMap current_cmap = face->charmap;
+ FT_Select_Charmap(face, FT_ENCODING_UNICODE);
+ for (charcode = FT_Get_First_Char (face, &gindex); gindex != 0;
+ charcode = FT_Get_Next_Char (face, charcode, &gindex))
+ m[gindex] = charcode;
+ FT_Set_Charmap (face, current_cmap);
+
+ return m;
+}