sal/osl/w32/nlsupport.c

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29 #define UNICODE
  30 #ifdef _MSC_VER
  31 #pragma warning(push,1) /* disable warnings within system headers */
  32 #endif
  33 #include <windows.h>
  34 #ifdef _MSC_VER
  35 #pragma warning(pop)
  36 #endif
  37 #include <wchar.h>
  38
  39 #include <osl/mutex.h>
  40 #include <osl/nlsupport.h>
  41 #include <osl/diagnose.h>
  42 #include <osl/process.h>
  43 #include <rtl/tencinfo.h>
  44
  45 struct EnumLocalesParams
  46 {
  47     WCHAR Language[3];
  48     WCHAR Country[3];
  49     LCID  Locale;
  50 };
  51
  52 static DWORD g_dwTLSLocaleEncId = (DWORD) -1;
  53
  54 /*****************************************************************************
  55  * callback function test
  56  *
  57  * osl_getTextEncodingFromLocale calls EnumSystemLocalesA, so that we don't
  58  * need to provide a unicode wrapper for this function under Win9x
  59  * that means the callback function has an ansi prototype and receives
  60  * the locale strings as ansi strings
  61  *****************************************************************************/
  62
  63 BOOL CALLBACK EnumLocalesProcA( LPSTR lpLocaleStringA )
  64 {
  65     struct EnumLocalesParams * params;
  66
  67     LCID  localeId;
  68     LPSTR pszEndA;
  69
  70     WCHAR langCode[4];
  71
  72     /* convert hex-string to LCID */
  73     localeId = strtol( lpLocaleStringA, &pszEndA, 16 );
  74
  75     /* check params received via TLS */
  76     params = (struct EnumLocalesParams *) TlsGetValue( g_dwTLSLocaleEncId );
  77     if( NULL == params || '\0' == params->Language[0] )
  78         return FALSE;
  79
  80     /*
  81         get the ISO language code for this locale
  82
  83         remeber: we call the GetLocaleInfoW function
  84         because the ansi version of this function returns
  85         an error under WinNT/2000 when called with an
  86         unicode only lcid
  87     */
  88     if( GetLocaleInfo( localeId, LOCALE_SISO639LANGNAME , langCode, 4 ) )
  89     {
  90         WCHAR ctryCode[4];
  91
  92         /* continue if language code does not match */
  93         if( 0 != wcscmp( langCode, params->Language ) )
  94             return TRUE;
  95
  96         /* check if country code is set and equals the current locale */
  97         if( '\0' != params->Country[0] && GetLocaleInfo( localeId, LOCALE_SISO3166CTRYNAME , ctryCode, 4 ) )
  98         {
  99             /* save return value in TLS and break if  found desired locale */
 100             if( 0 == wcscmp( ctryCode, params->Country ) )
 101             {
 102                 params->Locale = localeId;
 103                 return FALSE;
 104             }
 105         }
 106         else
 107         {
 108             /* fill with default values for that language */
 109             LANGID langId = LANGIDFROMLCID( localeId );
 110
 111             /* exchange sublanguage with SUBLANG_NEUTRAL */
 112             langId = MAKELANGID( PRIMARYLANGID( langId ), SUBLANG_NEUTRAL );
 113
 114             /* and use default sorting order */
 115             params->Locale = MAKELCID( langId, SORT_DEFAULT );
 116
 117             return FALSE;
 118         }
 119     }
 120
 121     /* retry by going on */
 122     return TRUE;
 123 }
 124
 125
 126 /*****************************************************************************
 127  * GetTextEncodingFromLCID
 128  *****************************************************************************/
 129
 130 rtl_TextEncoding GetTextEncodingFromLCID( LCID localeId )
 131 {
 132     rtl_TextEncoding Encoding = RTL_TEXTENCODING_DONTKNOW;
 133     WCHAR ansiCP[6];
 134
 135     /* query ansi codepage for given locale */
 136     if( localeId && GetLocaleInfo( localeId, LOCALE_IDEFAULTANSICODEPAGE, ansiCP, 6 ) )
 137     {
 138         /* if GetLocaleInfo returns "0", it is a UNICODE only locale */
 139         if( 0 != wcscmp( ansiCP, L"0" ) )
 140         {
 141             WCHAR *pwcEnd;
 142             UINT  codepage;
 143
 144             /* values returned from GetLocaleInfo are dezimal based */
 145             codepage = wcstol( ansiCP, &pwcEnd, 10 );
 146
 147             /* find matching rtl encoding */
 148             Encoding = rtl_getTextEncodingFromWindowsCodePage( codepage );
 149         }
 150         else
 151             Encoding = RTL_TEXTENCODING_UNICODE;
 152     }
 153
 154     return Encoding;
 155 }
 156
 157
 158 /*****************************************************************************
 159  * osl_getTextEncodingFromLocale
 160  *****************************************************************************/
 161
 162 rtl_TextEncoding SAL_CALL osl_getTextEncodingFromLocale( rtl_Locale * pLocale )
 163 {
 164     struct EnumLocalesParams params = { L"", L"", 0 };
 165
 166     /* initialise global TLS id */
 167     if( (DWORD) -1 == g_dwTLSLocaleEncId )
 168     {
 169         oslMutex globalMutex = * osl_getGlobalMutex();
 170
 171         /* initializing must be thread save */
 172         osl_acquireMutex( globalMutex );
 173
 174         if( (DWORD) -1 == g_dwTLSLocaleEncId )
 175             g_dwTLSLocaleEncId = TlsAlloc();
 176
 177         osl_releaseMutex( globalMutex );
 178     }
 179
 180     /* if pLocale is NULL, use process locale as default */
 181     if( NULL == pLocale )
 182         osl_getProcessLocale( &pLocale );
 183
 184     /* copy in parameters to structure */
 185     if( pLocale && pLocale->Language )
 186     {
 187         wcscpy( params.Language, pLocale->Language->buffer );
 188
 189         if( pLocale->Country )
 190             wcscpy( params.Country, pLocale->Country->buffer );
 191
 192         /* save pointer to local structure in TLS */
 193         TlsSetValue( g_dwTLSLocaleEncId, &params );
 194
 195         /* enum all locales known to Windows */
 196         EnumSystemLocalesA( EnumLocalesProcA, LCID_SUPPORTED );
 197
 198         /* use the LCID found in iteration */
 199         return GetTextEncodingFromLCID( params.Locale );
 200     }
 201
 202     return RTL_TEXTENCODING_DONTKNOW;
 203 }
 204
 205 /*****************************************************************************
 206  * imp_getProcessLocale
 207  *****************************************************************************/
 208
 209 void _imp_getProcessLocale( rtl_Locale ** ppLocale )
 210 {
 211     WCHAR langCode[4];
 212     WCHAR ctryCode[4];
 213     LCID  localeId;
 214
 215     OSL_ASSERT( ppLocale );
 216
 217     /* get the LCID to retrieve information from */
 218     localeId = GetUserDefaultLCID();
 219
 220     /* call GetLocaleInfo to retrieve the iso codes */
 221     if( GetLocaleInfo( localeId, LOCALE_SISO639LANGNAME , langCode, 4 )  &&
 222         GetLocaleInfo( localeId, LOCALE_SISO3166CTRYNAME , ctryCode, 4 ) )
 223     {
 224         *ppLocale = rtl_locale_register( langCode, ctryCode, L"" );
 225     }
 226     else
 227     {
 228         *ppLocale = rtl_locale_register( L"C", L"", L"" );
 229     }
 230 }
 231
 232
 233 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */