--- /dev/null
+/***************************************************************************/
+/* */
+/* ftpfr.c */
+/* */
+/* FreeType API for accessing PFR-specific data */
+/* */
+/* Copyright 2002 by */
+/* David Turner, Robert Wilhelm, and Werner Lemberg. */
+/* */
+/* This file is part of the FreeType project, and may only be used, */
+/* modified, and distributed under the terms of the FreeType project */
+/* license, LICENSE.TXT. By continuing to use, modify, or distribute */
+/* this file you indicate that you have read the license and */
+/* understand and accept it fully. */
+/* */
+/***************************************************************************/
+
+#include <ft2build.h>
+#include FT_INTERNAL_PFR_H
+#include FT_INTERNAL_OBJECTS_H
+
+
+ /* check the format */
+ static FT_Error
+ ft_pfr_check( FT_Face face,
+ FT_PFR_Service *aservice )
+ {
+ FT_Error error = FT_Err_Bad_Argument;
+
+ if ( face && face->driver )
+ {
+ FT_Module module = (FT_Module) face->driver;
+ const char* name = module->clazz->module_name;
+
+ if ( name[0] == 'p' &&
+ name[1] == 'f' &&
+ name[2] == 'r' &&
+ name[4] == 0 )
+ {
+ *aservice = (FT_PFR_Service) module->clazz->module_interface;
+ error = 0;
+ }
+ }
+ return error;
+ }
+
+
+
+ FT_EXPORT_DEF( FT_Error )
+ FT_Get_PFR_Metrics( FT_Face face,
+ FT_UInt *aoutline_resolution,
+ FT_UInt *ametrics_resolution,
+ FT_Fixed *ametrics_x_scale,
+ FT_Fixed *ametrics_y_scale )
+ {
+ FT_Error error;
+ FT_PFR_Service service;
+
+ error = ft_pfr_check( face, &service );
+ if ( !error )
+ {
+ error = service->get_metrics( face,
+ aoutline_resolution,
+ ametrics_resolution,
+ ametrics_x_scale,
+ ametrics_y_scale );
+ }
+ return error;
+ }
+
+ FT_EXPORT_DEF( FT_Error )
+ FT_Get_PFR_Kerning( FT_Face face,
+ FT_UInt left,
+ FT_UInt right,
+ FT_Vector *avector )
+ {
+ FT_Error error;
+ FT_PFR_Service service;
+
+ error = ft_pfr_check( face, &service );
+ if ( !error )
+ {
+ error = service->get_kerning( face, left, right, avector );
+ }
+ return error;
+ }
+
+
+ FT_EXPORT_DEF( FT_Error )
+ FT_Get_PFR_Advance( FT_Face face,
+ FT_UInt gindex,
+ FT_Pos *aadvance )
+ {
+ FT_Error error;
+ FT_PFR_Service service;
+
+ error = ft_pfr_check( face, &service );
+ if ( !error )
+ {
+ error = service->get_advance( face, gindex, aadvance );
+ }
+ return error;
+ }
+
+/* END */