memory/codepage.c

   1 /*
   2  * Code page functions
   3  *
   4  * Copyright 2000 Alexandre Julliard
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <assert.h>
  22 #include <stdio.h>
  23 #include <stdlib.h>
  24 #include <string.h>
  25
  26 #include "winbase.h"
  27 #include "winerror.h"
  28 #include "winnls.h"
  29 #include "wine/unicode.h"
  30 #include "thread.h"
  31 #include "wine/debug.h"
  32
  33 WINE_DEFAULT_DEBUG_CHANNEL(string);
  34
  35 /* current code pages */
  36 static const union cptable *ansi_cptable;
  37 static const union cptable *oem_cptable;
  38 static const union cptable *mac_cptable;
  39 static LCID default_lcid = MAKELCID( MAKELANGID(LANG_ENGLISH,SUBLANG_DEFAULT), SORT_DEFAULT );
  40
  41 /* setup default codepage info before we can get at the locale stuff */
  42 static void init_codepages(void)
  43 {
  44     ansi_cptable = cp_get_table( 1252 );
  45     oem_cptable  = cp_get_table( 437 );
  46     mac_cptable  = cp_get_table( 10000 );
  47     assert( ansi_cptable );
  48     assert( oem_cptable );
  49     assert( mac_cptable );
  50 }
  51
  52 /* find the table for a given codepage, handling CP_ACP etc. pseudo-codepages */
  53 static const union cptable *get_codepage_table( unsigned int codepage )
  54 {
  55     const union cptable *ret = NULL;
  56
  57     if (!ansi_cptable) init_codepages();
  58
  59     switch(codepage)
  60     {
  61     case CP_ACP:
  62         return ansi_cptable;
  63     case CP_OEMCP:
  64         return oem_cptable;
  65     case CP_MACCP:
  66         return mac_cptable;
  67     case CP_UTF7:
  68     case CP_UTF8:
  69         break;
  70     case CP_THREAD_ACP:
  71         if (!(codepage = NtCurrentTeb()->code_page)) return ansi_cptable;
  72         /* fall through */
  73     default:
  74         if (codepage == ansi_cptable->info.codepage) return ansi_cptable;
  75         if (codepage == oem_cptable->info.codepage) return oem_cptable;
  76         if (codepage == mac_cptable->info.codepage) return mac_cptable;
  77         ret = cp_get_table( codepage );
  78         break;
  79     }
  80     return ret;
  81 }
  82
  83 /* initialize default code pages from locale info */
  84 /* FIXME: should be done in init_codepages, but it can't right now */
  85 /* since it needs KERNEL32 to be loaded for the locale info. */
  86 void CODEPAGE_Init( UINT ansi, UINT oem, UINT mac, LCID lcid )
  87 {
  88     extern void __wine_init_codepages( const union cptable *ansi, const union cptable *oem );
  89     const union cptable *table;
  90
  91     default_lcid = lcid;
  92     if (!ansi_cptable) init_codepages();  /* just in case */
  93
  94     if ((table = cp_get_table( ansi ))) ansi_cptable = table;
  95     if ((table = cp_get_table( oem ))) oem_cptable = table;
  96     if ((table = cp_get_table( mac ))) mac_cptable = table;
  97     __wine_init_codepages( ansi_cptable, oem_cptable );
  98
  99     TRACE( "ansi=%03d oem=%03d mac=%03d\n", ansi_cptable->info.codepage,
 100            oem_cptable->info.codepage, mac_cptable->info.codepage );
 101 }
 102
 103 /******************************************************************************
 104  *              GetACP   (KERNEL32.@)
 105  *
 106  * RETURNS
 107  *    Current ANSI code-page identifier, default if no current defined
 108  */
 109 UINT WINAPI GetACP(void)
 110 {
 111     if (!ansi_cptable) return 1252;
 112     return ansi_cptable->info.codepage;
 113 }
 114
 115
 116 /***********************************************************************
 117  *              GetOEMCP   (KERNEL32.@)
 118  */
 119 UINT WINAPI GetOEMCP(void)
 120 {
 121     if (!oem_cptable) return 437;
 122     return oem_cptable->info.codepage;
 123 }
 124
 125
 126 /***********************************************************************
 127  *           IsValidCodePage   (KERNEL32.@)
 128  */
 129 BOOL WINAPI IsValidCodePage( UINT codepage )
 130 {
 131     switch(codepage) {
 132     case CP_SYMBOL:
 133         return FALSE;
 134     case CP_UTF7:
 135     case CP_UTF8:
 136         return TRUE;
 137     default:
 138         return cp_get_table( codepage ) != NULL;
 139     }
 140 }
 141
 142
 143 /***********************************************************************
 144  *              GetUserDefaultLangID (KERNEL32.@)
 145  */
 146 LANGID WINAPI GetUserDefaultLangID(void)
 147 {
 148     return LANGIDFROMLCID(default_lcid);
 149 }
 150
 151
 152 /***********************************************************************
 153  *              GetSystemDefaultLangID (KERNEL32.@)
 154  */
 155 LANGID WINAPI GetSystemDefaultLangID(void)
 156 {
 157     return GetUserDefaultLangID();
 158 }
 159
 160
 161 /***********************************************************************
 162  *              GetUserDefaultLCID (KERNEL32.@)
 163  */
 164 LCID WINAPI GetUserDefaultLCID(void)
 165 {
 166     return default_lcid;
 167 }
 168
 169
 170 /***********************************************************************
 171  *              GetSystemDefaultLCID (KERNEL32.@)
 172  */
 173 LCID WINAPI GetSystemDefaultLCID(void)
 174 {
 175     return GetUserDefaultLCID();
 176 }
 177
 178
 179 /***********************************************************************
 180  *              GetUserDefaultUILanguage (KERNEL32.@)
 181  */
 182 LANGID WINAPI GetUserDefaultUILanguage(void)
 183 {
 184     return GetUserDefaultLangID();
 185 }
 186
 187
 188 /***********************************************************************
 189  *              GetSystemDefaultUILanguage (KERNEL32.@)
 190  */
 191 LANGID WINAPI GetSystemDefaultUILanguage(void)
 192 {
 193     return GetSystemDefaultLangID();
 194 }
 195
 196
 197 /***********************************************************************
 198  *           IsDBCSLeadByteEx   (KERNEL32.@)
 199  */
 200 BOOL WINAPI IsDBCSLeadByteEx( UINT codepage, BYTE testchar )
 201 {
 202     const union cptable *table = get_codepage_table( codepage );
 203     return table && is_dbcs_leadbyte( table, testchar );
 204 }
 205
 206
 207 /***********************************************************************
 208  *           IsDBCSLeadByte   (KERNEL32.@)
 209  *           IsDBCSLeadByte   (KERNEL.207)
 210  */
 211 BOOL WINAPI IsDBCSLeadByte( BYTE testchar )
 212 {
 213     if (!ansi_cptable) return FALSE;
 214     return is_dbcs_leadbyte( ansi_cptable, testchar );
 215 }
 216
 217
 218 /***********************************************************************
 219  *           GetCPInfo   (KERNEL32.@)
 220  */
 221 BOOL WINAPI GetCPInfo( UINT codepage, LPCPINFO cpinfo )
 222 {
 223     const union cptable *table = get_codepage_table( codepage );
 224
 225     if (!table)
 226     {
 227         SetLastError( ERROR_INVALID_PARAMETER );
 228         return FALSE;
 229     }
 230     if (table->info.def_char & 0xff00)
 231     {
 232         cpinfo->DefaultChar[0] = table->info.def_char & 0xff00;
 233         cpinfo->DefaultChar[1] = table->info.def_char & 0x00ff;
 234     }
 235     else
 236     {
 237         cpinfo->DefaultChar[0] = table->info.def_char & 0xff;
 238         cpinfo->DefaultChar[1] = 0;
 239     }
 240     if ((cpinfo->MaxCharSize = table->info.char_size) == 2)
 241         memcpy( cpinfo->LeadByte, table->dbcs.lead_bytes, sizeof(cpinfo->LeadByte) );
 242     else
 243         cpinfo->LeadByte[0] = cpinfo->LeadByte[1] = 0;
 244
 245     return TRUE;
 246 }
 247
 248
 249 /***********************************************************************
 250  *              EnumSystemCodePagesA   (KERNEL32.@)
 251  */
 252 BOOL WINAPI EnumSystemCodePagesA( CODEPAGE_ENUMPROCA lpfnCodePageEnum, DWORD flags )
 253 {
 254     const union cptable *table;
 255     char buffer[10];
 256     int index = 0;
 257
 258     for (;;)
 259     {
 260         if (!(table = cp_enum_table( index++ ))) break;
 261         sprintf( buffer, "%d", table->info.codepage );
 262         if (!lpfnCodePageEnum( buffer )) break;
 263     }
 264     return TRUE;
 265 }
 266
 267
 268 /***********************************************************************
 269  *              EnumSystemCodePagesW   (KERNEL32.@)
 270  */
 271 BOOL WINAPI EnumSystemCodePagesW( CODEPAGE_ENUMPROCW lpfnCodePageEnum, DWORD flags )
 272 {
 273     const union cptable *table;
 274     WCHAR buffer[10], *p;
 275     int page, index = 0;
 276
 277     for (;;)
 278     {
 279         if (!(table = cp_enum_table( index++ ))) break;
 280         p = buffer + sizeof(buffer)/sizeof(WCHAR);
 281         *--p = 0;
 282         page = table->info.codepage;
 283         do
 284         {
 285             *--p = '0' + (page % 10);
 286             page /= 10;
 287         } while( page );
 288         if (!lpfnCodePageEnum( p )) break;
 289     }
 290     return TRUE;
 291 }
 292
 293
 294 /***********************************************************************
 295  *              MultiByteToWideChar   (KERNEL32.@)
 296  *
 297  * PARAMS
 298  *   page [in]    Codepage character set to convert from
 299  *   flags [in]   Character mapping flags
 300  *   src [in]     Source string buffer
 301  *   srclen [in]  Length of source string buffer
 302  *   dst [in]     Destination buffer
 303  *   dstlen [in]  Length of destination buffer
 304  *
 305  * NOTES
 306  *   The returned length includes the null terminator character.
 307  *
 308  * RETURNS
 309  *   Success: If dstlen > 0, number of characters written to destination
 310  *            buffer.  If dstlen == 0, number of characters needed to do
 311  *            conversion.
 312  *   Failure: 0. Occurs if not enough space is available.
 313  *
 314  * ERRORS
 315  *   ERROR_INSUFFICIENT_BUFFER
 316  *   ERROR_INVALID_PARAMETER
 317  *   ERROR_NO_UNICODE_TRANSLATION
 318  *
 319  */
 320 INT WINAPI MultiByteToWideChar( UINT page, DWORD flags, LPCSTR src, INT srclen,
 321                                 LPWSTR dst, INT dstlen )
 322 {
 323     const union cptable *table;
 324     int ret;
 325
 326     if (!src || (!dst && dstlen))
 327     {
 328         SetLastError( ERROR_INVALID_PARAMETER );
 329         return 0;
 330     }
 331
 332     if (srclen < 0) srclen = strlen(src) + 1;
 333
 334     if (flags & MB_USEGLYPHCHARS) FIXME("MB_USEGLYPHCHARS not supported\n");
 335
 336     switch(page)
 337     {
 338     case CP_UTF7:
 339         FIXME("UTF not supported\n");
 340         SetLastError( ERROR_CALL_NOT_IMPLEMENTED );
 341         return 0;
 342     case CP_UTF8:
 343         ret = utf8_mbstowcs( flags, src, srclen, dst, dstlen );
 344         break;
 345     default:
 346         if (!(table = get_codepage_table( page )))
 347         {
 348             SetLastError( ERROR_INVALID_PARAMETER );
 349             return 0;
 350         }
 351         ret = cp_mbstowcs( table, flags, src, srclen, dst, dstlen );
 352         break;
 353     }
 354
 355     if (ret < 0)
 356     {
 357         switch(ret)
 358         {
 359         case -1: SetLastError( ERROR_INSUFFICIENT_BUFFER ); break;
 360         case -2: SetLastError( ERROR_NO_UNICODE_TRANSLATION ); break;
 361         }
 362         ret = 0;
 363     }
 364     return ret;
 365 }
 366
 367
 368 /***********************************************************************
 369  *              WideCharToMultiByte   (KERNEL32.@)
 370  *
 371  * PARAMS
 372  *   page [in]    Codepage character set to convert to
 373  *   flags [in]   Character mapping flags
 374  *   src [in]     Source string buffer
 375  *   srclen [in]  Length of source string buffer
 376  *   dst [in]     Destination buffer
 377  *   dstlen [in]  Length of destination buffer
 378  *   defchar [in] Default character to use for conversion if no exact
 379  *                  conversion can be made
 380  *   used [out]   Set if default character was used in the conversion
 381  *
 382  * NOTES
 383  *   The returned length includes the null terminator character.
 384  *
 385  * RETURNS
 386  *   Success: If dstlen > 0, number of characters written to destination
 387  *            buffer.  If dstlen == 0, number of characters needed to do
 388  *            conversion.
 389  *   Failure: 0. Occurs if not enough space is available.
 390  *
 391  * ERRORS
 392  *   ERROR_INSUFFICIENT_BUFFER
 393  *   ERROR_INVALID_PARAMETER
 394  */
 395 INT WINAPI WideCharToMultiByte( UINT page, DWORD flags, LPCWSTR src, INT srclen,
 396                                 LPSTR dst, INT dstlen, LPCSTR defchar, BOOL *used )
 397 {
 398     const union cptable *table;
 399     int ret, used_tmp;
 400
 401     if (!src || (!dst && dstlen))
 402     {
 403         SetLastError( ERROR_INVALID_PARAMETER );
 404         return 0;
 405     }
 406
 407     if (srclen < 0) srclen = strlenW(src) + 1;
 408
 409     switch(page)
 410     {
 411     case CP_UTF7:
 412         FIXME("UTF-7 not supported\n");
 413         SetLastError( ERROR_CALL_NOT_IMPLEMENTED );
 414         return 0;
 415     case CP_UTF8:
 416         ret = utf8_wcstombs( src, srclen, dst, dstlen );
 417         break;
 418     default:
 419         if (!(table = get_codepage_table( page )))
 420         {
 421             SetLastError( ERROR_INVALID_PARAMETER );
 422             return 0;
 423         }
 424         ret = cp_wcstombs( table, flags, src, srclen, dst, dstlen,
 425                            defchar, used ? &used_tmp : NULL );
 426         if (used) *used = used_tmp;
 427         break;
 428     }
 429
 430     if (ret == -1)
 431     {
 432         SetLastError( ERROR_INSUFFICIENT_BUFFER );
 433         ret = 0;
 434     }
 435     return ret;
 436 }