From e5a6da378baa6d3730ee4adf9db1e97188cfb716 Mon Sep 17 00:00:00 2001 From: handa Date: Wed, 29 Sep 2004 23:57:03 +0000 Subject: [PATCH] (mfont__encoding_list): New function. (mdebug_dump_font_list): New function. --- src/font.c | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) diff --git a/src/font.c b/src/font.c index 0d31550..ae904fb 100644 --- a/src/font.c +++ b/src/font.c @@ -1250,6 +1250,14 @@ mfont__parse_name_into_font (char *name, MSymbol format, MFont *font) return result; } +MPlist * +mfont__encoding_list (void) +{ + if (! font_encoding_list) + load_font_encoding_table (); + return font_encoding_list; +} + /*** @} */ #endif /* !FOR_DOXYGEN || DOXYGEN_INTERNAL_MODULE */ @@ -2151,6 +2159,29 @@ mdebug_dump_font (MFont *font) return font; } +void +mdebug_dump_font_list (MFrame *frame, MSymbol family) +{ + MPlist *plist, *p; + + if (family == Mnil) + plist = mfont_list (frame, NULL, Mnil); + else + { + MFont font; + + MFONT_INIT (&font); + mfont__set_property (&font, MFONT_FAMILY, family); + plist = mfont_list (frame, &font, Mnil); + } + MPLIST_DO (p, plist) + { + mdebug_dump_font (MPLIST_VAL (p)); + fprintf (stderr, "\n"); + } + M17N_OBJECT_UNREF (plist); +} + /*** @} */ /* -- 1.7.10.4