===================================================================
RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/io.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- OpenXM_contrib2/windows/asir32gui/io.c	2018/09/08 02:15:31	1.12
+++ OpenXM_contrib2/windows/asir32gui/io.c	2019/03/28 14:34:35	1.13
@@ -143,6 +143,18 @@ const char *get_helpdir() {
     return helpdir;
 }
 
+const char *get_locale_lang_iso639() {
+    static int  initialized;
+    static char lang[16] = {0}; /* ISO 639-1 two letter code */
+    if( !initialized ) {
+        if(GetLocaleInfo(GetUserDefaultLCID(), LOCALE_SISO639LANGNAME, lang, 16)==0) {
+			return NULL;
+		}
+        initialized = 1;
+    }
+    return (const char *)lang;
+}
+
 BOOL Init_IO(char *errmsg) {
 	int i;
 	char *av[BUFSIZ];