/***************************************************************************//*                                                                         *//*  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 */