4 * Copyright (C) 2011-2012 by Werner Lemberg.
6 * This file is part of the ttfautohint library, and may only be used,
7 * modified, and distributed under the terms given in `COPYING'. By
8 * continuing to use, modify, or distribute this file you indicate that you
9 * have read `COPYING' and understand and accept it fully.
11 * The file `COPYING' mentioned in the previous paragraph is distributed
12 * with the ttfautohint library.
16 /* originally file `afglobal.c' (2011-Mar-28) from FreeType */
18 /* heavily modified 2011 by Werner Lemberg <wl@gnu.org> */
31 #ifdef FT_OPTION_AUTOFIT2
36 /* populate this list when you add new scripts */
37 static TA_ScriptClass
const ta_script_classes
[] =
39 &ta_dummy_script_class
,
40 #ifdef FT_OPTION_AUTOFIT2
41 &ta_latin2_script_class
,
43 &ta_latin_script_class
,
46 &ta_indic_script_class
,
48 NULL
/* do not remove */
52 /* Compute the script index of each glyph within a given face. */
55 ta_face_globals_compute_script_coverage(TA_FaceGlobals globals
,
56 FT_UInt fallback_script
)
58 FT_Error error
= FT_Err_Ok
;
59 FT_Face face
= globals
->face
;
60 FT_CharMap old_charmap
= face
->charmap
;
61 FT_Byte
* gscripts
= globals
->glyph_scripts
;
66 /* the value TA_SCRIPT_NONE means `uncovered glyph' */
67 memset(globals
->glyph_scripts
, TA_SCRIPT_NONE
, globals
->glyph_count
);
69 error
= FT_Select_Charmap(face
, FT_ENCODING_UNICODE
);
72 /* ignore this error; we simply use the fallback script */
73 /* XXX: Shouldn't we rather disable hinting? */
78 /* scan each script in a Unicode charmap */
79 for (ss
= 0; ta_script_classes
[ss
]; ss
++)
81 TA_ScriptClass clazz
= ta_script_classes
[ss
];
82 TA_Script_UniRange range
;
85 if (clazz
->script_uni_ranges
== NULL
)
88 /* scan all Unicode points in the range and */
89 /* set the corresponding glyph script index */
90 for (range
= clazz
->script_uni_ranges
; range
->first
!= 0; range
++)
92 FT_ULong charcode
= range
->first
;
96 gindex
= FT_Get_Char_Index(face
, charcode
);
99 && gindex
< (FT_ULong
)globals
->glyph_count
100 && gscripts
[gindex
] == TA_SCRIPT_NONE
)
101 gscripts
[gindex
] = (FT_Byte
)ss
;
105 charcode
= FT_Get_Next_Char(face
, charcode
, &gindex
);
107 if (gindex
== 0 || charcode
> range
->last
)
110 if (gindex
< (FT_ULong
)globals
->glyph_count
111 && gscripts
[gindex
] == TA_SCRIPT_NONE
)
112 gscripts
[gindex
] = (FT_Byte
)ss
;
117 /* mark ASCII digits */
118 for (i
= 0x30; i
<= 0x39; i
++)
120 FT_UInt gindex
= FT_Get_Char_Index(face
, i
);
124 && gindex
< (FT_ULong
)globals
->glyph_count
)
125 gscripts
[gindex
] |= TA_DIGIT
;
129 /* by default, all uncovered glyphs are set to the fallback script */
130 /* XXX: Shouldn't we disable hinting or do something similar? */
135 for (nn
= 0; nn
< globals
->glyph_count
; nn
++)
137 if ((gscripts
[nn
] & ~TA_DIGIT
) == TA_SCRIPT_NONE
)
139 gscripts
[nn
] &= ~TA_SCRIPT_NONE
;
140 gscripts
[nn
] |= fallback_script
;
145 FT_Set_Charmap(face
, old_charmap
);
151 ta_face_globals_new(FT_Face face
,
152 TA_FaceGlobals
*aglobals
,
153 FT_UInt fallback_script
)
156 TA_FaceGlobals globals
;
159 globals
= (TA_FaceGlobals
)calloc(1, sizeof (TA_FaceGlobalsRec
) +
160 face
->num_glyphs
* sizeof (FT_Byte
));
163 error
= FT_Err_Out_Of_Memory
;
167 globals
->face
= face
;
168 globals
->glyph_count
= face
->num_glyphs
;
169 globals
->glyph_scripts
= (FT_Byte
*)(globals
+ 1);
171 error
= ta_face_globals_compute_script_coverage(globals
, fallback_script
);
174 ta_face_globals_free(globals
);
185 ta_face_globals_free(TA_FaceGlobals globals
)
192 for (nn
= 0; nn
< TA_SCRIPT_MAX
; nn
++)
194 if (globals
->metrics
[nn
])
196 TA_ScriptClass clazz
= ta_script_classes
[nn
];
200 FT_ASSERT(globals
->metrics
[nn
]->clazz
== clazz
);
203 if (clazz
->script_metrics_done
)
204 clazz
->script_metrics_done(globals
->metrics
[nn
]);
206 free(globals
->metrics
[nn
]);
207 globals
->metrics
[nn
] = NULL
;
211 globals
->glyph_count
= 0;
212 globals
->glyph_scripts
= NULL
; /* no need to free this one! */
213 globals
->face
= NULL
;
222 ta_face_globals_get_metrics(TA_FaceGlobals globals
,
225 TA_ScriptMetrics
*ametrics
)
227 TA_ScriptMetrics metrics
= NULL
;
229 TA_ScriptClass clazz
;
230 FT_UInt script
= options
& 15;
231 const FT_Offset script_max
= sizeof (ta_script_classes
)
232 / sizeof (ta_script_classes
[0]);
233 FT_Error error
= FT_Err_Ok
;
236 if (gindex
>= (FT_ULong
)globals
->glyph_count
)
238 error
= FT_Err_Invalid_Argument
;
244 || gidx
+ 1 >= script_max
)
245 gidx
= globals
->glyph_scripts
[gindex
] & TA_SCRIPT_NONE
;
247 clazz
= ta_script_classes
[gidx
];
249 script
= clazz
->script
;
251 metrics
= globals
->metrics
[clazz
->script
];
254 /* create the global metrics object if necessary */
255 metrics
= (TA_ScriptMetrics
)calloc(1, clazz
->script_metrics_size
);
258 error
= FT_Err_Out_Of_Memory
;
262 metrics
->clazz
= clazz
;
264 if (clazz
->script_metrics_init
)
266 error
= clazz
->script_metrics_init(metrics
, globals
->face
);
269 if (clazz
->script_metrics_done
)
270 clazz
->script_metrics_done(metrics
);
278 globals
->metrics
[clazz
->script
] = metrics
;
289 ta_face_globals_is_digit(TA_FaceGlobals globals
,
292 if (gindex
< (FT_ULong
)globals
->glyph_count
)
293 return (FT_Bool
)(globals
->glyph_scripts
[gindex
] & TA_DIGIT
);
298 /* end of taglobal.c */