1 /* GLIB - Library of useful routines for C programming
2 * Copyright (C) 1995-1998 Peter Mattis, Spencer Kimball and Josh MacDonald
3 * Copyright (C) 1998-1999 Tor Lillqvist
5 * This library is free software; you can redistribute it and/or
6 * modify it under the terms of the GNU Lesser General Public
7 * License as published by the Free Software Foundation; either
8 * version 2 of the License, or (at your option) any later version.
10 * This library is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 * Lesser General Public License for more details.
15 * You should have received a copy of the GNU Lesser General Public
16 * License along with this library; if not, write to the
17 * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
18 * Boston, MA 02111-1307, USA.
22 * Modified by the GLib Team and others 1997-2000. See the AUTHORS
23 * file for a list of people on the GLib Team. See the ChangeLog
24 * files for a list of changes. These files are distributed with
25 * GLib at ftp://ftp.gtk.org/pub/gtk/.
29 * MT safe for the unix part, FIXME: make the win32 part MT safe as well.
36 #include "glibconfig.h"
43 #define STRICT /* Strict typing, please */
55 g_win32_ftruncate (gint fd,
61 g_return_val_if_fail (fd >= 0, -1);
63 hfile = (HANDLE) _get_osfhandle (fd);
64 curpos = SetFilePointer (hfile, 0, NULL, FILE_CURRENT);
65 if (curpos == 0xFFFFFFFF
66 || SetFilePointer (hfile, size, NULL, FILE_BEGIN) == 0xFFFFFFFF
67 || !SetEndOfFile (hfile))
69 gint error = GetLastError ();
73 case ERROR_INVALID_HANDLE:
88 g_win32_opendir (const char *dirname)
94 g_return_val_if_fail (dirname != NULL, NULL);
96 result = g_new0 (DIR, 1);
97 result->find_file_data = g_new0 (WIN32_FIND_DATA, 1);
98 result->dir_name = g_strdup (dirname);
100 k = strlen (result->dir_name);
101 if (k && result->dir_name[k - 1] == '\\')
103 result->dir_name[k - 1] = '\0';
105 mask = g_strdup_printf ("%s\\*", result->dir_name);
107 result->find_file_handle = (guint) FindFirstFile (mask,
108 (LPWIN32_FIND_DATA) result->find_file_data);
111 if (result->find_file_handle == (guint) INVALID_HANDLE_VALUE)
113 int error = GetLastError ();
115 g_free (result->dir_name);
116 g_free (result->find_file_data);
125 result->just_opened = TRUE;
131 g_win32_readdir (DIR *dir)
133 static struct dirent result;
136 g_return_val_if_fail (dir != NULL, NULL);
138 if (dir->just_opened)
139 dir->just_opened = FALSE;
142 if (!FindNextFile ((HANDLE) dir->find_file_handle,
143 (LPWIN32_FIND_DATA) dir->find_file_data))
145 int error = GetLastError ();
149 case ERROR_NO_MORE_FILES:
158 basename = g_path_get_basename (((LPWIN32_FIND_DATA) dir->find_file_data)->cFileName);
160 strcpy (result.d_name, basename);
168 g_win32_rewinddir (DIR *dir)
172 g_return_if_fail (dir != NULL);
174 if (!FindClose ((HANDLE) dir->find_file_handle))
175 g_warning ("gwin_rewinddir(): FindClose() failed\n");
177 mask = g_strdup_printf ("%s\\*", dir->dir_name);
178 dir->find_file_handle = (guint) FindFirstFile (mask,
179 (LPWIN32_FIND_DATA) dir->find_file_data);
182 if (dir->find_file_handle == (guint) INVALID_HANDLE_VALUE)
184 int error = GetLastError ();
193 dir->just_opened = TRUE;
197 g_win32_closedir (DIR *dir)
199 g_return_val_if_fail (dir != NULL, -1);
201 if (!FindClose ((HANDLE) dir->find_file_handle))
203 int error = GetLastError ();
208 errno = EIO; return -1;
212 g_free (dir->dir_name);
213 g_free (dir->find_file_data);
219 /* Mingw32 headers don't have latest language and sublanguage codes */
220 #ifndef LANG_AFRIKAANS
221 #define LANG_AFRIKAANS 0x36
223 #ifndef LANG_ALBANIAN
224 #define LANG_ALBANIAN 0x1c
227 #define LANG_ARABIC 0x01
229 #ifndef LANG_ARMENIAN
230 #define LANG_ARMENIAN 0x2b
232 #ifndef LANG_ASSAMESE
233 #define LANG_ASSAMESE 0x4d
236 #define LANG_AZERI 0x2c
239 #define LANG_BASQUE 0x2d
241 #ifndef LANG_BELARUSIAN
242 #define LANG_BELARUSIAN 0x23
245 #define LANG_BENGALI 0x45
248 #define LANG_CATALAN 0x03
250 #ifndef LANG_ESTONIAN
251 #define LANG_ESTONIAN 0x25
253 #ifndef LANG_FAEROESE
254 #define LANG_FAEROESE 0x38
257 #define LANG_FARSI 0x29
259 #ifndef LANG_GEORGIAN
260 #define LANG_GEORGIAN 0x37
262 #ifndef LANG_GUJARATI
263 #define LANG_GUJARATI 0x47
266 #define LANG_HEBREW 0x0d
269 #define LANG_HINDI 0x39
271 #ifndef LANG_INDONESIAN
272 #define LANG_INDONESIAN 0x21
275 #define LANG_KANNADA 0x4b
277 #ifndef LANG_KASHMIRI
278 #define LANG_KASHMIRI 0x60
281 #define LANG_KAZAK 0x3f
284 #define LANG_KONKANI 0x57
287 #define LANG_LATVIAN 0x26
289 #ifndef LANG_LITHUANIAN
290 #define LANG_LITHUANIAN 0x27
292 #ifndef LANG_MACEDONIAN
293 #define LANG_MACEDONIAN 0x2f
296 #define LANG_MALAY 0x3e
298 #ifndef LANG_MALAYALAM
299 #define LANG_MALAYALAM 0x4c
301 #ifndef LANG_MANIPURI
302 #define LANG_MANIPURI 0x58
305 #define LANG_MARATHI 0x4e
308 #define LANG_NEPALI 0x61
311 #define LANG_ORIYA 0x48
314 #define LANG_PUNJABI 0x46
316 #ifndef LANG_SANSKRIT
317 #define LANG_SANSKRIT 0x4f
320 #define LANG_SERBIAN 0x1a
323 #define LANG_SINDHI 0x59
326 #define LANG_SLOVAK 0x1b
329 #define LANG_SWAHILI 0x41
332 #define LANG_TAMIL 0x49
335 #define LANG_TATAR 0x44
338 #define LANG_TELUGU 0x4a
341 #define LANG_THAI 0x1e
343 #ifndef LANG_UKRAINIAN
344 #define LANG_UKRAINIAN 0x22
347 #define LANG_URDU 0x20
350 #define LANG_UZBEK 0x43
352 #ifndef LANG_VIETNAMESE
353 #define LANG_VIETNAMESE 0x2a
355 #ifndef SUBLANG_ARABIC_SAUDI_ARABIA
356 #define SUBLANG_ARABIC_SAUDI_ARABIA 0x01
358 #ifndef SUBLANG_ARABIC_IRAQ
359 #define SUBLANG_ARABIC_IRAQ 0x02
361 #ifndef SUBLANG_ARABIC_EGYPT
362 #define SUBLANG_ARABIC_EGYPT 0x03
364 #ifndef SUBLANG_ARABIC_LIBYA
365 #define SUBLANG_ARABIC_LIBYA 0x04
367 #ifndef SUBLANG_ARABIC_ALGERIA
368 #define SUBLANG_ARABIC_ALGERIA 0x05
370 #ifndef SUBLANG_ARABIC_MOROCCO
371 #define SUBLANG_ARABIC_MOROCCO 0x06
373 #ifndef SUBLANG_ARABIC_TUNISIA
374 #define SUBLANG_ARABIC_TUNISIA 0x07
376 #ifndef SUBLANG_ARABIC_OMAN
377 #define SUBLANG_ARABIC_OMAN 0x08
379 #ifndef SUBLANG_ARABIC_YEMEN
380 #define SUBLANG_ARABIC_YEMEN 0x09
382 #ifndef SUBLANG_ARABIC_SYRIA
383 #define SUBLANG_ARABIC_SYRIA 0x0a
385 #ifndef SUBLANG_ARABIC_JORDAN
386 #define SUBLANG_ARABIC_JORDAN 0x0b
388 #ifndef SUBLANG_ARABIC_LEBANON
389 #define SUBLANG_ARABIC_LEBANON 0x0c
391 #ifndef SUBLANG_ARABIC_KUWAIT
392 #define SUBLANG_ARABIC_KUWAIT 0x0d
394 #ifndef SUBLANG_ARABIC_UAE
395 #define SUBLANG_ARABIC_UAE 0x0e
397 #ifndef SUBLANG_ARABIC_BAHRAIN
398 #define SUBLANG_ARABIC_BAHRAIN 0x0f
400 #ifndef SUBLANG_ARABIC_QATAR
401 #define SUBLANG_ARABIC_QATAR 0x10
403 #ifndef SUBLANG_AZERI_LATIN
404 #define SUBLANG_AZERI_LATIN 0x01
406 #ifndef SUBLANG_AZERI_CYRILLIC
407 #define SUBLANG_AZERI_CYRILLIC 0x02
409 #ifndef SUBLANG_CHINESE_MACAU
410 #define SUBLANG_CHINESE_MACAU 0x05
412 #ifndef SUBLANG_ENGLISH_SOUTH_AFRICA
413 #define SUBLANG_ENGLISH_SOUTH_AFRICA 0x07
415 #ifndef SUBLANG_ENGLISH_JAMAICA
416 #define SUBLANG_ENGLISH_JAMAICA 0x08
418 #ifndef SUBLANG_ENGLISH_CARIBBEAN
419 #define SUBLANG_ENGLISH_CARIBBEAN 0x09
421 #ifndef SUBLANG_ENGLISH_BELIZE
422 #define SUBLANG_ENGLISH_BELIZE 0x0a
424 #ifndef SUBLANG_ENGLISH_TRINIDAD
425 #define SUBLANG_ENGLISH_TRINIDAD 0x0b
427 #ifndef SUBLANG_ENGLISH_ZIMBABWE
428 #define SUBLANG_ENGLISH_ZIMBABWE 0x0c
430 #ifndef SUBLANG_ENGLISH_PHILIPPINES
431 #define SUBLANG_ENGLISH_PHILIPPINES 0x0d
433 #ifndef SUBLANG_FRENCH_LUXEMBOURG
434 #define SUBLANG_FRENCH_LUXEMBOURG 0x05
436 #ifndef SUBLANG_FRENCH_MONACO
437 #define SUBLANG_FRENCH_MONACO 0x06
439 #ifndef SUBLANG_GERMAN_LUXEMBOURG
440 #define SUBLANG_GERMAN_LUXEMBOURG 0x04
442 #ifndef SUBLANG_GERMAN_LIECHTENSTEIN
443 #define SUBLANG_GERMAN_LIECHTENSTEIN 0x05
445 #ifndef SUBLANG_KASHMIRI_INDIA
446 #define SUBLANG_KASHMIRI_INDIA 0x02
448 #ifndef SUBLANG_MALAY_MALAYSIA
449 #define SUBLANG_MALAY_MALAYSIA 0x01
451 #ifndef SUBLANG_MALAY_BRUNEI_DARUSSALAM
452 #define SUBLANG_MALAY_BRUNEI_DARUSSALAM 0x02
454 #ifndef SUBLANG_NEPALI_INDIA
455 #define SUBLANG_NEPALI_INDIA 0x02
457 #ifndef SUBLANG_SERBIAN_LATIN
458 #define SUBLANG_SERBIAN_LATIN 0x02
460 #ifndef SUBLANG_SERBIAN_CYRILLIC
461 #define SUBLANG_SERBIAN_CYRILLIC 0x03
463 #ifndef SUBLANG_SPANISH_GUATEMALA
464 #define SUBLANG_SPANISH_GUATEMALA 0x04
466 #ifndef SUBLANG_SPANISH_COSTA_RICA
467 #define SUBLANG_SPANISH_COSTA_RICA 0x05
469 #ifndef SUBLANG_SPANISH_PANAMA
470 #define SUBLANG_SPANISH_PANAMA 0x06
472 #ifndef SUBLANG_SPANISH_DOMINICAN_REPUBLIC
473 #define SUBLANG_SPANISH_DOMINICAN_REPUBLIC 0x07
475 #ifndef SUBLANG_SPANISH_VENEZUELA
476 #define SUBLANG_SPANISH_VENEZUELA 0x08
478 #ifndef SUBLANG_SPANISH_COLOMBIA
479 #define SUBLANG_SPANISH_COLOMBIA 0x09
481 #ifndef SUBLANG_SPANISH_PERU
482 #define SUBLANG_SPANISH_PERU 0x0a
484 #ifndef SUBLANG_SPANISH_ARGENTINA
485 #define SUBLANG_SPANISH_ARGENTINA 0x0b
487 #ifndef SUBLANG_SPANISH_ECUADOR
488 #define SUBLANG_SPANISH_ECUADOR 0x0c
490 #ifndef SUBLANG_SPANISH_CHILE
491 #define SUBLANG_SPANISH_CHILE 0x0d
493 #ifndef SUBLANG_SPANISH_URUGUAY
494 #define SUBLANG_SPANISH_URUGUAY 0x0e
496 #ifndef SUBLANG_SPANISH_PARAGUAY
497 #define SUBLANG_SPANISH_PARAGUAY 0x0f
499 #ifndef SUBLANG_SPANISH_BOLIVIA
500 #define SUBLANG_SPANISH_BOLIVIA 0x10
502 #ifndef SUBLANG_SPANISH_EL_SALVADOR
503 #define SUBLANG_SPANISH_EL_SALVADOR 0x11
505 #ifndef SUBLANG_SPANISH_HONDURAS
506 #define SUBLANG_SPANISH_HONDURAS 0x12
508 #ifndef SUBLANG_SPANISH_NICARAGUA
509 #define SUBLANG_SPANISH_NICARAGUA 0x13
511 #ifndef SUBLANG_SPANISH_PUERTO_RICO
512 #define SUBLANG_SPANISH_PUERTO_RICO 0x14
514 #ifndef SUBLANG_SWEDISH_FINLAND
515 #define SUBLANG_SWEDISH_FINLAND 0x02
517 #ifndef SUBLANG_URDU_PAKISTAN
518 #define SUBLANG_URDU_PAKISTAN 0x01
520 #ifndef SUBLANG_URDU_INDIA
521 #define SUBLANG_URDU_INDIA 0x02
523 #ifndef SUBLANG_UZBEK_LATIN
524 #define SUBLANG_UZBEK_LATIN 0x01
526 #ifndef SUBLANG_UZBEK_CYRILLIC
527 #define SUBLANG_UZBEK_CYRILLIC 0x02
531 g_win32_getlocale (void)
536 gchar *l = NULL, *sl = NULL;
539 if ((ev = getenv ("LC_ALL")) != NULL
540 || (ev = getenv ("LC_CTYPE")) != NULL
541 || (ev = getenv ("LANG")) != NULL)
542 return g_strdup (ev);
544 lcid = GetThreadLocale ();
545 primary = PRIMARYLANGID (LANGIDFROMLCID (lcid));
546 sub = SUBLANGID (LANGIDFROMLCID (lcid));
549 case LANG_AFRIKAANS: l = "af"; break;
550 case LANG_ALBANIAN: l = "sq"; break;
555 case SUBLANG_ARABIC_SAUDI_ARABIA: sl = "SA"; break;
556 case SUBLANG_ARABIC_IRAQ: sl = "IQ"; break;
557 case SUBLANG_ARABIC_EGYPT: sl = "EG"; break;
558 case SUBLANG_ARABIC_LIBYA: sl = "LY"; break;
559 case SUBLANG_ARABIC_ALGERIA: sl = "DZ"; break;
560 case SUBLANG_ARABIC_MOROCCO: sl = "MA"; break;
561 case SUBLANG_ARABIC_TUNISIA: sl = "TN"; break;
562 case SUBLANG_ARABIC_OMAN: sl = "OM"; break;
563 case SUBLANG_ARABIC_YEMEN: sl = "YE"; break;
564 case SUBLANG_ARABIC_SYRIA: sl = "SY"; break;
565 case SUBLANG_ARABIC_JORDAN: sl = "JO"; break;
566 case SUBLANG_ARABIC_LEBANON: sl = "LB"; break;
567 case SUBLANG_ARABIC_KUWAIT: sl = "KW"; break;
568 case SUBLANG_ARABIC_UAE: sl = "AE"; break;
569 case SUBLANG_ARABIC_BAHRAIN: sl = "BH"; break;
570 case SUBLANG_ARABIC_QATAR: sl = "QA"; break;
573 case LANG_ARMENIAN: l = "hy"; break;
574 case LANG_ASSAMESE: l = "as"; break;
575 case LANG_AZERI: l = "az"; break;
576 case LANG_BASQUE: l = "eu"; break;
577 case LANG_BELARUSIAN: l = "be"; break;
578 case LANG_BENGALI: l = "bn"; break;
579 case LANG_BULGARIAN: l = "bg"; break;
580 case LANG_CATALAN: l = "ca"; break;
585 case SUBLANG_CHINESE_TRADITIONAL: sl = "TW"; break;
586 case SUBLANG_CHINESE_SIMPLIFIED: sl = "CH"; break;
587 case SUBLANG_CHINESE_HONGKONG: sl = "HK"; break;
588 case SUBLANG_CHINESE_SINGAPORE: sl = "SG"; break;
589 case SUBLANG_CHINESE_MACAU: sl = "MO"; break;
592 case LANG_CROATIAN: /* LANG_CROATIAN == LANG_SERBIAN
593 * What used to be called Serbo-Croatian
594 * should really now be two separate
595 * languages because of political reasons.
596 * (Says tml, who knows nothing about Serbian
598 * (I can feel those flames coming already.)
602 case SUBLANG_SERBIAN_LATIN: l = "hr"; break;
603 case SUBLANG_SERBIAN_CYRILLIC: l = "sr"; break;
604 default: l = "hr"; /* ??? */
607 case LANG_CZECH: l = "cs"; break;
608 case LANG_DANISH: l = "da"; break;
613 case SUBLANG_DUTCH_BELGIAN: sl = "BE"; break;
620 /* SUBLANG_ENGLISH_US == SUBLANG_DEFAULT. Heh. I thought
621 * English was the language spoken in England.
624 case SUBLANG_ENGLISH_UK: sl = "GB"; break;
625 case SUBLANG_ENGLISH_AUS: sl = "AU"; break;
626 case SUBLANG_ENGLISH_CAN: sl = "CA"; break;
627 case SUBLANG_ENGLISH_NZ: sl = "NZ"; break;
628 case SUBLANG_ENGLISH_EIRE: sl = "IE"; break;
629 case SUBLANG_ENGLISH_SOUTH_AFRICA: sl = "SA"; break;
630 case SUBLANG_ENGLISH_JAMAICA: sl = "JM"; break;
631 case SUBLANG_ENGLISH_CARIBBEAN: sl = "@caribbean"; break; /* ??? */
632 case SUBLANG_ENGLISH_BELIZE: sl = "BZ"; break;
633 case SUBLANG_ENGLISH_TRINIDAD: sl = "TT"; break;
634 case SUBLANG_ENGLISH_ZIMBABWE: sl = "ZW"; break;
635 case SUBLANG_ENGLISH_PHILIPPINES: sl = "PH"; break;
638 case LANG_ESTONIAN: l = "et"; break;
639 case LANG_FAEROESE: l = "fo"; break;
640 case LANG_FARSI: l = "fa"; break;
641 case LANG_FINNISH: l = "fi"; break;
646 case SUBLANG_FRENCH_BELGIAN: sl = "BE"; break;
647 case SUBLANG_FRENCH_CANADIAN: sl = "CA"; break;
648 case SUBLANG_FRENCH_SWISS: sl = "CH"; break;
649 case SUBLANG_FRENCH_LUXEMBOURG: sl = "LU"; break;
650 case SUBLANG_FRENCH_MONACO: sl = "MC"; break;
653 case LANG_GEORGIAN: l = "ka"; break;
658 case SUBLANG_GERMAN_SWISS: sl = "CH"; break;
659 case SUBLANG_GERMAN_AUSTRIAN: sl = "AT"; break;
660 case SUBLANG_GERMAN_LUXEMBOURG: sl = "LU"; break;
661 case SUBLANG_GERMAN_LIECHTENSTEIN: sl = "LI"; break;
664 case LANG_GREEK: l = "el"; break;
665 case LANG_GUJARATI: l = "gu"; break;
666 case LANG_HEBREW: l = "he"; break;
667 case LANG_HINDI: l = "hi"; break;
668 case LANG_HUNGARIAN: l = "hu"; break;
669 case LANG_ICELANDIC: l = "is"; break;
670 case LANG_INDONESIAN: l = "id"; break;
675 case SUBLANG_ITALIAN_SWISS: sl = "CH"; break;
678 case LANG_JAPANESE: l = "ja"; break;
679 case LANG_KANNADA: l = "kn"; break;
684 case SUBLANG_KASHMIRI_INDIA: sl = "IN"; break;
687 case LANG_KAZAK: l = "kk"; break;
688 case LANG_KONKANI: l = "kok"; break; /* ??? */
689 case LANG_KOREAN: l = "ko"; break;
690 case LANG_LATVIAN: l = "lv"; break;
691 case LANG_LITHUANIAN: l = "lt"; break;
692 case LANG_MACEDONIAN: l = "mk"; break;
697 case SUBLANG_MALAY_BRUNEI_DARUSSALAM: sl = "BN"; break;
700 case LANG_MALAYALAM: l = "ml"; break;
701 case LANG_MANIPURI: l = "mni"; break;
702 case LANG_MARATHI: l = "mr"; break;
707 case SUBLANG_NEPALI_INDIA: sl = "IN"; break;
714 /* SUBLANG_NORWEGIAN_BOKMAL == SUBLANG_DEFAULT */
715 case SUBLANG_NORWEGIAN_NYNORSK: sl = "@nynorsk"; break;
718 case LANG_ORIYA: l = "or"; break;
719 case LANG_POLISH: l = "pl"; break;
720 case LANG_PORTUGUESE:
724 /* Hmm. SUBLANG_PORTUGUESE_BRAZILIAN == SUBLANG_DEFAULT */
725 case SUBLANG_PORTUGUESE_BRAZILIAN: sl = "BR"; break;
728 case LANG_PUNJABI: l = "pa"; break;
729 case LANG_ROMANIAN: l = "ro"; break;
730 case LANG_RUSSIAN: l = "ru"; break;
731 case LANG_SANSKRIT: l = "sa"; break;
732 case LANG_SINDHI: l = "sd"; break;
733 case LANG_SLOVAK: l = "sk"; break;
734 case LANG_SLOVENIAN: l = "sl"; break;
739 case SUBLANG_SPANISH_MEXICAN: sl = "MX"; break;
740 case SUBLANG_SPANISH_MODERN: sl = "@modern"; break; /* ??? */
741 case SUBLANG_SPANISH_GUATEMALA: sl = "GT"; break;
742 case SUBLANG_SPANISH_COSTA_RICA: sl = "CR"; break;
743 case SUBLANG_SPANISH_PANAMA: sl = "PA"; break;
744 case SUBLANG_SPANISH_DOMINICAN_REPUBLIC: sl = "DO"; break;
745 case SUBLANG_SPANISH_VENEZUELA: sl = "VE"; break;
746 case SUBLANG_SPANISH_COLOMBIA: sl = "CO"; break;
747 case SUBLANG_SPANISH_PERU: sl = "PE"; break;
748 case SUBLANG_SPANISH_ARGENTINA: sl = "AR"; break;
749 case SUBLANG_SPANISH_ECUADOR: sl = "EC"; break;
750 case SUBLANG_SPANISH_CHILE: sl = "CL"; break;
751 case SUBLANG_SPANISH_URUGUAY: sl = "UY"; break;
752 case SUBLANG_SPANISH_PARAGUAY: sl = "PY"; break;
753 case SUBLANG_SPANISH_BOLIVIA: sl = "BO"; break;
754 case SUBLANG_SPANISH_EL_SALVADOR: sl = "SV"; break;
755 case SUBLANG_SPANISH_HONDURAS: sl = "HN"; break;
756 case SUBLANG_SPANISH_NICARAGUA: sl = "NI"; break;
757 case SUBLANG_SPANISH_PUERTO_RICO: sl = "PR"; break;
760 case LANG_SWAHILI: l = "sw"; break;
765 case SUBLANG_SWEDISH_FINLAND: sl = "FI"; break;
768 case LANG_TAMIL: l = "ta"; break;
769 case LANG_TATAR: l = "tt"; break;
770 case LANG_TELUGU: l = "te"; break;
771 case LANG_THAI: l = "th"; break;
772 case LANG_TURKISH: l = "tr"; break;
773 case LANG_UKRAINIAN: l = "uk"; break;
778 case SUBLANG_URDU_PAKISTAN: sl = "PK"; break;
779 case SUBLANG_URDU_INDIA: sl = "IN"; break;
786 case SUBLANG_UZBEK_CYRILLIC: sl = "@cyrillic"; break;
789 case LANG_VIETNAMESE: l = "vi"; break;
790 default: l = "xx"; break;
799 return g_strdup (bfr);
803 g_win32_error_message (gint error)
809 nbytes = FormatMessage (FORMAT_MESSAGE_ALLOCATE_BUFFER
810 |FORMAT_MESSAGE_IGNORE_INSERTS
811 |FORMAT_MESSAGE_FROM_SYSTEM,
813 (LPTSTR) &msg, 0, NULL);
814 if (nbytes > 2 && msg[nbytes-1] == '\n' && msg[nbytes-2] == '\r')
815 msg[nbytes-2] = '\0';
817 retval = g_strdup (msg);