freetype2/src/psnames/psmodule.c

310 lines
7.8 KiB
C
Raw Normal View History

2000-06-25 08:47:11 +02:00
/***************************************************************************/
/* */
/* psmodule.c */
/* */
/* PSNames module implementation (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 <ft2build.h>
#include FT_INTERNAL_POSTSCRIPT_NAMES_H
#include FT_INTERNAL_OBJECTS_H
#include FT_SOURCE_FILE(psnames,psmodule.h)
#include FT_SOURCE_FILE(psnames,pstables.h)
#include <stdlib.h> /* for qsort() */
2000-06-25 08:47:11 +02:00
#include <string.h> /* for strcmp(), strncpy() */
2000-06-22 02:27:15 +02:00
#ifndef FT_CONFIG_OPTION_NO_POSTSCRIPT_NAMES
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
#ifdef FT_CONFIG_OPTION_ADOBE_GLYPH_LIST
2000-06-25 08:47:11 +02:00
/* return the Unicode value corresponding to a given glyph. Note that */
/* we do deal with glyph variants by detecting a non-initial dot in */
/* the name, as in `A.swash' or `e.final', etc. */
/* */
2000-06-22 02:27:15 +02:00
static
2000-06-25 08:47:11 +02:00
FT_ULong PS_Unicode_Value( const char* glyph_name )
2000-06-22 02:27:15 +02:00
{
FT_Int n;
char first = glyph_name[0];
char temp[64];
2000-06-25 08:47:11 +02:00
/* if the name begins with `uni', then the glyph name may be a */
/* hard-coded unicode character code. */
2000-06-22 02:27:15 +02:00
if ( glyph_name[0] == 'u' &&
glyph_name[1] == 'n' &&
glyph_name[2] == 'i' )
{
/* determine whether the next four characters following are */
/* hexadecimal. */
/* XXX: Add code to deal with ligatures, i.e. glyph names like */
/* `uniXXXXYYYYZZZZ'... */
2000-06-25 08:47:11 +02:00
FT_Int count;
FT_ULong value = 0;
const char* p = glyph_name + 4;
2000-06-22 02:27:15 +02:00
2000-06-25 08:47:11 +02:00
for ( count = 4; count > 0; count--, p++ )
2000-06-22 02:27:15 +02:00
{
char c = *p;
unsigned char d;
2000-06-25 08:47:11 +02:00
d = (unsigned char)c - '0';
if ( d >= 10 )
2000-06-22 02:27:15 +02:00
{
d = (unsigned char)c - 'A';
if ( d >= 6 )
d = 16;
else
d += 10;
}
/* exit if a non-uppercase hexadecimal character was found */
2000-06-25 08:47:11 +02:00
if ( d >= 16 )
2000-06-22 02:27:15 +02:00
break;
2000-06-25 08:47:11 +02:00
value = ( value << 4 ) + d;
2000-06-25 08:47:11 +02:00
if ( count == 0 )
2000-06-22 02:27:15 +02:00
return value;
}
}
/* look for a non-initial dot in the glyph name in order to */
2000-06-25 08:47:11 +02:00
/* sort-out variants like `A.swash', `e.final', etc. */
2000-06-22 02:27:15 +02:00
{
const char* p;
int len;
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
p = glyph_name;
2000-06-25 08:47:11 +02:00
while ( *p && *p != '.' )
p++;
2000-06-25 08:47:11 +02:00
len = p - glyph_name;
2000-06-22 02:27:15 +02:00
if ( *p && len < 64 )
{
strncpy( temp, glyph_name, len );
temp[len] = 0;
glyph_name = temp;
}
}
/* now, look up the glyph in the Adobe Glyph List */
2000-06-22 02:27:15 +02:00
for ( n = 0; n < NUM_ADOBE_GLYPHS; n++ )
{
const char* name = t1_standard_glyphs[n];
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
if ( first == name[0] && strcmp( glyph_name, name ) == 0 )
return names_to_unicode[n];
}
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
/* not found, there is probably no Unicode value for this glyph name */
return 0;
}
2000-06-25 08:47:11 +02:00
/* qsort callback to sort the unicode map */
FT_CALLBACK_DEF
2000-06-25 08:47:11 +02:00
int compare_uni_maps( const void* a,
const void* b )
2000-06-22 02:27:15 +02:00
{
PS_UniMap* map1 = (PS_UniMap*)a;
PS_UniMap* map2 = (PS_UniMap*)b;
2000-06-25 08:47:11 +02:00
return ( map1->unicode - map2->unicode );
2000-06-22 02:27:15 +02:00
}
2000-06-25 08:47:11 +02:00
/* Builds a table that maps Unicode values to glyph indices */
2000-06-22 02:27:15 +02:00
static
FT_Error PS_Build_Unicode_Table( FT_Memory memory,
FT_UInt num_glyphs,
const char** glyph_names,
2000-06-25 08:47:11 +02:00
PS_Unicodes* table )
2000-06-22 02:27:15 +02:00
{
FT_Error error;
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
/* we first allocate the table */
table->num_maps = 0;
table->maps = 0;
if ( !ALLOC_ARRAY( table->maps, num_glyphs, PS_UniMap ) )
{
FT_UInt n;
FT_UInt count;
PS_UniMap* map;
FT_ULong uni_char;
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
map = table->maps;
2000-06-22 02:27:15 +02:00
for ( n = 0; n < num_glyphs; n++ )
{
const char* gname = glyph_names[n];
2000-06-25 08:47:11 +02:00
if ( gname )
2000-06-22 02:27:15 +02:00
{
2000-06-25 08:47:11 +02:00
uni_char = PS_Unicode_Value( gname );
2000-06-25 08:47:11 +02:00
if ( uni_char && uni_char != 0xFFFF )
2000-06-22 02:27:15 +02:00
{
map->unicode = uni_char;
map->glyph_index = n;
map++;
}
}
}
/* now, compress the table a bit */
count = map - table->maps;
2000-06-22 02:27:15 +02:00
if ( count > 0 && REALLOC( table->maps,
2000-06-25 08:47:11 +02:00
num_glyphs * sizeof ( PS_UniMap ),
count * sizeof ( PS_UniMap ) ) )
2000-06-22 02:27:15 +02:00
count = 0;
2000-06-25 08:47:11 +02:00
if ( count == 0 )
2000-06-22 02:27:15 +02:00
{
FREE( table->maps );
2000-06-25 08:47:11 +02:00
if ( !error )
error = FT_Err_Invalid_Argument; /* no unicode chars here! */
2000-06-22 02:27:15 +02:00
}
else
/* sort the table in increasing order of unicode values */
2000-06-25 08:47:11 +02:00
qsort( table->maps, count, sizeof ( PS_UniMap ), compare_uni_maps );
2000-06-22 02:27:15 +02:00
table->num_maps = count;
}
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
return error;
}
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
static
FT_UInt PS_Lookup_Unicode( PS_Unicodes* table,
FT_ULong unicode )
{
PS_UniMap *min, *max, *mid;
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
/* perform a binary search on the table */
2000-06-22 02:27:15 +02:00
min = table->maps;
max = min + table->num_maps - 1;
2000-06-25 08:47:11 +02:00
while ( min <= max )
2000-06-22 02:27:15 +02:00
{
2000-06-25 08:47:11 +02:00
mid = min + ( max - min ) / 2;
2000-06-22 02:27:15 +02:00
if ( mid->unicode == unicode )
return mid->glyph_index;
2000-06-25 08:47:11 +02:00
if ( min == max )
2000-06-22 02:27:15 +02:00
break;
2000-06-25 08:47:11 +02:00
if ( mid->unicode < unicode )
min = mid + 1;
else
max = mid - 1;
2000-06-22 02:27:15 +02:00
}
return 0xFFFF;
}
2000-06-25 08:47:11 +02:00
#endif /* FT_CONFIG_OPTION_ADOBE_GLYPH_LIST */
2000-06-22 02:27:15 +02:00
static
const char* PS_Macintosh_Name( FT_UInt name_index )
{
2000-06-25 08:47:11 +02:00
if ( name_index >= 258 )
2000-06-22 02:27:15 +02:00
name_index = 0;
2000-06-25 08:47:11 +02:00
return standard_glyph_names[mac_standard_names[name_index]];
2000-06-22 02:27:15 +02:00
}
static
const char* PS_Standard_Strings( FT_UInt sid )
{
2000-06-25 08:47:11 +02:00
return ( sid < NUM_STD_GLYPHS ? t1_standard_glyphs[sid] : 0 );
2000-06-22 02:27:15 +02:00
}
static
const PSNames_Interface psnames_interface =
2000-06-22 02:27:15 +02:00
{
#ifdef FT_CONFIG_OPTION_ADOBE_GLYPH_LIST
2000-06-25 08:47:11 +02:00
(PS_Unicode_Value_Func) PS_Unicode_Value,
(PS_Build_Unicodes_Func) PS_Build_Unicode_Table,
(PS_Lookup_Unicode_Func) PS_Lookup_Unicode,
2000-06-22 02:27:15 +02:00
#else
2000-06-25 08:47:11 +02:00
2000-06-22 02:27:15 +02:00
0,
0,
0,
2000-06-25 08:47:11 +02:00
#endif /* FT_CONFIG_OPTION_ADOBE_GLYPH_LIST */
(PS_Macintosh_Name_Func) PS_Macintosh_Name,
(PS_Adobe_Std_Strings_Func)PS_Standard_Strings,
2000-06-22 02:27:15 +02:00
t1_standard_encoding,
t1_expert_encoding
};
2000-06-25 08:47:11 +02:00
#endif /* !FT_CONFIG_OPTION_NO_POSTSCRIPT_NAMES */
2000-06-22 02:27:15 +02:00
FT_CALLBACK_TABLE_DEF
const FT_Module_Class psnames_module_class =
2000-06-22 02:27:15 +02:00
{
0, /* this is not a font driver, nor a renderer */
2000-06-25 08:47:11 +02:00
sizeof( FT_ModuleRec ),
2000-06-22 02:27:15 +02:00
"psnames", /* driver name */
0x10000L, /* driver version */
0x20000L, /* driver requires FreeType 2 or above */
2000-06-22 02:27:15 +02:00
#ifdef FT_CONFIG_OPTION_NO_POSTSCRIPT_NAMES
0,
#else
(void*)&psnames_interface, /* module specific interface */
#endif
2000-06-25 08:47:11 +02:00
(FT_Module_Constructor)0,
(FT_Module_Destructor) 0,
(FT_Module_Requester) 0
2000-06-22 02:27:15 +02:00
};
2000-06-25 08:47:11 +02:00
/* END */