[wxWidgets.git] / 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
cabec872 RR	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 */