src/mgl/fontutil.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        mgl/fontutil.cpp
// Purpose:     Font helper functions for MGL
// Author:      Vaclav Slavik
// Created:     2001/04/29
// RCS-ID:      $Id$
// Copyright:   (c) 2001 SciTech Software, Inc. (www.scitechsoft.com)
// Licence:     wxWindows license
/////////////////////////////////////////////////////////////////////////////


#ifdef __GNUG__
    #pragma implementation "fontutil.h"
#endif

// For compilers that support precompilation, includes "wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

#ifndef WX_PRECOMP
#endif // PCH


#include "wx/fontutil.h"
#include "wx/fontmap.h"
#include "wx/tokenzr.h"
#include "wx/hash.h"
#include "wx/module.h"
#include "wx/listimpl.cpp"
#include "wx/log.h"
#include "wx/mgl/private.h"

#include <mgraph.h>

// ============================================================================
// implementation
// ============================================================================

// ----------------------------------------------------------------------------
// wxNativeEncodingInfo
// ----------------------------------------------------------------------------

// convert to/from the string representation: format is
//      encoding[;facename]
bool wxNativeEncodingInfo::FromString(const wxString& s)
{
    wxStringTokenizer tokenizer(s, _T(";"));

    wxString encid = tokenizer.GetNextToken();
    long enc;
    if ( !encid.ToLong(&enc) )
        return FALSE;
    encoding = (wxFontEncoding)enc;

    // ok even if empty
    facename = tokenizer.GetNextToken();

    return TRUE;
}

wxString wxNativeEncodingInfo::ToString() const
{
    wxString s;
    s << (long)encoding;
    if ( !!facename )
    {
        s << _T(';') << facename;
    }

    return s;
}

// ----------------------------------------------------------------------------
// common functions
// ----------------------------------------------------------------------------

bool wxGetNativeFontEncoding(wxFontEncoding encoding,
                             wxNativeEncodingInfo *info)
{
    wxCHECK_MSG( info, FALSE, _T("bad pointer in wxGetNativeFontEncoding") );

    if ( encoding == wxFONTENCODING_DEFAULT )
    {
        encoding = wxFont::GetDefaultEncoding();
    }

    switch ( encoding )
    {
        case wxFONTENCODING_ISO8859_1:
        case wxFONTENCODING_ISO8859_2:
        case wxFONTENCODING_ISO8859_3:
        case wxFONTENCODING_ISO8859_4:
        case wxFONTENCODING_ISO8859_5:
        case wxFONTENCODING_ISO8859_6:
        case wxFONTENCODING_ISO8859_7:
        case wxFONTENCODING_ISO8859_8:
        case wxFONTENCODING_ISO8859_9:
        case wxFONTENCODING_ISO8859_10:
        case wxFONTENCODING_ISO8859_11:
        case wxFONTENCODING_ISO8859_13:
        case wxFONTENCODING_ISO8859_14:
        case wxFONTENCODING_ISO8859_15:
            info->mglEncoding = MGL_ENCODING_ISO8859_1 +
                                (encoding - wxFONTENCODING_ISO8859_1);
            break;

        case wxFONTENCODING_KOI8:
            info->mglEncoding = MGL_ENCODING_KOI8;
            break;

        case wxFONTENCODING_CP1250:
        case wxFONTENCODING_CP1251:
        case wxFONTENCODING_CP1252:
        case wxFONTENCODING_CP1253:
        case wxFONTENCODING_CP1254:
        case wxFONTENCODING_CP1255:
        case wxFONTENCODING_CP1256:
        case wxFONTENCODING_CP1257:
            info->mglEncoding = MGL_ENCODING_CP1250 +
                                (encoding - wxFONTENCODING_CP1250);
            break;

        case wxFONTENCODING_SYSTEM:
            info->mglEncoding = MGL_ENCODING_ASCII;
            break;

        default:
            // encoding not known to MGL
            return FALSE;
    }

    info->encoding = encoding;

    return TRUE;
}

bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
{
    if ( !info.facename )
        return TRUE;

    wxMGLFontFamily *family = wxTheFontsManager->GetFamily(info.facename);
    if ( !family )
        return FALSE;
    if ( family->GetInfo()->fontLibType == MGL_BITMAPFONT_LIB )
        return (info.mglEncoding == MGL_ENCODING_ASCII ||
                info.mglEncoding == MGL_ENCODING_ISO8859_1 ||
                info.mglEncoding == MGL_ENCODING_ISO8859_15 ||
                info.mglEncoding == MGL_ENCODING_CP1252);
    else
        return TRUE;
}


// ----------------------------------------------------------------------------
// wxFontFamily, wxMGLFontInstance, wxMGLFontLibrary
// ----------------------------------------------------------------------------

WX_DECLARE_LIST(wxMGLFontInstance, wxMGLFontInstanceList);
WX_DEFINE_LIST(wxMGLFontInstanceList);
WX_DEFINE_LIST(wxMGLFontFamilyList);

wxMGLFontInstance::wxMGLFontInstance(wxMGLFontLibrary *fontLib,
                                     float pt, bool slant, bool aa)
{
    m_fontLib = fontLib;
    m_font = NULL;
    m_pt = pt;
    m_slant = slant;
    m_aa = aa;

    float slantAngle = m_slant ? 15.0 : 0.0;

    wxLogTrace("mgl_font", "loading instance of '%s' slant=%i pt=%0.1f aa=%i",
               m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
    m_font = MGL_loadFontInstance(m_fontLib->GetMGLfont_lib_t(),
                                  m_pt, slantAngle, 0.0, aa);
    wxASSERT_MSG( m_font, wxT("Cannot create font instance.") );
}

wxMGLFontInstance::~wxMGLFontInstance()
{
    wxLogTrace("mgl_font", "unloading instance of '%s' slant=%i pt=%0.1f aa=%i",
               m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
    if ( m_font )
        MGL_unloadFontInstance(m_font);
}

wxMGLFontLibrary::wxMGLFontLibrary(const wxString& filename, int type)
{
    m_type = type;
    m_fileName = filename;
    m_refs = 0;
    m_fontLib = NULL;

    m_instances = new wxMGLFontInstanceList;
    m_instances->DeleteContents(TRUE);
}

wxMGLFontLibrary::~wxMGLFontLibrary()
{
    wxLogTrace("mgl_font", "font library dtor '%s'", m_fileName.mb_str());
    delete m_instances;
}

void wxMGLFontLibrary::IncRef()
{
    wxLogTrace("mgl_font", "incRef(%u) '%s'", m_refs, m_fileName.c_str());
    if ( m_refs++ == 0 )
    {
        wxLogTrace("mgl_font", "opening library '%s'", m_fileName.mb_str());
        m_fontLib = MGL_openFontLib(m_fileName.mb_str());
    }
}

void wxMGLFontLibrary::DecRef()
{
    wxLogTrace("mgl_font", "decRef(%u) '%s'", m_refs, m_fileName.c_str());
    if ( --m_refs == 0 )
    {
        wxLogTrace("mgl_font", "killing instances of '%s'", m_fileName.mb_str());
        m_instances->Clear();
        wxLogTrace("mgl_font", "closing library '%s'", m_fileName.mb_str());
        MGL_closeFontLib(m_fontLib);
        m_fontLib = NULL;
    }
}

wxMGLFontInstance *wxMGLFontLibrary::GetFontInstance(wxFont *font,
                                                     float scale, bool aa)
{
    wxASSERT_MSG(m_refs > 0 && m_fontLib, wxT("font library not loaded!"));

    wxString facename;
    bool slant;
    bool antialiased =
        (m_fontLib->fontLibType == MGL_BITMAPFONT_LIB) ? FALSE : aa;
    float pt = (float)font->GetPointSize() * scale;

    slant = (((m_type & wxFONTFACE_ITALIC) == 0) &&
             (font->GetStyle() == wxSLANT || font->GetStyle() == wxITALIC));

    // FIXME_MGL -- MGL does not yet support slant, although the API is there
    slant = FALSE;

    wxLogTrace("mgl_font", "requested instance of '%s' slant=%i pt=%0.1f aa=%i",
               m_fileName.mb_str(), slant, pt, antialiased);

    wxMGLFontInstance *i;
    wxMGLFontInstanceList::Node *node;

    for (node = m_instances->GetFirst(); node; node = node->GetNext())
    {
        i = node->GetData();
        if ( i->GetPt() == pt && i->GetSlant() == slant &&
             i->GetAA() == antialiased )
        {
            wxLogTrace("mgl_font", "    got from cache: slant=%i pt=%0.1f aa=%i",
                       i->GetSlant(), i->GetPt(), i->GetAA());
            return i;
        }
    }

    i = new wxMGLFontInstance(this, pt, slant, antialiased);
    m_instances->Append(i);
    return i;
}


wxMGLFontFamily::wxMGLFontFamily(const font_info_t *info)
{
    m_name = info->familyName;
    m_fontInfo = info;

    if ( info->regularFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_REGULAR] = NULL;
    else
        m_fontLibs[wxFONTFACE_REGULAR] =
            new wxMGLFontLibrary(info->regularFace, wxFONTFACE_REGULAR);

    if ( info->italicFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_ITALIC] = NULL;
    else
        m_fontLibs[wxFONTFACE_ITALIC] =
            new wxMGLFontLibrary(info->italicFace, wxFONTFACE_ITALIC);

    if ( info->boldFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_BOLD] = NULL;
    else
        m_fontLibs[wxFONTFACE_BOLD] =
            new wxMGLFontLibrary(info->boldFace, wxFONTFACE_BOLD);

    if ( info->boldItalicFace[0] == '\0' )
        m_fontLibs[wxFONTFACE_BOLD_ITALIC] = NULL;
    else
        m_fontLibs[wxFONTFACE_BOLD_ITALIC] =
            new wxMGLFontLibrary(info->boldItalicFace, wxFONTFACE_BOLD_ITALIC);

    wxLogTrace("mgl_font", "new family '%s' (r=%s, i=%s, b=%s, bi=%s)\n",
               info->familyName, info->regularFace, info->italicFace,
               info->boldFace, info->boldItalicFace);
}

wxMGLFontFamily::~wxMGLFontFamily()
{
    for (size_t i = 0; i < wxFONTFACE_MAX; i++)
        delete m_fontLibs[i];
}

bool wxMGLFontFamily::HasFace(int type) const
{
    return (m_fontLibs[type] != NULL);
}


// ----------------------------------------------------------------------------
// wxFontsManager
// ----------------------------------------------------------------------------

wxMGLFontLibrary *wxFontsManager::GetFontLibrary(wxFont *font)
{
    wxMGLFontFamily *family;
    wxString facename;
    int type;

    if ( facename )
        family = GetFamily(font->GetFaceName());
    else
        family = NULL;
    if ( family )
        facename = font->GetFaceName();
    else
        facename.Empty();

    if ( !family )
    {
        switch (font->GetFamily())
        {
            case wxSCRIPT:
                facename = wxT("Script");
                break;
            case wxDECORATIVE:
                facename = wxT("Charter");
                break;
            case wxROMAN:
                facename = wxT("Times");
                break;
            case wxTELETYPE:
            case wxMODERN:
                facename = wxT("Courier");
                break;
            case wxSWISS:
                facename = wxT("Helvetica");
                break;
            case wxDEFAULT:
            default:
                facename = wxT("Helvetica");
                break;
        }

        family = GetFamily(facename);
        if ( !family )
        {
           if ( m_list->GetFirst() )
               family = m_list->GetFirst()->GetData();
           else
               wxFAIL_MSG(wxT("Fatal error, no fonts available!"));
        }
    }

    type = wxFONTFACE_REGULAR;

    if ( font->GetWeight() == wxBOLD )
        type |= wxFONTFACE_BOLD;

    // FIXME_MGL -- this should read "if ( font->GetStyle() == wxITALIC )",
    // but since MGL does not yet support slant, we try to display it with
    // italic face (better than nothing...)
    if ( font->GetStyle() == wxITALIC || font->GetStyle() == wxSLANT )
    {
        if ( family->HasFace(type | wxFONTFACE_ITALIC) )
            type |= wxFONTFACE_ITALIC;
    }
    if ( !family->HasFace(type) )
    {
        for (int i = 0; i < wxFONTFACE_MAX; i++)
            if ( family->HasFace(i) )
            {
                type = i;
                break;
            }
    }

    return family->GetLibrary(type);
}

static ibool enum_callback(const font_info_t *info, void *cookie)
{
    wxFontsManager *db = (wxFontsManager*)cookie;
    db->AddFamily(info);
    return TRUE;
}

wxFontsManager::wxFontsManager()
{
    m_hash = new wxHashTable(wxKEY_STRING);
    m_hash->DeleteContents(FALSE);
    m_list = new wxMGLFontFamilyList;
    m_list->DeleteContents(TRUE);
    MGL_enumerateFonts(enum_callback, (void*)this);
}

wxFontsManager::~wxFontsManager()
{
    delete m_hash;
    delete m_list;
}

void wxFontsManager::AddFamily(const font_info_t *info)
{
    wxMGLFontFamily *f = new wxMGLFontFamily(info);
    m_hash->Put(f->GetName().Lower(), f);
    m_list->Append(f);
}

wxMGLFontFamily *wxFontsManager::GetFamily(const wxString& name) const
{
    return (wxMGLFontFamily*)m_hash->Get(name.Lower());
}


wxFontsManager *wxTheFontsManager = NULL;


// A module that takes care of fonts DB initialization and destruction:

class wxFontutilModule: public wxModule
{
DECLARE_DYNAMIC_CLASS(wxFontutilModule)
public:
    wxFontutilModule() {}
    bool OnInit()
    {
        wxTheFontsManager = new wxFontsManager;
        return TRUE;
    }
    void OnExit()
    {
        delete wxTheFontsManager;
    }
};

IMPLEMENT_DYNAMIC_CLASS(wxFontutilModule, wxModule)
Commit	Line	Data
	1	/////////////////////////////////////////////////////////////////////////////
	2	// Name: mgl/fontutil.cpp
	3	// Purpose: Font helper functions for MGL
	4	// Author: Vaclav Slavik
	5	// Created: 2001/04/29
	6	// RCS-ID: $Id$
	7	// Copyright: (c) 2001 SciTech Software, Inc. (www.scitechsoft.com)
	8	// Licence: wxWindows license
	9	/////////////////////////////////////////////////////////////////////////////
	10
	11
	12	#ifdef __GNUG__
	13	#pragma implementation "fontutil.h"
	14	#endif
	15
	16	// For compilers that support precompilation, includes "wx.h".
	17	#include "wx/wxprec.h"
	18
	19	#ifdef __BORLANDC__
	20	#pragma hdrstop
	21	#endif
	22
	23	#ifndef WX_PRECOMP
	24	#endif // PCH
	25
	26
	27	#include "wx/fontutil.h"
	28	#include "wx/fontmap.h"
	29	#include "wx/tokenzr.h"
	30	#include "wx/hash.h"
	31	#include "wx/module.h"
	32	#include "wx/listimpl.cpp"
	33	#include "wx/log.h"
	34	#include "wx/mgl/private.h"
	35
	36	#include <mgraph.h>
	37
	38	// ============================================================================
	39	// implementation
	40	// ============================================================================
	41
	42	// ----------------------------------------------------------------------------
	43	// wxNativeEncodingInfo
	44	// ----------------------------------------------------------------------------
	45
	46	// convert to/from the string representation: format is
	47	// encoding[;facename]
	48	bool wxNativeEncodingInfo::FromString(const wxString& s)
	49	{
	50	wxStringTokenizer tokenizer(s, _T(";"));
	51
	52	wxString encid = tokenizer.GetNextToken();
	53	long enc;
	54	if ( !encid.ToLong(&enc) )
	55	return FALSE;
	56	encoding = (wxFontEncoding)enc;
	57
	58	// ok even if empty
	59	facename = tokenizer.GetNextToken();
	60
	61	return TRUE;
	62	}
	63
	64	wxString wxNativeEncodingInfo::ToString() const
	65	{
	66	wxString s;
	67	s << (long)encoding;
	68	if ( !!facename )
	69	{
	70	s << _T(';') << facename;
	71	}
	72
	73	return s;
	74	}
	75
	76	// ----------------------------------------------------------------------------
	77	// common functions
	78	// ----------------------------------------------------------------------------
	79
	80	bool wxGetNativeFontEncoding(wxFontEncoding encoding,
	81	wxNativeEncodingInfo *info)
	82	{
	83	wxCHECK_MSG( info, FALSE, _T("bad pointer in wxGetNativeFontEncoding") );
	84
	85	if ( encoding == wxFONTENCODING_DEFAULT )
	86	{
	87	encoding = wxFont::GetDefaultEncoding();
	88	}
	89
	90	switch ( encoding )
	91	{
	92	case wxFONTENCODING_ISO8859_1:
	93	case wxFONTENCODING_ISO8859_2:
	94	case wxFONTENCODING_ISO8859_3:
	95	case wxFONTENCODING_ISO8859_4:
	96	case wxFONTENCODING_ISO8859_5:
	97	case wxFONTENCODING_ISO8859_6:
	98	case wxFONTENCODING_ISO8859_7:
	99	case wxFONTENCODING_ISO8859_8:
	100	case wxFONTENCODING_ISO8859_9:
	101	case wxFONTENCODING_ISO8859_10:
	102	case wxFONTENCODING_ISO8859_11:
	103	case wxFONTENCODING_ISO8859_13:
	104	case wxFONTENCODING_ISO8859_14:
	105	case wxFONTENCODING_ISO8859_15:
	106	info->mglEncoding = MGL_ENCODING_ISO8859_1 +
	107	(encoding - wxFONTENCODING_ISO8859_1);
	108	break;
	109
	110	case wxFONTENCODING_KOI8:
	111	info->mglEncoding = MGL_ENCODING_KOI8;
	112	break;
	113
	114	case wxFONTENCODING_CP1250:
	115	case wxFONTENCODING_CP1251:
	116	case wxFONTENCODING_CP1252:
	117	case wxFONTENCODING_CP1253:
	118	case wxFONTENCODING_CP1254:
	119	case wxFONTENCODING_CP1255:
	120	case wxFONTENCODING_CP1256:
	121	case wxFONTENCODING_CP1257:
	122	info->mglEncoding = MGL_ENCODING_CP1250 +
	123	(encoding - wxFONTENCODING_CP1250);
	124	break;
	125
	126	case wxFONTENCODING_SYSTEM:
	127	info->mglEncoding = MGL_ENCODING_ASCII;
	128	break;
	129
	130	default:
	131	// encoding not known to MGL
	132	return FALSE;
	133	}
	134
	135	info->encoding = encoding;
	136
	137	return TRUE;
	138	}
	139
	140	bool wxTestFontEncoding(const wxNativeEncodingInfo& info)
	141	{
	142	if ( !info.facename )
	143	return TRUE;
	144
	145	wxMGLFontFamily *family = wxTheFontsManager->GetFamily(info.facename);
	146	if ( !family )
	147	return FALSE;
	148	if ( family->GetInfo()->fontLibType == MGL_BITMAPFONT_LIB )
	149	return (info.mglEncoding == MGL_ENCODING_ASCII \|\|
	150	info.mglEncoding == MGL_ENCODING_ISO8859_1 \|\|
	151	info.mglEncoding == MGL_ENCODING_ISO8859_15 \|\|
	152	info.mglEncoding == MGL_ENCODING_CP1252);
	153	else
	154	return TRUE;
	155	}
	156
	157
	158	// ----------------------------------------------------------------------------
	159	// wxFontFamily, wxMGLFontInstance, wxMGLFontLibrary
	160	// ----------------------------------------------------------------------------
	161
	162	WX_DECLARE_LIST(wxMGLFontInstance, wxMGLFontInstanceList);
	163	WX_DEFINE_LIST(wxMGLFontInstanceList);
	164	WX_DEFINE_LIST(wxMGLFontFamilyList);
	165
	166	wxMGLFontInstance::wxMGLFontInstance(wxMGLFontLibrary *fontLib,
	167	float pt, bool slant, bool aa)
	168	{
	169	m_fontLib = fontLib;
	170	m_font = NULL;
	171	m_pt = pt;
	172	m_slant = slant;
	173	m_aa = aa;
	174
	175	float slantAngle = m_slant ? 15.0 : 0.0;
	176
	177	wxLogTrace("mgl_font", "loading instance of '%s' slant=%i pt=%0.1f aa=%i",
	178	m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
	179	m_font = MGL_loadFontInstance(m_fontLib->GetMGLfont_lib_t(),
	180	m_pt, slantAngle, 0.0, aa);
	181	wxASSERT_MSG( m_font, wxT("Cannot create font instance.") );
	182	}
	183
	184	wxMGLFontInstance::~wxMGLFontInstance()
	185	{
	186	wxLogTrace("mgl_font", "unloading instance of '%s' slant=%i pt=%0.1f aa=%i",
	187	m_fontLib->GetMGLfont_lib_t()->name, m_slant, m_pt, m_aa);
	188	if ( m_font )
	189	MGL_unloadFontInstance(m_font);
	190	}
	191
	192	wxMGLFontLibrary::wxMGLFontLibrary(const wxString& filename, int type)
	193	{
	194	m_type = type;
	195	m_fileName = filename;
	196	m_refs = 0;
	197	m_fontLib = NULL;
	198
	199	m_instances = new wxMGLFontInstanceList;
	200	m_instances->DeleteContents(TRUE);
	201	}
	202
	203	wxMGLFontLibrary::~wxMGLFontLibrary()
	204	{
	205	wxLogTrace("mgl_font", "font library dtor '%s'", m_fileName.mb_str());
	206	delete m_instances;
	207	}
	208
	209	void wxMGLFontLibrary::IncRef()
	210	{
	211	wxLogTrace("mgl_font", "incRef(%u) '%s'", m_refs, m_fileName.c_str());
	212	if ( m_refs++ == 0 )
	213	{
	214	wxLogTrace("mgl_font", "opening library '%s'", m_fileName.mb_str());
	215	m_fontLib = MGL_openFontLib(m_fileName.mb_str());
	216	}
	217	}
	218
	219	void wxMGLFontLibrary::DecRef()
	220	{
	221	wxLogTrace("mgl_font", "decRef(%u) '%s'", m_refs, m_fileName.c_str());
	222	if ( --m_refs == 0 )
	223	{
	224	wxLogTrace("mgl_font", "killing instances of '%s'", m_fileName.mb_str());
	225	m_instances->Clear();
	226	wxLogTrace("mgl_font", "closing library '%s'", m_fileName.mb_str());
	227	MGL_closeFontLib(m_fontLib);
	228	m_fontLib = NULL;
	229	}
	230	}
	231
	232	wxMGLFontInstance wxMGLFontLibrary::GetFontInstance(wxFont font,
	233	float scale, bool aa)
	234	{
	235	wxASSERT_MSG(m_refs > 0 && m_fontLib, wxT("font library not loaded!"));
	236
	237	wxString facename;
	238	bool slant;
	239	bool antialiased =
	240	(m_fontLib->fontLibType == MGL_BITMAPFONT_LIB) ? FALSE : aa;
	241	float pt = (float)font->GetPointSize() * scale;
	242
	243	slant = (((m_type & wxFONTFACE_ITALIC) == 0) &&
	244	(font->GetStyle() == wxSLANT \|\| font->GetStyle() == wxITALIC));
	245
	246	// FIXME_MGL -- MGL does not yet support slant, although the API is there
	247	slant = FALSE;
	248
	249	wxLogTrace("mgl_font", "requested instance of '%s' slant=%i pt=%0.1f aa=%i",
	250	m_fileName.mb_str(), slant, pt, antialiased);
	251
	252	wxMGLFontInstance *i;
	253	wxMGLFontInstanceList::Node *node;
	254
	255	for (node = m_instances->GetFirst(); node; node = node->GetNext())
	256	{
	257	i = node->GetData();
	258	if ( i->GetPt() == pt && i->GetSlant() == slant &&
	259	i->GetAA() == antialiased )
	260	{
	261	wxLogTrace("mgl_font", " got from cache: slant=%i pt=%0.1f aa=%i",
	262	i->GetSlant(), i->GetPt(), i->GetAA());
	263	return i;
	264	}
	265	}
	266
	267	i = new wxMGLFontInstance(this, pt, slant, antialiased);
	268	m_instances->Append(i);
	269	return i;
	270	}
	271
	272
	273	wxMGLFontFamily::wxMGLFontFamily(const font_info_t *info)
	274	{
	275	m_name = info->familyName;
	276	m_fontInfo = info;
	277
	278	if ( info->regularFace[0] == '\0' )
	279	m_fontLibs[wxFONTFACE_REGULAR] = NULL;
	280	else
	281	m_fontLibs[wxFONTFACE_REGULAR] =
	282	new wxMGLFontLibrary(info->regularFace, wxFONTFACE_REGULAR);
	283
	284	if ( info->italicFace[0] == '\0' )
	285	m_fontLibs[wxFONTFACE_ITALIC] = NULL;
	286	else
	287	m_fontLibs[wxFONTFACE_ITALIC] =
	288	new wxMGLFontLibrary(info->italicFace, wxFONTFACE_ITALIC);
	289
	290	if ( info->boldFace[0] == '\0' )
	291	m_fontLibs[wxFONTFACE_BOLD] = NULL;
	292	else
	293	m_fontLibs[wxFONTFACE_BOLD] =
	294	new wxMGLFontLibrary(info->boldFace, wxFONTFACE_BOLD);
	295
	296	if ( info->boldItalicFace[0] == '\0' )
	297	m_fontLibs[wxFONTFACE_BOLD_ITALIC] = NULL;
	298	else
	299	m_fontLibs[wxFONTFACE_BOLD_ITALIC] =
	300	new wxMGLFontLibrary(info->boldItalicFace, wxFONTFACE_BOLD_ITALIC);
	301
	302	wxLogTrace("mgl_font", "new family '%s' (r=%s, i=%s, b=%s, bi=%s)\n",
	303	info->familyName, info->regularFace, info->italicFace,
	304	info->boldFace, info->boldItalicFace);
	305	}
	306
	307	wxMGLFontFamily::~wxMGLFontFamily()
	308	{
	309	for (size_t i = 0; i < wxFONTFACE_MAX; i++)
	310	delete m_fontLibs[i];
	311	}
	312
	313	bool wxMGLFontFamily::HasFace(int type) const
	314	{
	315	return (m_fontLibs[type] != NULL);
	316	}
	317
	318
	319	// ----------------------------------------------------------------------------
	320	// wxFontsManager
	321	// ----------------------------------------------------------------------------
	322
	323	wxMGLFontLibrary wxFontsManager::GetFontLibrary(wxFont font)
	324	{
	325	wxMGLFontFamily *family;
	326	wxString facename;
	327	int type;
	328
	329	if ( facename )
	330	family = GetFamily(font->GetFaceName());
	331	else
	332	family = NULL;
	333	if ( family )
	334	facename = font->GetFaceName();
	335	else
	336	facename.Empty();
	337
	338	if ( !family )
	339	{
	340	switch (font->GetFamily())
	341	{
	342	case wxSCRIPT:
	343	facename = wxT("Script");
	344	break;
	345	case wxDECORATIVE:
	346	facename = wxT("Charter");
	347	break;
	348	case wxROMAN:
	349	facename = wxT("Times");
	350	break;
	351	case wxTELETYPE:
	352	case wxMODERN:
	353	facename = wxT("Courier");
	354	break;
	355	case wxSWISS:
	356	facename = wxT("Helvetica");
	357	break;
	358	case wxDEFAULT:
	359	default:
	360	facename = wxT("Helvetica");
	361	break;
	362	}
	363
	364	family = GetFamily(facename);
	365	if ( !family )
	366	{
	367	if ( m_list->GetFirst() )
	368	family = m_list->GetFirst()->GetData();
	369	else
	370	wxFAIL_MSG(wxT("Fatal error, no fonts available!"));
	371	}
	372	}
	373
	374	type = wxFONTFACE_REGULAR;
	375
	376	if ( font->GetWeight() == wxBOLD )
	377	type \|= wxFONTFACE_BOLD;
	378
	379	// FIXME_MGL -- this should read "if ( font->GetStyle() == wxITALIC )",
	380	// but since MGL does not yet support slant, we try to display it with
	381	// italic face (better than nothing...)
	382	if ( font->GetStyle() == wxITALIC \|\| font->GetStyle() == wxSLANT )
	383	{
	384	if ( family->HasFace(type \| wxFONTFACE_ITALIC) )
	385	type \|= wxFONTFACE_ITALIC;
	386	}
	387	if ( !family->HasFace(type) )
	388	{
	389	for (int i = 0; i < wxFONTFACE_MAX; i++)
	390	if ( family->HasFace(i) )
	391	{
	392	type = i;
	393	break;
	394	}
	395	}
	396
	397	return family->GetLibrary(type);
	398	}
	399
	400	static ibool enum_callback(const font_info_t info, void cookie)
	401	{
	402	wxFontsManager db = (wxFontsManager)cookie;
	403	db->AddFamily(info);
	404	return TRUE;
	405	}
	406
	407	wxFontsManager::wxFontsManager()
	408	{
	409	m_hash = new wxHashTable(wxKEY_STRING);
	410	m_hash->DeleteContents(FALSE);
	411	m_list = new wxMGLFontFamilyList;
	412	m_list->DeleteContents(TRUE);
	413	MGL_enumerateFonts(enum_callback, (void*)this);
	414	}
	415
	416	wxFontsManager::~wxFontsManager()
	417	{
	418	delete m_hash;
	419	delete m_list;
	420	}
	421
	422	void wxFontsManager::AddFamily(const font_info_t *info)
	423	{
	424	wxMGLFontFamily *f = new wxMGLFontFamily(info);
	425	m_hash->Put(f->GetName().Lower(), f);
	426	m_list->Append(f);
	427	}
	428
	429	wxMGLFontFamily *wxFontsManager::GetFamily(const wxString& name) const
	430	{
	431	return (wxMGLFontFamily*)m_hash->Get(name.Lower());
	432	}
	433
	434
	435	wxFontsManager *wxTheFontsManager = NULL;
	436
	437
	438	// A module that takes care of fonts DB initialization and destruction:
	439
	440	class wxFontutilModule: public wxModule
	441	{
	442	DECLARE_DYNAMIC_CLASS(wxFontutilModule)
	443	public:
	444	wxFontutilModule() {}
	445	bool OnInit()
	446	{
	447	wxTheFontsManager = new wxFontsManager;
	448	return TRUE;
	449	}
	450	void OnExit()
	451	{
	452	delete wxTheFontsManager;
	453	}
	454	};
	455
	456	IMPLEMENT_DYNAMIC_CLASS(wxFontutilModule, wxModule)