2 * Implementation of Indic Syllables for the Uniscribe Script Processor
4 * Copyright 2011 CodeWeavers, Aric Stewart
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 #include "usp10_internal.h"
24 WINE_DEFAULT_DEBUG_CHANNEL(uniscribe
);
26 static void debug_output_string(LPCWSTR str
, int cChar
, lexical_function f
)
29 if (TRACE_ON(uniscribe
))
31 for (i
= 0; i
< cChar
; i
++)
35 case lex_Consonant
: TRACE("C"); break;
36 case lex_Ra
: TRACE("Ra"); break;
37 case lex_Vowel
: TRACE("V"); break;
38 case lex_Nukta
: TRACE("N"); break;
39 case lex_Halant
: TRACE("H"); break;
40 case lex_ZWNJ
: TRACE("Zwnj"); break;
41 case lex_ZWJ
: TRACE("Zwj"); break;
42 case lex_Matra_post
: TRACE("Mp");break;
43 case lex_Matra_above
: TRACE("Ma");break;
44 case lex_Matra_below
: TRACE("Mb");break;
45 case lex_Matra_pre
: TRACE("Mm");break;
46 case lex_Modifier
: TRACE("Sm"); break;
47 case lex_Vedic
: TRACE("Vd"); break;
48 case lex_Anudatta
: TRACE("A"); break;
49 case lex_Composed_Vowel
: TRACE("t"); break;
58 static inline BOOL
is_matra( int type
)
60 return (type
== lex_Matra_above
|| type
== lex_Matra_below
||
61 type
== lex_Matra_pre
|| type
== lex_Matra_post
||
62 type
== lex_Composed_Vowel
);
65 static inline BOOL
is_joiner( int type
)
67 return (type
== lex_ZWJ
|| type
== lex_ZWNJ
);
70 static INT
consonant_header(LPCWSTR input
, INT cChar
, INT start
, INT next
,
73 if (!is_consonant( lex(input
[next
]) )) return -1;
75 if ((next
< cChar
) && lex(input
[next
]) == lex_Nukta
)
77 if ((next
< cChar
) && lex(input
[next
])==lex_Halant
)
80 if((next
< cChar
) && is_joiner( lex(input
[next
]) ))
82 if ((next
< cChar
) && is_consonant( lex(input
[next
]) ))
85 else if ((next
< cChar
) && is_joiner( lex(input
[next
]) ) && lex(input
[next
+1])==lex_Halant
)
88 if ((next
< cChar
) && is_consonant( lex(input
[next
]) ))
94 static INT
parse_consonant_syllable(LPCWSTR input
, INT cChar
, INT start
,
95 INT
*main
, INT next
, lexical_function lex
)
101 check
= consonant_header(input
,cChar
,start
,next
,lex
);
107 } while (check
!= -1);
108 if (headers
|| is_consonant( lex(input
[next
]) ))
115 if ((next
< cChar
) && lex(input
[next
]) == lex_Nukta
)
117 if ((next
< cChar
) && lex(input
[next
]) == lex_Anudatta
)
120 if ((next
< cChar
) && lex(input
[next
]) == lex_Halant
)
123 if((next
< cChar
) && is_joiner( lex(input
[next
]) ))
126 else if (next
< cChar
)
128 while((next
< cChar
) && is_matra( lex(input
[next
]) ))
130 if ((next
< cChar
) && lex(input
[next
]) == lex_Nukta
)
132 if ((next
< cChar
) && lex(input
[next
]) == lex_Halant
)
135 if ((next
< cChar
) && lex(input
[next
]) == lex_Modifier
)
137 if ((next
< cChar
) && lex(input
[next
]) == lex_Vedic
)
142 static INT
parse_vowel_syllable(LPCWSTR input
, INT cChar
, INT start
,
143 INT next
, lexical_function lex
)
145 if ((next
< cChar
) && lex(input
[next
]) == lex_Nukta
)
147 if ((next
< cChar
) && is_joiner( lex(input
[next
]) ) && lex(input
[next
+1])==lex_Halant
&& is_consonant( lex(input
[next
+2]) ))
149 else if ((next
< cChar
) && lex(input
[next
])==lex_Halant
&& is_consonant( lex(input
[next
+1]) ))
151 else if ((next
< cChar
) && lex(input
[next
])==lex_ZWJ
&& is_consonant( lex(input
[next
+1]) ))
154 if ((next
< cChar
) && is_matra( lex(input
[next
]) ))
156 while((next
< cChar
) && is_matra( lex(input
[next
]) ))
158 if ((next
< cChar
) && lex(input
[next
]) == lex_Nukta
)
160 if ((next
< cChar
) && lex(input
[next
]) == lex_Halant
)
164 if ((next
< cChar
) && lex(input
[next
]) == lex_Modifier
)
166 if ((next
< cChar
) && lex(input
[next
]) == lex_Vedic
)
171 static INT
Indic_process_next_syllable( LPCWSTR input
, INT cChar
, INT start
, INT
* main
, INT next
, lexical_function lex
)
173 if (lex(input
[next
])==lex_Vowel
)
176 return parse_vowel_syllable(input
, cChar
, start
, next
+1, lex
);
178 else if ((cChar
> next
+3) && lex(input
[next
]) == lex_Ra
&& lex(input
[next
+1]) == lex_Halant
&& lex(input
[next
+2]) == lex_Vowel
)
181 return parse_vowel_syllable(input
, cChar
, start
, next
+3, lex
);
184 else if (start
== next
&& lex(input
[next
])==lex_NBSP
)
187 return parse_vowel_syllable(input
, cChar
, start
, next
+1, lex
);
189 else if (start
== next
&& (cChar
> next
+3) && lex(input
[next
]) == lex_Ra
&& lex(input
[next
+1]) == lex_Halant
&& lex(input
[next
+2]) == lex_NBSP
)
192 return parse_vowel_syllable(input
, cChar
, start
, next
+3, lex
);
195 return parse_consonant_syllable(input
, cChar
, start
, main
, next
, lex
);
198 static BOOL
Consonant_is_post_base_form(HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPCWSTR pwChar
, IndicSyllable
*s
, lexical_function lexical
, BOOL modern
)
200 if (is_consonant(lexical(pwChar
[s
->base
])) && s
->base
> s
->start
&& lexical(pwChar
[s
->base
-1]) == lex_Halant
)
203 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, &pwChar
[s
->base
-1], 1, 2, "pstf") > 0);
207 cc
[0] = pwChar
[s
->base
];
208 cc
[1] = pwChar
[s
->base
-1];
209 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, cc
, 1, 2, "pstf") > 0);
215 static BOOL
Consonant_is_below_base_form(HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPCWSTR pwChar
, IndicSyllable
*s
, lexical_function lexical
, BOOL modern
)
217 if (is_consonant(lexical(pwChar
[s
->base
])) && s
->base
> s
->start
&& lexical(pwChar
[s
->base
-1]) == lex_Halant
)
220 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, &pwChar
[s
->base
-1], 1, 2, "blwf") > 0);
224 cc
[0] = pwChar
[s
->base
];
225 cc
[1] = pwChar
[s
->base
-1];
226 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, cc
, 1, 2, "blwf") > 0);
232 static BOOL
Consonant_is_pre_base_form(HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPCWSTR pwChar
, IndicSyllable
*s
, lexical_function lexical
, BOOL modern
)
234 if (is_consonant(lexical(pwChar
[s
->base
])) && s
->base
> s
->start
&& lexical(pwChar
[s
->base
-1]) == lex_Halant
)
237 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, &pwChar
[s
->base
-1], 1, 2, "pref") > 0);
241 cc
[0] = pwChar
[s
->base
];
242 cc
[1] = pwChar
[s
->base
-1];
243 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, cc
, 1, 2, "pref") > 0);
249 static BOOL
Consonant_is_ralf(HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPCWSTR pwChar
, IndicSyllable
*s
, lexical_function lexical
)
251 if ((lexical(pwChar
[s
->start
])==lex_Ra
) && s
->end
> s
->start
&& lexical(pwChar
[s
->start
+1]) == lex_Halant
)
252 return (SHAPE_does_GSUB_feature_apply_to_chars(hdc
, psa
, psc
, &pwChar
[s
->start
], 1, 2, "rphf") > 0);
256 static int FindBaseConsonant(HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPCWSTR input
, IndicSyllable
*s
, lexical_function lex
, BOOL modern
)
262 /* remove ralf from consideration */
263 if (Consonant_is_ralf(hdc
, psa
, psc
, input
, s
, lex
))
269 /* try to find a base consonant */
270 if (!is_consonant( lex(input
[s
->base
]) ))
272 for (i
= s
->end
; i
>= s
->start
; i
--)
273 if (is_consonant( lex(input
[i
]) ))
280 while ((blwf
= Consonant_is_below_base_form(hdc
, psa
, psc
, input
, s
, lex
, modern
)) || Consonant_is_post_base_form(hdc
, psa
, psc
, input
, s
, lex
, modern
) || (pref
= Consonant_is_pre_base_form(hdc
, psa
, psc
, input
, s
, lex
, modern
)))
282 if (blwf
&& s
->blwf
== -1)
283 s
->blwf
= s
->base
- 1;
284 if (pref
&& s
->pref
== -1)
285 s
->pref
= s
->base
- 1;
287 for (i
= s
->base
-1; i
>= s
->start
; i
--)
288 if (is_consonant( lex(input
[i
]) ))
298 if (s
->ralf
== s
->base
)
304 void Indic_ParseSyllables( HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPCWSTR input
, const int cChar
, IndicSyllable
**syllables
, int *syllable_count
, lexical_function lex
, BOOL modern
)
314 ERR("Failure to have required functions\n");
318 debug_output_string(input
, cChar
, lex
);
321 while((next
< cChar
) && lex(input
[next
]) == lex_Generic
)
326 next
= Indic_process_next_syllable(input
, cChar
, 0, ¢er
, index
, lex
);
330 *syllables
= HeapReAlloc(GetProcessHeap(),0,*syllables
, sizeof(IndicSyllable
)*(*syllable_count
+1));
332 *syllables
= HeapAlloc(GetProcessHeap(),0,sizeof(IndicSyllable
));
333 (*syllables
)[*syllable_count
].start
= index
;
334 (*syllables
)[*syllable_count
].base
= center
;
335 (*syllables
)[*syllable_count
].ralf
= -1;
336 (*syllables
)[*syllable_count
].blwf
= -1;
337 (*syllables
)[*syllable_count
].pref
= -1;
338 (*syllables
)[*syllable_count
].end
= next
-1;
339 FindBaseConsonant(hdc
, psa
, psc
, input
, &(*syllables
)[*syllable_count
], lex
, modern
);
341 *syllable_count
= (*syllable_count
)+1;
343 else if (index
< cChar
)
345 TRACE("Processing failed at %i\n",index
);
349 TRACE("Processed %i of %i characters into %i syllables\n",index
,cChar
,*syllable_count
);
352 void Indic_ReorderCharacters( HDC hdc
, SCRIPT_ANALYSIS
*psa
, ScriptCache
* psc
, LPWSTR input
, int cChar
, IndicSyllable
**syllables
, int *syllable_count
, lexical_function lex
, reorder_function reorder_f
, BOOL modern
)
358 ERR("Failure to have required functions\n");
362 Indic_ParseSyllables(hdc
, psa
, psc
, input
, cChar
, syllables
, syllable_count
, lex
, modern
);
363 for (i
= 0; i
< *syllable_count
; i
++)
364 reorder_f(input
, &(*syllables
)[i
], lex
);