1 // Created on: 2008-01-20
2 // Created by: Alexander A. BORODIN
3 // Copyright (c) 2008-2014 OPEN CASCADE SAS
5 // This file is part of Open CASCADE Technology software library.
7 // This library is free software; you can redistribute it and/or modify it under
8 // the terms of the GNU Lesser General Public License version 2.1 as published
9 // by the Free Software Foundation, with special exception defined in the file
10 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 // distribution for complete text of the license and disclaimer of any warranty.
13 // Alternatively, this file may be used under the terms of Open CASCADE
14 // commercial license or contractual agreement.
17 #include <Font_FontMgr.hxx>
18 #include <Font_FTLibrary.hxx>
19 #include <Font_SystemFont.hxx>
20 #include <NCollection_List.hxx>
21 #include <NCollection_Map.hxx>
22 #include <OSD_Environment.hxx>
23 #include <Standard_Stream.hxx>
24 #include <Standard_Type.hxx>
25 #include <TCollection_HAsciiString.hxx>
28 #include FT_FREETYPE_H
29 IMPLEMENT_STANDARD_RTTIEXT(Font_FontMgr,MMgt_TShared)
31 struct Font_FontMgr_FontAliasMapNode
33 const char * EnumName;
34 const char * FontName;
35 Font_FontAspect FontAspect;
38 static const Font_FontMgr_FontAliasMapNode Font_FontMgr_MapOfFontsAliases[] =
43 { "Courier" , "Courier New" , Font_FA_Regular },
44 { "Times-Roman" , "Times New Roman", Font_FA_Regular },
45 { "Times-Bold" , "Times New Roman", Font_FA_Bold },
46 { "Times-Italic" , "Times New Roman", Font_FA_Italic },
47 { "Times-BoldItalic" , "Times New Roman", Font_FA_BoldItalic },
48 { "ZapfChancery-MediumItalic", "Script" , Font_FA_Regular },
49 { "Symbol" , "Symbol" , Font_FA_Regular },
50 { "ZapfDingbats" , "WingDings" , Font_FA_Regular },
51 { "Rock" , "Arial" , Font_FA_Regular },
52 { "Iris" , "Lucida Console" , Font_FA_Regular }
54 #elif defined(__ANDROID__)
56 { "Courier" , "Droid Sans Mono", Font_FA_Regular },
57 { "Times-Roman" , "Droid Serif" , Font_FA_Regular },
58 { "Times-Bold" , "Droid Serif" , Font_FA_Bold },
59 { "Times-Italic" , "Droid Serif" , Font_FA_Italic },
60 { "Times-BoldItalic" , "Droid Serif" , Font_FA_BoldItalic },
61 { "Arial" , "Roboto" , Font_FA_Regular },
65 { "Courier" , "Courier" , Font_FA_Regular },
66 { "Times-Roman" , "Times" , Font_FA_Regular },
67 { "Times-Bold" , "Times" , Font_FA_Bold },
68 { "Times-Italic" , "Times" , Font_FA_Italic },
69 { "Times-BoldItalic" , "Times" , Font_FA_BoldItalic },
70 { "Arial" , "Helvetica" , Font_FA_Regular },
71 { "ZapfChancery-MediumItalic", "-adobe-itc zapf chancery-medium-i-normal--*-*-*-*-*-*-iso8859-1" , Font_FA_Regular },
72 { "Symbol" , "-adobe-symbol-medium-r-normal--*-*-*-*-*-*-adobe-fontspecific" , Font_FA_Regular },
73 { "ZapfDingbats" , "-adobe-itc zapf dingbats-medium-r-normal--*-*-*-*-*-*-adobe-fontspecific" , Font_FA_Regular },
74 { "Rock" , "-sgi-rock-medium-r-normal--*-*-*-*-p-*-iso8859-1" , Font_FA_Regular },
75 { "Iris" , "--iris-medium-r-normal--*-*-*-*-m-*-iso8859-1" , Font_FA_Regular }
80 #define NUM_FONT_ENTRIES (int)(sizeof(Font_FontMgr_MapOfFontsAliases)/sizeof(Font_FontMgr_FontAliasMapNode))
88 #pragma comment (lib, "freetype.lib")
94 // list of supported extensions
95 static Standard_CString Font_FontMgr_Extensions[] =
107 #include <OSD_DirectoryIterator.hxx>
108 #include <OSD_FileIterator.hxx>
109 #include <OSD_Path.hxx>
110 #include <OSD_File.hxx>
111 #include <OSD_OpenMode.hxx>
112 #include <OSD_Protection.hxx>
117 // list of supported extensions
118 static Standard_CString Font_FontMgr_Extensions[] =
128 // X11 configuration file in plain text format (obsolete - doesn't exists in modern distributives)
129 static Standard_CString myFontServiceConf[] = {"/etc/X11/fs/config",
130 "/usr/X11R6/lib/X11/fs/config",
131 "/usr/X11/lib/X11/fs/config",
136 // default fonts paths in Mac OS X
137 static Standard_CString myDefaultFontsDirs[] = {"/System/Library/Fonts",
142 // default fonts paths in most Unix systems (Linux and others)
143 static Standard_CString myDefaultFontsDirs[] = {"/system/fonts", // Android
145 "/usr/local/share/fonts",
150 static void addDirsRecursively (const OSD_Path& thePath,
151 NCollection_Map<TCollection_AsciiString>& theDirsMap)
153 TCollection_AsciiString aDirName;
154 thePath.SystemName (aDirName);
155 if (!theDirsMap.Add (aDirName))
160 for (OSD_DirectoryIterator aDirIterator (thePath, "*"); aDirIterator.More(); aDirIterator.Next())
162 OSD_Path aChildDirPath;
163 aDirIterator.Values().Path (aChildDirPath);
165 TCollection_AsciiString aChildDirName;
166 aChildDirPath.SystemName (aChildDirName);
167 if (!aChildDirName.IsEqual (".") && !aChildDirName.IsEqual (".."))
169 aChildDirName = aDirName + "/" + aChildDirName;
170 OSD_Path aPath (aChildDirName);
171 addDirsRecursively (aPath, theDirsMap);
180 // =======================================================================
181 // function : checkFont
183 // =======================================================================
184 static Handle(Font_SystemFont) checkFont (const Handle(Font_FTLibrary)& theFTLib,
185 const Standard_CString theFontPath)
188 FT_Error aFaceError = FT_New_Face (theFTLib->Instance(), theFontPath, 0, &aFontFace);
189 if (aFaceError != FT_Err_Ok)
194 Font_FontAspect anAspect = Font_FA_Regular;
195 if (aFontFace->style_flags == (FT_STYLE_FLAG_ITALIC | FT_STYLE_FLAG_BOLD))
197 anAspect = Font_FA_BoldItalic;
199 else if (aFontFace->style_flags == FT_STYLE_FLAG_ITALIC)
201 anAspect = Font_FA_Italic;
203 else if (aFontFace->style_flags == FT_STYLE_FLAG_BOLD)
205 anAspect = Font_FA_Bold;
208 Handle(Font_SystemFont) aResult;
209 if (aFontFace->family_name != NULL // skip broken fonts (error in FreeType?)
210 && FT_Select_Charmap (aFontFace, ft_encoding_unicode) == 0) // Font_FTFont supports only UNICODE fonts
212 Handle(TCollection_HAsciiString) aFontName = new TCollection_HAsciiString (aFontFace->family_name);
213 Handle(TCollection_HAsciiString) aFontPath = new TCollection_HAsciiString (theFontPath);
214 aResult = new Font_SystemFont (aFontName, anAspect, aFontPath);
217 FT_Done_Face (aFontFace);
222 // =======================================================================
223 // function : GetInstance
225 // =======================================================================
226 Handle(Font_FontMgr) Font_FontMgr::GetInstance()
228 static Handle(Font_FontMgr) _mgr;
231 _mgr = new Font_FontMgr();
237 // =======================================================================
238 // function : Font_FontMgr
240 // =======================================================================
241 Font_FontMgr::Font_FontMgr()
246 // =======================================================================
247 // function : CheckFont
249 // =======================================================================
250 Handle(Font_SystemFont) Font_FontMgr::CheckFont (Standard_CString theFontPath) const
252 Handle(Font_FTLibrary) aFtLibrary = new Font_FTLibrary();
253 return checkFont (aFtLibrary, theFontPath);
256 // =======================================================================
257 // function : RegisterFont
259 // =======================================================================
260 Standard_Boolean Font_FontMgr::RegisterFont (const Handle(Font_SystemFont)& theFont,
261 const Standard_Boolean theToOverride)
263 if (theFont.IsNull())
265 return Standard_False;
268 for (Font_NListOfSystemFont::Iterator aFontIter (myListOfFonts);
269 aFontIter.More(); aFontIter.Next())
271 if (!aFontIter.Value()->FontName()->IsSameString (theFont->FontName(), Standard_False))
276 if (theFont->FontAspect() != Font_FA_Undefined
277 && aFontIter.Value()->FontAspect() != theFont->FontAspect())
282 if (theFont->FontHeight() == -1 || aFontIter.Value()->FontHeight() == -1
283 || theFont->FontHeight() == aFontIter.Value()->FontHeight())
285 if (theFont->FontPath()->String() == aFontIter.Value()->FontPath()->String())
287 return Standard_True;
289 else if (theToOverride)
291 myListOfFonts.Remove (aFontIter);
295 return Standard_False;
300 myListOfFonts.Append (theFont);
301 return Standard_True;
304 // =======================================================================
305 // function : InitFontDataBase
307 // =======================================================================
308 void Font_FontMgr::InitFontDataBase()
310 myListOfFonts.Clear();
311 Handle(Font_FTLibrary) aFtLibrary;
315 // font directory is placed in "C:\Windows\Fonts\"
316 UINT aStrLength = GetSystemWindowsDirectoryA (NULL, 0);
322 char* aWinDir = new char[aStrLength];
323 GetSystemWindowsDirectoryA (aWinDir, aStrLength);
324 Handle(TCollection_HAsciiString) aFontsDir = new TCollection_HAsciiString (aWinDir);
325 aFontsDir->AssignCat ("\\Fonts\\");
328 // read fonts list from registry
330 if (RegOpenKeyExA (HKEY_LOCAL_MACHINE, "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\Fonts",
331 0, KEY_READ, &aFontsKey) != ERROR_SUCCESS)
336 NCollection_Map<TCollection_AsciiString> aSupportedExtensions;
337 for (Standard_Integer anIter = 0; Font_FontMgr_Extensions[anIter] != NULL; ++anIter)
339 Standard_CString anExt = Font_FontMgr_Extensions[anIter];
340 aSupportedExtensions.Add (TCollection_AsciiString (anExt));
343 aFtLibrary = new Font_FTLibrary();
344 static const DWORD aBufferSize = 256;
345 char aNameBuff[aBufferSize];
346 char aPathBuff[aBufferSize];
347 DWORD aNameSize = aBufferSize;
348 DWORD aPathSize = aBufferSize;
349 for (DWORD anIter = 0;
350 RegEnumValueA (aFontsKey, anIter,
351 aNameBuff, &aNameSize, NULL, NULL,
352 (LPBYTE )aPathBuff, &aPathSize) != ERROR_NO_MORE_ITEMS;
353 ++anIter, aNameSize = aBufferSize, aPathSize = aBufferSize)
355 aPathBuff[(aPathSize < aBufferSize) ? aPathSize : (aBufferSize - 1)] = '\0'; // ensure string is NULL-terminated
357 Handle(TCollection_HAsciiString) aFontName = new TCollection_HAsciiString (aNameBuff);
358 Handle(TCollection_HAsciiString) aFontPath = new TCollection_HAsciiString (aPathBuff);
359 if (aFontPath->Search ("\\") == -1)
361 aFontPath->Insert (1, aFontsDir); // make absolute path
364 // check file extension is in list of supported
365 const Standard_Integer anExtensionPosition = aFontPath->SearchFromEnd (".") + 1;
366 if (anExtensionPosition > 0 && anExtensionPosition < aFontPath->Length())
368 Handle(TCollection_HAsciiString) aFontExtension = aFontPath->SubString (anExtensionPosition, aFontPath->Length());
369 aFontExtension->LowerCase();
370 if (aSupportedExtensions.Contains (aFontExtension->String()))
372 Handle(Font_SystemFont) aNewFont = checkFont (aFtLibrary, aFontPath->ToCString());
373 if (!aNewFont.IsNull())
375 myListOfFonts.Append (aNewFont);
381 // close registry key
382 RegCloseKey (aFontsKey);
386 NCollection_Map<TCollection_AsciiString> aMapOfFontsDirs;
387 const OSD_Protection aProtectRead (OSD_R, OSD_R, OSD_R, OSD_R);
389 // read fonts directories from font service config file (obsolete)
390 for (Standard_Integer anIter = 0; myFontServiceConf[anIter] != NULL; ++anIter)
392 const TCollection_AsciiString aFileOfFontsPath (myFontServiceConf[anIter]);
393 OSD_File aFile (aFileOfFontsPath);
399 aFile.Open (OSD_ReadOnly, aProtectRead);
405 Standard_Integer aNByte = 256;
406 Standard_Integer aNbyteRead;
407 TCollection_AsciiString aStr; // read string with information
408 while (!aFile.IsAtEnd())
410 Standard_Integer aLocation = -1;
411 Standard_Integer aPathLocation = -1;
413 aFile.ReadLine (aStr, aNByte, aNbyteRead); // reading 1 line (256 bytes)
414 aLocation = aStr.Search ("catalogue=");
417 aLocation = aStr.Search ("catalogue =");
420 aPathLocation = aStr.Search ("/");
421 if (aLocation > 0 && aPathLocation > 0)
423 aStr = aStr.Split (aPathLocation - 1);
424 TCollection_AsciiString aFontPath;
425 Standard_Integer aPathNumber = 1;
428 // Getting directory paths, which can be splitted by "," or ":"
429 aFontPath = aStr.Token (":,", aPathNumber);
430 aFontPath.RightAdjust();
431 if (!aFontPath.IsEmpty())
433 OSD_Path aPath(aFontPath);
434 addDirsRecursively (aPath, aMapOfFontsDirs);
438 while (!aFontPath.IsEmpty());
444 // append default directories
445 for (Standard_Integer anIter = 0; myDefaultFontsDirs[anIter] != NULL; ++anIter)
447 Standard_CString anItem = myDefaultFontsDirs[anIter];
448 TCollection_AsciiString aPathStr (anItem);
449 OSD_Path aPath (aPathStr);
450 addDirsRecursively (aPath, aMapOfFontsDirs);
453 NCollection_Map<TCollection_AsciiString> aSupportedExtensions;
454 for (Standard_Integer anIter = 0; Font_FontMgr_Extensions[anIter] != NULL; ++anIter)
456 Standard_CString anExt = Font_FontMgr_Extensions[anIter];
457 aSupportedExtensions.Add (TCollection_AsciiString (anExt));
460 aFtLibrary = new Font_FTLibrary();
461 for (NCollection_Map<TCollection_AsciiString>::Iterator anIter (aMapOfFontsDirs);
462 anIter.More(); anIter.Next())
465 OSD_Path aFolderPath (anIter.Value());
466 for (OSD_FileIterator aFileIter (aFolderPath, "*"); aFileIter.More(); aFileIter.Next())
468 OSD_Path aFontFilePath;
469 aFileIter.Values().Path (aFontFilePath);
471 TCollection_AsciiString aFontFileName;
472 aFontFilePath.SystemName (aFontFileName);
473 aFontFileName = anIter.Value() + "/" + aFontFileName;
475 Handle(Font_SystemFont) aNewFont = checkFont (aFtLibrary, aFontFileName.ToCString());
476 if (!aNewFont.IsNull())
478 myListOfFonts.Append (aNewFont);
482 OSD_File aReadFile (anIter.Value() + "/fonts.dir");
483 if (!aReadFile.Exists())
485 continue; // invalid fonts directory
488 aReadFile.Open (OSD_ReadOnly, aProtectRead);
489 if (!aReadFile.IsOpen())
491 continue; // invalid fonts directory
494 Standard_Integer aNbyteRead, aNByte = 256;
495 TCollection_AsciiString aLine (aNByte);
496 Standard_Boolean isFirstLine = Standard_True;
497 const TCollection_AsciiString anEncoding ("iso8859-1\n");
498 while (!aReadFile.IsAtEnd())
500 aReadFile.ReadLine (aLine, aNByte, aNbyteRead);
503 // first line contains the number of fonts in this file
504 // just ignoring it...
505 isFirstLine = Standard_False;
509 Standard_Integer anExtensionPosition = aLine.Search (".") + 1;
510 if (anExtensionPosition == 0)
512 continue; // can't find extension position in the font description
515 Standard_Integer anEndOfFileName = aLine.Location (" ", anExtensionPosition, aLine.Length()) - 1;
516 if (anEndOfFileName < 0 || anEndOfFileName < anExtensionPosition)
518 continue; // font description have empty extension
521 TCollection_AsciiString aFontExtension = aLine.SubString (anExtensionPosition, anEndOfFileName);
522 aFontExtension.LowerCase();
523 if (aSupportedExtensions.Contains (aFontExtension) && (aLine.Search (anEncoding) > 0))
525 // In current implementation use fonts with ISO-8859-1 coding page.
526 // OCCT not give to manage coding page by means of programm interface.
527 // TODO: make high level interface for choosing necessary coding page.
528 Handle(TCollection_HAsciiString) aXLFD =
529 new TCollection_HAsciiString (aLine.SubString (anEndOfFileName + 2, aLine.Length()));
530 Handle(TCollection_HAsciiString) aFontPath =
531 new TCollection_HAsciiString (anIter.Value().ToCString());
532 if (aFontPath->SearchFromEnd ("/") != aFontPath->Length())
534 aFontPath->AssignCat ("/");
536 Handle(TCollection_HAsciiString) aFontFileName =
537 new TCollection_HAsciiString (aLine.SubString (1, anEndOfFileName));
538 aFontPath->AssignCat (aFontFileName);
540 Handle(Font_SystemFont) aNewFontFromXLFD = new Font_SystemFont (aXLFD, aFontPath);
541 Handle(Font_SystemFont) aNewFont = checkFont (aFtLibrary, aFontPath->ToCString());
543 if (aNewFontFromXLFD->IsValid() && !aNewFont.IsNull() &&
544 !aNewFont->IsEqual (aNewFontFromXLFD))
546 myListOfFonts.Append (aNewFont);
547 myListOfFonts.Append (aNewFontFromXLFD);
549 else if (!aNewFont.IsNull())
551 myListOfFonts.Append (aNewFont);
553 else if (aNewFontFromXLFD->IsValid())
555 myListOfFonts.Append (aNewFontFromXLFD);
565 // =======================================================================
566 // function : GetAvailableFonts
568 // =======================================================================
569 const Font_NListOfSystemFont& Font_FontMgr::GetAvailableFonts() const
571 return myListOfFonts;
574 // =======================================================================
575 // function : GetAvailableFontsNames
577 // =======================================================================
578 void Font_FontMgr::GetAvailableFontsNames (TColStd_SequenceOfHAsciiString& theFontsNames) const
580 theFontsNames.Clear();
581 for (Font_NListOfSystemFont::Iterator anIter(myListOfFonts); anIter.More(); anIter.Next())
583 theFontsNames.Append (anIter.Value()->FontName());
587 // =======================================================================
588 // function : GetFont
590 // =======================================================================
591 Handle(Font_SystemFont) Font_FontMgr::GetFont (const Handle(TCollection_HAsciiString)& theFontName,
592 const Font_FontAspect theFontAspect,
593 const Standard_Integer theFontSize) const
595 if ( (theFontSize < 2 && theFontSize != -1) || theFontName.IsNull())
600 for (Font_NListOfSystemFont::Iterator aFontsIterator (myListOfFonts);
601 aFontsIterator.More(); aFontsIterator.Next())
603 if (!theFontName->IsEmpty() && !aFontsIterator.Value()->FontName()->IsSameString (theFontName, Standard_False))
608 if (theFontAspect != Font_FA_Undefined && aFontsIterator.Value()->FontAspect() != theFontAspect)
613 if (theFontSize == -1 || aFontsIterator.Value()->FontHeight() == -1 ||
614 theFontSize == aFontsIterator.Value()->FontHeight())
616 return aFontsIterator.Value();
623 // =======================================================================
624 // function : FindFont
626 // =======================================================================
627 Handle(Font_SystemFont) Font_FontMgr::FindFont (const Handle(TCollection_HAsciiString)& theFontName,
628 const Font_FontAspect theFontAspect,
629 const Standard_Integer theFontSize) const
631 Handle(TCollection_HAsciiString) aFontName = theFontName;
632 Font_FontAspect aFontAspect = theFontAspect;
633 Standard_Integer aFontSize = theFontSize;
635 Handle(Font_SystemFont) aFont = GetFont (aFontName, aFontAspect, aFontSize);
641 // Trying to use font names mapping
642 for (Standard_Integer anIter = 0; anIter < NUM_FONT_ENTRIES; ++anIter)
644 Handle(TCollection_HAsciiString) aFontAlias =
645 new TCollection_HAsciiString (Font_FontMgr_MapOfFontsAliases[anIter].EnumName);
647 if (aFontAlias->IsSameString (aFontName, Standard_False))
649 aFontName = new TCollection_HAsciiString (Font_FontMgr_MapOfFontsAliases[anIter].FontName);
650 aFontAspect = Font_FontMgr_MapOfFontsAliases[anIter].FontAspect;
655 // check font family alias with specified font aspect
656 if (theFontAspect != Font_FA_Undefined
657 && theFontAspect != Font_FA_Regular
658 && theFontAspect != aFontAspect)
660 aFont = GetFont (aFontName, theFontAspect, aFontSize);
667 // check font alias with aspect in the name
668 aFont = GetFont (aFontName, aFontAspect, aFontSize);
674 // Requested family name not found -> search for any font family with given aspect and height
675 aFontName = new TCollection_HAsciiString ("");
676 aFont = GetFont (aFontName, aFontAspect, aFontSize);
682 // The last resort: trying to use ANY font available in the system
683 aFontAspect = Font_FA_Undefined;
685 aFont = GetFont (aFontName, aFontAspect, aFontSize);
691 return NULL; // Fonts are not found in the system.