]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/os2/fontutil.cpp
projects / wxWidgets.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
removed SetFocus() call in WM_LBUTTONDOWN handler once again: it is *WRONG*, please...
[wxWidgets.git] / src / os2 / fontutil.cpp
... / ...
CommitLineData
1///////////////////////////////////////////////////////////////////////////////
2// Name: msw/fontutil.cpp
3// Purpose: font-related helper functions for wxMSW
4// Author: Modified by David Webster for OS/2
5// Modified by:
6// Created: 01.03.00
7// RCS-ID: $Id$
8// Copyright: (c) 1999 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9// Licence: wxWindows license
10///////////////////////////////////////////////////////////////////////////////
11#define DEBUG_PRINTF(NAME) { static int raz=0; \
12 printf( #NAME " %i\n",raz); fflush(stdout); \
13 raz++; \
14 }
15
16// ============================================================================
17// declarations
18// ============================================================================
19
20// ----------------------------------------------------------------------------
21// headers
22// ----------------------------------------------------------------------------
23
24#ifdef __GNUG__
25 #pragma implementation "fontutil.h"
26#endif
27
28// For compilers that support precompilation, includes "wx.h".
29#include "wx/wxprec.h"
30
31#ifndef WX_PRECOMP
32 #include "wx/app.h"
33 #include "wx/string.h"
34 #include "wx/log.h"
35 #include "wx/intl.h"
36#endif //WX_PRECOMP
37
38#include "wx/os2/private.h"
39
40#include "wx/fontutil.h"
41#include "wx/fontmap.h"
42
43#include "wx/tokenzr.h"
44
45// ============================================================================
46// implementation
47// ============================================================================
48
49// ----------------------------------------------------------------------------
50// wxNativeEncodingInfo
51// ----------------------------------------------------------------------------
52
53// convert to/from the string representation: format is
54// encodingid;facename[;charset]
55
56bool wxNativeEncodingInfo::FromString(
57 const wxString& rsStr
58)
59{
60 wxStringTokenizer vTokenizer(rsStr, _T(";"));
61 wxString sEncid = vTokenizer.GetNextToken();
62 long lEnc;
63
64 if (!sEncid.ToLong(&lEnc))
65 return FALSE;
66 encoding = (wxFontEncoding)lEnc;
67 facename = vTokenizer.GetNextToken();
68 if (!facename)
69 return FALSE;
70
71 wxString sTmp = vTokenizer.GetNextToken();
72
73 if (!sTmp)
74 {
75 charset = 850;
76 }
77 else
78 {
79 if ( wxSscanf(sTmp, _T("%u"), &charset) != 1 )
80 {
81 // should be a number!
82 return FALSE;
83 }
84 }
85 return TRUE;
86} // end of wxNativeEncodingInfo::FromString
87
88wxString wxNativeEncodingInfo::ToString() const
89{
90 wxString sStr;
91
92 sStr << (long)encoding << _T(';') << facename;
93
94 if (charset != 850)
95 {
96 sStr << _T(';') << charset;
97 }
98 return sStr;
99} // end of wxNativeEncodingInfo::ToString
100
101// ----------------------------------------------------------------------------
102// helper functions
103// ----------------------------------------------------------------------------
104
105bool wxGetNativeFontEncoding(
106 wxFontEncoding vEncoding
107, wxNativeEncodingInfo* pInfo
108)
109{
110 wxCHECK_MSG(pInfo, FALSE, _T("bad pointer in wxGetNativeFontEncoding") );
111 if (vEncoding == wxFONTENCODING_DEFAULT)
112 {
113 vEncoding = wxFont::GetDefaultEncoding();
114 }
115 switch (vEncoding)
116 {
117 case wxFONTENCODING_ISO8859_1:
118 case wxFONTENCODING_ISO8859_15:
119 case wxFONTENCODING_CP1250:
120 pInfo->charset = 1250;
121 break;
122
123 case wxFONTENCODING_ISO8859_2:
124 case wxFONTENCODING_CP1252:
125 pInfo->charset = 1252;
126 break;
127
128 case wxFONTENCODING_ISO8859_4:
129 case wxFONTENCODING_ISO8859_10:
130 pInfo->charset = 921; // what is baltic?
131 break;
132
133 case wxFONTENCODING_ISO8859_5:
134 case wxFONTENCODING_CP1251:
135 pInfo->charset = 1251;
136 break;
137
138 case wxFONTENCODING_ISO8859_6:
139 pInfo->charset = 864;
140 break;
141
142 case wxFONTENCODING_ISO8859_7:
143 pInfo->charset = 869;
144 break;
145
146 case wxFONTENCODING_ISO8859_8:
147 pInfo->charset = 862;
148 break;
149
150 case wxFONTENCODING_ISO8859_9:
151 pInfo->charset = 857;
152 break;
153
154 case wxFONTENCODING_ISO8859_11:
155 pInfo->charset = 874; // what is thai
156 break;
157
158 case wxFONTENCODING_CP437:
159 pInfo->charset = 437;
160 break;
161
162 default:
163 wxFAIL_MSG(wxT("unsupported encoding"));
164 // fall through
165
166 case wxFONTENCODING_SYSTEM:
167 pInfo->charset = 850;
168 break;
169 }
170 return TRUE;
171} // end of wxGetNativeFontEncoding
172
173wxFontEncoding wxGetFontEncFromCharSet(
174 int nCharSet
175)
176{
177 wxFontEncoding eFontEncoding;
178
179 switch (nCharSet)
180 {
181 default:
182 case 1250:
183 eFontEncoding = wxFONTENCODING_CP1250;
184 break;
185
186 case 1252:
187 eFontEncoding = wxFONTENCODING_CP1252;
188 break;
189
190 case 921:
191 eFontEncoding = wxFONTENCODING_ISO8859_4;
192 break;
193
194 case 1251:
195 eFontEncoding = wxFONTENCODING_CP1251;
196 break;
197
198 case 864:
199 eFontEncoding = wxFONTENCODING_ISO8859_6;
200 break;
201
202 case 869:
203 eFontEncoding = wxFONTENCODING_ISO8859_7;
204 break;
205
206 case 862:
207 eFontEncoding = wxFONTENCODING_ISO8859_8;
208 break;
209
210 case 857:
211 eFontEncoding = wxFONTENCODING_ISO8859_9;
212 break;
213
214 case 874:
215 eFontEncoding = wxFONTENCODING_ISO8859_11;
216 break;
217
218 case 437:
219 eFontEncoding = wxFONTENCODING_CP437;
220 break;
221 }
222 return eFontEncoding;
223} // end of wxGetNativeFontEncoding
224
225bool wxTestFontEncoding(
226 const wxNativeEncodingInfo& rInfo
227)
228{
229 FATTRS vLogFont;
230 HPS hPS;
231
232 hPS = ::WinGetPS(HWND_DESKTOP);
233
234 memset(&vLogFont, '\0', sizeof(FATTRS)); // all default values
235 vLogFont.usRecordLength = sizeof(FATTRS);
236 vLogFont.usCodePage = rInfo.charset;
237 vLogFont.lMaxBaselineExt = 0L; // Outline fonts should use 0
238 vLogFont.lAveCharWidth = 0L; // Outline fonts should use 0
239 vLogFont.fsFontUse = FATTR_FONTUSE_OUTLINE | // only outline fonts allowed
240 FATTR_FONTUSE_TRANSFORMABLE; // may be transformed
241
242 strncpy(vLogFont.szFacename, rInfo.facename.c_str(), sizeof(vLogFont.szFacename));
243
244 if (!::GpiCreateLogFont( hPS
245 ,NULL
246 ,1L
247 ,&vLogFont
248 ))
249 {
250 ::WinReleasePS(hPS);
251 return FALSE;
252 }
253 ::WinReleasePS(hPS);
254 return TRUE;
255} // end of wxTestFontEncoding
256
257// ----------------------------------------------------------------------------
258// wxFont <-> LOGFONT conversion
259// ----------------------------------------------------------------------------
260
261void wxFillLogFont(
262 LOGFONT* pFattrs // OS2 GPI FATTRS
263, PFACENAMEDESC pFaceName
264, HPS* phPS
265, bool* pbInternalPS
266, long* pflId
267, wxString& sFaceName
268, wxFont* pFont
269)
270{
271 LONG lNumFonts = 0L; // For system font count
272 ERRORID vError; // For logging API errors
273 LONG lTemp = 0L;
274 bool bInternalPS = FALSE; // if we have to create one
275 PFONTMETRICS pFM = NULL;
276
277 //
278 // Initial house cleaning to free data buffers and ensure we have a
279 // functional PS to work with
280 //
281 if (!*phPS)
282 {
283 *phPS = ::WinGetPS(HWND_DESKTOP);
284 bInternalPS = TRUE;
285 }
286
287 //
288 // Determine the number of fonts.
289 //
290 if((lNumFonts = ::GpiQueryFonts( *phPS
291 ,QF_PUBLIC
292 ,NULL
293 ,&lTemp
294 ,(LONG) sizeof(FONTMETRICS)
295 ,NULL
296 )) < 0L)
297 {
298 ERRORID vError;
299 wxString sError;
300
301 vError = ::WinGetLastError(wxGetInstance());
302 sError = wxPMErrorToStr(vError);
303 return;
304 }
305
306 //
307 // Allocate space for the font metrics.
308 //
309 pFM = new FONTMETRICS[lNumFonts + 1];
310
311 //
312 // Retrieve the font metrics.
313 //
314 lTemp = lNumFonts;
315 lTemp = ::GpiQueryFonts( *phPS
316 ,QF_PUBLIC
317 ,NULL
318 ,&lTemp
319 ,(LONG) sizeof(FONTMETRICS)
320 ,pFM
321 );
322 pFont->SetFM( pFM
323 ,(int)lNumFonts
324 );
325
326 //
327 // Initialize FATTR and FACENAMEDESC
328 //
329 pFattrs->usRecordLength = sizeof(FATTRS);
330 pFattrs->fsFontUse = FATTR_FONTUSE_OUTLINE | // only outline fonts allowed
331 FATTR_FONTUSE_TRANSFORMABLE; // may be transformed
332 pFattrs->fsType = 0;
333 pFattrs->lMaxBaselineExt = pFattrs->lAveCharWidth = 0;
334 pFattrs->idRegistry = 0;
335 pFattrs->lMatch = 0;
336
337 pFaceName->usSize = sizeof(FACENAMEDESC);
338 pFaceName->usWidthClass = FWIDTH_NORMAL;
339 pFaceName->usReserved = 0;
340 pFaceName->flOptions = 0;
341
342 //
343 // This does the actual selection of fonts
344 //
345 wxOS2SelectMatchingFontByName( pFattrs
346 ,pFaceName
347 ,pFM
348 ,(int)lNumFonts
349 ,pFont
350 );
351 //
352 // We should now have the correct FATTRS set with the selected
353 // font, so now we need to generate an ID
354 //
355 long lNumLids = ::GpiQueryNumberSetIds(*phPS);
356 long lGpiError;
357
358 if(lNumLids )
359 {
360 long alTypes[255];
361 STR8 azNames[255];
362 long alIds[255];
363
364 if(!::GpiQuerySetIds( *phPS
365 ,lNumLids
366 ,alTypes
367 ,azNames
368 ,alIds
369 ))
370 {
371 if (bInternalPS)
372 ::WinReleasePS(*phPS);
373 return;
374 }
375
376 for(unsigned long LCNum = 0; LCNum < lNumLids; LCNum++)
377 if(alIds[LCNum] == *pflId)
378 ++*pflId;
379 if(*pflId > 254) // wow, no id available!
380 {
381 if (bInternalPS)
382 ::WinReleasePS(*phPS);
383 return;
384 }
385 }
386 else
387 *pflId = 1L;
388 //
389 // Release and delete the current font
390 //
391 ::GpiSetCharSet(*phPS, LCID_DEFAULT);/* release the font before deleting */
392 ::GpiDeleteSetId(*phPS, 1L); /* delete the logical font */
393
394 //
395 // Now build a facestring
396 //
397 char zFacename[128];
398
399 strcpy(zFacename, pFattrs->szFacename);
400
401 if(::GpiQueryFaceString( *phPS
402 ,zFacename
403 ,pFaceName
404 ,FACESIZE
405 ,pFattrs->szFacename
406 ) == GPI_ERROR)
407 {
408 vError = ::WinGetLastError(vHabmain);
409 }
410 sFaceName = zFacename;
411 *pbInternalPS = bInternalPS;
412
413 //
414 // That's it, we now have everything we need to actually create the font
415 //
416} // end of wxFillLogFont
417
418void wxOS2SelectMatchingFontByName(
419 PFATTRS pFattrs
420, PFACENAMEDESC pFaceName
421, PFONTMETRICS pFM
422, int nNumFonts
423, const wxFont* pFont
424)
425{
426 int i;
427 int nDiff0;
428 int nPointSize;
429 int nDiff;
430 int nIs;
431 int nMinDiff;
432 int nMinDiff0;
433 int nApirc;
434 int anDiff[16];
435 int anMinDiff[16];
436 int nIndex = 0;
437 STR8 zFn;
438 char zFontFaceName[FACESIZE];
439 wxString sFaceName;
440 USHORT usWeightClass;
441 int fsSelection = 0;
442
443 nMinDiff0 = 0xf000;
444 for(i = 0;i < 16; i++)
445 anMinDiff[i] = nMinDiff0;
446
447 switch (pFont->GetFamily())
448 {
449 case wxSCRIPT:
450 sFaceName = wxT("Script");
451 break;
452
453 case wxDECORATIVE:
454 case wxROMAN:
455 sFaceName = wxT("Tms Rmn");
456 break;
457
458 case wxTELETYPE:
459 sFaceName = wxT("Courier") ;
460 break;
461
462 case wxMODERN:
463 sFaceName = wxT("System VIO") ;
464 break;
465
466 case wxSWISS:
467 sFaceName = wxT("Helv") ;
468 break;
469
470 case wxDEFAULT:
471 default:
472 sFaceName = wxT("System VIO") ;
473 }
474
475 switch (pFont->GetWeight())
476 {
477 default:
478 wxFAIL_MSG(_T("unknown font weight"));
479 // fall through
480 usWeightClass = FWEIGHT_DONT_CARE;
481 break;
482
483 case wxNORMAL:
484 usWeightClass = FWEIGHT_NORMAL;
485 break;
486
487 case wxLIGHT:
488 usWeightClass = FWEIGHT_LIGHT;
489 break;
490
491 case wxBOLD:
492 usWeightClass = FWEIGHT_BOLD;
493 break;
494
495 case wxFONTWEIGHT_MAX:
496 usWeightClass = FWEIGHT_ULTRA_BOLD;
497 break;
498 }
499 pFaceName->usWeightClass = usWeightClass;
500
501 switch (pFont->GetStyle())
502 {
503 case wxITALIC:
504 case wxSLANT:
505 fsSelection = FM_SEL_ITALIC;
506 pFaceName->flOptions = FTYPE_ITALIC;
507 break;
508
509 default:
510 wxFAIL_MSG(wxT("unknown font slant"));
511 // fall through
512
513 case wxNORMAL:
514 fsSelection = 0;
515 break;
516 }
517
518 wxStrncpy(zFontFaceName, sFaceName.c_str(), WXSIZEOF(zFontFaceName));
519 nPointSize = pFont->GetPointSize();
520
521 //
522 // Matching logic to find the right FM struct
523 //
524 nIndex = 0;
525 for(i = 0, nIs = 0; i < nNumFonts; i++)
526 {
527 int nEmHeight = 0;
528 int nXHeight = 0;
529
530 anDiff[0] = wxGpiStrcmp(pFM[i].szFamilyname, zFontFaceName);
531 anDiff[1] = abs(pFM[i].lEmHeight - nPointSize);
532 anDiff[2] = abs(pFM[i].usWeightClass - usWeightClass);
533 anDiff[3] = abs((pFM[i].fsSelection & 0x2f) - fsSelection);
534 if(anDiff[0] == 0)
535 {
536 nEmHeight = (int)pFM[i].lEmHeight;
537 nXHeight =(int)pFM[i].lXHeight;
538 if( (nIs & 0x01) == 0)
539 {
540 nIs = 1;
541 nIndex = i;
542 anMinDiff[1] = anDiff[1];
543 anMinDiff[2] = anDiff[2];
544 anMinDiff[3] = anDiff[3];
545 }
546 else if(anDiff[3] < anMinDiff[3])
547 {
548 nIndex = i;
549 anMinDiff[3] = anDiff[3];
550 }
551 else if(anDiff[2] < anMinDiff[2])
552 {
553 nIndex = i;
554 anMinDiff[2] = anDiff[2];
555 }
556 else if(anDiff[1] < anMinDiff[1])
557 {
558 nIndex = i;
559 anMinDiff[1] = anDiff[1];
560 }
561 anMinDiff[0] = 0;
562 }
563 else if(anDiff[0] < anMinDiff[0])
564 {
565 nIs = 2;
566 nIndex = i;
567 anMinDiff[3] = anDiff[3];
568 anMinDiff[2] = anDiff[2];
569 anMinDiff[1] = anDiff[1];
570 anMinDiff[0] = anDiff[0];
571 }
572 else if(anDiff[0] == anMinDiff[0])
573 {
574 if(anDiff[3] < anMinDiff[3])
575 {
576 nIndex = i;
577 anMinDiff[3] = anDiff[3];
578 nIs = 2;
579 }
580 else if(anDiff[2] < anMinDiff[2])
581 {
582 nIndex = i;
583 anMinDiff[2] = anDiff[2];
584 nIs = 2;
585 }
586 else if(anDiff[1] < anMinDiff[1])
587 {
588 nIndex = i;
589 anMinDiff[1] = anDiff[1];
590 nIs = 2;
591 }
592 }
593 }
594
595 //
596 // Fill in the FATTRS with the best match from FONTMETRICS
597 //
598 pFattrs->usRecordLength = sizeof(FATTRS); // sets size of structure
599 pFattrs->fsSelection = pFM[nIndex].fsSelection; // uses default selection
600 pFattrs->lMatch = pFM[nIndex].lMatch; // force match
601 pFattrs->idRegistry = pFM[nIndex].idRegistry; // uses default registry
602 pFattrs->usCodePage = pFM[nIndex].usCodePage; // code-page
603 pFattrs->lMaxBaselineExt = 0; // OUTLINE fonts need this set to 0 as they use other attributes to match
604 pFattrs->lAveCharWidth = 0; // OUTLINE fonts need this set to 0 as they use other attributes to match
605 pFattrs->fsType = 0;// pfm->fsType; /* uses default type */
606 pFattrs->fsFontUse = 0;
607
608 wxStrcpy(pFattrs->szFacename, pFM[nIndex].szFacename);
609 // Debug
610 strcpy(zFontFaceName, pFM[nIndex].szFacename);
611 strcpy(zFontFaceName, pFattrs->szFacename);
612
613 if(usWeightClass >= FWEIGHT_BOLD)
614 pFattrs->fsSelection |= FATTR_SEL_BOLD;
615 if(pFont->GetUnderlined())
616 pFattrs->fsSelection |= FATTR_SEL_UNDERSCORE;
617 if(fsSelection & FM_SEL_ITALIC)
618 pFattrs->fsSelection |= FATTR_SEL_ITALIC;
619} // end of wxOS2SelectMatchingFontByName
620
621wxFont wxCreateFontFromLogFont(
622 const LOGFONT* pLogFont
623, const PFONTMETRICS pFM
624, PFACENAMEDESC pFaceName
625)
626{
627 wxNativeFontInfo vInfo;
628
629 vInfo.fa = *pLogFont;
630 vInfo.fm = *pFM;
631 vInfo.fn = *pFaceName;
632 return wxFont(vInfo);
633} // end of wxCreateFontFromLogFont
634
635int wxGpiStrcmp(
636 char* s0
637, char* s1
638)
639{ int l0;
640 int l1;
641 int l;
642 int d;
643 int d1;
644 int i;
645 int rc;
646
647 rc = 0;
648 if(s0 == NULL)
649 {
650 if(s1 == NULL)
651 return 0;
652 else
653 return 32;
654 }
655 else if(s1 == NULL)
656 return 32;
657
658 l0 = strlen(s0);
659 l1 = strlen(s1);
660 l = l0;
661 if(l0 != l1)
662 {
663 rc++;
664 if(l1 < l0)
665 l = l1;
666 }
667 for(i=0;i<l;i++)
668 {
669 d = s0[i]-s1[i];
670 if(!d)
671 continue;
672 d1 = toupper(s0[i]) - toupper(s1[i]);
673 if(!d1)
674 continue;
675 rc += abs(d);
676 }
677 return rc;
678}
679
wxWidgets (Impactor)