2 * Implementation of Uniscribe Script Processor (usp10.dll)
4 * Copyright 2005 Steven Edwards for CodeWeavers
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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21 * Uniscribe allows for processing of complex scripts such as joining
22 * and filtering characters and bi-directional text with custom line breaks.
33 #include "wine/debug.h"
36 * some documentation here:
37 * http://www.microsoft.com/typography/developers/uniscribe/uniscribe.htm
40 WINE_DEFAULT_DEBUG_CHANNEL(uniscribe);
44 /* Set up a default for ScriptGetProperties */
45 static const SCRIPT_PROPERTIES Default_Script_0 = {0, 0, 0, 0, 0, 0, 0, 0,
47 static const SCRIPT_PROPERTIES Default_Script_1 = {0, 0, 0, 0, 0, 0, 0, 0,
49 static const SCRIPT_PROPERTIES Default_Script_2 = {0, 0, 0, 0, 0, 0, 0, 0,
51 static const SCRIPT_PROPERTIES Default_Script_3 = {9, 0, 0, 0, 0, 0, 0, 0,
53 static const SCRIPT_PROPERTIES Default_Script_4 = {9, 1, 0, 0, 0, 0, 0, 0,
55 static const SCRIPT_PROPERTIES Default_Script_5 = {9, 0, 0, 0, 0, 0, 0, 0,
57 static const SCRIPT_PROPERTIES Default_Script_6 = {9, 1, 0, 0, 0, 0, 0, 0,
59 static const SCRIPT_PROPERTIES Default_Script_7 = {8, 0, 0, 0, 0, 161, 0, 0,
61 static const SCRIPT_PROPERTIES *Global_Script[MAX_SCRIPTS] =
71 typedef struct scriptcache {
75 BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
78 case DLL_PROCESS_ATTACH:
79 DisableThreadLibraryCalls(hInstDLL);
81 case DLL_PROCESS_DETACH:
87 /***********************************************************************
88 * ScriptFreeCache (USP10.@)
91 HRESULT WINAPI ScriptFreeCache(SCRIPT_CACHE *psc)
96 HeapFree ( GetProcessHeap(), 0, *psc);
102 /***********************************************************************
103 * ScriptGetProperties (USP10.@)
106 HRESULT WINAPI ScriptGetProperties(const SCRIPT_PROPERTIES ***ppSp, int *piNumScripts)
108 TRACE("%p,%p\n",ppSp, piNumScripts);
110 /* Set up a sensible default and intialise pointers */
111 *piNumScripts = MAX_SCRIPTS;
112 *ppSp = Global_Script;
113 TRACE("ppSp:%p, *ppSp:%p, **ppSp:%p, %d\n", ppSp, *ppSp, **ppSp,
118 /***********************************************************************
119 * ScriptGetFontProperties (USP10.@)
122 HRESULT WINAPI ScriptGetFontProperties(HDC hdc, SCRIPT_CACHE *psc, SCRIPT_FONTPROPERTIES *sfp)
125 Scriptcache *pScriptcache;
128 TRACE("%p,%p,%p\n", hdc, psc, sfp);
130 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc, *psc);
134 pScriptcache = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(Scriptcache) );
135 pScriptcache->hdc = (HDC) hdc;
137 *psc = (Scriptcache *) pScriptcache;
140 pScriptcache = (Scriptcache *) *psc;
141 phdc = pScriptcache->hdc;
144 if (sfp->cBytes != sizeof(SCRIPT_FONTPROPERTIES))
147 /* return something sensible? */
150 if (GetTextMetricsW(phdc, &ptm))
151 sfp->wgDefault = ptm.tmDefaultChar;
155 sfp->wgKashida = 0xffff;
156 sfp->iKashidaWidth = 0;
161 /***********************************************************************
162 * ScriptRecordDigitSubstitution (USP10.@)
165 HRESULT WINAPI ScriptRecordDigitSubstitution(LCID Locale,SCRIPT_DIGITSUBSTITUTE *psds)
167 FIXME("%ld,%p\n",Locale,psds);
171 /***********************************************************************
172 * ScriptApplyDigitSubstitution (USP10.@)
175 HRESULT WINAPI ScriptApplyDigitSubstitution(const SCRIPT_DIGITSUBSTITUTE* psds,
176 SCRIPT_CONTROL* psc, SCRIPT_STATE* pss)
178 FIXME("%p,%p,%p\n",psds,psc,pss);
182 /***********************************************************************
183 * ScriptItemize (USP10.@)
186 HRESULT WINAPI ScriptItemize(const WCHAR *pwcInChars, int cInChars, int cMaxItems,
187 const SCRIPT_CONTROL *psControl, const SCRIPT_STATE *psState,
188 SCRIPT_ITEM *pItems, int *pcItems)
190 /* This implementation currently treats the entire string represented in
191 * pwcInChars as a single entity. Hence pcItems will be set to 1. */
193 FIXME("%s,%d,%d,%p,%p,%p,%p: semi-stub\n", debugstr_wn(pwcInChars, cInChars), cInChars, cMaxItems,
194 psControl, psState, pItems, pcItems);
196 if (!pwcInChars || !cInChars || !pItems || cMaxItems < 2)
199 /* Set a sensible default */
200 /* Set SCRIPT_ITEM */
201 pItems[0].iCharPos = 0;
202 /* Set the SCRIPT_ANALYSIS */
203 pItems[0].a.eScript = SCRIPT_UNDEFINED;
204 pItems[0].a.fRTL = 0;
205 pItems[0].a.fLayoutRTL = 0;
206 pItems[0].a.fLinkBefore = 0;
207 pItems[0].a.fLinkAfter = 0;
208 pItems[0].a.fLogicalOrder = 0;
209 pItems[0].a.fNoGlyphIndex = 0;
210 /* set the SCRIPT_STATE */
211 pItems[0].a.s.uBidiLevel = 0;
212 pItems[0].a.s.fOverrideDirection = 0;
213 pItems[0].a.s.fInhibitSymSwap = FALSE;
214 pItems[0].a.s.fCharShape = 0;
215 pItems[0].a.s.fDigitSubstitute = 0;
216 pItems[0].a.s.fInhibitLigate = 0;
217 pItems[0].a.s.fDisplayZWG = 0;
218 pItems[0].a.s.fArabicNumContext = 0;
219 pItems[0].a.s.fGcpClusters = 0;
220 pItems[0].a.s.fReserved = 0;
221 pItems[0].a.s.fEngineReserved = 0;
223 /* While not strickly necessary according to the spec, make sure the n+1
224 * item is set up to prevent random behaviour if the caller eroneously
225 * checks the n+1 structure */
226 pItems[1].a.eScript = 0;
227 pItems[1].a.fRTL = 0;
228 pItems[1].a.fLayoutRTL = 0;
229 pItems[1].a.fLinkBefore = 0;
230 pItems[1].a.fLinkAfter = 0;
231 pItems[1].a.fLogicalOrder = 0;
232 pItems[1].a.fNoGlyphIndex = 0;
233 /* set the SCRIPT_STATE */
234 pItems[1].a.s.uBidiLevel = 0;
235 pItems[1].a.s.fOverrideDirection = 0;
236 pItems[1].a.s.fInhibitSymSwap = FALSE;
237 pItems[1].a.s.fCharShape = 0;
238 pItems[1].a.s.fDigitSubstitute = 0;
239 pItems[1].a.s.fInhibitLigate = 0;
240 pItems[1].a.s.fDisplayZWG = 0;
241 pItems[1].a.s.fArabicNumContext = 0;
242 pItems[1].a.s.fGcpClusters = 0;
243 pItems[1].a.s.fReserved = 0;
244 pItems[1].a.s.fEngineReserved = 0;
246 /* Set one SCRIPT_STATE item being returned */
249 /* Set SCRIPT_ITEM */
250 pItems[1].iCharPos = cInChars - pItems[0].iCharPos ; /* the last + 1 item
251 contains the ptr to the lastchar */
252 TRACE("%s,%d,%d,%p,%p,%p,%p,%d\n", debugstr_wn(pwcInChars, cInChars), cInChars, cMaxItems,
253 psControl, psState, pItems, pcItems, *pcItems);
254 TRACE("Start Pos in string: %d, Stop Pos %d\n", pItems[0].iCharPos, pItems[1].iCharPos);
258 /***********************************************************************
259 * ScriptStringAnalyse (USP10.@)
262 HRESULT WINAPI ScriptStringAnalyse(HDC hdc,
269 SCRIPT_CONTROL *psControl,
270 SCRIPT_STATE *psState,
272 SCRIPT_TABDEF *pTabdef,
273 const BYTE *pbInClass,
274 SCRIPT_STRING_ANALYSIS *pssa)
276 FIXME("(%p,%p,%d,%d,%d,0x%lx,%d,%p,%p,%p,%p,%p,%p): stub\n",
277 hdc, pString, cString, cGlyphs, iCharset, dwFlags,
278 iReqWidth, psControl, psState, piDx, pTabdef, pbInClass, pssa);
279 if (1 > cString || NULL == pString) {
282 if ((dwFlags & SSA_GLYPHS) && NULL == hdc) {
289 /***********************************************************************
290 * ScriptStringFree (USP10.@)
293 HRESULT WINAPI ScriptStringFree(SCRIPT_STRING_ANALYSIS *pssa) {
294 FIXME("(%p): stub\n",pssa);
298 /***********************************************************************
299 * ScriptIsComplex (USP10.@)
302 HRESULT WINAPI ScriptIsComplex(const WCHAR* pwcInChars, int cInChars, DWORD dwFlags) {
303 FIXME("(%s,%d,0x%lx): stub\n", debugstr_wn(pwcInChars, cInChars), cInChars, dwFlags);
307 /***********************************************************************
308 * ScriptShape (USP10.@)
311 HRESULT WINAPI ScriptShape(HDC hdc, SCRIPT_CACHE *psc, const WCHAR *pwcChars,
312 int cChars, int cMaxGlyphs,
313 SCRIPT_ANALYSIS *psa, WORD *pwOutGlyphs, WORD *pwLogClust,
314 SCRIPT_VISATTR *psva, int *pcGlyphs)
316 /* Note SCRIPT_CACHE (*psc) appears to be a good place to save info that needs to be
317 * passed between functions. */
322 Scriptcache *pScriptcache;
324 FIXME("(%p, %p, %p, %d, %d, %p): semi-stub\n", hdc, psc, pwcChars,
325 cChars, cMaxGlyphs, psa);
326 if (psa) TRACE("psa values: %d, %d, %d, %d, %d, %d, %d\n", psa->eScript, psa->fRTL, psa->fLayoutRTL,
327 psa->fLinkBefore, psa->fLinkAfter,
328 psa->fLogicalOrder, psa->fNoGlyphIndex);
330 if (cChars > cMaxGlyphs) return E_OUTOFMEMORY;
333 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc, *psc);
337 pScriptcache = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(Scriptcache) );
338 pScriptcache->hdc = (HDC) hdc;
340 *psc = (Scriptcache *) pScriptcache;
343 pScriptcache = (Scriptcache *) *psc;
344 phdc = pScriptcache->hdc;
348 for (cnt = 0; cnt < cChars; cnt++)
349 TRACE("%4x",pwcChars[cnt]);
352 if (!psa->fNoGlyphIndex) { /* Glyph translate */
353 hr = GetGlyphIndicesW(phdc, pwcChars, cChars, pwOutGlyphs, 0);
355 for (cnt = 0; cnt < cChars; cnt++) {
356 TRACE("%04x",pwOutGlyphs[cnt]);
362 for (cnt = 0; cnt < cChars; cnt++) { /* no translate so set up */
363 pwOutGlyphs[cnt] = pwcChars[cnt]; /* copy in to out and */
364 TRACE("%04x",pwOutGlyphs[cnt]);
369 /* Set up a valid SCRIPT_VISATTR and LogClust for each char in this run */
370 for (cnt = 0; cnt < cChars; cnt++) {
371 psva[cnt].uJustification = 2;
372 psva[cnt].fClusterStart = 1;
373 psva[cnt].fDiacritic = 0;
374 psva[cnt].fZeroWidth = 0;
375 pwLogClust[cnt] = cnt;
380 /***********************************************************************
381 * ScriptPlace (USP10.@)
384 HRESULT WINAPI ScriptPlace(HDC hdc, SCRIPT_CACHE *psc, const WORD *pwGlyphs,
385 int cGlyphs, const SCRIPT_VISATTR *psva,
386 SCRIPT_ANALYSIS *psa, int *piAdvance, GOFFSET *pGoffset, ABC *pABC )
391 Scriptcache *pScriptcache;
392 FIXME("(%p, %p, %p, %s, %d, %p, %p, %p): semi-stub\n", hdc, psc, pwGlyphs,
393 debugstr_wn(pwGlyphs, cGlyphs),
397 /* We need a valid hdc to do any of the font calls. The spec says that hdc is optional and
398 * psc will be used first. If psc and hdc are not specified E_PENDING is returned to get
399 * the caller to return the hdc. For convience, the hdc is cached in SCRIPT_CACHE. */
402 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc, *psc);
406 pScriptcache = HeapAlloc( GetProcessHeap(), 0, sizeof(Scriptcache) );
407 pScriptcache->hdc = hdc;
413 phdc = pScriptcache->hdc;
416 /* Here we need to calculate the width of the run unit. At this point the input string
417 * has been converted to glyphs and we till need to translate back to the original chars
418 * to get the correct ABC widths. */
420 lpABC = HeapAlloc(GetProcessHeap(), 0 , sizeof(ABC)*cGlyphs);
424 if (!GetCharABCWidthsI(phdc, 0, cGlyphs, (WORD *) pwGlyphs, lpABC ))
426 WARN("Could not get ABC values\n");
427 for (wcnt = 0; wcnt < cGlyphs; wcnt++) {
429 pGoffset[wcnt].du = 0;
430 pGoffset[wcnt].dv = 0;
435 for (wcnt = 0; wcnt < cGlyphs ; wcnt++) { /* add up the char lengths */
436 TRACE(" Glyph=%04x, abcA=%d, abcB=%d, abcC=%d wcnt=%d\n",
440 lpABC[wcnt].abcC, wcnt);
441 pABC->abcA += lpABC[wcnt].abcA;
442 pABC->abcB += lpABC[wcnt].abcB;
443 pABC->abcC += lpABC[wcnt].abcC;
444 piAdvance[wcnt] = lpABC[wcnt].abcA + lpABC[wcnt].abcB + lpABC[wcnt].abcC;
445 pGoffset[wcnt].du = 0;
446 pGoffset[wcnt].dv = 0;
449 TRACE("Total for run: abcA=%d, abcB=%d, abcC=%d\n", pABC->abcA, pABC->abcB, pABC->abcC);
451 HeapFree(GetProcessHeap(), 0, lpABC );
456 /***********************************************************************
457 * ScriptGetCMap (USP10.@)
460 HRESULT WINAPI ScriptGetCMap(HDC hdc, SCRIPT_CACHE *psc, const WCHAR *pwcInChars,
461 int cChars, DWORD dwFlags, WORD *pwOutGlyphs)
466 Scriptcache *pScriptcache;
467 FIXME("(%p,%p,%s,%d,0x%lx,%p): semi-stub\n", hdc, psc, debugstr_wn(pwcInChars,cChars), cChars, dwFlags, pwOutGlyphs);
470 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc, *psc);
474 pScriptcache = HeapAlloc( GetProcessHeap(), 0, sizeof(Scriptcache) );
475 pScriptcache->hdc = hdc;
481 phdc = pScriptcache->hdc;
485 for (cnt = 0; cnt < cChars; cnt++)
486 TRACE("%4x",pwcInChars[cnt]);
489 hr = GetGlyphIndicesW(phdc, pwcInChars, cChars, pwOutGlyphs, 0);
491 for (cnt = 0; cnt < cChars; cnt++) {
492 TRACE("%04x",pwOutGlyphs[cnt]);
499 /***********************************************************************
500 * ScriptTextOut (USP10.@)
503 HRESULT WINAPI ScriptTextOut(const HDC hdc, SCRIPT_CACHE *psc, int x, int y, UINT fuOptions,
504 const RECT *lprc, const SCRIPT_ANALYSIS *psa, const WCHAR *pwcReserved,
505 int iReserved, const WORD *pwGlyphs, int cGlyphs, const int *piAdvance,
506 const int *piJustify, const GOFFSET *pGoffset)
508 FIXME("(%p, %p, %d, %d, %04x, %p, %p, %p, %d, %p, %d, %p, %p, %p): stub\n",
509 hdc, psc, x, y, fuOptions, lprc, psa, pwcReserved, iReserved, pwGlyphs, cGlyphs,
510 piAdvance, piJustify, pGoffset);