4 * Copyright 2000 Alexandre Julliard
15 #include "wine/unicode.h"
16 #include "debugtools.h"
18 DEFAULT_DEBUG_CHANNEL(string);
20 /* current code pages */
21 static const union cptable *ansi_cptable;
22 static const union cptable *oem_cptable;
23 static const union cptable *mac_cptable;
25 /* retrieve a code page table from the locale info */
26 static const union cptable *get_locale_cp( LCID lcid, LCTYPE type )
28 const union cptable *table = NULL;
31 if (GetLocaleInfoA( lcid, type, buf, sizeof(buf) )) table = cp_get_table( atoi(buf) );
35 /* setup default codepage info before we can get at the locale stuff */
36 static void init_codepages(void)
38 ansi_cptable = cp_get_table( 1252 );
39 oem_cptable = cp_get_table( 437 );
40 mac_cptable = cp_get_table( 10000 );
41 assert( ansi_cptable );
42 assert( oem_cptable );
43 assert( mac_cptable );
46 /* find the table for a given codepage, handling CP_ACP etc. pseudo-codepages */
47 static const union cptable *get_codepage_table( unsigned int codepage )
49 const union cptable *ret = NULL;
51 if (!ansi_cptable) init_codepages();
55 case CP_ACP: return ansi_cptable;
56 case CP_OEMCP: return oem_cptable;
57 case CP_MACCP: return mac_cptable;
58 case CP_THREAD_ACP: return get_locale_cp( GetThreadLocale(), LOCALE_IDEFAULTANSICODEPAGE );
63 if (codepage == ansi_cptable->info.codepage) return ansi_cptable;
64 if (codepage == oem_cptable->info.codepage) return oem_cptable;
65 if (codepage == mac_cptable->info.codepage) return mac_cptable;
66 ret = cp_get_table( codepage );
72 /* initialize default code pages from locale info */
73 /* FIXME: should be done in init_codepages, but it can't right now */
74 /* since it needs KERNEL32 to be loaded for the locale info. */
75 void CODEPAGE_Init(void)
77 extern void __wine_init_codepages( const union cptable *ansi, const union cptable *oem );
78 const union cptable *table;
79 LCID lcid = GetUserDefaultLCID();
81 if (!ansi_cptable) init_codepages(); /* just in case */
83 if ((table = get_locale_cp( lcid, LOCALE_IDEFAULTANSICODEPAGE ))) ansi_cptable = table;
84 if ((table = get_locale_cp( lcid, LOCALE_IDEFAULTMACCODEPAGE ))) mac_cptable = table;
85 if ((table = get_locale_cp( lcid, LOCALE_IDEFAULTCODEPAGE ))) oem_cptable = table;
86 __wine_init_codepages( ansi_cptable, oem_cptable );
88 TRACE( "ansi=%03d oem=%03d mac=%03d\n", ansi_cptable->info.codepage,
89 oem_cptable->info.codepage, mac_cptable->info.codepage );
92 /******************************************************************************
96 * Current ANSI code-page identifier, default if no current defined
98 UINT WINAPI GetACP(void)
100 if (!ansi_cptable) init_codepages();
101 return ansi_cptable->info.codepage;
105 /***********************************************************************
106 * GetOEMCP (KERNEL32.@)
108 UINT WINAPI GetOEMCP(void)
110 if (!oem_cptable) init_codepages();
111 return oem_cptable->info.codepage;
115 /***********************************************************************
116 * IsValidCodePage (KERNEL32.@)
118 BOOL WINAPI IsValidCodePage( UINT codepage )
120 return cp_get_table( codepage ) != NULL;
124 /***********************************************************************
125 * IsDBCSLeadByteEx (KERNEL32.@)
127 BOOL WINAPI IsDBCSLeadByteEx( UINT codepage, BYTE testchar )
129 const union cptable *table = get_codepage_table( codepage );
130 return table && is_dbcs_leadbyte( table, testchar );
134 /***********************************************************************
135 * IsDBCSLeadByte (KERNEL32.@)
136 * IsDBCSLeadByte (KERNEL.207)
138 BOOL WINAPI IsDBCSLeadByte( BYTE testchar )
140 if (!ansi_cptable) init_codepages();
141 return is_dbcs_leadbyte( ansi_cptable, testchar );
145 /***********************************************************************
146 * GetCPInfo (KERNEL32.@)
148 BOOL WINAPI GetCPInfo( UINT codepage, LPCPINFO cpinfo )
150 const union cptable *table = get_codepage_table( codepage );
154 SetLastError( ERROR_INVALID_PARAMETER );
157 if (table->info.def_char & 0xff00)
159 cpinfo->DefaultChar[0] = table->info.def_char & 0xff00;
160 cpinfo->DefaultChar[1] = table->info.def_char & 0x00ff;
164 cpinfo->DefaultChar[0] = table->info.def_char & 0xff;
165 cpinfo->DefaultChar[1] = 0;
167 if ((cpinfo->MaxCharSize = table->info.char_size) == 2)
168 memcpy( cpinfo->LeadByte, table->dbcs.lead_bytes, sizeof(cpinfo->LeadByte) );
170 cpinfo->LeadByte[0] = cpinfo->LeadByte[1] = 0;
176 /***********************************************************************
177 * EnumSystemCodePagesA (KERNEL32.@)
179 BOOL WINAPI EnumSystemCodePagesA( CODEPAGE_ENUMPROCA lpfnCodePageEnum, DWORD flags )
181 const union cptable *table;
187 if (!(table = cp_enum_table( index++ ))) break;
188 sprintf( buffer, "%d", table->info.codepage );
189 if (!lpfnCodePageEnum( buffer )) break;
195 /***********************************************************************
196 * EnumSystemCodePagesW (KERNEL32.@)
198 BOOL WINAPI EnumSystemCodePagesW( CODEPAGE_ENUMPROCW lpfnCodePageEnum, DWORD flags )
200 const union cptable *table;
201 WCHAR buffer[10], *p;
206 if (!(table = cp_enum_table( index++ ))) break;
207 p = buffer + sizeof(buffer)/sizeof(WCHAR);
209 page = table->info.codepage;
212 *--p = '0' + (page % 10);
215 if (!lpfnCodePageEnum( p )) break;
221 /***********************************************************************
222 * MultiByteToWideChar (KERNEL32.@)
225 * page [in] Codepage character set to convert from
226 * flags [in] Character mapping flags
227 * src [in] Source string buffer
228 * srclen [in] Length of source string buffer
229 * dst [in] Destination buffer
230 * dstlen [in] Length of destination buffer
233 * The returned length includes the null terminator character.
236 * Success: If dstlen > 0, number of characters written to destination
237 * buffer. If dstlen == 0, number of characters needed to do
239 * Failure: 0. Occurs if not enough space is available.
242 * ERROR_INSUFFICIENT_BUFFER
243 * ERROR_INVALID_PARAMETER
244 * ERROR_NO_UNICODE_TRANSLATION
247 INT WINAPI MultiByteToWideChar( UINT page, DWORD flags, LPCSTR src, INT srclen,
248 LPWSTR dst, INT dstlen )
250 const union cptable *table;
253 if (!src || (!dst && dstlen))
255 SetLastError( ERROR_INVALID_PARAMETER );
259 if (srclen == -1) srclen = strlen(src) + 1;
261 if (flags & MB_USEGLYPHCHARS) FIXME("MB_USEGLYPHCHARS not supported\n");
266 FIXME("UTF not supported\n");
267 SetLastError( ERROR_CALL_NOT_IMPLEMENTED );
270 ret = utf8_mbstowcs( flags, src, srclen, dst, dstlen );
273 if (!(table = get_codepage_table( page )))
275 SetLastError( ERROR_INVALID_PARAMETER );
278 ret = cp_mbstowcs( table, flags, src, srclen, dst, dstlen );
286 case -1: SetLastError( ERROR_INSUFFICIENT_BUFFER ); break;
287 case -2: SetLastError( ERROR_NO_UNICODE_TRANSLATION ); break;
295 /***********************************************************************
296 * WideCharToMultiByte (KERNEL32.@)
299 * page [in] Codepage character set to convert to
300 * flags [in] Character mapping flags
301 * src [in] Source string buffer
302 * srclen [in] Length of source string buffer
303 * dst [in] Destination buffer
304 * dstlen [in] Length of destination buffer
305 * defchar [in] Default character to use for conversion if no exact
306 * conversion can be made
307 * used [out] Set if default character was used in the conversion
310 * The returned length includes the null terminator character.
313 * Success: If dstlen > 0, number of characters written to destination
314 * buffer. If dstlen == 0, number of characters needed to do
316 * Failure: 0. Occurs if not enough space is available.
319 * ERROR_INSUFFICIENT_BUFFER
320 * ERROR_INVALID_PARAMETER
322 INT WINAPI WideCharToMultiByte( UINT page, DWORD flags, LPCWSTR src, INT srclen,
323 LPSTR dst, INT dstlen, LPCSTR defchar, BOOL *used )
325 const union cptable *table;
328 if (!src || (!dst && dstlen))
330 SetLastError( ERROR_INVALID_PARAMETER );
334 if (srclen == -1) srclen = strlenW(src) + 1;
339 FIXME("UTF-7 not supported\n");
340 SetLastError( ERROR_CALL_NOT_IMPLEMENTED );
343 ret = utf8_wcstombs( src, srclen, dst, dstlen );
346 if (!(table = get_codepage_table( page )))
348 SetLastError( ERROR_INVALID_PARAMETER );
351 ret = cp_wcstombs( table, flags, src, srclen, dst, dstlen,
352 defchar, used ? &used_tmp : NULL );
353 if (used) *used = used_tmp;
359 SetLastError( ERROR_INSUFFICIENT_BUFFER );
366 /******************************************************************************
367 * GetStringTypeW (KERNEL32.@)
370 BOOL WINAPI GetStringTypeW( DWORD type, LPCWSTR src, INT count, LPWORD chartype )
372 if (count == -1) count = strlenW(src) + 1;
376 while (count--) *chartype++ = get_char_typeW( *src++ ) & 0xfff;
379 while (count--) *chartype++ = get_char_typeW( *src++ ) >> 12;
382 FIXME("CT_CTYPE3 not supported.\n");
384 SetLastError( ERROR_INVALID_PARAMETER );
391 /******************************************************************************
392 * GetStringTypeExW (KERNEL32.@)
394 BOOL WINAPI GetStringTypeExW( LCID locale, DWORD type, LPCWSTR src, INT count, LPWORD chartype )
396 /* locale is ignored for Unicode */
397 return GetStringTypeW( type, src, count, chartype );