t1parse.h File Reference

#include <ft2build.h>

Include dependency graph for t1parse.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Classes
struct	T1_ParserRec_

Macros
#define	T1_Add_Table(p, i, o, l)   (p)->funcs.add( (p), i, o, l )
#define	T1_Release_Table(p)
#define	T1_Skip_Spaces(p)   (p)->root.funcs.skip_spaces( &(p)->root )
#define	T1_Skip_PS_Token(p)   (p)->root.funcs.skip_PS_token( &(p)->root )
#define	T1_ToInt(p)   (p)->root.funcs.to_int( &(p)->root )
#define	T1_ToFixed(p, t)   (p)->root.funcs.to_fixed( &(p)->root, t )
#define	T1_ToCoordArray(p, m, c)    (p)->root.funcs.to_coord_array( &(p)->root, m, c )
#define	T1_ToFixedArray(p, m, f, t)    (p)->root.funcs.to_fixed_array( &(p)->root, m, f, t )
#define	T1_ToToken(p, t)    (p)->root.funcs.to_token( &(p)->root, t )
#define	T1_ToTokenArray(p, t, m, c)    (p)->root.funcs.to_token_array( &(p)->root, t, m, c )
#define	T1_Load_Field(p, f, o, m, pf)    (p)->root.funcs.load_field( &(p)->root, f, o, m, pf )
#define	T1_Load_Field_Table(p, f, o, m, pf)    (p)->root.funcs.load_field_table( &(p)->root, f, o, m, pf )

Typedefs
typedef FT_BEGIN_HEADER struct T1_ParserRec_	T1_ParserRec
typedef FT_BEGIN_HEADER struct T1_ParserRec_ *	T1_Parser

Functions
	T1_New_Parser (T1_Parser parser, FT_Stream stream, FT_Memory memory, PSAux_Service psaux)
	T1_Get_Private_Dict (T1_Parser parser, PSAux_Service psaux)
	T1_Finalize_Parser (T1_Parser parser)

Macro Definition Documentation

T1_Add_Table

#define T1_Add_Table	(		p,
			i,
			o,
			l
	)		(p)->funcs.add( (p), i, o, l )

Definition at line 79 of file t1parse.h.

T1_Load_Field

#define T1_Load_Field	(		p,
			f,
			o,
			m,
			pf
	)		(p)->root.funcs.load_field( &(p)->root, f, o, m, pf )

Definition at line 103 of file t1parse.h.

T1_Load_Field_Table

#define T1_Load_Field_Table	(		p,
			f,
			o,
			m,
			pf
	)		(p)->root.funcs.load_field_table( &(p)->root, f, o, m, pf )

Definition at line 106 of file t1parse.h.

T1_Release_Table

#define T1_Release_Table

(

p

)

Value:

          do                           \
          {                            \
            if ( (p)->funcs.release )  \
              (p)->funcs.release( p ); \
          } while ( 0 )

Definition at line 80 of file t1parse.h.

T1_Skip_PS_Token

#define T1_Skip_PS_Token

(

p

)

(p)->root.funcs.skip_PS_token( &(p)->root )

Definition at line 89 of file t1parse.h.

T1_Skip_Spaces

#define T1_Skip_Spaces

(

p

)

(p)->root.funcs.skip_spaces( &(p)->root )

Definition at line 88 of file t1parse.h.

T1_ToCoordArray

#define T1_ToCoordArray	(		p,
			m,
			c
	)		(p)->root.funcs.to_coord_array( &(p)->root, m, c )

Definition at line 94 of file t1parse.h.

T1_ToFixed

#define T1_ToFixed	(		p,
			t
	)		(p)->root.funcs.to_fixed( &(p)->root, t )

Definition at line 92 of file t1parse.h.

T1_ToFixedArray

#define T1_ToFixedArray	(		p,
			m,
			f,
			t
	)		(p)->root.funcs.to_fixed_array( &(p)->root, m, f, t )

Definition at line 96 of file t1parse.h.

T1_ToInt

#define T1_ToInt

(

p

)

(p)->root.funcs.to_int( &(p)->root )

Definition at line 91 of file t1parse.h.

T1_ToToken

#define T1_ToToken	(		p,
			t
	)		(p)->root.funcs.to_token( &(p)->root, t )

Definition at line 98 of file t1parse.h.

