===================================================================
RCS file: /home/cvs/OpenXM_contrib2/windows/asir32gui/io.c,v
retrieving revision 1.11
retrieving revision 1.13
diff -u -p -r1.11 -r1.13
--- OpenXM_contrib2/windows/asir32gui/io.c	2018/09/08 02:06:08	1.11
+++ 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];
@@ -154,7 +166,7 @@ BOOL Init_IO(char *errmsg) {
 	char notify[100],notify_ack[100],intr[100],intr_ack[100],kill[100];
 	char name[BUFSIZ],qname[BUFSIZ],home[BUFSIZ];
 
-#if _MSC_VER < 1900
+#if _MSC_VER < 1910
 	_setargv();
 #endif
 	if ( !strcmp(__argv[0],"debuggui") ) {