*** empty log message ***

diff --git a/Makefile.am b/Makefile.am
index 271d7e9..55bd14b 100644 (file)
--- a/Makefile.am
+++ b/Makefile.am
@@ -1,5 +1,5 @@
 noinst_PROGRAMS = \
-       linebreak replace mimdemo mimdaemon fifotest1 fifotest2 \
+       linebreak replace mimdemo mimdaemon fifotest1 fifotest2 imlist\
        imtest findfont gdkdraw finddb imsim langname viewfile pangotest \
        flt-gui flt-otf flt-hb flt-pango find-flt test key-aliases conv-by-im \
        mim-xml reader2
@@ -49,6 +49,10 @@ find_flt_SOURCES = find-flt.c
 find_flt_CFLAGS = ${baseCFLAGS} @M17NFLT_CFLAGS@
 find_flt_LDFLAGS = ${baseLIBS} @M17NFLT_LIBS@
 
+imlist_SOURCES = imlist.c
+imlist_CFLAGS = @M17N_CFLAGS@
+imlist_LDFLAGS = @M17N_LIBS@
+
 mim_xml_SOURCES = mim-xml.c
 mim_xml_CFLAGS = `xml2-config --cflags`
 mim_xml_LDFLAGS = `xml2-config --libs`

diff --git a/imlist.c b/imlist.c
new file mode 100644 (file)
index 0000000..3735c92
--- /dev/null
+++ b/imlist.c
@@ -0,0 +1,31 @@
+#include <stdio.h>
+#include <string.h>
+#include <m17n.h>
+#include <m17n-misc.h>
+
+int
+main (int argc, char **argv)
+{
+  MSymbol lang;
+  MPlist *imlist, *pl;
+
+  M17N_INIT ();
+  lang = (argc > 1) ? msymbol (argv[1]) : Mnil;
+  imlist = minput_list (lang);
+  for (pl = imlist; mplist_key (pl) != Mnil; pl = mplist_next (pl))
+    {
+      MPlist *p = mplist_value (pl);
+      MSymbol name;
+
+      lang = mplist_value (p);
+      p = mplist_next (p);
+      name = mplist_value (p);
+
+      printf ("%s %s\n", msymbol_name (lang), msymbol_name (name));
+    }
+
+  m17n_object_unref (imlist);
+  M17N_FINI ();
+  exit (0);
+}
+