1. moved fontenum.cpp to unix because implementation is common to X and GTK+

(had to add wxGetDisplay() to wxGTK)
2. implemented EnumerateEncodings() - now only if we could do something useful
   with this...
3. added makefile for the console sample


git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@4187 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

src/unix/fontenum.cpp

@@ -0,0 +1,220 @@
+/////////////////////////////////////////////////////////////////////////////
+// Name:        src/unix/fontenum.cpp
+// Purpose:     wxFontEnumerator class for X11/GDK
+// Author:      Vadim Zeitlin
+// Modified by:
+// Created:     01.10.99
+// RCS-ID:      $Id$
+// Copyright:   (c) Vadim Zeitlin
+// Licence:     wxWindows licence
+/////////////////////////////////////////////////////////////////////////////
+
+// ============================================================================
+// declarations
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// headers
+// ----------------------------------------------------------------------------
+
+#ifdef __GNUG__
+    #pragma implementation "fontenum.h"
+#endif
+
+#include "wx/defs.h"
+#include "wx/dynarray.h"
+#include "wx/string.h"
+#include "wx/utils.h"
+
+#include "wx/fontenum.h"
+
+#include <X11/Xlib.h>
+
+// ----------------------------------------------------------------------------
+// private functions
+// ----------------------------------------------------------------------------
+
+// create the list of all fonts with the given spacing
+static char **CreateFontList(wxChar spacing, int *nFonts);
+
+// extract all font families from the given font list and call our
+// OnFontFamily() for each of them
+static bool ProcessFamiliesFromFontList(wxFontEnumerator *This,
+                                        char **fonts,
+                                        int nFonts);
+
+
+// ----------------------------------------------------------------------------
+// private types
+// ----------------------------------------------------------------------------
+
+// ============================================================================
+// implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// helpers
+// ----------------------------------------------------------------------------
+
+static char **CreateFontList(wxChar spacing, int *nFonts)
+{
+    wxString pattern;
+    pattern.Printf(wxT("-*-*-*-*-*-*-*-*-*-*-%c-*-*-*"), spacing);
+
+    // get the list of all fonts
+    return XListFonts((Display *)wxGetDisplay(), pattern, 32767, nFonts);
+}
+
+static bool ProcessFamiliesFromFontList(wxFontEnumerator *This,
+                                        char **fonts,
+                                        int nFonts)
+{
+    // extract the list of (unique) font families
+    wxSortedArrayString families;
+    for ( int n = 0; n < nFonts; n++ )
+    {
+        char *font = fonts[n];
+        if ( !wxString(font).Matches("-*-*-*-*-*-*-*-*-*-*-*-*-*-*") )
+        {
+            // it's not a full font name (probably an alias)
+            continue;
+        }
+        
+        char *dash = strchr(font + 1, '-');
+        char *family = dash + 1;
+        dash = strchr(family, '-');
+        *dash = '\0'; // !NULL because Matches() above succeeded
+
+        if ( families.Index(family) == wxNOT_FOUND )
+        {
+            if ( !This->OnFontFamily(family) )
+            {
+                // stop enumerating
+                return FALSE;
+            }
+
+            families.Add(family);
+        }
+        //else: already seen
+    }
+
+    return TRUE;
+}
+
+// ----------------------------------------------------------------------------
+// wxFontEnumerator
+// ----------------------------------------------------------------------------
+
+bool wxFontEnumerator::EnumerateFamilies(bool fixedWidthOnly)
+{
+    int nFonts;
+    char **fonts;
+
+    if ( fixedWidthOnly )
+    {
+        bool cont = TRUE;
+        fonts = CreateFontList(wxT('m'), &nFonts);
+        if ( fonts )
+        {
+            cont = ProcessFamiliesFromFontList(this, fonts, nFonts);
+
+            XFreeFontNames(fonts);
+        }
+
+        if ( !cont )
+        {
+            return TRUE;
+        }
+
+        fonts = CreateFontList(wxT('c'), &nFonts);
+        if ( !fonts )
+        {
+            return TRUE;
+        }
+    }
+    else
+    {
+        fonts = CreateFontList(wxT('*'), &nFonts);
+
+        if ( !fonts )
+        {
+            wxFAIL_MSG(wxT("No fonts at all on this system?"));
+
+            return FALSE;
+        }
+    }
+
+    (void)ProcessFamiliesFromFontList(this, fonts, nFonts);
+
+    XFreeFontNames(fonts);
+
+    return TRUE;
+}
+
+bool wxFontEnumerator::EnumerateEncodings(const wxString& family)
+{
+    wxString pattern;
+    pattern.Printf(wxT("-*-%s-*-*-*-*-*-*-*-*-*-*-*-*"),
+                   family.IsEmpty() ? wxT("*") : family.c_str());
+
+    // get the list of all fonts
+    int nFonts;
+    char **fonts = XListFonts((Display *)wxGetDisplay(), pattern,
+                              32767, &nFonts);
+
+    if ( !fonts )
+    {
+        // unknown family?
+        return FALSE;
+    }
+
+    // extract the list of (unique) encodings
+    wxSortedArrayString encodings;
+    for ( int n = 0; n < nFonts; n++ )
+    {
+        char *font = fonts[n];
+        if ( !wxString(font).Matches("-*-*-*-*-*-*-*-*-*-*-*-*-*-*") )
+        {
+            // it's not a full font name (probably an alias)
+            continue;
+        }
+
+        // extract the family
+        char *dash = strchr(font + 1, '-');
+        char *familyFont = dash + 1;
+        dash = strchr(familyFont, '-');
+        *dash = '\0'; // !NULL because Matches() above succeeded
+
+        if ( !family.IsEmpty() && (family != familyFont) )
+        {
+            // family doesn't match
+            continue;
+        }
+
+        // now extract the registry/encoding
+        char *p = dash + 1; // just after the dash after family
+        dash = strrchr(p, '-');
+
+        wxString registry(dash + 1);
+        *dash = '\0';
+
+        dash = strrchr(p, '-');
+        wxString encoding(dash + 1);
+
+        encoding << wxT('-') << registry;
+        if ( encodings.Index(encoding) == wxNOT_FOUND )
+        {
+            if ( !OnFontEncoding(familyFont, encoding) )
+            {
+                break;
+            }
+
+            encodings.Add(encoding);
+        }
+        //else: already had this one
+    }
+
+    XFreeFontNames(fonts);
+
+    return TRUE;
+}