imlist.c

   1 #include <stdio.h>
   2 #include <string.h>
   3 #include <m17n.h>
   4 #include <m17n-misc.h>
   5
   6 int
   7 main (int argc, char **argv)
   8 {
   9   MSymbol lang;
  10   MPlist *imlist, *pl;
  11
  12   M17N_INIT ();
  13   lang = (argc > 1) ? msymbol (argv[1]) : Mnil;
  14   imlist = minput_list (lang);
  15   for (pl = imlist; mplist_key (pl) != Mnil; pl = mplist_next (pl))
  16     {
  17       MPlist *p = mplist_value (pl);
  18       MSymbol name;
  19
  20       lang = mplist_value (p);
  21       p = mplist_next (p);
  22       name = mplist_value (p);
  23
  24       printf ("%s %s\n", msymbol_name (lang), msymbol_name (name));
  25     }
  26
  27   m17n_object_unref (imlist);
  28   M17N_FINI ();
  29   exit (0);
  30 }
  31