/***************************************************************************//*                                                                         *//*  cidparse.c                                                             *//*                                                                         *//*    CID-keyed Type1 parser (body).                                       *//*                                                                         *//*  Copyright 1996-2001, 2002, 2003, 2004, 2005, 2006 by                   *//*  David Turner, Robert Wilhelm, and Werner Lemberg.                      *//*                                                                         *//*  This file is part of the FreeType project, and may only be used,       *//*  modified, and distributed under the terms of the FreeType project      *//*  license, LICENSE.TXT.  By continuing to use, modify, or distribute     *//*  this file you indicate that you have read the license and              *//*  understand and accept it fully.                                        *//*                                                                         *//***************************************************************************/#include <ft2build.h>#include FT_INTERNAL_DEBUG_H#include FT_INTERNAL_CALC_H#include FT_INTERNAL_OBJECTS_H#include FT_INTERNAL_STREAM_H#include "cidparse.h"#include "ciderrs.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_cidparse  /*************************************************************************/  /*************************************************************************/  /*************************************************************************/  /*****                                                               *****/  /*****                    INPUT STREAM PARSER                        *****/  /*****                                                               *****/  /*************************************************************************/  /*************************************************************************/  /*************************************************************************/  FT_LOCAL_DEF( FT_Error )  cid_parser_new( CID_Parser*    parser,                  FT_Stream      stream,                  FT_Memory      memory,                  PSAux_Service  psaux )  {    FT_Error  error;    FT_ULong  base_offset, offset, ps_len;    FT_Byte   *cur, *limit;    FT_Byte   *arg1, *arg2;    FT_MEM_ZERO( parser, sizeof ( *parser ) );    psaux->ps_parser_funcs->init( &parser->root, 0, 0, memory );    parser->stream = stream;    base_offset = FT_STREAM_POS();    /* first of all, check the font format in the header */    if ( FT_FRAME_ENTER( 31 ) )      goto Exit;    if ( ft_strncmp( (char *)stream->cursor,                     "%!PS-Adobe-3.0 Resource-CIDFont", 31 ) )    {      FT_TRACE2(( "[not a valid CID-keyed font]\n" ));      error = CID_Err_Unknown_File_Format;    }    FT_FRAME_EXIT();    if ( error )      goto Exit;  Again:    /* now, read the rest of the file until we find a `StartData' */    {      FT_Byte   buffer[256 + 10];      FT_Int    read_len = 256 + 10;      FT_Byte*  p        = buffer;      for ( offset = (FT_ULong)FT_STREAM_POS(); ; offset += 256 )      {        FT_Int    stream_len;        stream_len = stream->size - FT_STREAM_POS();        if ( stream_len == 0 )          goto Exit;        read_len = FT_MIN( read_len, stream_len );        if ( FT_STREAM_READ( p, read_len ) )          goto Exit;        if ( read_len < 256 )          p[read_len]  = '\0';        limit = p + read_len - 10;        for ( p = buffer; p < limit; p++ )        {          if ( p[0] == 'S' && ft_strncmp( (char*)p, "StartData", 9 ) == 0 )          {            /* save offset of binary data after `StartData' */            offset += p - buffer + 10;            goto Found;          }        }        FT_MEM_MOVE( buffer, p, 10 );        read_len = 256;        p = buffer + 10;      }    }  Found:    /* We have found the start of the binary data.  Now rewind and */    /* extract the frame corresponding to the PostScript section.  */    ps_len = offset - base_offset;    if ( FT_STREAM_SEEK( base_offset )                  ||         FT_FRAME_EXTRACT( ps_len, parser->postscript ) )      goto Exit;    parser->data_offset    = offset;    parser->postscript_len = ps_len;    parser->root.base      = parser->postscript;    parser->root.cursor    = parser->postscript;    parser->root.limit     = parser->root.cursor + ps_len;    parser->num_dict       = -1;    /* Finally, we check whether `StartData' was real -- it could be  */    /* in a comment or string.  We also get its arguments to find out */    /* whether the data is represented in binary or hex format.       */    arg1 = parser->root.cursor;    cid_parser_skip_PS_token( parser );    cid_parser_skip_spaces  ( parser );    arg2 = parser->root.cursor;    cid_parser_skip_PS_token( parser );    cid_parser_skip_spaces  ( parser );    limit = parser->root.limit;    cur   = parser->root.cursor;    while ( cur < limit )    {      if ( parser->root.error )        break;      if ( *cur == 'S' && ft_strncmp( (char*)cur, "StartData", 9 ) == 0 )      {        if ( ft_strncmp( (char*)arg1, "(Hex)", 5 ) == 0 )          parser->binary_length = ft_atol( (const char *)arg2 );        limit = parser->root.limit;        cur   = parser->root.cursor;        goto Exit;      }      cid_parser_skip_PS_token( parser );      cid_parser_skip_spaces  ( parser );      arg1 = arg2;      arg2 = cur;      cur  = parser->root.cursor;    }    /* we haven't found the correct `StartData'; go back and continue */    /* searching                                                      */    FT_FRAME_RELEASE( parser->postscript );    if ( !FT_STREAM_SEEK( offset ) )      goto Again;  Exit:    return error;  }  FT_LOCAL_DEF( void )  cid_parser_done( CID_Parser*  parser )  {    /* always free the private dictionary */    if ( parser->postscript )    {      FT_Stream  stream = parser->stream;      FT_FRAME_RELEASE( parser->postscript );    }    parser->root.funcs.done( &parser->root );  }/* END */