src/freetype/truetype/ttobjs.c

/***************************************************************************/
/*                                                                         */
/*  ttobjs.c                                                               */
/*                                                                         */
/*    Objects manager (body).                                              */
/*                                                                         */
/*  Copyright 1996-2000 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 <freetype/internal/ftdebug.h>
#include <freetype/internal/ftcalc.h>
#include <freetype/internal/ftstream.h>
#include <freetype/ttnameid.h>
#include <freetype/tttags.h>

#include <freetype/internal/sfnt.h>
#include <freetype/internal/psnames.h>


#ifdef FT_FLAT_COMPILE

#include "ttgload.h"
#include "ttpload.h"

#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
#include "ttinterp.h"
#endif

#else /* FT_FLAT_COMPILE */

#include <truetype/ttgload.h>
#include <truetype/ttpload.h>

#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
#include <truetype/ttinterp.h>
#endif

#endif /* FT_FLAT_COMPILE */


#include <freetype/internal/tterrors.h>


  /*************************************************************************/
  /*                                                                       */
  /* The macro FT_COMPONENT is used in trace mode.  It is an implicit      */
  /* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log  */
  /* messages during execution.                                            */
  /*                                                                       */
#undef  FT_COMPONENT
#define FT_COMPONENT  trace_ttobjs


  /*************************************************************************/
  /*                                                                       */
  /*                       GLYPH ZONE FUNCTIONS                            */
  /*                                                                       */
  /*************************************************************************/

  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Done_GlyphZone                                                  */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Deallocates a glyph zone.                                          */
  /*                                                                       */
  /* <Input>                                                               */
  /*    zone :: A pointer to the target glyph zone.                        */
  /*                                                                       */
  LOCAL_FUNC
  void  TT_Done_GlyphZone( TT_GlyphZone*  zone )
  {
    FT_Memory  memory = zone->memory;


    FREE( zone->contours );
    FREE( zone->tags );
    FREE( zone->cur );
    FREE( zone->org );

    zone->max_points   = zone->n_points   = 0;
    zone->max_contours = zone->n_contours = 0;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_New_GlyphZone                                                   */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Allocates a new glyph zone.                                        */
  /*                                                                       */
  /* <Input>                                                               */
  /*    memory      :: A handle to the current memory object.              */
  /*                                                                       */
  /*    maxPoints   :: The capacity of glyph zone in points.               */
  /*                                                                       */
  /*    maxContours :: The capacity of glyph zone in contours.             */
  /*                                                                       */
  /* <Output>                                                              */
  /*    zone        :: A pointer to the target glyph zone record.          */
  /*                                                                       */
  /* <Return>                                                              */
  /*    FreeType error code.  0 means success.                             */
  /*                                                                       */
  LOCAL_FUNC
  FT_Error TT_New_GlyphZone( FT_Memory      memory,
                             FT_UShort      maxPoints,
                             FT_Short       maxContours,
                             TT_GlyphZone*  zone )
  {
    FT_Error  error;


    if ( maxPoints > 0 )
      maxPoints += 2;

    MEM_Set( zone, 0, sizeof ( *zone ) );
    zone->memory = memory;

    if ( ALLOC_ARRAY( zone->org,      maxPoints * 2, FT_F26Dot6 ) ||
         ALLOC_ARRAY( zone->cur,      maxPoints * 2, FT_F26Dot6 ) ||
         ALLOC_ARRAY( zone->tags,     maxPoints,     FT_Byte    ) ||
         ALLOC_ARRAY( zone->contours, maxContours,   FT_UShort  ) )
    {
      TT_Done_GlyphZone( zone );
    }

    return error;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Init_Face                                                       */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Initializes a given TrueType face object.                          */
  /*                                                                       */
  /* <Input>                                                               */
  /*    stream     :: The source font stream.                              */
  /*                                                                       */
  /*    face_index :: The index of the font face in the resource.          */
  /*                                                                       */
  /*    num_params :: Number of additional generic parameters.  Ignored.   */
  /*                                                                       */
  /*    params     :: Additional generic parameters.  Ignored.             */
  /*                                                                       */
  /* <InOut>                                                               */
  /*    face       :: The newly built face object.                         */
  /*                                                                       */
  /* <Return>                                                              */
  /*    FreeType error code.  0 means success.                             */
  /*                                                                       */
  LOCAL_DEF
  FT_Error  TT_Init_Face( FT_Stream      stream,
                          TT_Face        face,
                          FT_Int         face_index,
                          FT_Int         num_params,
                          FT_Parameter*  params )
  {
    FT_Error         error;
    FT_Library       library;
    SFNT_Interface*  sfnt;


    library = face->root.driver->root.library;
    sfnt    = (SFNT_Interface*)FT_Get_Module_Interface( library, "sfnt" );
    if ( !sfnt )
      goto Bad_Format;

    /* create input stream from resource */
    if ( FILE_Seek( 0 ) )
      goto Exit;

    /* check that we have a valid TrueType file */
    error = sfnt->init_face( stream, face, face_index, num_params, params );
    if ( error )
      goto Exit;

    /* We must also be able to accept Mac/GX fonts, as well as OT ones */
    if ( face->format_tag != 0x00010000L &&    /* MS fonts  */
         face->format_tag != TTAG_true   )     /* Mac fonts */
    {
      FT_TRACE2(( "[not a valid TTF font]\n" ));
      goto Bad_Format;
    }

    /* If we are performing a simple font format check, exit immediately */
    if ( face_index < 0 )
      return TT_Err_Ok;

    /* Load font directory */
    error = sfnt->load_face( stream, face, face_index, num_params, params );
    if ( error )
      goto Exit;

    error = TT_Load_Locations( face, stream ) ||
            TT_Load_CVT      ( face, stream ) ||
            TT_Load_Programs ( face, stream );

    /* initialize standard glyph loading routines */
    TT_Init_Glyph_Loading( face );

  Exit:
    return error;

  Bad_Format:
    error = FT_Err_Unknown_File_Format;
    goto Exit;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Done_Face                                                       */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Finalizes a given face object.                                     */
  /*                                                                       */
  /* <Input>                                                               */
  /*    face :: A pointer to the face object to destroy.                   */
  /*                                                                       */
  LOCAL_DEF
  void  TT_Done_Face( TT_Face  face )
  {
    FT_Memory  memory = face->root.memory;
    FT_Stream  stream = face->root.stream;

    SFNT_Interface*  sfnt = (SFNT_Interface*)face->sfnt;


    /* for `extended TrueType formats' (i.e. compressed versions) */
    if ( face->extra.finalizer )
      face->extra.finalizer( face->extra.data );

    if ( sfnt )
      sfnt->done_face( face );

    /* freeing the locations table */
    FREE( face->glyph_locations );
    face->num_locations = 0;

    /* freeing the CVT */
    FREE( face->cvt );
    face->cvt_size = 0;

    /* freeing the programs */
    RELEASE_Frame( face->font_program );
    RELEASE_Frame( face->cvt_program );
    face->font_program_size = 0;
    face->cvt_program_size  = 0;
  }


  /*************************************************************************/
  /*                                                                       */
  /*                           SIZE  FUNCTIONS                             */
  /*                                                                       */
  /*************************************************************************/


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Init_Size                                                       */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Initializes a new TrueType size object.                            */
  /*                                                                       */
  /* <InOut>                                                               */
  /*    size :: A handle to the size object.                               */
  /*                                                                       */
  /* <Return>                                                              */
  /*    FreeType error code.  0 means success.                             */
  /*                                                                       */
  LOCAL_DEF
  FT_Error  TT_Init_Size( TT_Size  size )
  {
    FT_Error  error = TT_Err_Ok;


#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER

    TT_Face    face   = (TT_Face)size->root.face;
    FT_Memory  memory = face->root.memory;
    FT_Int     i;

    TT_ExecContext  exec;
    FT_UShort       n_twilight;
    TT_MaxProfile*  maxp = &face->max_profile;


    size->ttmetrics.valid = FALSE;

    size->max_function_defs    = maxp->maxFunctionDefs;
    size->max_instruction_defs = maxp->maxInstructionDefs;

    size->num_function_defs    = 0;
    size->num_instruction_defs = 0;

    size->max_func = 0;
    size->max_ins  = 0;

    size->cvt_size     = face->cvt_size;
    size->storage_size = maxp->maxStorage;

    /* Set default metrics */
    {
      FT_Size_Metrics*  metrics  = &size->root.metrics;
      TT_Size_Metrics*  metrics2 = &size->ttmetrics;


      metrics->x_ppem = 0;
      metrics->y_ppem = 0;

      metrics2->rotated   = FALSE;
      metrics2->stretched = FALSE;

      /* set default compensation (all 0) */
      for ( i = 0; i < 4; i++ )
        metrics2->compensations[i] = 0;
    }

    /* allocate function defs, instruction defs, cvt, and storage area */
    if ( ALLOC_ARRAY( size->function_defs,
                      size->max_function_defs,
                      TT_DefRecord )                ||

         ALLOC_ARRAY( size->instruction_defs,
                      size->max_instruction_defs,
                      TT_DefRecord )                ||

         ALLOC_ARRAY( size->cvt,
                      size->cvt_size, FT_Long )     ||

         ALLOC_ARRAY( size->storage,
                      size->storage_size, FT_Long ) )

      goto Fail_Memory;

    /* reserve twilight zone */
    n_twilight = maxp->maxTwilightPoints;
    error = TT_New_GlyphZone( memory, n_twilight, 0, &size->twilight );
    if ( error )
      goto Fail_Memory;

    size->twilight.n_points = n_twilight;

    /* set `face->interpreter' according to the debug hook present */
    {
      FT_Library  library = face->root.driver->root.library;


      face->interpreter = (TT_Interpreter)
                            library->debug_hooks[FT_DEBUG_HOOK_TRUETYPE];
      if ( !face->interpreter )
        face->interpreter = (TT_Interpreter)TT_RunIns;
    }

    /* Fine, now execute the font program! */
    exec = size->context;
    /* size objects used during debugging have their own context */
    if ( !size->debug )
      exec = TT_New_Context( face );

    if ( !exec )
    {
      error = TT_Err_Could_Not_Find_Context;
      goto Fail_Memory;
    }

    size->GS = tt_default_graphics_state;
    TT_Load_Context( exec, face, size );

    exec->callTop   = 0;
    exec->top       = 0;

    exec->period    = 64;
    exec->phase     = 0;
    exec->threshold = 0;

    {
      FT_Size_Metrics*  metrics    = &exec->metrics;
      TT_Size_Metrics*  tt_metrics = &exec->tt_metrics;


      metrics->x_ppem   = 0;
      metrics->y_ppem   = 0;
      metrics->x_scale  = 0;
      metrics->y_scale  = 0;

      tt_metrics->ppem  = 0;
      tt_metrics->scale = 0;
      tt_metrics->ratio = 0x10000L;
    }

    exec->instruction_trap = FALSE;

    exec->cvtSize = size->cvt_size;
    exec->cvt     = size->cvt;

    exec->F_dot_P = 0x10000L;

    /* allow font program execution */
    TT_Set_CodeRange( exec,
                      tt_coderange_font,
                      face->font_program,
                      face->font_program_size );

    /* disable CVT and glyph programs coderange */
    TT_Clear_CodeRange( exec, tt_coderange_cvt );
    TT_Clear_CodeRange( exec, tt_coderange_glyph );

    if ( face->font_program_size > 0 )
    {
      error = TT_Goto_CodeRange( exec, tt_coderange_font, 0 );
      if ( !error )
        error = face->interpreter( exec );

      if ( error )
        goto Fail_Exec;
    }
    else
      error = TT_Err_Ok;

    TT_Save_Context( exec, size );

    if ( !size->debug )
      TT_Done_Context( exec );

#endif /* TT_CONFIG_OPTION_BYTECODE_INTERPRETER */

    size->ttmetrics.valid = FALSE;
    return error;

#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER

  Fail_Exec:
    if ( !size->debug )
      TT_Done_Context( exec );

  Fail_Memory:

#endif

    TT_Done_Size( size );
    return error;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Done_Size                                                       */
  /*                                                                       */
  /* <Description>                                                         */
  /*    The TrueType size object finalizer.                                */
  /*                                                                       */
  /* <Input>                                                               */
  /*    size :: A handle to the target size object.                        */
  /*                                                                       */
  LOCAL_FUNC
  void  TT_Done_Size( TT_Size  size )
  {

#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER

    FT_Memory  memory = size->root.face->memory;


    if ( size->debug )
    {
      /* the debug context must be deleted by the debugger itself */
      size->context = NULL;
      size->debug   = FALSE;
    }

    FREE( size->cvt );
    size->cvt_size = 0;

    /* free storage area */
    FREE( size->storage );
    size->storage_size = 0;

    /* twilight zone */
    TT_Done_GlyphZone( &size->twilight );

    FREE( size->function_defs );
    FREE( size->instruction_defs );

    size->num_function_defs    = 0;
    size->max_function_defs    = 0;
    size->num_instruction_defs = 0;
    size->max_instruction_defs = 0;

    size->max_func = 0;
    size->max_ins  = 0;

#endif

    size->ttmetrics.valid = FALSE;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Reset_Size                                                      */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Resets a TrueType size when resolutions and character dimensions   */
  /*    have been changed.                                                 */
  /*                                                                       */
  /* <Input>                                                               */
  /*    size :: A handle to the target size object.                        */
  /*                                                                       */
  LOCAL_DEF
  FT_Error  TT_Reset_Size( TT_Size  size )
  {
    TT_Face   face;
    FT_Error  error = TT_Err_Ok;

    FT_Size_Metrics*  metrics;


    if ( size->ttmetrics.valid )
      return TT_Err_Ok;

    face = (TT_Face)size->root.face;

    metrics = &size->root.metrics;

    if ( metrics->x_ppem < 1 || metrics->y_ppem < 1 )
      return TT_Err_Invalid_PPem;

    /* compute new transformation */
    if ( metrics->x_ppem >= metrics->y_ppem )
    {
      size->ttmetrics.scale   = metrics->x_scale;
      size->ttmetrics.ppem    = metrics->x_ppem;
      size->ttmetrics.x_ratio = 0x10000L;
      size->ttmetrics.y_ratio = FT_MulDiv( metrics->y_ppem,
                                           0x10000L,
                                           metrics->x_ppem );
    }
    else
    {
      size->ttmetrics.scale   = metrics->y_scale;
      size->ttmetrics.ppem    = metrics->y_ppem;
      size->ttmetrics.x_ratio = FT_MulDiv( metrics->x_ppem,
                                           0x10000L,
                                           metrics->y_ppem );
      size->ttmetrics.y_ratio = 0x10000L;
    }

    /* Compute root ascender, descender, test height, and max_advance */
    metrics->ascender    = ( FT_MulFix( face->root.ascender,
                                          metrics->y_scale ) + 32 ) & -64;
    metrics->descender   = ( FT_MulFix( face->root.descender,
                                          metrics->y_scale ) + 32 ) & -64;
    metrics->height      = ( FT_MulFix( face->root.height,
                                          metrics->y_scale ) + 32 ) & -64;
    metrics->max_advance = ( FT_MulFix( face->root.max_advance_width,
                                          metrics->x_scale ) + 32 ) & -64;

#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER

    {
      TT_ExecContext  exec;
      FT_UInt         i, j;


      /* Scale the cvt values to the new ppem.          */
      /* We use by default the y ppem to scale the CVT. */
      for ( i = 0; i < size->cvt_size; i++ )
        size->cvt[i] = FT_MulFix( face->cvt[i], size->ttmetrics.scale );

      /* All twilight points are originally zero */
      for ( j = 0; j < size->twilight.n_points; j++ )
      {
        size->twilight.org[j].x = 0;
        size->twilight.org[j].y = 0;
        size->twilight.cur[j].x = 0;
        size->twilight.cur[j].y = 0;
      }

      /* clear storage area */
      for ( i = 0; i < size->storage_size; i++ )
        size->storage[i] = 0;

      size->GS = tt_default_graphics_state;

      /* get execution context and run prep program */
      if ( size->debug )
        exec = size->context;
      else
        exec = TT_New_Context( face );
      /* debugging instances have their own context */

      if ( !exec )
        return TT_Err_Could_Not_Find_Context;

      TT_Load_Context( exec, face, size );

      TT_Set_CodeRange( exec,
                        tt_coderange_cvt,
                        face->cvt_program,
                        face->cvt_program_size );

      TT_Clear_CodeRange( exec, tt_coderange_glyph );

      exec->instruction_trap = FALSE;

      exec->top     = 0;
      exec->callTop = 0;

      if ( face->cvt_program_size > 0 )
      {
        error = TT_Goto_CodeRange( exec, tt_coderange_cvt, 0 );
        if ( error )
          goto End;

        if ( !size->debug )
          error = face->interpreter( exec );
      }
      else
        error = TT_Err_Ok;

      size->GS = exec->GS;
      /* save default graphics state */

    End:
      TT_Save_Context( exec, size );

      if ( !size->debug )
        TT_Done_Context( exec );
      /* debugging instances keep their context */
    }

#endif /* TT_CONFIG_OPTION_BYTECODE_INTERPRETER */

    if ( !error )
      size->ttmetrics.valid = TRUE;

    return error;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Init_Driver                                                     */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Initializes a given TrueType driver object.                        */
  /*                                                                       */
  /* <Input>                                                               */
  /*    driver :: A handle to the target driver object.                    */
  /*                                                                       */
  /* <Return>                                                              */
  /*    FreeType error code.  0 means success.                             */
  /*                                                                       */
  LOCAL_FUNC
  FT_Error  TT_Init_Driver( TT_Driver  driver )
  {
    FT_Error  error;


    /* set `extra' in glyph loader */
    error = FT_GlyphLoader_Create_Extra( FT_DRIVER( driver )->glyph_loader );

    /* init extension registry if needed */

#ifdef TT_CONFIG_OPTION_EXTEND_ENGINE
    if ( !error )
      return TT_Init_Extensions( driver );
#endif

    return error;
  }


  /*************************************************************************/
  /*                                                                       */
  /* <Function>                                                            */
  /*    TT_Done_Driver                                                     */
  /*                                                                       */
  /* <Description>                                                         */
  /*    Finalizes a given TrueType driver.                                 */
  /*                                                                       */
  /* <Input>                                                               */
  /*    driver :: A handle to the target TrueType driver.                  */
  /*                                                                       */
  LOCAL_FUNC
  void  TT_Done_Driver( TT_Driver  driver )
  {
    /* destroy extensions registry if needed */

#ifdef TT_CONFIG_OPTION_EXTEND_ENGINE

    TT_Done_Extensions( driver );

#endif

#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER

    /* destroy the execution context */
    if ( driver->context )
    {
      TT_Destroy_Context( driver->context, driver->root.root.memory );
      driver->context = NULL;
    }

#endif

  }


/* END */
Commit	Line	Data
	1	/***************************************************************************/
	2	/* */
	3	/* ttobjs.c */
	4	/* */
	5	/* Objects manager (body). */
	6	/* */
	7	/* Copyright 1996-2000 by */
	8	/* David Turner, Robert Wilhelm, and Werner Lemberg. */
	9	/* */
	10	/* This file is part of the FreeType project, and may only be used, */
	11	/* modified, and distributed under the terms of the FreeType project */
	12	/* license, LICENSE.TXT. By continuing to use, modify, or distribute */
	13	/* this file you indicate that you have read the license and */
	14	/* understand and accept it fully. */
	15	/* */
	16	/***************************************************************************/
	17
	18
	19	#include <freetype/internal/ftdebug.h>
	20	#include <freetype/internal/ftcalc.h>
	21	#include <freetype/internal/ftstream.h>
	22	#include <freetype/ttnameid.h>
	23	#include <freetype/tttags.h>
	24
	25	#include <freetype/internal/sfnt.h>
	26	#include <freetype/internal/psnames.h>
	27
	28
	29	#ifdef FT_FLAT_COMPILE
	30
	31	#include "ttgload.h"
	32	#include "ttpload.h"
	33
	34	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	35	#include "ttinterp.h"
	36	#endif
	37
	38	#else /* FT_FLAT_COMPILE */
	39
	40	#include <truetype/ttgload.h>
	41	#include <truetype/ttpload.h>
	42
	43	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	44	#include <truetype/ttinterp.h>
	45	#endif
	46
	47	#endif /* FT_FLAT_COMPILE */
	48
	49
	50	#include <freetype/internal/tterrors.h>
	51
	52
	53
	54	/*************************************************************************/
	55	/* */
	56	/* The macro FT_COMPONENT is used in trace mode. It is an implicit */
	57	/* parameter of the FT_TRACE() and FT_ERROR() macros, used to print/log */
	58	/* messages during execution. */
	59	/* */
	60	#undef FT_COMPONENT
	61	#define FT_COMPONENT trace_ttobjs
	62
	63
	64	/*************************************************************************/
	65	/* */
	66	/* GLYPH ZONE FUNCTIONS */
	67	/* */
	68	/*************************************************************************/
	69
	70	/*************************************************************************/
	71	/* */
	72	/* <Function> */
	73	/* TT_Done_GlyphZone */
	74	/* */
	75	/* <Description> */
	76	/* Deallocates a glyph zone. */
	77	/* */
	78	/* <Input> */
	79	/* zone :: A pointer to the target glyph zone. */
	80	/* */
	81	LOCAL_FUNC
	82	void TT_Done_GlyphZone( TT_GlyphZone* zone )
	83	{
	84	FT_Memory memory = zone->memory;
	85
	86
	87	FREE( zone->contours );
	88	FREE( zone->tags );
	89	FREE( zone->cur );
	90	FREE( zone->org );
	91
	92	zone->max_points = zone->n_points = 0;
	93	zone->max_contours = zone->n_contours = 0;
	94	}
	95
	96
	97	/*************************************************************************/
	98	/* */
	99	/* <Function> */
	100	/* TT_New_GlyphZone */
	101	/* */
	102	/* <Description> */
	103	/* Allocates a new glyph zone. */
	104	/* */
	105	/* <Input> */
	106	/* memory :: A handle to the current memory object. */
	107	/* */
	108	/* maxPoints :: The capacity of glyph zone in points. */
	109	/* */
	110	/* maxContours :: The capacity of glyph zone in contours. */
	111	/* */
	112	/* <Output> */
	113	/* zone :: A pointer to the target glyph zone record. */
	114	/* */
	115	/* <Return> */
	116	/* FreeType error code. 0 means success. */
	117	/* */
	118	LOCAL_FUNC
	119	FT_Error TT_New_GlyphZone( FT_Memory memory,
	120	FT_UShort maxPoints,
	121	FT_Short maxContours,
	122	TT_GlyphZone* zone )
	123	{
	124	FT_Error error;
	125
	126
	127	if ( maxPoints > 0 )
	128	maxPoints += 2;
	129
	130	MEM_Set( zone, 0, sizeof ( *zone ) );
	131	zone->memory = memory;
	132
	133	if ( ALLOC_ARRAY( zone->org, maxPoints * 2, FT_F26Dot6 ) \|\|
	134	ALLOC_ARRAY( zone->cur, maxPoints * 2, FT_F26Dot6 ) \|\|
	135	ALLOC_ARRAY( zone->tags, maxPoints, FT_Byte ) \|\|
	136	ALLOC_ARRAY( zone->contours, maxContours, FT_UShort ) )
	137	{
	138	TT_Done_GlyphZone( zone );
	139	}
	140
	141	return error;
	142	}
	143
	144
	145	/*************************************************************************/
	146	/* */
	147	/* <Function> */
	148	/* TT_Init_Face */
	149	/* */
	150	/* <Description> */
	151	/* Initializes a given TrueType face object. */
	152	/* */
	153	/* <Input> */
	154	/* stream :: The source font stream. */
	155	/* */
	156	/* face_index :: The index of the font face in the resource. */
	157	/* */
	158	/* num_params :: Number of additional generic parameters. Ignored. */
	159	/* */
	160	/* params :: Additional generic parameters. Ignored. */
	161	/* */
	162	/* <InOut> */
	163	/* face :: The newly built face object. */
	164	/* */
	165	/* <Return> */
	166	/* FreeType error code. 0 means success. */
	167	/* */
	168	LOCAL_DEF
	169	FT_Error TT_Init_Face( FT_Stream stream,
	170	TT_Face face,
	171	FT_Int face_index,
	172	FT_Int num_params,
	173	FT_Parameter* params )
	174	{
	175	FT_Error error;
	176	FT_Library library;
	177	SFNT_Interface* sfnt;
	178
	179
	180	library = face->root.driver->root.library;
	181	sfnt = (SFNT_Interface*)FT_Get_Module_Interface( library, "sfnt" );
	182	if ( !sfnt )
	183	goto Bad_Format;
	184
	185	/* create input stream from resource */
	186	if ( FILE_Seek( 0 ) )
	187	goto Exit;
	188
	189	/* check that we have a valid TrueType file */
	190	error = sfnt->init_face( stream, face, face_index, num_params, params );
	191	if ( error )
	192	goto Exit;
	193
	194	/* We must also be able to accept Mac/GX fonts, as well as OT ones */
	195	if ( face->format_tag != 0x00010000L && /* MS fonts */
	196	face->format_tag != TTAG_true ) /* Mac fonts */
	197	{
	198	FT_TRACE2(( "[not a valid TTF font]\n" ));
	199	goto Bad_Format;
	200	}
	201
	202	/* If we are performing a simple font format check, exit immediately */
	203	if ( face_index < 0 )
	204	return TT_Err_Ok;
	205
	206	/* Load font directory */
	207	error = sfnt->load_face( stream, face, face_index, num_params, params );
	208	if ( error )
	209	goto Exit;
	210
	211	error = TT_Load_Locations( face, stream ) \|\|
	212	TT_Load_CVT ( face, stream ) \|\|
	213	TT_Load_Programs ( face, stream );
	214
	215	/* initialize standard glyph loading routines */
	216	TT_Init_Glyph_Loading( face );
	217
	218	Exit:
	219	return error;
	220
	221	Bad_Format:
	222	error = FT_Err_Unknown_File_Format;
	223	goto Exit;
	224	}
	225
	226
	227	/*************************************************************************/
	228	/* */
	229	/* <Function> */
	230	/* TT_Done_Face */
	231	/* */
	232	/* <Description> */
	233	/* Finalizes a given face object. */
	234	/* */
	235	/* <Input> */
	236	/* face :: A pointer to the face object to destroy. */
	237	/* */
	238	LOCAL_DEF
	239	void TT_Done_Face( TT_Face face )
	240	{
	241	FT_Memory memory = face->root.memory;
	242	FT_Stream stream = face->root.stream;
	243
	244	SFNT_Interface* sfnt = (SFNT_Interface*)face->sfnt;
	245
	246
	247	/* for `extended TrueType formats' (i.e. compressed versions) */
	248	if ( face->extra.finalizer )
	249	face->extra.finalizer( face->extra.data );
	250
	251	if ( sfnt )
	252	sfnt->done_face( face );
	253
	254	/* freeing the locations table */
	255	FREE( face->glyph_locations );
	256	face->num_locations = 0;
	257
	258	/* freeing the CVT */
	259	FREE( face->cvt );
	260	face->cvt_size = 0;
	261
	262	/* freeing the programs */
	263	RELEASE_Frame( face->font_program );
	264	RELEASE_Frame( face->cvt_program );
	265	face->font_program_size = 0;
	266	face->cvt_program_size = 0;
	267	}
	268
	269
	270	/*************************************************************************/
	271	/* */
	272	/* SIZE FUNCTIONS */
	273	/* */
	274	/*************************************************************************/
	275
	276
	277	/*************************************************************************/
	278	/* */
	279	/* <Function> */
	280	/* TT_Init_Size */
	281	/* */
	282	/* <Description> */
	283	/* Initializes a new TrueType size object. */
	284	/* */
	285	/* <InOut> */
	286	/* size :: A handle to the size object. */
	287	/* */
	288	/* <Return> */
	289	/* FreeType error code. 0 means success. */
	290	/* */
	291	LOCAL_DEF
	292	FT_Error TT_Init_Size( TT_Size size )
	293	{
	294	FT_Error error = TT_Err_Ok;
	295
	296
	297	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	298
	299	TT_Face face = (TT_Face)size->root.face;
	300	FT_Memory memory = face->root.memory;
	301	FT_Int i;
	302
	303	TT_ExecContext exec;
	304	FT_UShort n_twilight;
	305	TT_MaxProfile* maxp = &face->max_profile;
	306
	307
	308	size->ttmetrics.valid = FALSE;
	309
	310	size->max_function_defs = maxp->maxFunctionDefs;
	311	size->max_instruction_defs = maxp->maxInstructionDefs;
	312
	313	size->num_function_defs = 0;
	314	size->num_instruction_defs = 0;
	315
	316	size->max_func = 0;
	317	size->max_ins = 0;
	318
	319	size->cvt_size = face->cvt_size;
	320	size->storage_size = maxp->maxStorage;
	321
	322	/* Set default metrics */
	323	{
	324	FT_Size_Metrics* metrics = &size->root.metrics;
	325	TT_Size_Metrics* metrics2 = &size->ttmetrics;
	326
	327
	328	metrics->x_ppem = 0;
	329	metrics->y_ppem = 0;
	330
	331	metrics2->rotated = FALSE;
	332	metrics2->stretched = FALSE;
	333
	334	/* set default compensation (all 0) */
	335	for ( i = 0; i < 4; i++ )
	336	metrics2->compensations[i] = 0;
	337	}
	338
	339	/* allocate function defs, instruction defs, cvt, and storage area */
	340	if ( ALLOC_ARRAY( size->function_defs,
	341	size->max_function_defs,
	342	TT_DefRecord ) \|\|
	343
	344	ALLOC_ARRAY( size->instruction_defs,
	345	size->max_instruction_defs,
	346	TT_DefRecord ) \|\|
	347
	348	ALLOC_ARRAY( size->cvt,
	349	size->cvt_size, FT_Long ) \|\|
	350
	351	ALLOC_ARRAY( size->storage,
	352	size->storage_size, FT_Long ) )
	353
	354	goto Fail_Memory;
	355
	356	/* reserve twilight zone */
	357	n_twilight = maxp->maxTwilightPoints;
	358	error = TT_New_GlyphZone( memory, n_twilight, 0, &size->twilight );
	359	if ( error )
	360	goto Fail_Memory;
	361
	362	size->twilight.n_points = n_twilight;
	363
	364	/* set `face->interpreter' according to the debug hook present */
	365	{
	366	FT_Library library = face->root.driver->root.library;
	367
	368
	369	face->interpreter = (TT_Interpreter)
	370	library->debug_hooks[FT_DEBUG_HOOK_TRUETYPE];
	371	if ( !face->interpreter )
	372	face->interpreter = (TT_Interpreter)TT_RunIns;
	373	}
	374
	375	/* Fine, now execute the font program! */
	376	exec = size->context;
	377	/* size objects used during debugging have their own context */
	378	if ( !size->debug )
	379	exec = TT_New_Context( face );
	380
	381	if ( !exec )
	382	{
	383	error = TT_Err_Could_Not_Find_Context;
	384	goto Fail_Memory;
	385	}
	386
	387	size->GS = tt_default_graphics_state;
	388	TT_Load_Context( exec, face, size );
	389
	390	exec->callTop = 0;
	391	exec->top = 0;
	392
	393	exec->period = 64;
	394	exec->phase = 0;
	395	exec->threshold = 0;
	396
	397	{
	398	FT_Size_Metrics* metrics = &exec->metrics;
	399	TT_Size_Metrics* tt_metrics = &exec->tt_metrics;
	400
	401
	402	metrics->x_ppem = 0;
	403	metrics->y_ppem = 0;
	404	metrics->x_scale = 0;
	405	metrics->y_scale = 0;
	406
	407	tt_metrics->ppem = 0;
	408	tt_metrics->scale = 0;
	409	tt_metrics->ratio = 0x10000L;
	410	}
	411
	412	exec->instruction_trap = FALSE;
	413
	414	exec->cvtSize = size->cvt_size;
	415	exec->cvt = size->cvt;
	416
	417	exec->F_dot_P = 0x10000L;
	418
	419	/* allow font program execution */
	420	TT_Set_CodeRange( exec,
	421	tt_coderange_font,
	422	face->font_program,
	423	face->font_program_size );
	424
	425	/* disable CVT and glyph programs coderange */
	426	TT_Clear_CodeRange( exec, tt_coderange_cvt );
	427	TT_Clear_CodeRange( exec, tt_coderange_glyph );
	428
	429	if ( face->font_program_size > 0 )
	430	{
	431	error = TT_Goto_CodeRange( exec, tt_coderange_font, 0 );
	432	if ( !error )
	433	error = face->interpreter( exec );
	434
	435	if ( error )
	436	goto Fail_Exec;
	437	}
	438	else
	439	error = TT_Err_Ok;
	440
	441	TT_Save_Context( exec, size );
	442
	443	if ( !size->debug )
	444	TT_Done_Context( exec );
	445
	446	#endif /* TT_CONFIG_OPTION_BYTECODE_INTERPRETER */
	447
	448	size->ttmetrics.valid = FALSE;
	449	return error;
	450
	451	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	452
	453	Fail_Exec:
	454	if ( !size->debug )
	455	TT_Done_Context( exec );
	456
	457	Fail_Memory:
	458
	459	#endif
	460
	461	TT_Done_Size( size );
	462	return error;
	463	}
	464
	465
	466	/*************************************************************************/
	467	/* */
	468	/* <Function> */
	469	/* TT_Done_Size */
	470	/* */
	471	/* <Description> */
	472	/* The TrueType size object finalizer. */
	473	/* */
	474	/* <Input> */
	475	/* size :: A handle to the target size object. */
	476	/* */
	477	LOCAL_FUNC
	478	void TT_Done_Size( TT_Size size )
	479	{
	480
	481	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	482
	483	FT_Memory memory = size->root.face->memory;
	484
	485
	486	if ( size->debug )
	487	{
	488	/* the debug context must be deleted by the debugger itself */
	489	size->context = NULL;
	490	size->debug = FALSE;
	491	}
	492
	493	FREE( size->cvt );
	494	size->cvt_size = 0;
	495
	496	/* free storage area */
	497	FREE( size->storage );
	498	size->storage_size = 0;
	499
	500	/* twilight zone */
	501	TT_Done_GlyphZone( &size->twilight );
	502
	503	FREE( size->function_defs );
	504	FREE( size->instruction_defs );
	505
	506	size->num_function_defs = 0;
	507	size->max_function_defs = 0;
	508	size->num_instruction_defs = 0;
	509	size->max_instruction_defs = 0;
	510
	511	size->max_func = 0;
	512	size->max_ins = 0;
	513
	514	#endif
	515
	516	size->ttmetrics.valid = FALSE;
	517	}
	518
	519
	520	/*************************************************************************/
	521	/* */
	522	/* <Function> */
	523	/* TT_Reset_Size */
	524	/* */
	525	/* <Description> */
	526	/* Resets a TrueType size when resolutions and character dimensions */
	527	/* have been changed. */
	528	/* */
	529	/* <Input> */
	530	/* size :: A handle to the target size object. */
	531	/* */
	532	LOCAL_DEF
	533	FT_Error TT_Reset_Size( TT_Size size )
	534	{
	535	TT_Face face;
	536	FT_Error error = TT_Err_Ok;
	537
	538	FT_Size_Metrics* metrics;
	539
	540
	541	if ( size->ttmetrics.valid )
	542	return TT_Err_Ok;
	543
	544	face = (TT_Face)size->root.face;
	545
	546	metrics = &size->root.metrics;
	547
	548	if ( metrics->x_ppem < 1 \|\| metrics->y_ppem < 1 )
	549	return TT_Err_Invalid_PPem;
	550
	551	/* compute new transformation */
	552	if ( metrics->x_ppem >= metrics->y_ppem )
	553	{
	554	size->ttmetrics.scale = metrics->x_scale;
	555	size->ttmetrics.ppem = metrics->x_ppem;
	556	size->ttmetrics.x_ratio = 0x10000L;
	557	size->ttmetrics.y_ratio = FT_MulDiv( metrics->y_ppem,
	558	0x10000L,
	559	metrics->x_ppem );
	560	}
	561	else
	562	{
	563	size->ttmetrics.scale = metrics->y_scale;
	564	size->ttmetrics.ppem = metrics->y_ppem;
	565	size->ttmetrics.x_ratio = FT_MulDiv( metrics->x_ppem,
	566	0x10000L,
	567	metrics->y_ppem );
	568	size->ttmetrics.y_ratio = 0x10000L;
	569	}
	570
	571	/* Compute root ascender, descender, test height, and max_advance */
	572	metrics->ascender = ( FT_MulFix( face->root.ascender,
	573	metrics->y_scale ) + 32 ) & -64;
	574	metrics->descender = ( FT_MulFix( face->root.descender,
	575	metrics->y_scale ) + 32 ) & -64;
	576	metrics->height = ( FT_MulFix( face->root.height,
	577	metrics->y_scale ) + 32 ) & -64;
	578	metrics->max_advance = ( FT_MulFix( face->root.max_advance_width,
	579	metrics->x_scale ) + 32 ) & -64;
	580
	581	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	582
	583	{
	584	TT_ExecContext exec;
	585	FT_UInt i, j;
	586
	587
	588	/* Scale the cvt values to the new ppem. */
	589	/* We use by default the y ppem to scale the CVT. */
	590	for ( i = 0; i < size->cvt_size; i++ )
	591	size->cvt[i] = FT_MulFix( face->cvt[i], size->ttmetrics.scale );
	592
	593	/* All twilight points are originally zero */
	594	for ( j = 0; j < size->twilight.n_points; j++ )
	595	{
	596	size->twilight.org[j].x = 0;
	597	size->twilight.org[j].y = 0;
	598	size->twilight.cur[j].x = 0;
	599	size->twilight.cur[j].y = 0;
	600	}
	601
	602	/* clear storage area */
	603	for ( i = 0; i < size->storage_size; i++ )
	604	size->storage[i] = 0;
	605
	606	size->GS = tt_default_graphics_state;
	607
	608	/* get execution context and run prep program */
	609	if ( size->debug )
	610	exec = size->context;
	611	else
	612	exec = TT_New_Context( face );
	613	/* debugging instances have their own context */
	614
	615	if ( !exec )
	616	return TT_Err_Could_Not_Find_Context;
	617
	618	TT_Load_Context( exec, face, size );
	619
	620	TT_Set_CodeRange( exec,
	621	tt_coderange_cvt,
	622	face->cvt_program,
	623	face->cvt_program_size );
	624
	625	TT_Clear_CodeRange( exec, tt_coderange_glyph );
	626
	627	exec->instruction_trap = FALSE;
	628
	629	exec->top = 0;
	630	exec->callTop = 0;
	631
	632	if ( face->cvt_program_size > 0 )
	633	{
	634	error = TT_Goto_CodeRange( exec, tt_coderange_cvt, 0 );
	635	if ( error )
	636	goto End;
	637
	638	if ( !size->debug )
	639	error = face->interpreter( exec );
	640	}
	641	else
	642	error = TT_Err_Ok;
	643
	644	size->GS = exec->GS;
	645	/* save default graphics state */
	646
	647	End:
	648	TT_Save_Context( exec, size );
	649
	650	if ( !size->debug )
	651	TT_Done_Context( exec );
	652	/* debugging instances keep their context */
	653	}
	654
	655	#endif /* TT_CONFIG_OPTION_BYTECODE_INTERPRETER */
	656
	657	if ( !error )
	658	size->ttmetrics.valid = TRUE;
	659
	660	return error;
	661	}
	662
	663
	664	/*************************************************************************/
	665	/* */
	666	/* <Function> */
	667	/* TT_Init_Driver */
	668	/* */
	669	/* <Description> */
	670	/* Initializes a given TrueType driver object. */
	671	/* */
	672	/* <Input> */
	673	/* driver :: A handle to the target driver object. */
	674	/* */
	675	/* <Return> */
	676	/* FreeType error code. 0 means success. */
	677	/* */
	678	LOCAL_FUNC
	679	FT_Error TT_Init_Driver( TT_Driver driver )
	680	{
	681	FT_Error error;
	682
	683
	684	/* set `extra' in glyph loader */
	685	error = FT_GlyphLoader_Create_Extra( FT_DRIVER( driver )->glyph_loader );
	686
	687	/* init extension registry if needed */
	688
	689	#ifdef TT_CONFIG_OPTION_EXTEND_ENGINE
	690	if ( !error )
	691	return TT_Init_Extensions( driver );
	692	#endif
	693
	694	return error;
	695	}
	696
	697
	698	/*************************************************************************/
	699	/* */
	700	/* <Function> */
	701	/* TT_Done_Driver */
	702	/* */
	703	/* <Description> */
	704	/* Finalizes a given TrueType driver. */
	705	/* */
	706	/* <Input> */
	707	/* driver :: A handle to the target TrueType driver. */
	708	/* */
	709	LOCAL_FUNC
	710	void TT_Done_Driver( TT_Driver driver )
	711	{
	712	/* destroy extensions registry if needed */
	713
	714	#ifdef TT_CONFIG_OPTION_EXTEND_ENGINE
	715
	716	TT_Done_Extensions( driver );
	717
	718	#endif
	719
	720	#ifdef TT_CONFIG_OPTION_BYTECODE_INTERPRETER
	721
	722	/* destroy the execution context */
	723	if ( driver->context )
	724	{
	725	TT_Destroy_Context( driver->context, driver->root.root.memory );
	726	driver->context = NULL;
	727	}
	728
	729	#endif
	730
	731	}
	732
	733
	734	/* END */