imlist.c

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