T1_ToTokenArray

#define T1_ToTokenArray	(		p,
			t,
			m,
			c
	)		(p)->root.funcs.to_token_array( &(p)->root, t, m, c )

Definition at line 100 of file t1parse.h.

Typedef Documentation

T1_Parser

typedef FT_BEGIN_HEADER struct T1_ParserRec_ * T1_Parser

T1_ParserRec

typedef FT_BEGIN_HEADER struct T1_ParserRec_ T1_ParserRec

Function Documentation

T1_Finalize_Parser()

T1_Finalize_Parser

(

T1_Parser

parser

)

Definition at line 244 of file t1parse.c.

  {
    FT_Memory  memory = parser->root.memory;
 
 
    /* always free the private dictionary */
    FT_FREE( parser->private_dict );
 
    /* free the base dictionary only when we have a disk stream */
    if ( !parser->in_memory )
      FT_FREE( parser->base_dict );
 
    parser->root.funcs.done( &parser->root );
  }

Referenced by t1_done_loader().

T1_Get_Private_Dict()

T1_Get_Private_Dict	(	T1_Parser	parser,
		PSAux_Service	psaux
	)

Definition at line 261 of file t1parse.c.

  {
    FT_Stream  stream = parser->stream;
    FT_Memory  memory = parser->root.memory;
    FT_Error   error  = FT_Err_Ok;
    FT_ULong   size;
 
 
    if ( parser->in_pfb )
    {
      /* in the case of the PFB format, the private dictionary can be  */
      /* made of several segments.  We thus first read the number of   */
      /* segments to compute the total size of the private dictionary  */
      /* then re-read them into memory.                                */
      FT_ULong   start_pos = FT_STREAM_POS();
      FT_UShort  tag;
 
 
      parser->private_len = 0;
      for (;;)
      {
        error = read_pfb_tag( stream, &tag, &size );
        if ( error )
          goto Fail;
 
        if ( tag != 0x8002U )
          break;
 
        parser->private_len += size;
 
        if ( FT_STREAM_SKIP( size ) )
          goto Fail;
      }
 
      /* Check that we have a private dictionary there */
      /* and allocate private dictionary buffer        */
      if ( parser->private_len == 0 )
      {
        FT_ERROR(( "T1_Get_Private_Dict:"
                   " invalid private dictionary section\n" ));
        error = FT_THROW( Invalid_File_Format );
        goto Fail;
      }
 
      if ( FT_STREAM_SEEK( start_pos )                           ||
           FT_ALLOC( parser->private_dict, parser->private_len ) )
        goto Fail;
 
      parser->private_len = 0;
      for (;;)
      {
        error = read_pfb_tag( stream, &tag, &size );
        if ( error || tag != 0x8002U )
        {
          error = FT_Err_Ok;
          break;
        }
 
        if ( FT_STREAM_READ( parser->private_dict + parser->private_len,
                             size ) )
          goto Fail;
 
        parser->private_len += size;
      }
    }
    else
    {
      /* We have already `loaded' the whole PFA font file into memory; */
      /* if this is a memory resource, allocate a new block to hold    */
      /* the private dict.  Otherwise, simply overwrite into the base  */
      /* dictionary block in the heap.                                 */
 
      /* first of all, look at the `eexec' keyword */
      FT_Byte*    cur   = parser->base_dict;
      FT_Byte*    limit = cur + parser->base_len;
      FT_Pointer  pos_lf;
      FT_Bool     test_cr;
 
 
    Again:
      for (;;)
      {
        if ( cur[0] == 'e'   &&
             cur + 9 < limit )      /* 9 = 5 letters for `eexec' + */
                                    /* whitespace + 4 chars        */
        {
          if ( cur[1] == 'e' &&
               cur[2] == 'x' &&
               cur[3] == 'e' &&
               cur[4] == 'c' )
            break;
        }
        cur++;
        if ( cur >= limit )
        {
          FT_ERROR(( "T1_Get_Private_Dict:"
                     " could not find `eexec' keyword\n" ));
          error = FT_THROW( Invalid_File_Format );
          goto Exit;
        }
      }
 
      /* check whether `eexec' was real -- it could be in a comment */
      /* or string (as e.g. in u003043t.gsf from ghostscript)       */
 
      parser->root.cursor = parser->base_dict;
      /* set limit to `eexec' + whitespace + 4 characters */
      parser->root.limit  = cur + 10;
 
      cur   = parser->root.cursor;
      limit = parser->root.limit;
 
      while ( cur < limit )
      {
        if ( cur[0] == 'e'   &&
             cur + 5 < limit )
        {
          if ( cur[1] == 'e' &&
               cur[2] == 'x' &&
               cur[3] == 'e' &&
               cur[4] == 'c' )
            goto Found;
        }
 
        T1_Skip_PS_Token( parser );
        if ( parser->root.error )
          break;
        T1_Skip_Spaces  ( parser );
        cur = parser->root.cursor;
      }
 
      /* we haven't found the correct `eexec'; go back and continue */
      /* searching                                                  */
 
      cur   = limit;
      limit = parser->base_dict + parser->base_len;
 
      if ( cur >= limit )
      {
        FT_ERROR(( "T1_Get_Private_Dict:"
                   " premature end in private dictionary\n" ));
        error = FT_THROW( Invalid_File_Format );
        goto Exit;
      }
 
      goto Again;
 
      /* now determine where to write the _encrypted_ binary private  */
      /* dictionary.  We overwrite the base dictionary for disk-based */
      /* resources and allocate a new block otherwise                 */
 
    Found:
      parser->root.limit = parser->base_dict + parser->base_len;
 
      T1_Skip_PS_Token( parser );
      cur   = parser->root.cursor;
      limit = parser->root.limit;
 
      /* According to the Type 1 spec, the first cipher byte must not be */
      /* an ASCII whitespace character code (blank, tab, carriage return */
      /* or line feed).  We have seen Type 1 fonts with two line feed    */
      /* characters...  So skip now all whitespace character codes.      */
      /*                                                                 */
      /* On the other hand, Adobe's Type 1 parser handles fonts just     */
      /* fine that are violating this limitation, so we add a heuristic  */
      /* test to stop at \r only if it is not used for EOL.              */
 
      pos_lf  = ft_memchr( cur, '\n', (size_t)( limit - cur ) );
      test_cr = FT_BOOL( !pos_lf                                       ||
                         pos_lf > ft_memchr( cur,
                                             '\r',
                                             (size_t)( limit - cur ) ) );
 
      while ( cur < limit                    &&
              ( *cur == ' '                ||
                *cur == '\t'               ||
                (test_cr && *cur == '\r' ) ||
                *cur == '\n'               ) )
        cur++;
      if ( cur >= limit )
      {
        FT_ERROR(( "T1_Get_Private_Dict:"
                   " `eexec' not properly terminated\n" ));
        error = FT_THROW( Invalid_File_Format );
        goto Exit;
      }
 
      size = parser->base_len - (FT_ULong)( cur - parser->base_dict );
 
      if ( parser->in_memory )
      {
        /* note that we allocate one more byte to put a terminating `0' */
        if ( FT_ALLOC( parser->private_dict, size + 1 ) )
          goto Fail;
        parser->private_len = size;
      }
      else
      {
        parser->single_block = 1;
        parser->private_dict = parser->base_dict;
        parser->private_len  = size;
        parser->base_dict    = NULL;
        parser->base_len     = 0;
      }
 
      /* now determine whether the private dictionary is encoded in binary */
      /* or hexadecimal ASCII format -- decode it accordingly              */
 
      /* we need to access the next 4 bytes (after the final whitespace */
      /* following the `eexec' keyword); if they all are hexadecimal    */
      /* digits, then we have a case of ASCII storage                   */
 
      if ( cur + 3 < limit                                &&
           ft_isxdigit( cur[0] ) && ft_isxdigit( cur[1] ) &&
           ft_isxdigit( cur[2] ) && ft_isxdigit( cur[3] ) )
      {
        /* ASCII hexadecimal encoding */
        FT_ULong  len;
 
 
        parser->root.cursor = cur;
        (void)psaux->ps_parser_funcs->to_bytes( &parser->root,
                                                parser->private_dict,
                                                parser->private_len,
                                                &len,
                                                0 );
        parser->private_len = len;
 
        /* put a safeguard */
        parser->private_dict[len] = '\0';
      }
      else
        /* binary encoding -- copy the private dict */
        FT_MEM_MOVE( parser->private_dict, cur, size );
    }
 
    /* we now decrypt the encoded binary private dictionary */
    psaux->t1_decrypt( parser->private_dict, parser->private_len, 55665U );
 
    if ( parser->private_len < 4 )
    {
      FT_ERROR(( "T1_Get_Private_Dict:"
                 " invalid private dictionary section\n" ));
      error = FT_THROW( Invalid_File_Format );
      goto Fail;
    }
 
    /* replace the four random bytes at the beginning with whitespace */
    parser->private_dict[0] = ' ';
    parser->private_dict[1] = ' ';
    parser->private_dict[2] = ' ';
    parser->private_dict[3] = ' ';
 
    parser->root.base   = parser->private_dict;
    parser->root.cursor = parser->private_dict;
    parser->root.limit  = parser->root.cursor + parser->private_len;
 
  Fail:
  Exit:
    return error;
  }

