ref: c8b187f9db503465460d8bafa2d7a758bbcf59ca
dir: /libfreetype/otlparse.c/
#include "otlparse.h" #include "otlutils.h" static void otl_string_ensure( OTL_String string, OTL_UInt count, OTL_Parser parser ) { count += string->length; if ( count > string->capacity ) { OTL_UInt old_count = string->capacity; OTL_UInt new_count = old_count; OTL_Memory memory = parser->memory; while ( new_count < count ) new_count += (new_count >> 1) + 16; if ( OTL_MEM_RENEW_ARRAY( string->glyphs, old_count, new_count ) ) otl_parser_error( parser, OTL_Parse_Err_Memory ); string->capacity = new_count; } } #define OTL_STRING_ENSURE(str,count,parser) \ OTL_BEGIN_STMNT \ if ( (str)->length + (count) > (str)>capacity ) \ otl_string_ensure( str, count, parser ); \ OTL_END_STMNT OTL_LOCALDEF( OTL_UInt ) otl_parser_get_gindex( OTL_Parser parser ) { OTL_String in = parser->str_in; if ( in->cursor >= in->num_glyphs ) otl_parser_error( parser, OTL_Err_Parser_Internal ); return in->str[ in->cursor ].gindex; } OTL_LOCALDEF( void ) otl_parser_error( OTL_Parser parser, OTL_ParseError error; ) { parser->error = error; otl_longjmp( parser->jump_buffer, 1 ); } #define OTL_PARSER_UNCOVERED(x) otl_parser_error( x, OTL_Parse_Err_UncoveredGlyph ); OTL_LOCAL( void ) otl_parser_check_property( OTL_Parser parser, OTL_UInt gindex, OTL_UInt flags, OTL_UInt *aproperty ); OTL_LOCALDEF( void ) otl_parser_replace_1( OTL_Parser parser, OTL_UInt gindex ) { OTL_String in = parser->str_in; OTL_String out = parser->str_out; OTL_StringGlyph glyph, in_glyph; /* sanity check */ if ( in == NULL || out == NULL || in->length == 0 || in->cursor >= in->length ) { /* report as internal error, since these should */ /* never happen !! */ otl_parser_error( parser, OTL_Err_Parse_Internal ); } OTL_STRING_ENSURE( out, 1, parser ); glyph = out->glyphs + out->length; in_glyph = in->glyphs + in->cursor; glyph->gindex = gindex; glyph->property = in_glyph->property; glyph->lig_component = in_glyph->lig_component; glyph->lig_id = in_glyph->lig_id; out->length += 1; out->cursor = out->length; in->cursor += 1; } OTL_LOCALDEF( void ) otl_parser_replace_n( OTL_Parser parser, OTL_UInt count, OTL_Bytes indices ) { OTL_UInt lig_component, lig_id, property; OTL_String in = parser->str_in; OTL_String out = parser->str_out; OTL_StringGlyph glyph, in_glyph; OTL_Bytes p = indices; /* sanity check */ if ( in == NULL || out == NULL || in->length == 0 || in->cursor >= in->length ) { /* report as internal error, since these should */ /* never happen !! */ otl_parser_error( parser, OTL_Err_Parse_Internal ); } OTL_STRING_ENSURE( out, count, parser ); glyph = out->glyphs + out->length; in_glyph = in->glyphs + in->cursor; glyph->gindex = gindex; lig_component = in_glyph->lig_component; lig_id = in_glyph->lid_id; property = in_glyph->property; for ( ; count > 0; count-- ) { glyph->gindex = OTL_NEXT_USHORT(p); glyph->property = property; glyph->lig_component = lig_component; glyph->lig_id = lig_id; out->length ++; } out->cursor = out->length; in->cursor += 1; }