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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 * Uniscribe allows for processing of complex scripts such as joining
22 * and filtering characters and bi-directional text with custom line breaks.
34 #include "wine/debug.h"
37 * some documentation here:
38 * http://www.microsoft.com/typography/developers/uniscribe/uniscribe.htm
41 WINE_DEFAULT_DEBUG_CHANNEL(uniscribe
);
45 /* Set up a default for ScriptGetProperties */
46 static const SCRIPT_PROPERTIES Default_Script_0
= {0, 0, 0, 0, 0, 0, 0, 0,
48 static const SCRIPT_PROPERTIES Default_Script_1
= {0, 0, 0, 0, 0, 0, 0, 0,
50 static const SCRIPT_PROPERTIES Default_Script_2
= {0, 0, 0, 0, 0, 0, 0, 0,
52 static const SCRIPT_PROPERTIES Default_Script_3
= {9, 0, 0, 0, 0, 0, 0, 0,
54 static const SCRIPT_PROPERTIES Default_Script_4
= {9, 1, 0, 0, 0, 0, 0, 0,
56 static const SCRIPT_PROPERTIES Default_Script_5
= {9, 0, 0, 0, 0, 0, 0, 0,
58 static const SCRIPT_PROPERTIES Default_Script_6
= {9, 1, 0, 0, 0, 0, 0, 0,
60 static const SCRIPT_PROPERTIES Default_Script_7
= {8, 0, 0, 0, 0, 161, 0, 0,
62 static const SCRIPT_PROPERTIES
*Global_Script
[MAX_SCRIPTS
] =
72 typedef struct scriptcache
{
76 /***********************************************************************
80 BOOL WINAPI
DllMain(HINSTANCE hInstDLL
, DWORD fdwReason
, LPVOID lpv
)
83 case DLL_PROCESS_ATTACH
:
84 DisableThreadLibraryCalls(hInstDLL
);
86 case DLL_PROCESS_DETACH
:
92 /***********************************************************************
93 * ScriptFreeCache (USP10.@)
96 HRESULT WINAPI
ScriptFreeCache(SCRIPT_CACHE
*psc
)
101 HeapFree ( GetProcessHeap(), 0, *psc
);
107 /***********************************************************************
108 * ScriptGetProperties (USP10.@)
111 HRESULT WINAPI
ScriptGetProperties(const SCRIPT_PROPERTIES
***ppSp
, int *piNumScripts
)
113 TRACE("%p,%p\n", ppSp
, piNumScripts
);
115 if (!ppSp
&& !piNumScripts
) return E_INVALIDARG
;
117 /* Set up a sensible default and intialise pointers */
118 if (piNumScripts
) *piNumScripts
= MAX_SCRIPTS
;
119 if (ppSp
) *ppSp
= Global_Script
;
120 TRACE("ppSp:%p, *ppSp:%p, **ppSp:%p, %d\n",
121 ppSp
, ppSp
? *ppSp
: NULL
, (ppSp
&& *ppSp
) ? **ppSp
: NULL
,
122 piNumScripts
? *piNumScripts
: -1);
126 /***********************************************************************
127 * ScriptGetFontProperties (USP10.@)
130 HRESULT WINAPI
ScriptGetFontProperties(HDC hdc
, SCRIPT_CACHE
*psc
, SCRIPT_FONTPROPERTIES
*sfp
)
133 Scriptcache
*pScriptcache
;
136 TRACE("%p,%p,%p\n", hdc
, psc
, sfp
);
141 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc
, *psc
);
145 pScriptcache
= HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(Scriptcache
) );
146 pScriptcache
->hdc
= (HDC
) hdc
;
148 *psc
= (Scriptcache
*) pScriptcache
;
151 pScriptcache
= (Scriptcache
*) *psc
;
152 phdc
= pScriptcache
->hdc
;
155 if (sfp
->cBytes
!= sizeof(SCRIPT_FONTPROPERTIES
))
158 /* return something sensible? */
160 if (GetTextMetricsW(phdc
, &ptm
))
161 sfp
->wgDefault
= ptm
.tmDefaultChar
;
165 sfp
->wgKashida
= 0xffff;
166 sfp
->iKashidaWidth
= 0;
170 /***********************************************************************
171 * ScriptRecordDigitSubstitution (USP10.@)
173 * Record digit substitution settings for a given locale.
176 * locale [I] Locale identifier.
177 * sds [I] Structure to record substitution settings.
181 * Failure: E_POINTER if sds is NULL, E_INVALIDARG otherwise.
184 * http://blogs.msdn.com/michkap/archive/2006/02/22/536877.aspx
186 HRESULT WINAPI
ScriptRecordDigitSubstitution(LCID locale
, SCRIPT_DIGITSUBSTITUTE
*sds
)
190 TRACE("0x%lx, %p\n", locale
, sds
);
192 /* This implementation appears to be correct for all languages, but it's
193 * not clear if sds->DigitSubstitute is ever set to anything except
194 * CONTEXT or NONE in reality */
196 if (!sds
) return E_POINTER
;
198 locale
= ConvertDefaultLocale(locale
);
200 if (!IsValidLocale(locale
, LCID_INSTALLED
))
203 plgid
= PRIMARYLANGID(LANGIDFROMLCID(locale
));
204 sds
->TraditionalDigitLanguage
= plgid
;
206 if (plgid
== LANG_ARABIC
|| plgid
== LANG_FARSI
)
207 sds
->NationalDigitLanguage
= plgid
;
209 sds
->NationalDigitLanguage
= LANG_ENGLISH
;
211 if (!GetLocaleInfoW(locale
, LOCALE_IDIGITSUBSTITUTION
| LOCALE_RETURN_NUMBER
,
212 (LPWSTR
)&sub
, sizeof(sub
)/sizeof(WCHAR
))) return E_INVALIDARG
;
217 if (plgid
== LANG_ARABIC
|| plgid
== LANG_FARSI
)
218 sds
->DigitSubstitute
= SCRIPT_DIGITSUBSTITUTE_CONTEXT
;
220 sds
->DigitSubstitute
= SCRIPT_DIGITSUBSTITUTE_NONE
;
223 sds
->DigitSubstitute
= SCRIPT_DIGITSUBSTITUTE_NONE
;
226 sds
->DigitSubstitute
= SCRIPT_DIGITSUBSTITUTE_NATIONAL
;
229 sds
->DigitSubstitute
= SCRIPT_DIGITSUBSTITUTE_TRADITIONAL
;
237 /***********************************************************************
238 * ScriptApplyDigitSubstitution (USP10.@)
240 * Apply digit substitution settings.
243 * sds [I] Structure with recorded substitution settings.
244 * sc [I] Script control structure.
245 * ss [I] Script state structure.
249 * Failure: E_INVALIDARG if sds is invalid. Otherwise an HRESULT.
251 HRESULT WINAPI
ScriptApplyDigitSubstitution(const SCRIPT_DIGITSUBSTITUTE
*sds
,
252 SCRIPT_CONTROL
*sc
, SCRIPT_STATE
*ss
)
254 SCRIPT_DIGITSUBSTITUTE psds
;
256 TRACE("%p, %p, %p\n", sds
, sc
, ss
);
258 if (!sc
|| !ss
) return E_POINTER
;
262 if (ScriptRecordDigitSubstitution(LOCALE_USER_DEFAULT
, &psds
) != S_OK
)
266 sc
->uDefaultLanguage
= LANG_ENGLISH
;
267 sc
->fContextDigits
= 0;
268 ss
->fDigitSubstitute
= 0;
270 switch (sds
->DigitSubstitute
) {
271 case SCRIPT_DIGITSUBSTITUTE_CONTEXT
:
272 case SCRIPT_DIGITSUBSTITUTE_NATIONAL
:
273 case SCRIPT_DIGITSUBSTITUTE_NONE
:
274 case SCRIPT_DIGITSUBSTITUTE_TRADITIONAL
:
281 /***********************************************************************
282 * ScriptItemize (USP10.@)
285 HRESULT WINAPI
ScriptItemize(const WCHAR
*pwcInChars
, int cInChars
, int cMaxItems
,
286 const SCRIPT_CONTROL
*psControl
, const SCRIPT_STATE
*psState
,
287 SCRIPT_ITEM
*pItems
, int *pcItems
)
290 #define Numeric_start 0x0030
291 #define Numeric_stop 0x0039
292 #define Numeric_space 0x0020
293 #define Arabic_start 0x0600
294 #define Arabic_stop 0x06ff
295 #define Latin_start 0x0001
296 #define Latin_stop 0x024f
297 #define Script_Arabic 6
298 #define Script_Latin 1
299 #define Script_Numeric 5
301 int cnt
= 0, index
= 0;
302 int New_Script
= SCRIPT_UNDEFINED
;
304 TRACE("%s,%d,%d,%p,%p,%p,%p\n", debugstr_wn(pwcInChars
, cInChars
), cInChars
, cMaxItems
,
305 psControl
, psState
, pItems
, pcItems
);
307 if (!pwcInChars
|| !cInChars
|| !pItems
|| cMaxItems
< 2)
310 if (pwcInChars
[cnt
] >= Numeric_start
&& pwcInChars
[cnt
] <= Numeric_stop
)
311 pItems
[index
].a
.eScript
= Script_Numeric
;
313 if (pwcInChars
[cnt
] >= Arabic_start
&& pwcInChars
[cnt
] <= Arabic_stop
)
314 pItems
[index
].a
.eScript
= Script_Arabic
;
316 if (pwcInChars
[cnt
] >= Latin_start
&& pwcInChars
[cnt
] <= Latin_stop
)
317 pItems
[index
].a
.eScript
= Script_Latin
;
319 pItems
[index
].a
.eScript
= SCRIPT_UNDEFINED
;
320 pItems
[index
].iCharPos
= 0;
321 /* Set the SCRIPT_ANALYSIS */
322 pItems
[index
].a
.fRTL
= 0;
323 pItems
[index
].a
.fLayoutRTL
= 0;
324 pItems
[index
].a
.fLinkBefore
= 0;
325 pItems
[index
].a
.fLinkAfter
= 0;
326 pItems
[index
].a
.fLogicalOrder
= 0;
327 pItems
[index
].a
.fNoGlyphIndex
= 0;
328 /* set the SCRIPT_STATE */
329 if (New_Script
== Script_Arabic
)
330 pItems
[index
].a
.s
.uBidiLevel
= 1;
332 pItems
[index
].a
.s
.uBidiLevel
= 0;
333 pItems
[index
].a
.s
.fOverrideDirection
= 0;
334 pItems
[index
].a
.s
.fInhibitSymSwap
= FALSE
;
335 pItems
[index
].a
.s
.fCharShape
= 0;
336 pItems
[index
].a
.s
.fDigitSubstitute
= 0;
337 pItems
[index
].a
.s
.fInhibitLigate
= 0;
338 pItems
[index
].a
.s
.fDisplayZWG
= 0;
339 pItems
[index
].a
.s
.fArabicNumContext
= 0;
340 pItems
[index
].a
.s
.fGcpClusters
= 0;
341 pItems
[index
].a
.s
.fReserved
= 0;
342 pItems
[index
].a
.s
.fEngineReserved
= 0;
343 TRACE("New_Script=%d, eScript=%d ", New_Script
, pItems
[index
].a
.eScript
);
344 TRACE("index=%d cnt=%d iCharPos=%d\n", index
, cnt
, pItems
[index
].iCharPos
= cnt
);
346 for (cnt
=0; cnt
< cInChars
; cnt
++)
348 if ((pwcInChars
[cnt
] >= Numeric_start
&& pwcInChars
[cnt
] <= Numeric_stop
)
349 || (New_Script
== Script_Numeric
&& pwcInChars
[cnt
] == Numeric_space
))
350 New_Script
= Script_Numeric
;
352 if ((pwcInChars
[cnt
] >= Arabic_start
&& pwcInChars
[cnt
] <= Arabic_stop
)
353 || (New_Script
== Script_Arabic
&& pwcInChars
[cnt
] == Numeric_space
))
354 New_Script
= Script_Arabic
;
356 if ((WCHAR
) pwcInChars
[cnt
] >= Latin_start
&& (WCHAR
) pwcInChars
[cnt
] <= Latin_stop
)
357 New_Script
= Script_Latin
;
359 New_Script
= SCRIPT_UNDEFINED
;
361 if (New_Script
!= pItems
[index
].a
.eScript
)
363 TRACE("New_Script=%d, eScript=%d ", New_Script
, pItems
[index
].a
.eScript
);
365 if (index
+1 > cMaxItems
)
366 return E_OUTOFMEMORY
;
367 pItems
[index
].iCharPos
= cnt
;
368 if (New_Script
== Script_Arabic
)
369 pItems
[index
].a
.s
.uBidiLevel
= 1;
370 /* Set SCRIPT_ITEM */
371 pItems
[index
].iCharPos
= cnt
;
372 /* Set the SCRIPT_ANALYSIS */
373 pItems
[index
].a
.eScript
= New_Script
;
374 pItems
[index
].a
.fRTL
= 0;
375 pItems
[index
].a
.fLayoutRTL
= 0;
376 pItems
[index
].a
.fLinkBefore
= 0;
377 pItems
[index
].a
.fLinkAfter
= 0;
378 pItems
[index
].a
.fLogicalOrder
= 0;
379 pItems
[index
].a
.fNoGlyphIndex
= 0;
380 /* set the SCRIPT_STATE */
381 if (New_Script
== Script_Arabic
)
382 pItems
[index
].a
.s
.uBidiLevel
= 1;
384 pItems
[index
].a
.s
.uBidiLevel
= 0;
385 pItems
[index
].a
.s
.fOverrideDirection
= 0;
386 pItems
[index
].a
.s
.fInhibitSymSwap
= FALSE
;
387 pItems
[index
].a
.s
.fCharShape
= 0;
388 pItems
[index
].a
.s
.fDigitSubstitute
= 0;
389 pItems
[index
].a
.s
.fInhibitLigate
= 0;
390 pItems
[index
].a
.s
.fDisplayZWG
= 0;
391 pItems
[index
].a
.s
.fArabicNumContext
= 0;
392 pItems
[index
].a
.s
.fGcpClusters
= 0;
393 pItems
[index
].a
.s
.fReserved
= 0;
394 pItems
[index
].a
.s
.fEngineReserved
= 0;
395 TRACE("index=%d cnt=%d iCharPos=%d\n", index
, cnt
, pItems
[index
].iCharPos
= cnt
);
399 /* While not strickly necessary according to the spec, make sure the n+1
400 * item is set up to prevent random behaviour if the caller eroneously
401 * checks the n+1 structure */
402 pItems
[index
+1].a
.eScript
= 0;
403 pItems
[index
+1].a
.fRTL
= 0;
404 pItems
[index
+1].a
.fLayoutRTL
= 0;
405 pItems
[index
+1].a
.fLinkBefore
= 0;
406 pItems
[index
+1].a
.fLinkAfter
= 0;
407 pItems
[index
+1].a
.fLogicalOrder
= 0;
408 pItems
[index
+1].a
.fNoGlyphIndex
= 0;
409 /* set the SCRIPT_STATE */
410 pItems
[index
+1].a
.s
.uBidiLevel
= 0;
411 pItems
[index
+1].a
.s
.fOverrideDirection
= 0;
412 pItems
[index
+1].a
.s
.fInhibitSymSwap
= FALSE
;
413 pItems
[index
+1].a
.s
.fCharShape
= 0;
414 pItems
[index
+1].a
.s
.fDigitSubstitute
= 0;
415 pItems
[index
+1].a
.s
.fInhibitLigate
= 0;
416 pItems
[index
+1].a
.s
.fDisplayZWG
= 0;
417 pItems
[index
+1].a
.s
.fArabicNumContext
= 0;
418 pItems
[index
+1].a
.s
.fGcpClusters
= 0;
419 pItems
[index
+1].a
.s
.fReserved
= 0;
420 pItems
[index
+1].a
.s
.fEngineReserved
= 0;
421 TRACE("index=%d cnt=%d iCharPos=%d\n", index
+1, cnt
, pItems
[index
+1].iCharPos
= cnt
);
423 /* Set one SCRIPT_STATE item being returned */
424 *pcItems
= index
+ 1;
426 /* Set SCRIPT_ITEM */
427 pItems
[index
+1].iCharPos
= cnt
; /* the last + 1 item
428 contains the ptr to the lastchar */
432 /***********************************************************************
433 * ScriptStringAnalyse (USP10.@)
436 HRESULT WINAPI
ScriptStringAnalyse(HDC hdc
,
443 SCRIPT_CONTROL
*psControl
,
444 SCRIPT_STATE
*psState
,
446 SCRIPT_TABDEF
*pTabdef
,
447 const BYTE
*pbInClass
,
448 SCRIPT_STRING_ANALYSIS
*pssa
)
450 FIXME("(%p,%p,%d,%d,%d,0x%lx,%d,%p,%p,%p,%p,%p,%p): stub\n",
451 hdc
, pString
, cString
, cGlyphs
, iCharset
, dwFlags
,
452 iReqWidth
, psControl
, psState
, piDx
, pTabdef
, pbInClass
, pssa
);
453 if (1 > cString
|| NULL
== pString
) {
456 if ((dwFlags
& SSA_GLYPHS
) && NULL
== hdc
) {
463 /***********************************************************************
464 * ScriptStringOut (USP10.@)
467 HRESULT WINAPI
ScriptStringOut(SCRIPT_STRING_ANALYSIS ssa
,
476 FIXME("(%p,%d,%d,0x%1x,%p,%d,%d,%d): stub\n",
477 ssa
, iX
, iY
, uOptions
, prc
, iMinSel
, iMaxSel
, fDisabled
);
485 /***********************************************************************
486 * ScriptStringCPtoX (USP10.@)
489 HRESULT WINAPI
ScriptStringCPtoX(SCRIPT_STRING_ANALYSIS ssa
, int icp
, BOOL fTrailing
, int* pX
)
491 FIXME("(%p), %d, %d, (%p): stub\n", ssa
, icp
, fTrailing
, pX
);
492 *pX
= 0; /* Set a reasonable value */
496 /***********************************************************************
497 * ScriptStringXtoCP (USP10.@)
500 HRESULT WINAPI
ScriptStringXtoCP(SCRIPT_STRING_ANALYSIS ssa
, int iX
, int* piCh
, int* piTrailing
)
502 FIXME("(%p), %d, (%p), (%p): stub\n", ssa
, iX
, piCh
, piTrailing
);
503 *piCh
= 0; /* Set a reasonable value */
508 /***********************************************************************
509 * ScriptStringFree (USP10.@)
512 HRESULT WINAPI
ScriptStringFree(SCRIPT_STRING_ANALYSIS
*pssa
) {
513 FIXME("(%p): stub\n",pssa
);
517 /***********************************************************************
518 * ScriptCPtoX (USP10.@)
521 HRESULT WINAPI
ScriptCPtoX(int iCP
,
525 const WORD
*pwLogClust
,
526 const SCRIPT_VISATTR
*psva
,
527 const int *piAdvance
,
528 const SCRIPT_ANALYSIS
*psa
,
534 TRACE("(%d,%d,%d,%d,%p,%p,%p,%p,%p)\n",
535 iCP
, fTrailing
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
,
537 for (item
=0; item
< cGlyphs
; item
++) /* total piAdvance */
538 fMaxPosX
+= piAdvance
[item
];
539 iPosX
= (fMaxPosX
/cGlyphs
)*(iCP
+fTrailing
);
540 if (iPosX
> fMaxPosX
)
542 *piX
= iPosX
; /* Return something in range */
544 TRACE("*piX=%d\n", *piX
);
548 /***********************************************************************
549 * ScriptXtoCP (USP10.@)
552 HRESULT WINAPI
ScriptXtoCP(int iX
,
555 const WORD
*pwLogClust
,
556 const SCRIPT_VISATTR
*psva
,
557 const int *piAdvance
,
558 const SCRIPT_ANALYSIS
*psa
,
566 TRACE("(%d,%d,%d,%p,%p,%p,%p,%p,%p)\n",
567 iX
, cChars
, cGlyphs
, pwLogClust
, psva
, piAdvance
,
568 psa
, piCP
, piTrailing
);
569 if (iX
< 0) /* iX is before start of run */
576 for (item
=0; item
< cGlyphs
; item
++) /* total piAdvance */
577 fMaxPosX
+= piAdvance
[item
];
579 if (iX
>= fMaxPosX
) /* iX too large */
586 fAvePosX
= fMaxPosX
/ cGlyphs
;
587 for (item
= 0; item
< cGlyphs
&& iPosX
< iX
; item
++)
588 iPosX
= fAvePosX
* (item
+1);
589 if (iPosX
- iX
> fAvePosX
/2)
592 *piTrailing
= 1; /* yep we are over half way */
594 *piCP
= item
-1; /* Return character position */
595 TRACE("*piCP=%d iPposX=%d\n", *piCP
, iPosX
);
599 /***********************************************************************
600 * ScriptBreak (USP10.@)
603 HRESULT WINAPI
ScriptBreak(const WCHAR
*pwcChars
, int cChars
, const SCRIPT_ANALYSIS
*psa
,
604 SCRIPT_LOGATTR
*psla
)
606 FIXME("(%p,%d,%p,%p): stub\n",
607 pwcChars
, cChars
, psa
, psla
);
620 { 0, 0x0b, SIC_COMPLEX
},
621 { 0x0c, 0x0c, SIC_NEUTRAL
},
622 { 0x0d, 0x1f, SIC_COMPLEX
},
623 { 0x20, 0x2f, SIC_NEUTRAL
},
624 { 0x30, 0x39, SIC_ASCIIDIGIT
},
625 { 0x3a, 0x40, SIC_NEUTRAL
},
626 { 0x5b, 0x60, SIC_NEUTRAL
},
627 { 0x7b, 0x7e, SIC_NEUTRAL
},
628 { 0x7f, 0x9f, SIC_COMPLEX
},
629 { 0xa0, 0xa5, SIC_NEUTRAL
},
630 { 0xa7, 0xa8, SIC_NEUTRAL
},
631 { 0xab, 0xab, SIC_NEUTRAL
},
632 { 0xad, 0xad, SIC_NEUTRAL
},
633 { 0xaf, 0xaf, SIC_NEUTRAL
},
634 { 0xb0, 0xb1, SIC_NEUTRAL
},
635 { 0xb4, 0xb4, SIC_NEUTRAL
},
636 { 0xb6, 0xb8, SIC_NEUTRAL
},
637 { 0xbb, 0xbf, SIC_NEUTRAL
},
638 { 0xd7, 0xd7, SIC_NEUTRAL
},
639 { 0xf7, 0xf7, SIC_NEUTRAL
},
640 { 0x2b9, 0x2ba, SIC_NEUTRAL
},
641 { 0x2c2, 0x2cf, SIC_NEUTRAL
},
642 { 0x2d2, 0x2df, SIC_NEUTRAL
},
643 { 0x2e5, 0x2e9, SIC_COMPLEX
},
644 { 0x2ea, 0x2ed, SIC_NEUTRAL
},
645 { 0x300, 0x362, SIC_COMPLEX
},
646 { 0x530, 0x60b, SIC_COMPLEX
},
647 { 0x60c, 0x60d, SIC_NEUTRAL
},
648 { 0x60e, 0x669, SIC_COMPLEX
},
649 { 0x66a, 0x66a, SIC_NEUTRAL
},
650 { 0x66b, 0x6e8, SIC_COMPLEX
},
651 { 0x6e9, 0x6e9, SIC_NEUTRAL
},
652 { 0x6ea, 0x7bf, SIC_COMPLEX
},
653 { 0x900, 0x1360, SIC_COMPLEX
},
654 { 0x137d, 0x137f, SIC_COMPLEX
},
655 { 0x1680, 0x1680, SIC_NEUTRAL
},
656 { 0x1780, 0x18af, SIC_COMPLEX
},
657 { 0x2000, 0x200a, SIC_NEUTRAL
},
658 { 0x200b, 0x200f, SIC_COMPLEX
},
659 { 0x2010, 0x2016, SIC_NEUTRAL
},
660 { 0x2018, 0x2022, SIC_NEUTRAL
},
661 { 0x2024, 0x2028, SIC_NEUTRAL
},
662 { 0x2029, 0x202e, SIC_COMPLEX
},
663 { 0x202f, 0x2037, SIC_NEUTRAL
},
664 { 0x2039, 0x203c, SIC_NEUTRAL
},
665 { 0x2044, 0x2046, SIC_NEUTRAL
},
666 { 0x206a, 0x206f, SIC_COMPLEX
},
667 { 0x207a, 0x207e, SIC_NEUTRAL
},
668 { 0x208a, 0x20aa, SIC_NEUTRAL
},
669 { 0x20ac, 0x20cf, SIC_NEUTRAL
},
670 { 0x20d0, 0x20ff, SIC_COMPLEX
},
671 { 0x2103, 0x2103, SIC_NEUTRAL
},
672 { 0x2105, 0x2105, SIC_NEUTRAL
},
673 { 0x2109, 0x2109, SIC_NEUTRAL
},
674 { 0x2116, 0x2116, SIC_NEUTRAL
},
675 { 0x2121, 0x2122, SIC_NEUTRAL
},
676 { 0x212e, 0x212e, SIC_NEUTRAL
},
677 { 0x2153, 0x2154, SIC_NEUTRAL
},
678 { 0x215b, 0x215e, SIC_NEUTRAL
},
679 { 0x2190, 0x2199, SIC_NEUTRAL
},
680 { 0x21b8, 0x21b9, SIC_NEUTRAL
},
681 { 0x21d2, 0x21d2, SIC_NEUTRAL
},
682 { 0x21d4, 0x21d4, SIC_NEUTRAL
},
683 { 0x21e7, 0x21e7, SIC_NEUTRAL
},
684 { 0x2200, 0x2200, SIC_NEUTRAL
},
685 { 0x2202, 0x2203, SIC_NEUTRAL
},
686 { 0x2207, 0x2208, SIC_NEUTRAL
},
687 { 0x220b, 0x220b, SIC_NEUTRAL
},
688 { 0x220f, 0x220f, SIC_NEUTRAL
},
689 { 0x2211, 0x2213, SIC_NEUTRAL
},
690 { 0x2215, 0x2215, SIC_NEUTRAL
},
691 { 0x221a, 0x221a, SIC_NEUTRAL
},
692 { 0x221d, 0x2220, SIC_NEUTRAL
},
693 { 0x2223, 0x2223, SIC_NEUTRAL
},
694 { 0x2225, 0x2225, SIC_NEUTRAL
},
695 { 0x2227, 0x222c, SIC_NEUTRAL
},
696 { 0x222e, 0x222e, SIC_NEUTRAL
},
697 { 0x2234, 0x2237, SIC_NEUTRAL
},
698 { 0x223c, 0x223d, SIC_NEUTRAL
},
699 { 0x2248, 0x2248, SIC_NEUTRAL
},
700 { 0x224c, 0x224c, SIC_NEUTRAL
},
701 { 0x2252, 0x2252, SIC_NEUTRAL
},
702 { 0x2260, 0x2261, SIC_NEUTRAL
},
703 { 0x2264, 0x2267, SIC_NEUTRAL
},
704 { 0x226a, 0x226b, SIC_NEUTRAL
},
705 { 0x226e, 0x226f, SIC_NEUTRAL
},
706 { 0x2282, 0x2283, SIC_NEUTRAL
},
707 { 0x2286, 0x2287, SIC_NEUTRAL
},
708 { 0x2295, 0x2295, SIC_NEUTRAL
},
709 { 0x2299, 0x2299, SIC_NEUTRAL
},
710 { 0x22a5, 0x22a5, SIC_NEUTRAL
},
711 { 0x22bf, 0x22bf, SIC_NEUTRAL
},
712 { 0x2312, 0x2312, SIC_NEUTRAL
},
713 { 0x24ea, 0x24ea, SIC_COMPLEX
},
714 { 0x2500, 0x254b, SIC_NEUTRAL
},
715 { 0x2550, 0x256d, SIC_NEUTRAL
},
716 { 0x256e, 0x2574, SIC_NEUTRAL
},
717 { 0x2581, 0x258f, SIC_NEUTRAL
},
718 { 0x2592, 0x2595, SIC_NEUTRAL
},
719 { 0x25a0, 0x25a1, SIC_NEUTRAL
},
720 { 0x25a3, 0x25a9, SIC_NEUTRAL
},
721 { 0x25b2, 0x25b3, SIC_NEUTRAL
},
722 { 0x25b6, 0x25b7, SIC_NEUTRAL
},
723 { 0x25bc, 0x25bd, SIC_NEUTRAL
},
724 { 0x25c0, 0x25c1, SIC_NEUTRAL
},
725 { 0x25c6, 0x25c8, SIC_NEUTRAL
},
726 { 0x25cb, 0x25cb, SIC_NEUTRAL
},
727 { 0x25ce, 0x25d1, SIC_NEUTRAL
},
728 { 0x25e2, 0x25e5, SIC_NEUTRAL
},
729 { 0x25ef, 0x25ef, SIC_NEUTRAL
},
730 { 0x2605, 0x2606, SIC_NEUTRAL
},
731 { 0x2609, 0x2609, SIC_NEUTRAL
},
732 { 0x260e, 0x260f, SIC_NEUTRAL
},
733 { 0x261c, 0x261c, SIC_NEUTRAL
},
734 { 0x261e, 0x261e, SIC_NEUTRAL
},
735 { 0x2640, 0x2640, SIC_NEUTRAL
},
736 { 0x2642, 0x2642, SIC_NEUTRAL
},
737 { 0x2660, 0x2661, SIC_NEUTRAL
},
738 { 0x2663, 0x2665, SIC_NEUTRAL
},
739 { 0x2667, 0x266a, SIC_NEUTRAL
},
740 { 0x266c, 0x266d, SIC_NEUTRAL
},
741 { 0x266f, 0x266f, SIC_NEUTRAL
},
742 { 0x273d, 0x273d, SIC_NEUTRAL
},
743 { 0x2e80, 0x312f, SIC_COMPLEX
},
744 { 0x3190, 0x31bf, SIC_COMPLEX
},
745 { 0x31f0, 0x31ff, SIC_COMPLEX
},
746 { 0x3220, 0x325f, SIC_COMPLEX
},
747 { 0x3280, 0xa4ff, SIC_COMPLEX
},
748 { 0xd800, 0xdfff, SIC_COMPLEX
},
749 { 0xe000, 0xf8ff, SIC_NEUTRAL
},
750 { 0xf900, 0xfaff, SIC_COMPLEX
},
751 { 0xfb13, 0xfb28, SIC_COMPLEX
},
752 { 0xfb29, 0xfb29, SIC_NEUTRAL
},
753 { 0xfb2a, 0xfb4f, SIC_COMPLEX
},
754 { 0xfd3e, 0xfd3f, SIC_NEUTRAL
},
755 { 0xfdd0, 0xfdef, SIC_COMPLEX
},
756 { 0xfe20, 0xfe6f, SIC_COMPLEX
},
757 { 0xfeff, 0xfeff, SIC_COMPLEX
},
758 { 0xff01, 0xff5e, SIC_COMPLEX
},
759 { 0xff61, 0xff9f, SIC_COMPLEX
},
760 { 0xffe0, 0xffe6, SIC_COMPLEX
},
761 { 0xffe8, 0xffee, SIC_COMPLEX
},
762 { 0xfff9, 0xfffb, SIC_COMPLEX
},
763 { 0xfffe, 0xfffe, SIC_COMPLEX
}
766 /***********************************************************************
767 * ScriptIsComplex (USP10.@)
769 * Determine if a string is complex.
772 * chars [I] Array of characters to test.
773 * len [I] Length in characters.
781 * Behaviour matches that of WinXP.
783 HRESULT WINAPI
ScriptIsComplex(const WCHAR
*chars
, int len
, DWORD flag
)
787 TRACE("(%s,%d,0x%lx)\n", debugstr_wn(chars
, len
), len
, flag
);
789 for (i
= 0; i
< len
; i
++)
791 for (j
= 0; j
< sizeof(complex_ranges
)/sizeof(complex_ranges
[0]); j
++)
793 if (chars
[i
] >= complex_ranges
[j
].start
&&
794 chars
[i
] <= complex_ranges
[j
].end
&&
795 (flag
& complex_ranges
[j
].flag
)) return S_OK
;
801 /***********************************************************************
802 * ScriptShape (USP10.@)
805 HRESULT WINAPI
ScriptShape(HDC hdc
, SCRIPT_CACHE
*psc
, const WCHAR
*pwcChars
,
806 int cChars
, int cMaxGlyphs
,
807 SCRIPT_ANALYSIS
*psa
, WORD
*pwOutGlyphs
, WORD
*pwLogClust
,
808 SCRIPT_VISATTR
*psva
, int *pcGlyphs
)
810 /* Note SCRIPT_CACHE (*psc) appears to be a good place to save info that needs to be
811 * passed between functions. */
816 Scriptcache
*pScriptcache
;
818 FIXME("(%p, %p, %p, %d, %d, %p): semi-stub\n", hdc
, psc
, pwcChars
,
819 cChars
, cMaxGlyphs
, psa
);
820 if (psa
) TRACE("psa values: %d, %d, %d, %d, %d, %d, %d\n", psa
->eScript
, psa
->fRTL
, psa
->fLayoutRTL
,
821 psa
->fLinkBefore
, psa
->fLinkAfter
,
822 psa
->fLogicalOrder
, psa
->fNoGlyphIndex
);
824 if (cChars
> cMaxGlyphs
) return E_OUTOFMEMORY
;
827 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc
, *psc
);
831 pScriptcache
= HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(Scriptcache
) );
832 pScriptcache
->hdc
= (HDC
) hdc
;
834 *psc
= (Scriptcache
*) pScriptcache
;
837 pScriptcache
= (Scriptcache
*) *psc
;
838 phdc
= pScriptcache
->hdc
;
842 for (cnt
= 0; cnt
< cChars
; cnt
++)
843 TRACE("%4x",pwcChars
[cnt
]);
846 if (!psa
->fNoGlyphIndex
) { /* Glyph translate */
847 hr
= GetGlyphIndicesW(phdc
, pwcChars
, cChars
, pwOutGlyphs
, 0);
849 for (cnt
= 0; cnt
< cChars
; cnt
++) {
850 TRACE("%04x",pwOutGlyphs
[cnt
]);
856 for (cnt
= 0; cnt
< cChars
; cnt
++) { /* no translate so set up */
857 pwOutGlyphs
[cnt
] = pwcChars
[cnt
]; /* copy in to out and */
858 TRACE("%04x",pwOutGlyphs
[cnt
]);
863 /* Set up a valid SCRIPT_VISATTR and LogClust for each char in this run */
864 for (cnt
= 0; cnt
< cChars
; cnt
++) {
865 psva
[cnt
].uJustification
= 2;
866 psva
[cnt
].fClusterStart
= 1;
867 psva
[cnt
].fDiacritic
= 0;
868 psva
[cnt
].fZeroWidth
= 0;
869 pwLogClust
[cnt
] = cnt
;
874 /***********************************************************************
875 * ScriptPlace (USP10.@)
878 HRESULT WINAPI
ScriptPlace(HDC hdc
, SCRIPT_CACHE
*psc
, const WORD
*pwGlyphs
,
879 int cGlyphs
, const SCRIPT_VISATTR
*psva
,
880 SCRIPT_ANALYSIS
*psa
, int *piAdvance
, GOFFSET
*pGoffset
, ABC
*pABC
)
885 Scriptcache
*pScriptcache
;
886 FIXME("(%p, %p, %p, %s, %d, %p, %p, %p): semi-stub\n", hdc
, psc
, pwGlyphs
,
887 debugstr_wn(pwGlyphs
, cGlyphs
),
891 /* We need a valid hdc to do any of the font calls. The spec says that hdc is optional and
892 * psc will be used first. If psc and hdc are not specified E_PENDING is returned to get
893 * the caller to return the hdc. For convience, the hdc is cached in SCRIPT_CACHE. */
896 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc
, *psc
);
900 pScriptcache
= HeapAlloc( GetProcessHeap(), 0, sizeof(Scriptcache
) );
901 pScriptcache
->hdc
= hdc
;
907 phdc
= pScriptcache
->hdc
;
910 /* Here we need to calculate the width of the run unit. At this point the input string
911 * has been converted to glyphs and we till need to translate back to the original chars
912 * to get the correct ABC widths. */
914 lpABC
= HeapAlloc(GetProcessHeap(), 0 , sizeof(ABC
)*cGlyphs
);
918 if (!GetCharABCWidthsI(phdc
, 0, cGlyphs
, (WORD
*) pwGlyphs
, lpABC
))
920 WARN("Could not get ABC values\n");
921 for (wcnt
= 0; wcnt
< cGlyphs
; wcnt
++) {
923 pGoffset
[wcnt
].du
= 0;
924 pGoffset
[wcnt
].dv
= 0;
929 for (wcnt
= 0; wcnt
< cGlyphs
; wcnt
++) { /* add up the char lengths */
930 TRACE(" Glyph=%04x, abcA=%d, abcB=%d, abcC=%d wcnt=%d\n",
934 lpABC
[wcnt
].abcC
, wcnt
);
935 pABC
->abcA
+= lpABC
[wcnt
].abcA
;
936 pABC
->abcB
+= lpABC
[wcnt
].abcB
;
937 pABC
->abcC
+= lpABC
[wcnt
].abcC
;
938 piAdvance
[wcnt
] = lpABC
[wcnt
].abcA
+ lpABC
[wcnt
].abcB
+ lpABC
[wcnt
].abcC
;
939 pGoffset
[wcnt
].du
= 0;
940 pGoffset
[wcnt
].dv
= 0;
943 TRACE("Total for run: abcA=%d, abcB=%d, abcC=%d\n", pABC
->abcA
, pABC
->abcB
, pABC
->abcC
);
945 HeapFree(GetProcessHeap(), 0, lpABC
);
950 /***********************************************************************
951 * ScriptGetCMap (USP10.@)
954 HRESULT WINAPI
ScriptGetCMap(HDC hdc
, SCRIPT_CACHE
*psc
, const WCHAR
*pwcInChars
,
955 int cChars
, DWORD dwFlags
, WORD
*pwOutGlyphs
)
960 Scriptcache
*pScriptcache
;
961 FIXME("(%p,%p,%s,%d,0x%lx,%p): semi-stub\n", hdc
, psc
, debugstr_wn(pwcInChars
,cChars
),
962 cChars
, dwFlags
, pwOutGlyphs
);
968 TRACE("No Script_Cache (psc) and no hdc. Ask for one. Hdc=%p, psc=%p\n", hdc
, *psc
);
972 pScriptcache
= HeapAlloc( GetProcessHeap(), 0, sizeof(Scriptcache
) );
973 pScriptcache
->hdc
= hdc
;
979 phdc
= pScriptcache
->hdc
;
983 for (cnt
= 0; cnt
< cChars
; cnt
++)
984 TRACE("%4x",pwcInChars
[cnt
]);
987 hr
= GetGlyphIndicesW(phdc
, pwcInChars
, cChars
, pwOutGlyphs
, 0);
989 for (cnt
= 0; cnt
< cChars
; cnt
++) {
990 TRACE("%04x",pwOutGlyphs
[cnt
]);
997 /***********************************************************************
998 * ScriptTextOut (USP10.@)
1001 HRESULT WINAPI
ScriptTextOut(const HDC hdc
, SCRIPT_CACHE
*psc
, int x
, int y
, UINT fuOptions
,
1002 const RECT
*lprc
, const SCRIPT_ANALYSIS
*psa
, const WCHAR
*pwcReserved
,
1003 int iReserved
, const WORD
*pwGlyphs
, int cGlyphs
, const int *piAdvance
,
1004 const int *piJustify
, const GOFFSET
*pGoffset
)
1008 Scriptcache
*pScriptcache
;
1009 TRACE ("(%p, %p, %d, %d, %04x, %p, %p, %p, %d, %p, %d, %p, %p, %p): stub\n",
1010 hdc
, psc
, x
, y
, fuOptions
, lprc
, psa
, pwcReserved
, iReserved
, pwGlyphs
, cGlyphs
,
1011 piAdvance
, piJustify
, pGoffset
);
1013 if (!hdc
|| !psc
|| !piAdvance
|| !psa
|| !pwGlyphs
) /* hdc is mandatory */
1014 return E_INVALIDARG
;
1017 pScriptcache
= HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(Scriptcache
) );
1018 pScriptcache
->hdc
= hdc
;
1020 *psc
= pScriptcache
;
1022 pScriptcache
= *psc
;
1023 phdc
= pScriptcache
->hdc
;
1026 fuOptions
&= ETO_CLIPPED
+ ETO_OPAQUE
;
1027 if (!psa
->fNoGlyphIndex
) /* Have Glyphs? */
1028 fuOptions
|= ETO_GLYPH_INDEX
; /* Say don't do tranlastion to glyph */
1030 hr
= ExtTextOutW(phdc
, x
, y
, fuOptions
, lprc
, pwGlyphs
, cGlyphs
, NULL
);
1032 if (hr
) return S_OK
;
1034 FIXME("ExtTextOut returned:=%ld\n", hr
);
1039 /***********************************************************************
1040 * ScriptCacheGetHeight (USP10.@)
1042 * Retrieve the height of the font in the cache.
1045 * hdc [I] Device context.
1046 * psc [I/O] Opaque pointer to a script cache.
1047 * height [O] Receives font height.
1051 * Failure: Non-zero HRESULT value.
1053 HRESULT WINAPI
ScriptCacheGetHeight(HDC hdc
, SCRIPT_CACHE
*psc
, long *height
)
1056 Scriptcache
*pScriptcache
;
1059 TRACE("(%p, %p, %p)\n", hdc
, psc
, height
);
1061 if (!psc
|| !height
)
1062 return E_INVALIDARG
;
1064 if (!hdc
) return E_PENDING
;
1067 pScriptcache
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(Scriptcache
));
1068 pScriptcache
->hdc
= hdc
;
1070 *psc
= pScriptcache
;
1072 pScriptcache
= *psc
;
1073 phdc
= pScriptcache
->hdc
;
1076 /* FIXME: get this from the cache */
1077 if (!GetTextMetricsW(phdc
, &metric
))
1078 return E_INVALIDARG
;
1080 *height
= metric
.tmHeight
;
1084 /***********************************************************************
1085 * ScriptGetGlyphABCWidth (USP10.@)
1087 * Retrieve the width of a glyph.
1090 * hdc [I] Device context.
1091 * psc [I/O] Opaque pointer to a script cache.
1092 * glyph [I] Glyph to retrieve the width for.
1093 * abc [O] ABC widths of the glyph.
1097 * Failure: Non-zero HRESULT value.
1099 HRESULT WINAPI
ScriptGetGlyphABCWidth(HDC hdc
, SCRIPT_CACHE
*psc
, WORD glyph
, ABC
*abc
)
1102 Scriptcache
*pScriptcache
;
1104 TRACE("(%p, %p, 0x%04x, %p)\n", hdc
, psc
, glyph
, abc
);
1107 return E_INVALIDARG
;
1109 if (!hdc
) return E_PENDING
;
1112 pScriptcache
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(Scriptcache
));
1113 pScriptcache
->hdc
= hdc
;
1115 *psc
= pScriptcache
;
1117 pScriptcache
= *psc
;
1118 phdc
= pScriptcache
->hdc
;
1121 /* FIXME: get this from the cache */
1122 if (!GetCharABCWidthsW(phdc
, glyph
, glyph
, abc
))
1128 /***********************************************************************
1129 * ScriptLayout (USP10.@)
1131 * Map embedding levels to visual and/or logical order.
1134 * runs [I] Size of level array.
1135 * level [I] Array of embedding levels.
1136 * vistolog [O] Map of embedding levels from visual to logical order.
1137 * logtovis [O] Map of embedding levels from logical to visual order.
1141 * Failure: Non-zero HRESULT value.
1144 * This stub works correctly for any sequence of a single
1145 * embedding level but not for sequences of different
1146 * embedding levels, i.e. mixtures of RTL and LTR scripts.
1148 HRESULT WINAPI
ScriptLayout(int runs
, const BYTE
*level
, int *vistolog
, int *logtovis
)
1150 int i
, j
= runs
- 1, k
= 0;
1152 FIXME("(%d, %p, %p, %p): stub\n", runs
, level
, vistolog
, logtovis
);
1154 if (!level
|| (!vistolog
&& !logtovis
))
1155 return E_INVALIDARG
;
1157 for (i
= 0; i
< runs
; i
++)
1161 if (vistolog
) *vistolog
++ = j
;
1162 if (logtovis
) *logtovis
++ = j
;
1167 if (vistolog
) *vistolog
++ = k
;
1168 if (logtovis
) *logtovis
++ = k
;