10 MPlist *script_list, *plist;
14 script_list = mscript_list ();
15 for (plist = script_list; mplist_key (plist) != Mnil;
16 plist = mplist_next (plist))
18 MSymbol script = mplist_value (plist);
19 MPlist *lang_list = mscript_language_list (script);
21 printf ("SCRIPT=%s\n", msymbol_name (script));
24 for (; mplist_key (lang_list) != Mnil;
25 lang_list = mplist_next (lang_list))
27 MSymbol language = mplist_value (lang_list);
29 printf (" LANGUAGE=%s\n", msymbol_name (language));
32 m17n_object_unref (script_list);