source: trunk/src/kernel32/lang.cpp@ 10422

Last change on this file since 10422 was 10422, checked in by bird, 22 years ago

#776: Use LANG variable to get Language Id.
File size: 41.1 KB
Line 
1/* $Id: lang.cpp,v 1.44 2004-01-29 14:21:50 bird Exp $ */
2/*
3 * Win32 language API functions for OS/2
4 *
5 * Copyright 1998 Sander van Leeuwen
6 * Copyright 1998 Patrick Haller
7 * Copyright 1999 Przemyslaw Dobrowolski
8 * Copyright 2004 InnoTek Systemberatung GmbH
9 *
10 *
11 * Project Odin Software License can be found in LICENSE.TXT
12 *
13 */
14#include <os2win.h>
15#include <winnls.h>
16#include <stdlib.h>
17#include <stdio.h>
18#include <string.h>
19#include <odinwrap.h>
20#include <heapstring.h>
21#include <win\winreg.h>
22#include <winos2def.h>
23#include "unicode.h"
24#include "oslibmisc.h"
25#include <wprocess.h>
26#include <uniconv.h>
27
28#define DBG_LOCALLOG DBG_lang
29#include "dbglocal.h"
30
31ODINDEBUGCHANNEL(KERNEL32-LANG)
32
33static ULONG gulDefaultLanguageId = 0;
34
35//******************************************************************************
36//******************************************************************************
37void WIN32API SetDefaultLanguage(DWORD deflang)
38{
39 gulDefaultLanguageId = deflang;
40}
41//******************************************************************************
42//******************************************************************************
43static ULONG DeterminDefaultLanguageId(void)
44{
45 const char *pszLang = getenv("LANG");
46 if (pszLang && pszLang[0] && pszLang[1]) /* (Ignore one character values (like 'C').) */
47 {
48 /** Conversion table from LANG to LanguageId based upon vac365 locales,
49 * Sun JDK Internationalization Docs (1.2), good friends and google.
50 * LANG value format: <language id>_<region>.[stuff]
51 *
52 * If no region is specified in LANG, we'll search exact match, and if not
53 * found <val>_<val>. So for values where language id doesn't match region
54 * then add a 2nd line with only language id (if there is such a default).
55 */
56 const static struct
57 {
58 const char *pszLang; /* LANG value. (case insensitive) */
59 ULONG ulLangId; /* Win32 Language ID. */
60 } aLangToLangId[] =
61 {
62 { "ar_ae", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_UAE) },
63 { "ar_BH", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_BAHRAIN) },
64 { "ar_DZ", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_ALGERIA) },
65 { "ar", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_EGYPT) },
66 { "ar_EG", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_EGYPT) },
67 { "ar_IQ", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_IRAQ ) },
68 { "ar_JO", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_JORDAN ) },
69 { "ar_KW", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_KUWAIT ) },
70 { "ar_LB", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_LEBANON ) },
71 { "ar_LY", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_LIBYA ) },
72 { "ar_MA", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_MOROCCO ) },
73 { "ar_OM", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_OMAN ) },
74 { "ar_QA", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_QATAR ) },
75 { "ar_SA", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_SAUDI_ARABIA) },
76 { "ar_SY", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_SYRIA ) },
77 { "ar_TN", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_TUNISIA ) },
78 { "ar_YE", MAKELANGID(LANG_ARABIC, SUBLANG_ARABIC_YEMEN ) },
79 { "ar_SD", MAKELANGID(LANG_ARABIC, SUBLANG_DEFAULT) }, /* no win32 constant. */
80 { "be", MAKELANGID(LANG_BELARUSIAN, SUBLANG_DEFAULT) },
81 { "be_BY", MAKELANGID(LANG_BELARUSIAN, SUBLANG_DEFAULT) },
82 { "bg_BG", MAKELANGID(LANG_BULGARIAN, SUBLANG_DEFAULT) },
83 { "ca", MAKELANGID(LANG_CATALAN, SUBLANG_DEFAULT) },
84 { "ca_ES", MAKELANGID(LANG_CATALAN, SUBLANG_DEFAULT) },
85 { "cs", MAKELANGID(LANG_CZECH, SUBLANG_DEFAULT) },
86 { "cs_CZ", MAKELANGID(LANG_CZECH, SUBLANG_DEFAULT) },
87 { "da", MAKELANGID(LANG_DANISH, SUBLANG_DEFAULT) },
88 { "da_DK", MAKELANGID(LANG_DANISH, SUBLANG_DEFAULT) },
89 { "de_AT", MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_AUSTRIAN) },
90 { "de_CH", MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_SWISS) },
91 { "de_DE", MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN) },
92 { "de_LU", MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_LUXEMBOURG) },
93 { "el", MAKELANGID(LANG_GREEK, SUBLANG_DEFAULT) },
94 { "el_GR", MAKELANGID(LANG_GREEK, SUBLANG_DEFAULT) },
95 { "en_AU", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_AUS) },
96 { "en_CA", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_CAN) },
97 { "en_GB", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_UK) },
98 { "en_IE", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_EIRE) },
99 { "en_NZ", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_NZ) },
100 { "en_US", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US) },
101 { "en_ZA", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_SOUTH_AFRICA) },
102 { "en_DK", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US) }, /* odd ibm vac365 */
103 { "en_JP", MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_US) }, /* odd ibm vac365 */
104 { "es_AR", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_ARGENTINA ) },
105 { "es_BO", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_BOLIVIA ) },
106 { "es_CL", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_CHILE ) },
107 { "es_CO", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_COLOMBIA ) },
108 { "es_CR", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_COSTA_RICA ) },
109 { "es_DO", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_DOMINICAN_REPUBLIC) },
110 { "es_EC", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_ECUADOR ) },
111 { "es_ES", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH ) }, /* SUBLANG_SPANISH_MODERN? */
112 { "es_GT", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_GUATEMALA ) },
113 { "es_HN", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_HONDURAS ) },
114 { "es_MX", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_MEXICAN ) },
115 { "es_NI", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_NICARAGUA ) },
116 { "es_PA", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_PANAMA ) },
117 { "es_PE", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_PERU ) },
118 { "es_PR", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_PUERTO_RICO ) },
119 { "es_PY", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_PARAGUAY ) },
120 { "es_SV", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_EL_SALVADOR ) },
121 { "es_UY", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_URUGUAY ) },
122 { "es_VE", MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_VENEZUELA ) },
123 { "et", MAKELANGID(LANG_ESTONIAN, SUBLANG_DEFAULT) },
124 { "et_EE", MAKELANGID(LANG_ESTONIAN, SUBLANG_DEFAULT) },
125 { "fi_FI", MAKELANGID(LANG_FINNISH, SUBLANG_DEFAULT) },
126 { "fo", MAKELANGID(LANG_FAEROESE, SUBLANG_DEFAULT) },
127 { "fo_FO", MAKELANGID(LANG_FAEROESE, SUBLANG_DEFAULT) },
128 { "fr_BE", MAKELANGID(LANG_FRENCH, SUBLANG_FRENCH_BELGIAN) },
129 { "fr_CA", MAKELANGID(LANG_FRENCH, SUBLANG_FRENCH_CANADIAN) },
130 { "fr_CH", MAKELANGID(LANG_FRENCH, SUBLANG_FRENCH_SWISS) },
131 { "fr_FR", MAKELANGID(LANG_FRENCH, SUBLANG_FRENCH) },
132 { "fr_LU", MAKELANGID(LANG_FRENCH, SUBLANG_FRENCH_LUXEMBOURG) },
133 { "hr_HR", MAKELANGID(LANG_CROATIAN, SUBLANG_DEFAULT) },
134 { "hu_HU", MAKELANGID(LANG_HUNGARIAN, SUBLANG_DEFAULT) },
135 { "is_IS", MAKELANGID(LANG_ICELANDIC, SUBLANG_DEFAULT) },
136 { "it_CH", MAKELANGID(LANG_ITALIAN, SUBLANG_ITALIAN_SWISS) },
137 { "it_IT", MAKELANGID(LANG_ITALIAN, SUBLANG_ITALIAN) },
138 { "iw", MAKELANGID(LANG_HEBREW, SUBLANG_DEFAULT) },
139 { "iw_IL", MAKELANGID(LANG_HEBREW, SUBLANG_DEFAULT) },
140 { "ja_JP", MAKELANGID(LANG_JAPANESE, SUBLANG_DEFAULT) },
141 { "ko", MAKELANGID(LANG_KOREAN, SUBLANG_DEFAULT) },
142 { "ko_KR", MAKELANGID(LANG_KOREAN, SUBLANG_DEFAULT) },
143 { "lt_LT", MAKELANGID(LANG_LITHUANIAN, SUBLANG_DEFAULT) },
144 { "lv_LV", MAKELANGID(LANG_LATVIAN, SUBLANG_DEFAULT) },
145 /*{ "mk_MK", MAKELANGID(LANG_MACEDONIAN, SUBLANG_DEFAULT) }, - no win32 eq */
146 { "nl_BE", MAKELANGID(LANG_DUTCH, SUBLANG_DUTCH_BELGIAN) },
147 { "nl_NL", MAKELANGID(LANG_DUTCH, SUBLANG_DUTCH) },
148 { "no_NO", MAKELANGID(LANG_NORWEGIAN, SUBLANG_NORWEGIAN_NYNORSK) }, /* yeah sure! Sun is medling in norwegian politics here... */
149 { "no_NO_B", MAKELANGID(LANG_NORWEGIAN, SUBLANG_NORWEGIAN_BOKMAL) }, /* yeah sure! Sun is medling in norwegian politics here... */
150 { "ny", MAKELANGID(LANG_NORWEGIAN, SUBLANG_NORWEGIAN_NYNORSK) },
151 { "ny_NO", MAKELANGID(LANG_NORWEGIAN, SUBLANG_NORWEGIAN_NYNORSK) },
152 { "nb", MAKELANGID(LANG_NORWEGIAN, SUBLANG_NORWEGIAN_BOKMAL) },
153 { "nb_NO", MAKELANGID(LANG_NORWEGIAN, SUBLANG_NORWEGIAN_BOKMAL) },
154 { "pl_PL", MAKELANGID(LANG_POLISH, SUBLANG_DEFAULT) },
155 { "pt_BR", MAKELANGID(LANG_PORTUGUESE, SUBLANG_PORTUGUESE_BRAZILIAN) },
156 { "pt_PT", MAKELANGID(LANG_PORTUGUESE, SUBLANG_PORTUGUESE) },
157 { "ro_RO", MAKELANGID(LANG_ROMANIAN, SUBLANG_DEFAULT) },
158 { "ru_RU", MAKELANGID(LANG_RUSSIAN, SUBLANG_DEFAULT) },
159 { "sh", MAKELANGID(LANG_SERBIAN, SUBLANG_SERBIAN_CYRILLIC) },
160 { "sh_YU", MAKELANGID(LANG_SERBIAN, SUBLANG_SERBIAN_CYRILLIC) },
161 { "sk_SK", MAKELANGID(LANG_SLOVAK, SUBLANG_DEFAULT) },
162 { "sl_SL", MAKELANGID(LANG_SLOVENIAN, SUBLANG_DEFAULT) },
163 { "sq", MAKELANGID(LANG_ALBANIAN, SUBLANG_DEFAULT) },
164 { "sq_AL", MAKELANGID(LANG_ALBANIAN, SUBLANG_DEFAULT) },
165 { "sr", MAKELANGID(LANG_SERBIAN, SUBLANG_DEFAULT) },
166 { "sr_YU", MAKELANGID(LANG_SERBIAN, SUBLANG_DEFAULT) },
167 { "sv", MAKELANGID(LANG_SWEDISH, SUBLANG_SWEDISH) },
168 { "sv_FI", MAKELANGID(LANG_SWEDISH, SUBLANG_SWEDISH_FINLAND) },
169 { "sv_SE", MAKELANGID(LANG_SWEDISH, SUBLANG_SWEDISH) },
170 { "th_TH", MAKELANGID(LANG_THAI, SUBLANG_DEFAULT) },
171 { "tr_TR", MAKELANGID(LANG_TURKISH, SUBLANG_DEFAULT) },
172 { "tr_DE", MAKELANGID(LANG_TURKISH, SUBLANG_DEFAULT) }, /* phun ;-) */
173 { "uk", MAKELANGID(LANG_UKRAINIAN, SUBLANG_DEFAULT) },
174 { "uk_UA", MAKELANGID(LANG_UKRAINIAN, SUBLANG_DEFAULT) },
175 { "zh", MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED) },
176 { "zh_CN", MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED) },
177 { "zh_TW", MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_TRADITIONAL) },
178 { "zh_HK", MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_HONGKONG) },
179 /*{ "zh_??", MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_SINGAPORE) },*/
180 };
181
182 /*
183 * Strip off anything past the '.' and any '_EURO'.
184 */
185 char szLang[16];
186 strncpy(szLang, pszLang, sizeof(szLang));
187 szLang[sizeof(szLang) - 1] = '\0';
188 char *psz = strrchr(szLang, '.');
189 if (psz)
190 *psz = '\0';
191 strupr(szLang);
192 psz = strstr(szLang, "_EURO");
193 if (psz)
194 *psz = '\0';
195
196 /*
197 * Loop thru the table looking for 'exact' match.
198 */
199 int i;
200 for (i = 0; i < sizeof(aLangToLangId) / sizeof(aLangToLangId[0]); i++)
201 if (!stricmp(aLangToLangId[i].pszLang, szLang))
202 return aLangToLangId[i].ulLangId;
203
204 /*
205 * No exact match. We'll now try look for <langid> and then for <langid>_<langid>.
206 * ASSUMES: no user sets "LANG=e" or any other on character letter.
207 */
208 szLang[2] = '\0';
209 for (i = 0; i < sizeof(aLangToLangId) / sizeof(aLangToLangId[0]); i++)
210 if (!stricmp(aLangToLangId[i].pszLang, szLang))
211 return aLangToLangId[i].ulLangId;
212
213 szLang[2] = '_';
214 szLang[3] = szLang[0];
215 szLang[4] = szLang[1];
216 szLang[5] = '\0';
217 for (i = 0; i < sizeof(aLangToLangId) / sizeof(aLangToLangId[0]); i++)
218 if (!stricmp(aLangToLangId[i].pszLang, szLang))
219 return aLangToLangId[i].ulLangId;
220
221 /*
222 * No match, let's try find the language if nothing else.
223 */
224 for (i = 0; i < sizeof(aLangToLangId) / sizeof(aLangToLangId[0]); i++)
225 if (!strnicmp(aLangToLangId[i].pszLang, szLang, 2))
226 return MAKELANGID(PRIMARYLANGID(aLangToLangId[i].ulLangId), SUBLANG_NEUTRAL);
227
228 /* we give up! */
229 dprintf(("DeterminDefaultLanguageId: WARNING: LANG value '%s' isn't known to us!!!\n", pszLang));
230 DebugInt3();
231 }
232
233
234 /*
235 * If LANG parsing failes, we'll go for the country info.
236 */
237 switch(OSLibQueryCountry())
238 {
239 case CTRY_AUSTRALIA: return MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_AUS);
240 case CTRY_AUSTRIA: return MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_AUSTRIAN);
241 case CTRY_BELGIUM: return MAKELANGID(LANG_DUTCH, SUBLANG_DUTCH_BELGIAN); //TODO: french-belgian
242 case CTRY_BRAZIL: return MAKELANGID(LANG_PORTUGUESE, SUBLANG_PORTUGUESE_BRAZILIAN);
243 case CTRY_BULGARIA: return MAKELANGID(LANG_BULGARIAN, SUBLANG_DEFAULT);
244 case CTRY_CANADA: return MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_CAN); //TODO: french-canadian
245 case CTRY_CHINA: return MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_TRADITIONAL);
246 case CTRY_CROATIA: return MAKELANGID(LANG_CROATIAN, SUBLANG_CROATIAN);
247 case CTRY_CZECH_REPUBLIC: return MAKELANGID(LANG_CZECH, SUBLANG_DEFAULT);
248 case CTRY_DENMARK: return MAKELANGID(LANG_DANISH, SUBLANG_DEFAULT);
249 case CTRY_FINLAND: return MAKELANGID(LANG_FINNISH, SUBLANG_DEFAULT);
250 case CTRY_FRANCE: return MAKELANGID(LANG_FRENCH, SUBLANG_FRENCH);
251 case CTRY_GERMANY: return MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN);
252 case CTRY_GREECE: return MAKELANGID(LANG_GREEK, SUBLANG_DEFAULT);
253 case CTRY_HONG_KONG: return MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_HONGKONG);
254 case CTRY_ICELAND: return MAKELANGID(LANG_ICELANDIC, SUBLANG_DEFAULT);
255 case CTRY_IRELAND: return MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_EIRE);
256 case CTRY_ITALY: return MAKELANGID(LANG_ITALIAN, SUBLANG_ITALIAN);
257 case CTRY_JAPAN: return MAKELANGID(LANG_JAPANESE, SUBLANG_DEFAULT);
258 case CTRY_KOREA: return MAKELANGID(LANG_KOREAN, SUBLANG_DEFAULT);
259 case CTRY_LATIN_AMERICA: return MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH);
260 case CTRY_LUXEMBOURG: return MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_LUXEMBOURG);
261 case CTRY_MEXICO: return MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH_MEXICAN);
262 case CTRY_NETHERLANDS: return MAKELANGID(LANG_DUTCH, SUBLANG_DUTCH);
263 case CTRY_NEW_ZEALAND: return MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_NZ);
264 case CTRY_NORWAY: return MAKELANGID(LANG_NORWEGIAN, SUBLANG_DEFAULT);
265 case CTRY_POLAND: return MAKELANGID(LANG_POLISH, SUBLANG_DEFAULT);
266 case CTRY_PORTUGAL: return MAKELANGID(LANG_PORTUGUESE, SUBLANG_DEFAULT);
267 case CTRY_RUSSIA: return MAKELANGID(LANG_RUSSIAN, SUBLANG_RUSSIAN);
268 case CTRY_SINGAPORE: return MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_SINGAPORE);
269 case CTRY_SLOVAK_REPUBLIC: return MAKELANGID(LANG_SLOVAK, SUBLANG_DEFAULT);
270 case CTRY_SLOVENIA: return MAKELANGID(LANG_SLOVENIAN, SUBLANG_DEFAULT);
271 case CTRY_SPAIN: return MAKELANGID(LANG_SPANISH, SUBLANG_SPANISH);
272 case CTRY_SWEDEN: return MAKELANGID(LANG_SWEDISH, SUBLANG_DEFAULT);
273 case CTRY_SWITZERLAND: return MAKELANGID(LANG_GERMAN, SUBLANG_GERMAN_SWISS);
274 case CTRY_TAIWAN: return MAKELANGID(LANG_CHINESE, SUBLANG_CHINESE_TRADITIONAL);
275 case CTRY_TURKEY: return MAKELANGID(LANG_TURKISH, SUBLANG_DEFAULT);
276 case CTRY_UKRAINE: return MAKELANGID(LANG_UKRAINIAN, SUBLANG_RUSSIAN);
277 case CTRY_UNITED_KINGDOM: return MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_UK);
278 default:
279 return MAKELANGID(LANG_ENGLISH, SUBLANG_ENGLISH_UK);
280 }
281 /* will never reach this point! */
282}
283
284ULONG GetLanguageId(void)
285{
286 /*
287 * If no default language is set we'll try determin that by evaluating the
288 * LANG env.var. and OS/2 country information.
289 */
290 if (gulDefaultLanguageId == 0)
291 {
292 gulDefaultLanguageId = DeterminDefaultLanguageId();
293 dprintf(("KERNEL32: GetLanguageId: Sets default language id to %#x\n", gulDefaultLanguageId));
294 }
295 return gulDefaultLanguageId;
296}
297//******************************************************************************
298//******************************************************************************
299LCID WIN32API GetUserDefaultLCID(void)
300{
301 dprintf2(("KERNEL32: GetUserDefaultLCID: returns %x", MAKELCID(GetLanguageId(), SORT_DEFAULT)));
302 return(MAKELCID(GetLanguageId(), SORT_DEFAULT));
303}
304//******************************************************************************
305//******************************************************************************
306LCID WIN32API GetSystemDefaultLCID(void)
307{
308 dprintf2(("KERNEL32: GetSystemDefaultLCID: returns %x", GetUserDefaultLCID()));
309 return GetUserDefaultLCID();
310}
311//******************************************************************************
312//******************************************************************************
313LANGID WIN32API GetUserDefaultLangID()
314{
315 dprintf2(("KERNEL32: GetUserDefaultLangID, returns %x", GetLanguageId()));
316 return(GetLanguageId());
317}
318//******************************************************************************
319//******************************************************************************
320LANGID WIN32API GetSystemDefaultLangID(void)
321{
322 dprintf2(("KERNEL32: GetSystemDefaultLangID returns %x", GetUserDefaultLangID()));
323 return GetUserDefaultLangID();
324}
325
326//******************************************************************************
327//******************************************************************************
328static BOOL LocaleFromUniStr(LPWSTR lpUniStr, LPWSTR wbuf, ULONG *pLen)
329{
330 if (wbuf)
331 {
332 if (*pLen > lstrlenW(lpUniStr))
333 lstrcpyW(wbuf,lpUniStr);
334 else
335 {
336 SetLastError(ERROR_INSUFFICIENT_BUFFER);
337 *pLen=0;
338 return FALSE;
339 }
340 }
341
342 *pLen=lstrlenW(lpUniStr)+1; // + null terminator
343
344 return TRUE;
345}
346//replaced by Wine functions in ole2nls.c
347#if 0
348//******************************************************************************
349//******************************************************************************
350static BOOL LocaleFromUniChar(WCHAR wcUniChar, LPWSTR wbuf, ULONG *pLen)
351{
352 if (wbuf)
353 {
354// if (*pLen >= sizeof(WCHAR))
355 if (*pLen >= 2)
356 {
357 wbuf[0]=(WCHAR)'0'+wcUniChar;
358 wbuf[1]=0;
359 }
360 else
361 {
362 SetLastError(ERROR_INSUFFICIENT_BUFFER);
363 *pLen=0;
364 return FALSE;
365 }
366 }
367
368 *pLen=2;
369
370 return TRUE;
371}
372
373/*****************************************************************************
374 * Name : DWORD GetLocaleInfoW
375 * Purpose : The GetLocaleInfoW function returns specific locale information
376 * Parameters: LCID lcid locale identifier
377 * LCTYPE LCType type of information
378 * LPSTRW wbuf address of buffer for information
379 * int len size of buffer
380 * Variables :
381 * Result : size of target buffer
382 * Remark : In this version LOCALE_SYSTEM_DEFAULT == LOCALE_USER_DEFAULT
383 *
384 * LOCALE_STHOUSAND - with some languages returns OS/2 separator not Windows!
385 * LOCALE_IMEASURE - return '0' like English US
386 * LOCALE_INEGNUMBER - return '1' like English US
387 * LOCALE_ICURRDIGITS - return '2' like English US
388 * LOCALE_IDATE are identical as LOCALE_ILDATE (must be fixed?)
389 * LOCALE_SGROUPING and
390 * LOCALE_SMONGROUPING are tested only with Polish & English languages
391 * LOCALE_SMONTHNAME13 and
392 * LOCALE_SABBERVMONTHNAME13 - returns empty string like English US
393 * LOCALE_FONTSIGNATURE - return empty string like English US
394 *
395 * Status : FULLY TESTED
396 *
397 * Author : Przemyslaw Dobrowolski [Tue, 1999/07/22 17:07]
398 *****************************************************************************/
399int WIN32API GetLocaleInfoW(LCID lcid, LCTYPE LCType, LPWSTR wbuf,
400 int len)
401{
402 LocaleObject locale_object = NULL;
403 struct UniLconv *puni_lconv = NULL;
404 WCHAR *pInfoItem;
405 int rc;
406 COUNTRYCODE Country = {0};
407 COUNTRYINFO CtryInfo = {0};
408 ULONG ulInfoLen = 0;
409
410 dprintf(("KERNEL32: OS2GetLocaleInfoW lcID=%d,lcType=%x,wbuf=%X,len=%d\n",lcid,LCType,wbuf,len));
411
412 if (len && (! wbuf) )
413 {
414 SetLastError(ERROR_INSUFFICIENT_BUFFER);
415 return 0;
416 }
417
418 if (wbuf) *wbuf==0;
419
420 rc=UniCreateLocaleObject(UNI_UCS_STRING_POINTER,(UniChar *)L"", &locale_object);
421
422 if ( rc == ULS_SUCCESS )
423 {
424 UniQueryLocaleInfo(locale_object, &puni_lconv);
425
426 DosQueryCtryInfo(sizeof(COUNTRYINFO), &Country, &CtryInfo, &ulInfoLen);
427
428 ulInfoLen = len; // Now we use this variable as returned length info
429
430 LCType &= ~(LOCALE_NOUSEROVERRIDE|LOCALE_USE_CP_ACP);
431
432 switch(LCType)
433 {
434 case LOCALE_SDECIMAL:
435 LocaleFromUniStr(puni_lconv->decimal_point,wbuf,&ulInfoLen);
436 break;
437
438 case LOCALE_IMEASURE: // Fixme!
439 // only like English US
440 LocaleFromUniChar(0,wbuf,&ulInfoLen);
441 break;
442
443 case LOCALE_INEGNUMBER: // Fixme!
444 // only like English US
445 LocaleFromUniChar(1,wbuf,&ulInfoLen);
446 break;
447
448 case LOCALE_ICURRDIGITS:// Fixme!
449 // only like English US
450 LocaleFromUniChar(2,wbuf,&ulInfoLen);
451 break;
452
453 case LOCALE_STHOUSAND:
454 LocaleFromUniStr(puni_lconv->thousands_sep,wbuf,&ulInfoLen);
455 //MN: hack for Czech language; weird value returned here (0xA0 instead of 0x20)
456 if (gulDefaultLanguageId == CTRY_CZECH_REPUBLIC)
457 ((BYTE*)wbuf)[0] = ((BYTE*)wbuf)[0] & 0x7F;
458 break;
459
460 case LOCALE_SGROUPING: // tested only with Polish & English
461 if (wbuf)
462 {
463 if (puni_lconv->grouping)
464 {
465 if (len >= 3*sizeof(WCHAR))
466 {
467 wbuf[0]='0'+*puni_lconv->grouping;
468 wbuf[1]=(WCHAR)';';
469 wbuf[2]=(WCHAR)'0';
470 wbuf[3]=0;
471 ulInfoLen=4;
472 }
473 else
474 {
475 SetLastError(ERROR_INSUFFICIENT_BUFFER);
476 break;
477 }
478 }
479 else
480 {
481 wbuf[0]=20; // Windows return space!!
482 ulInfoLen=2;
483 }
484 }
485 else
486 ulInfoLen=2;
487 break;
488
489 case LOCALE_SMONGROUPING: // tested only with Polish & English
490 if (wbuf)
491 {
492 if (puni_lconv->mon_grouping)
493 {
494 if (len >= 3*sizeof(WCHAR))
495 {
496 wbuf[0]='0'+*puni_lconv->mon_grouping;
497 wbuf[1]=(WCHAR)';';
498 wbuf[2]=(WCHAR)'0';
499 wbuf[3]=0;
500 ulInfoLen=4;
501 }
502 else
503 {
504 SetLastError(ERROR_INSUFFICIENT_BUFFER);
505 break;
506 }
507 }
508 else
509 {
510 wbuf[0]=20; // Windows return space!!
511 ulInfoLen=2;
512 }
513 }
514 else
515 ulInfoLen=2;
516 break;
517
518
519 case LOCALE_SCURRENCY:
520 LocaleFromUniStr(puni_lconv->currency_symbol,wbuf,&ulInfoLen);
521 break;
522
523 case LOCALE_SMONDECIMALSEP:
524 LocaleFromUniStr(puni_lconv->mon_decimal_point,wbuf,&ulInfoLen);
525 break;
526
527 case LOCALE_SMONTHOUSANDSEP:
528 LocaleFromUniStr(puni_lconv->mon_thousands_sep,wbuf,&ulInfoLen);
529 break;
530
531 case LOCALE_SPOSITIVESIGN:
532 LocaleFromUniStr(puni_lconv->positive_sign,wbuf,&ulInfoLen);
533 break;
534
535 case LOCALE_SNEGATIVESIGN:
536 LocaleFromUniStr(puni_lconv->negative_sign,wbuf,&ulInfoLen);
537 break;
538
539 case LOCALE_IPOSSIGNPOSN:
540 LocaleFromUniChar(puni_lconv->p_sign_posn,wbuf,&ulInfoLen);
541 break;
542
543 case LOCALE_INEGSIGNPOSN:
544 LocaleFromUniChar(puni_lconv->n_sign_posn,wbuf,&ulInfoLen);
545 break;
546
547 case LOCALE_IPOSSYMPRECEDES:
548 LocaleFromUniChar(puni_lconv->p_cs_precedes,wbuf,&ulInfoLen);
549 break;
550
551 case LOCALE_IPOSSEPBYSPACE:
552 LocaleFromUniChar(puni_lconv->p_sep_by_space,wbuf,&ulInfoLen);
553 break;
554
555 case LOCALE_INEGSYMPRECEDES:
556 LocaleFromUniChar(puni_lconv->n_cs_precedes,wbuf,&ulInfoLen);
557 break;
558
559 case LOCALE_INEGSEPBYSPACE:
560 LocaleFromUniChar(puni_lconv->n_sep_by_space,wbuf,&ulInfoLen);
561 break;
562
563 case LOCALE_S1159:
564 UniQueryLocaleItem(locale_object, AM_STR,&pInfoItem);
565 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
566 UniFreeMem(pInfoItem);
567 break;
568
569 case LOCALE_S2359:
570 UniQueryLocaleItem(locale_object, PM_STR,&pInfoItem);
571 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
572 UniFreeMem(pInfoItem);
573 break;
574
575 case LOCALE_IDEFAULTLANGUAGE:
576 strcpyW(wbuf, (LPWSTR)L"0409");
577 ulInfoLen = 5;
578 break;
579 case LOCALE_ILANGUAGE:
580 UniQueryLocaleItem(locale_object, XWINLOCALE,&pInfoItem);
581 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
582 UniFreeMem(pInfoItem);
583 break;
584
585 case LOCALE_INEGCURR:
586 UniQueryLocaleItem(locale_object, INEGCURR,&pInfoItem);
587 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
588 UniFreeMem(pInfoItem);
589 break;
590
591 case LOCALE_ICURRENCY:
592 UniQueryLocaleItem(locale_object, ICURRENCY,&pInfoItem);
593 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
594 UniFreeMem(pInfoItem);
595 break;
596
597
598
599 case LOCALE_SNATIVELANGNAME:
600 case LOCALE_SLANGUAGE:
601 UniQueryLocaleItem(locale_object, SLANGUAGE,&pInfoItem);
602 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
603 UniFreeMem(pInfoItem);
604 break;
605
606 case LOCALE_SABBREVLANGNAME:
607 UniQueryLocaleItem(locale_object, SABBREVLANGNAME,&pInfoItem);
608 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
609 UniFreeMem(pInfoItem);
610 break;
611
612 case LOCALE_IDEFAULTCOUNTRY:
613 case LOCALE_ICOUNTRY:
614 UniQueryLocaleItem(locale_object, ICOUNTRY,&pInfoItem);
615 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
616 UniFreeMem(pInfoItem);
617 break;
618
619 case LOCALE_SENGLANGUAGE:
620 UniQueryLocaleItem(locale_object, SENGLANGUAGE,&pInfoItem);
621 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
622 UniFreeMem(pInfoItem);
623 break;
624
625 case LOCALE_SENGCOUNTRY:
626 case LOCALE_SCOUNTRY:
627 UniQueryLocaleItem(locale_object, SENGCOUNTRYNAME,&pInfoItem);
628 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
629 UniFreeMem(pInfoItem);
630 break;
631
632 case LOCALE_SABBREVCTRYNAME:
633 UniQueryLocaleItem(locale_object, SABBREVCTRYNAME,&pInfoItem);
634 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
635 UniFreeMem(pInfoItem);
636 break;
637
638 case LOCALE_SNATIVECTRYNAME:
639 UniQueryLocaleItem(locale_object, SCOUNTRY,&pInfoItem);
640 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
641 UniFreeMem(pInfoItem);
642 break;
643
644 case LOCALE_SNATIVEDIGITS:
645 UniQueryLocaleItem(locale_object, SNATIVEDIGITS,&pInfoItem);
646 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
647 UniFreeMem(pInfoItem);
648 break;
649
650
651 case LOCALE_IDEFAULTCODEPAGE:
652 UniQueryLocaleItem(locale_object, ICODEPAGE,&pInfoItem);
653 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
654 UniFreeMem(pInfoItem);
655 break;
656
657 case LOCALE_IDEFAULTANSICODEPAGE:
658 UniQueryLocaleItem(locale_object, IANSICODEPAGE,&pInfoItem);
659 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
660 UniFreeMem(pInfoItem);
661 break;
662
663 case LOCALE_IDEFAULTMACCODEPAGE:
664 UniQueryLocaleItem(locale_object, IMACCODEPAGE,&pInfoItem);
665 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
666 UniFreeMem(pInfoItem);
667 break;
668
669 case LOCALE_SLIST:
670 UniQueryLocaleItem(locale_object, LISTSEP,&pInfoItem);
671 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
672 UniFreeMem(pInfoItem);
673 break;
674
675 case LOCALE_SINTLSYMBOL:
676 UniQueryLocaleItem(locale_object, SINTLSYMBOL,&pInfoItem);
677 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
678 UniFreeMem(pInfoItem);
679 break;
680
681 case LOCALE_IFIRSTDAYOFWEEK:
682 UniQueryLocaleItem(locale_object, IFIRSTDAYOFWEEK, &pInfoItem);
683 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
684 UniFreeMem(pInfoItem);
685 break;
686
687 case LOCALE_SDAYNAME7:
688 UniQueryLocaleItem(locale_object, DAY_1,&pInfoItem);
689 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
690 UniFreeMem(pInfoItem);
691 break;
692
693 case LOCALE_SDAYNAME1:
694 UniQueryLocaleItem(locale_object, DAY_2,&pInfoItem);
695 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
696 UniFreeMem(pInfoItem);
697 break;
698
699 case LOCALE_SDAYNAME2:
700 UniQueryLocaleItem(locale_object, DAY_3,&pInfoItem);
701 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
702 UniFreeMem(pInfoItem);
703 break;
704
705 case LOCALE_SDAYNAME3:
706 UniQueryLocaleItem(locale_object, DAY_4,&pInfoItem);
707 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
708 UniFreeMem(pInfoItem);
709 break;
710
711 case LOCALE_SDAYNAME4:
712 UniQueryLocaleItem(locale_object, DAY_5,&pInfoItem);
713 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
714 UniFreeMem(pInfoItem);
715 break;
716
717 case LOCALE_SDAYNAME5:
718 UniQueryLocaleItem(locale_object, DAY_6,&pInfoItem);
719 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
720 UniFreeMem(pInfoItem);
721 break;
722
723 case LOCALE_SDAYNAME6:
724 UniQueryLocaleItem(locale_object, DAY_7,&pInfoItem);
725 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
726 UniFreeMem(pInfoItem);
727 break;
728
729 case LOCALE_SABBREVDAYNAME7:
730 UniQueryLocaleItem(locale_object, ABDAY_1,&pInfoItem);
731 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
732 UniFreeMem(pInfoItem);
733 break;
734
735 case LOCALE_SABBREVDAYNAME1:
736 UniQueryLocaleItem(locale_object, ABDAY_2,&pInfoItem);
737 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
738 UniFreeMem(pInfoItem);
739 break;
740
741 case LOCALE_SABBREVDAYNAME2:
742 UniQueryLocaleItem(locale_object, ABDAY_3,&pInfoItem);
743 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
744 UniFreeMem(pInfoItem);
745 break;
746
747 case LOCALE_SABBREVDAYNAME3:
748 UniQueryLocaleItem(locale_object, ABDAY_4,&pInfoItem);
749 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
750 UniFreeMem(pInfoItem);
751 break;
752
753 case LOCALE_SABBREVDAYNAME4:
754 UniQueryLocaleItem(locale_object, ABDAY_5,&pInfoItem);
755 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
756 UniFreeMem(pInfoItem);
757 break;
758
759 case LOCALE_SABBREVDAYNAME5:
760 UniQueryLocaleItem(locale_object, ABDAY_6,&pInfoItem);
761 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
762 UniFreeMem(pInfoItem);
763 break;
764
765 case LOCALE_SABBREVDAYNAME6:
766 UniQueryLocaleItem(locale_object, ABDAY_7,&pInfoItem);
767 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
768 UniFreeMem(pInfoItem);
769 break;
770
771 case LOCALE_SMONTHNAME1:
772 UniQueryLocaleItem(locale_object, MON_1,&pInfoItem);
773 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
774 UniFreeMem(pInfoItem);
775 break;
776
777 case LOCALE_SMONTHNAME2:
778 UniQueryLocaleItem(locale_object, MON_2,&pInfoItem);
779 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
780 UniFreeMem(pInfoItem);
781 break;
782
783 case LOCALE_SMONTHNAME3:
784 UniQueryLocaleItem(locale_object, MON_3,&pInfoItem);
785 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
786 UniFreeMem(pInfoItem);
787 break;
788
789 case LOCALE_SMONTHNAME4:
790 UniQueryLocaleItem(locale_object, MON_4,&pInfoItem);
791 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
792 UniFreeMem(pInfoItem);
793 break;
794
795 case LOCALE_SMONTHNAME5:
796 UniQueryLocaleItem(locale_object, MON_5,&pInfoItem);
797 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
798 UniFreeMem(pInfoItem);
799 break;
800
801 case LOCALE_SMONTHNAME6:
802 UniQueryLocaleItem(locale_object, MON_6,&pInfoItem);
803 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
804 UniFreeMem(pInfoItem);
805 break;
806
807 case LOCALE_SMONTHNAME7:
808 UniQueryLocaleItem(locale_object, MON_7,&pInfoItem);
809 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
810 UniFreeMem(pInfoItem);
811 break;
812
813 case LOCALE_SMONTHNAME8:
814 UniQueryLocaleItem(locale_object, MON_8,&pInfoItem);
815 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
816 UniFreeMem(pInfoItem);
817 break;
818
819 case LOCALE_SMONTHNAME9:
820 UniQueryLocaleItem(locale_object, MON_9,&pInfoItem);
821 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
822 UniFreeMem(pInfoItem);
823 break;
824
825 case LOCALE_SMONTHNAME10:
826 UniQueryLocaleItem(locale_object, MON_10,&pInfoItem);
827 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
828 UniFreeMem(pInfoItem);
829 break;
830
831 case LOCALE_SMONTHNAME11:
832 UniQueryLocaleItem(locale_object, MON_11,&pInfoItem);
833 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
834 UniFreeMem(pInfoItem);
835 break;
836
837 case LOCALE_SMONTHNAME12:
838 UniQueryLocaleItem(locale_object, MON_12,&pInfoItem);
839 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
840 UniFreeMem(pInfoItem);
841 break;
842
843 case LOCALE_FONTSIGNATURE: // FixMe!!!
844 case LOCALE_SABBREVMONTHNAME13:
845 case LOCALE_SMONTHNAME13:
846 if(wbuf) {
847 *wbuf = 0;
848 }
849 LocaleFromUniStr((LPWSTR)L"\0",wbuf,&ulInfoLen);
850 break;
851
852 case LOCALE_SABBREVMONTHNAME1:
853 UniQueryLocaleItem(locale_object, ABMON_1,&pInfoItem);
854 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
855 UniFreeMem(pInfoItem);
856 break;
857
858 case LOCALE_SABBREVMONTHNAME2:
859 UniQueryLocaleItem(locale_object, ABMON_2,&pInfoItem);
860 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
861 UniFreeMem(pInfoItem);
862 break;
863
864 case LOCALE_SABBREVMONTHNAME3:
865 UniQueryLocaleItem(locale_object, ABMON_3,&pInfoItem);
866 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
867 UniFreeMem(pInfoItem);
868 break;
869
870 case LOCALE_SABBREVMONTHNAME4:
871 UniQueryLocaleItem(locale_object, ABMON_4,&pInfoItem);
872 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
873 UniFreeMem(pInfoItem);
874 break;
875
876 case LOCALE_SABBREVMONTHNAME5:
877 UniQueryLocaleItem(locale_object, ABMON_5,&pInfoItem);
878 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
879 UniFreeMem(pInfoItem);
880 break;
881
882 case LOCALE_SABBREVMONTHNAME6:
883 UniQueryLocaleItem(locale_object, ABMON_6,&pInfoItem);
884 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
885 UniFreeMem(pInfoItem);
886 break;
887
888 case LOCALE_SABBREVMONTHNAME7:
889 UniQueryLocaleItem(locale_object, ABMON_7,&pInfoItem);
890 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
891 UniFreeMem(pInfoItem);
892 break;
893
894 case LOCALE_SABBREVMONTHNAME8:
895 UniQueryLocaleItem(locale_object, ABMON_8,&pInfoItem);
896 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
897 UniFreeMem(pInfoItem);
898 break;
899
900 case LOCALE_SABBREVMONTHNAME9:
901 UniQueryLocaleItem(locale_object, ABMON_9,&pInfoItem);
902 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
903 UniFreeMem(pInfoItem);
904 break;
905
906 case LOCALE_SABBREVMONTHNAME10:
907 UniQueryLocaleItem(locale_object, ABMON_10,&pInfoItem);
908 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
909 UniFreeMem(pInfoItem);
910 break;
911
912 case LOCALE_SABBREVMONTHNAME11:
913 UniQueryLocaleItem(locale_object, ABMON_11,&pInfoItem);
914 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
915 UniFreeMem(pInfoItem);
916 break;
917
918 case LOCALE_SABBREVMONTHNAME12:
919 UniQueryLocaleItem(locale_object, ABMON_12,&pInfoItem);
920 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
921 UniFreeMem(pInfoItem);
922 break;
923
924 case LOCALE_SDATE:
925 UniQueryLocaleItem(locale_object, DATESEP,&pInfoItem);
926 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
927 UniFreeMem(pInfoItem);
928 break;
929
930 case LOCALE_STIME:
931 UniQueryLocaleItem(locale_object, TIMESEP,&pInfoItem);
932 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
933 UniFreeMem(pInfoItem);
934 break;
935
936 case LOCALE_IDATE:
937 case LOCALE_ILDATE:
938 LocaleFromUniChar(CtryInfo.fsDateFmt,wbuf,&ulInfoLen);
939 break;
940
941 case LOCALE_ITIME:
942 UniQueryLocaleItem(locale_object, TIMESEP,&pInfoItem);
943 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
944 UniFreeMem(pInfoItem);
945 break;
946
947 case LOCALE_SSHORTDATE:
948 UniQueryLocaleItem(locale_object, WSHORTDATE,&pInfoItem);
949 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
950 UniFreeMem(pInfoItem);
951 break;
952
953 case LOCALE_SLONGDATE:
954 UniQueryLocaleItem(locale_object, WLONGDATE,&pInfoItem);
955 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
956 UniFreeMem(pInfoItem);
957 break;
958
959
960 case LOCALE_STIMEFORMAT:
961 UniQueryLocaleItem(locale_object, WTIMEFORMAT,&pInfoItem);
962 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
963 UniFreeMem(pInfoItem);
964 break;
965
966 case LOCALE_SISO639LANGNAME:
967 UniQueryLocaleItem(locale_object, SISO639LANGNAME,&pInfoItem);
968 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
969 UniFreeMem(pInfoItem);
970 break;
971
972 case LOCALE_SISO3166CTRYNAME:
973 UniQueryLocaleItem(locale_object, SISO3166CTRYNAME,&pInfoItem);
974 LocaleFromUniStr(pInfoItem,wbuf,&ulInfoLen);
975 UniFreeMem(pInfoItem);
976 break;
977
978 default:
979 dprintf(("KERNEL32: OS2GetLocaleInfoW: LCType %X not yet supported\n", LCType));
980 if (wbuf)
981 {
982 wbuf[0] = (WCHAR) '1';
983 wbuf[1] = 0;
984 }
985 ulInfoLen=2;
986 break;
987
988 }
989 UniFreeLocaleInfo(puni_lconv);
990 UniFreeLocaleObject(locale_object);
991 }
992 else
993 return (0);
994
995 dprintf(("KERNEL32: OS2GetLocaleInfoW returned %d\n",ulInfoLen));
996
997 return (ulInfoLen);
998}
999/*****************************************************************************
1000 * Name : DWORD GetLocaleInfoA
1001 * Purpose : The GetLocaleInfoA function returns specific locale information
1002 * Parameters: LCID lcid locale identifier
1003 * LCTYPE LCType type of information
1004 * LPSTR buf address of buffer for information
1005 * int len size of buffer
1006 * Variables :
1007 * Result : size of target buffer
1008 * Remark : In this version LOCALE_SYSTEM_DEFAULT == LOCALE_USER_DEFAULT
1009 * look into GetLocaleInfoW
1010 *
1011 * Status : TESTED
1012 *
1013 * Author : Przemyslaw Dobrowolski [Tue, 1999/07/21 12:18]
1014 *****************************************************************************/
1015int WIN32API GetLocaleInfoA(LCID lcid, LCTYPE LCType, LPSTR buf, int len)
1016{
1017 LPWSTR lpWStr;
1018 int ret_len;
1019
1020 if (len && (! buf) )
1021 {
1022 SetLastError(ERROR_INSUFFICIENT_BUFFER);
1023 return 0;
1024 }
1025
1026 dprintf(("KERNEL32: GetLocaleInfoA lcID=%d,lcType=%x,buf=%X,len=%d\n",lcid,LCType,buf,len));
1027
1028 if (buf)
1029 lpWStr=(LPWSTR)malloc(len*(sizeof(WCHAR)));
1030 else
1031 lpWStr=NULL; // Query for buffer size
1032
1033 ret_len = CALL_ODINFUNC(GetLocaleInfoW)(lcid, LCType, lpWStr, len);
1034
1035 if (ret_len && buf)
1036 UnicodeToAscii(lpWStr,buf);
1037
1038 if (lpWStr) free(lpWStr); // free prevooisly allocated memory
1039
1040 dprintf(("KERNEL32: GetLocaleInfoA returned %d -> %s",ret_len, (ret_len) ? buf : NULL));
1041
1042 return (ret_len);
1043}
1044#endif
1045//******************************************************************************
1046//******************************************************************************
1047LCID WIN32API GetThreadLocale()
1048{
1049 TEB *teb = GetThreadTEB();
1050
1051 if(teb == NULL) {
1052 dprintf(("KERNEL32: ERROR: GetThreadLocale teb == NULL!"));
1053 return FALSE;
1054 }
1055 dprintf(("KERNEL32: GetThreadLocale returned %x", teb->o.odin.lcid));
1056 return(teb->o.odin.lcid);
1057}
1058//******************************************************************************
1059//******************************************************************************
1060BOOL WIN32API SetThreadLocale(LCID locale)
1061{
1062 TEB *teb = GetThreadTEB();
1063
1064 if(teb == NULL) {
1065 dprintf(("KERNEL32: ERROR SetThreadLocale teb == NULL!"));
1066 return FALSE;
1067 }
1068 dprintf(("KERNEL32: SetThreadLocale %x", locale));
1069 teb->o.odin.lcid = locale;
1070 return(TRUE);
1071}
1072//******************************************************************************
1073//******************************************************************************
Note: See TracBrowser for help on using the repository browser.