Referenced by T1_Open_Face().

T1_New_Parser()

T1_New_Parser	(	T1_Parser	parser,
		FT_Stream	stream,
		FT_Memory	memory,
		PSAux_Service	psaux
	)

Definition at line 136 of file t1parse.c.

  {
    FT_Error   error;
    FT_UShort  tag;
    FT_ULong   size;
 
 
    psaux->ps_parser_funcs->init( &parser->root, NULL, NULL, memory );
 
    parser->stream       = stream;
    parser->base_len     = 0;
    parser->base_dict    = NULL;
    parser->private_len  = 0;
    parser->private_dict = NULL;
    parser->in_pfb       = 0;
    parser->in_memory    = 0;
    parser->single_block = 0;
 
    /* check the header format */
    error = check_type1_format( stream, "%!PS-AdobeFont", 14 );
    if ( error )
    {
      if ( FT_ERR_NEQ( error, Unknown_File_Format ) )
        goto Exit;
 
      error = check_type1_format( stream, "%!FontType", 10 );
      if ( error )
      {
        FT_TRACE2(( "  not a Type 1 font\n" ));
        goto Exit;
      }
    }
 
    /******************************************************************/
    /*                                                                */
    /* Here a short summary of what is going on:                      */
    /*                                                                */
    /*   When creating a new Type 1 parser, we try to locate and load */
    /*   the base dictionary if this is possible (i.e., for PFB       */
    /*   files).  Otherwise, we load the whole font into memory.      */
    /*                                                                */
    /*   When `loading' the base dictionary, we only setup pointers   */
    /*   in the case of a memory-based stream.  Otherwise, we         */
    /*   allocate and load the base dictionary in it.                 */
    /*                                                                */
    /*   parser->in_pfb is set if we are in a binary (`.pfb') font.   */
    /*   parser->in_memory is set if we have a memory stream.         */
    /*                                                                */
 
    /* try to compute the size of the base dictionary;     */
    /* look for a Postscript binary file tag, i.e., 0x8001 */
    if ( FT_STREAM_SEEK( 0L ) )
      goto Exit;
 
    error = read_pfb_tag( stream, &tag, &size );
    if ( error )
      goto Exit;
 
    if ( tag != 0x8001U )
    {
      /* assume that this is a PFA file for now; an error will */
      /* be produced later when more things are checked        */
      if ( FT_STREAM_SEEK( 0L ) )
        goto Exit;
      size = stream->size;
    }
    else
      parser->in_pfb = 1;
 
    /* now, try to load `size' bytes of the `base' dictionary we */
    /* found previously                                          */
 
    /* if it is a memory-based resource, set up pointers */
    if ( !stream->read )
    {
      parser->base_dict = (FT_Byte*)stream->base + stream->pos;
      parser->base_len  = size;
      parser->in_memory = 1;
 
      /* check that the `size' field is valid */
      if ( FT_STREAM_SKIP( size ) )
        goto Exit;
    }
    else
    {
      /* read segment in memory -- this is clumsy, but so does the format */
      if ( FT_ALLOC( parser->base_dict, size )       ||
           FT_STREAM_READ( parser->base_dict, size ) )
        goto Exit;
      parser->base_len = size;
    }
 
    parser->root.base   = parser->base_dict;
    parser->root.cursor = parser->base_dict;
    parser->root.limit  = parser->root.cursor + parser->base_len;
 
  Exit:
    if ( error && !parser->in_memory )
      FT_FREE( parser->base_dict );
 
    return error;
  }

Referenced by T1_Open_Face().