Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

629 lines
18 KiB

//+---------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992 - 1998.
//
// File: langres.cxx
//
// Contents: Interacts with the registry to obtain locale specific info.
//
// Classes: CLangRes class
//
// History: 2-14-97 mohamedn created
//
//----------------------------------------------------------------------------
#include <pch.cxx>
#pragma hdrstop
#include <defbreak.hxx>
#include <lang.hxx>
#include <ciole.hxx>
#include <ciregkey.hxx>
#include <langres.hxx>
#include "isreg.hxx"
//+---------------------------------------------------------------------------
//
// Class: CLangReg
//
// Purpose: maintains lang. specific info for the passed in locale id.
//
// History: 29-Aug-94 SitaramR Created.
// 17 Apr 98 mohamedn Switched from callback and doesn't
// depend on InstalledLangs key.
//
//----------------------------------------------------------------------------
class CLangReg
{
public:
CLangReg( LCID locale );
//
// For matching locale or language
//
BOOL LocaleFound() const { return _fLocaleFound; }
BOOL LangFound() const { return _fLangFound; }
WCHAR *GetWBreakerClass() { return _wszWBreakerClass; }
WCHAR *GetStemmerClass() { return _wszStemmerClass; }
WCHAR *GetNoiseFile() { return _wszNoiseFile; }
private:
void EnumLangEntries(void);
void GetLangInfo(DWORD dwLocale, CWin32RegAccess & langKey);
BOOL FillLangInfo( CWin32RegAccess & regLang );
BOOL PrimaryLangsMatch( LCID lcid1, LCID lcid2 )
{
//
// Do the primary languages of the two lcids match ?
//
return( PRIMARYLANGID( LANGIDFROMLCID( lcid1 ) )
== PRIMARYLANGID( LANGIDFROMLCID( lcid2 ) ) );
}
LCID _locale;
BOOL _fLocaleFound; // exact match with locale found
BOOL _fLangFound; // primary language match
WCHAR _wszWBreakerClass[MAX_REG_STR_LEN];
WCHAR _wszStemmerClass[MAX_REG_STR_LEN];
WCHAR _wszNoiseFile[MAX_PATH];
};
//+-------------------------------------------------------------------------
//
// Method: CLangReg::CLangReg
//
// Arguments: [locale] -- current locale
//
// History: 29-Aug-94 SitaramR Created.
//
//--------------------------------------------------------------------------
CLangReg::CLangReg( LCID locale )
: _locale(locale),
_fLocaleFound( FALSE ),
_fLangFound( FALSE )
{
EnumLangEntries();
}
//+-------------------------------------------------------------------------
//
// Method: EnumLangEntries, private
//
// Synopsis: enumerates CI lang subkeys.
//
// Arguments: none.
//
// Returns: none. sets internal values.
//
// History: 4/17/98 mohamedn created
//
//--------------------------------------------------------------------------
void CLangReg::EnumLangEntries(void)
{
CWin32RegAccess langKey ( HKEY_LOCAL_MACHINE, wcsRegAdminLanguage );
WCHAR wcsSubKeyName[MAX_PATH+1];
DWORD cwcName = sizeof wcsSubKeyName / sizeof WCHAR;
while ( !_fLocaleFound && langKey.Enum( wcsSubKeyName, cwcName ) )
{
CWin32RegAccess langSubKey( langKey.GetHKey() , wcsSubKeyName );
DWORD dwLocaleId = 0;
if ( langSubKey.Get( L"Locale", dwLocaleId ) )
{
GetLangInfo( dwLocaleId, langSubKey );
}
}
}
//+-------------------------------------------------------------------------
//
// Method: GetLangInfo, private
//
// Synopsis: Gets language values from registry lang key.
//
// Arguments: [pwszLangKey] -- language key to retrieve values from.
//
// Returns: none. sets internal flags.
//
// History: 4/17/98 mohamedn created
//
//--------------------------------------------------------------------------
void CLangReg::GetLangInfo(DWORD dwLocale, CWin32RegAccess & regLang)
{
if ( dwLocale == _locale )
{
_fLocaleFound = FillLangInfo( regLang );
}
else if ( !_fLangFound && PrimaryLangsMatch( dwLocale, _locale ) )
{
//
// Approximate match with same primary language
//
_fLangFound = FillLangInfo( regLang );
}
}
//+-------------------------------------------------------------------------
//
// Method: FillLangInfo, private
//
// Synopsis: fills internal members with lang values from lang. subkey
//
// Arguments: [regLang] -- reference to open lang key
//
// Returns: TRUE if succeeded, FALSE otherwise.
//
// History: 4/17/98 mohamedn created
//
//--------------------------------------------------------------------------
BOOL CLangReg::FillLangInfo( CWin32RegAccess & regLang )
{
BOOL fRetVal1 = FALSE;
BOOL fRetVal2 = FALSE;
BOOL fRetVal3 = FALSE;
fRetVal1 = regLang.Get( L"WBreakerClass", _wszWBreakerClass,
sizeof (_wszWBreakerClass)/sizeof (_wszWBreakerClass[0]) );
fRetVal2 = regLang.Get( L"StemmerClass", _wszStemmerClass,
sizeof (_wszStemmerClass)/sizeof (_wszStemmerClass[0]) );
fRetVal3 = regLang.Get( L"NoiseFile", _wszNoiseFile,
sizeof (_wszNoiseFile)/sizeof (_wszNoiseFile[0]) );
BOOL fRetVal = ( fRetVal1 || fRetVal2 || fRetVal3 );
if ( ! fRetVal )
{
ciDebugOut(( DEB_ERROR, "CLangRes::FillLangInfo() Failed\n" ));
}
return fRetVal;
}
//+---------------------------------------------------------------------------
//
// Member: CLangRes::GetNoiseWordList
//
// Synopsis: provides an IStream interface to the noise word list given
// a locale and pid
//
// arguments: [locale] [in] locale
// [pid] [in] property id
// [ppIStrmNoiseFile] [out]IStream interface to the noise word list.
//
// returns: S_OK noise file found
// CI_E_NOT_FOUND no noise file found
// CI_E_USE_DEFAULT_PID only default pid is supported
//
// History: 15-Aug-94 SitaramR Renamed GetLang to BorrowLang and
// added code to look up registry.
// 2-14-97 mohamedn used to be in CLangList::BorrorwLang
//
//----------------------------------------------------------------------------
SCODE CLangRes::GetNoiseWordList( LCID locale,
PROPID pid,
IStream **ppIStrmNoiseFile)
{
//
// we only support default pid, except for Filename
//
if ( pid != CI_DEFAULT_PID )
{
if ( pidName == pid || pidRevName == pid )
{
*ppIStrmNoiseFile = 0;
return S_OK;
}
else
return CI_E_USE_DEFAULT_PID;
}
//
// default to no noise file found
//
LANGID langid = LANGIDFROMLCID(locale);
SCODE sc = CI_E_NOT_FOUND;
*ppIStrmNoiseFile = 0;
//
// Try to bind to language object by looking up registry
//
CLangReg langReg( langid );
TRY
{
if ( langReg.LocaleFound() || langReg.LangFound() )
{
const WCHAR * pwszNoiseFile = langReg.GetNoiseFile();
*ppIStrmNoiseFile = _GetIStrmNoiseFile( pwszNoiseFile );
sc = S_OK;
}
}
CATCH ( CException, e )
{
ciDebugOut (( DEB_ERROR,
"Exception 0x%x caught: Failed to get IStrmNoiseFile for langId(0x%x)\n",
e.GetErrorCode(), langid ));
sc = e.GetErrorCode();
}
END_CATCH;
return sc;
}
//+---------------------------------------------------------------------------
//
// Member: CLangRes::_GetIStrmNoiseFile, private static
//
// Synopsis: provides an IStream interface given noise file name
//
// Arguments: [pwszNoiseFile] -- [in] noise file name
//
// Returns: IStream* -- IStream interface to the noise file.
// Throws value of GetLastError() upon failure.
//
// History: 2-14-97 mohamedn created
//
// Notes:
//----------------------------------------------------------------------------
IStream *CLangRes::_GetIStrmNoiseFile(const WCHAR *pwszNoiseFile )
{
SCODE sc = S_OK;
IStream *pIStrmNoiseFile = 0;
Win4Assert( pwszNoiseFile );
WCHAR wszNoisePath[MAX_PATH];
if ( (pwszNoiseFile[0] != L'\\' || pwszNoiseFile[1] != L'\\') &&
(! *pwszNoiseFile || pwszNoiseFile[1] != L':' || pwszNoiseFile[2] != L'\\') )
{
//
// Form full path of noise file
//
const ULONG cchBufSize = sizeof wszNoisePath/sizeof wszNoisePath[0];
ULONG len = GetSystemDirectory( wszNoisePath, cchBufSize );
if (len == 0 || len >= (cchBufSize-1))
{
sc = GetLastError();
ciDebugOut (( DEB_ERROR,
"CLangRes: GetSystemDirectory(%ws) failed: %x\n",
wszNoisePath, sc ));
THROW ( CException(sc) );
}
if ( wszNoisePath[len-1] != L'\\' )
{
wszNoisePath[len] = L'\\';
len++;
wszNoisePath[len] = L'\0';
}
if ( (len + wcslen( pwszNoiseFile ) + 1) >= cchBufSize )
{
ciDebugOut (( DEB_ERROR,
"CLangRes: Noise word file path too long: %ws\n",
pwszNoiseFile ));
THROW ( CException( CI_E_BUFFERTOOSMALL ) );
}
}
else
{
wszNoisePath[0] = L'\0';
}
wcscat( wszNoisePath, pwszNoiseFile );
ciDebugOut(( DEB_ITRACE,
"Obtaining IStrmNoiseFile to file = %ws\n", wszNoisePath ));
//
// open noise file, and obtain its IStream
//
HANDLE hFile = CreateFile( wszNoisePath,
GENERIC_READ,
FILE_SHARE_READ,
0,
OPEN_EXISTING,
0,
0 );
if ( INVALID_HANDLE_VALUE == hFile )
{
ciDebugOut (( DEB_ERROR, "CreateFile(%ws) failed: %x\n",
wszNoisePath, sc = GetLastError() ));
THROW ( CException(sc) );
}
SWin32Handle xhFile(hFile);
ULONG cb = GetFileSize( hFile, NULL );
if ( cb == 0xffffffff )
{
THROW( CException( sc = GetLastError() ) );
}
HGLOBAL hg = GlobalAlloc( GMEM_MOVEABLE | GMEM_NODISCARD, cb );
if ( NULL == hg )
{
THROW( CException( sc = GetLastError() ) );
}
// store it in smart pointer to enable freeing in case of a THROW.
// Upon success, it will be freed when pIStrmNoiseFile is freed.
XGlobalAllocMem xGlobalMem(hg);
void * pb = GlobalLock( hg );
if ( NULL == pb )
{
THROW( CException( sc = GetLastError() ));
}
ULONG cbRead;
BOOL fErr = ReadFile( hFile, pb, cb, &cbRead, 0 );
if ( 0 == fErr )
{
THROW( CException( sc = GetLastError() ));
}
fErr = GlobalUnlock( hg );
if ( 0 == fErr && GetLastError() != NO_ERROR )
{
THROW( CException( sc = GetLastError() ));
}
sc = CreateStreamOnHGlobal( hg, //Memory handle for the stream object
TRUE, //Whether to free memory when the object is released
&pIStrmNoiseFile ); //Indirect pointer to the new stream object
if ( FAILED(sc) )
{
THROW( CException(sc) );
}
//
// will be freed when pIStrmNoiseFile is released.
//
xGlobalMem.Acquire();
return pIStrmNoiseFile;
}
//+---------------------------------------------------------------------------
//
// Member: CLangRes::GetWordBreaker
//
// Synopsis: provides an IWordBreaker interface after scanning the registry.
//
// arguments: [locale] [in] locale
// [pid] [in] property id
// [ppwbBreaker] [out]IWordBreaker interface
//
// returns: S_OK valid IWordBreaker is returned
// CI_E_NOT_FOUND no IWordBreaker found - use default
// CI_E_USE_DEFAULT_PID only default pid is supported
//
// History: 15-Aug-94 SitaramR Renamed GetLang to BorrowLang and
// added code to look up registry.
// 2-14-97 mohamedn Used to be in CLangList::BorrorwLang
//
//----------------------------------------------------------------------------
SCODE CLangRes::GetWordBreaker( LCID locale,
PROPID pid,
IWordBreaker ** ppwbBreaker )
{
//
// we only support default pid, except for Filename
//
if ( pid != CI_DEFAULT_PID )
{
if ( pidName == pid || pidRevName == pid )
locale = LOCALE_NEUTRAL;
else
return CI_E_USE_DEFAULT_PID;
}
LANGID langid = LANGIDFROMLCID(locale);
//
// default to no word breaker found
//
XInterface<IWordBreaker> xWBreak;
SCODE sc = CI_E_NOT_FOUND;
//
// Try to bind to language object by looking up registry
//
CLangReg langReg( langid );
TRY
{
GUID guidClass;
if ( ( langReg.LocaleFound() || langReg.LangFound() ) &&
wcscmp( langReg.GetWBreakerClass(), L"" ) != 0 )
{
StringToCLSID( langReg.GetWBreakerClass(), guidClass );
xWBreak.Set( CCiOle::NewWordBreaker( guidClass ) );
if ( !xWBreak.IsNull() )
sc = S_OK;
}
}
CATCH ( CException, e )
{
ciDebugOut (( DEB_ERROR,
"Exception 0x%x caught: no such language (0x%x) found in registry\n",
e.GetErrorCode(), langid ));
sc = e.GetErrorCode();
}
END_CATCH;
//
// set ppwbBreaker to what we found, or null if nothing is found
//
*ppwbBreaker = xWBreak.Acquire();
return sc;
}
//+---------------------------------------------------------------------------
//
// Member: CLangRes::GetStemmer
//
// Synopsis: provides an IStemmer interface after scanning the registry.
//
// arguments: [locale] [in] locale
// [pid] [in] property id
// [ppStemmer] [out]IStemmer interface
//
// returns: S_OK valid IStemmer is returned
// CI_E_NOT_FOUND no IStemmer found
// CI_E_USE_DEFAULT_PID only default pid is supported
//
// History: 15-Aug-94 SitaramR Renamed GetLang to BorrowLang and
// added code to look up registry.
// 2-14-97 mohamedn Used to be in CLangList::BorrorwLang
//
//----------------------------------------------------------------------------
SCODE CLangRes::GetStemmer( LCID locale,
PROPID pid,
IStemmer ** ppStemmer )
{
GUID guidClass;
LANGID langid = LANGIDFROMLCID(locale);
//
// we only support default pid, except for Filename
//
if ( pid != CI_DEFAULT_PID )
{
if ( pidName == pid || pidRevName == pid )
{
*ppStemmer = 0;
return S_OK;
}
else
return CI_E_USE_DEFAULT_PID;
}
//
// default to no stemmer
//
XInterface<IStemmer> _xStemmer;
SCODE sc = CI_E_NOT_FOUND;
//
// Try to bind to language object by looking up registry
//
CLangReg langReg( langid );
TRY
{
if ( langReg.LocaleFound() || langReg.LangFound() )
{
// Is a stemmer available for given langid ?
if ( wcscmp( langReg.GetStemmerClass(), L"" ) != 0 )
{
StringToCLSID( langReg.GetStemmerClass(), guidClass );
_xStemmer.Set( CCiOle::NewStemmer( guidClass ) );
sc = S_OK;
}
}
}
CATCH ( CException, e )
{
ciDebugOut (( DEB_ERROR,
"Exception 0x%x caught: no such language (0x%x) found in registry\n",
e.GetErrorCode(), langid ));
sc = e.GetErrorCode();
}
END_CATCH;
//
// set ppStemmer to what we found, or null if nothing is found
//
*ppStemmer = _xStemmer.Acquire();
return sc;
}
//+-------------------------------------------------------------------------
//
// Method: CLangList::StringToCLSID
//
// Synopsis: Convert string containing CLSID to CLSID
//
// Arguments: [wszClass] -- string containg CLSID
// [guidClass] -- output guid
//
// History: 15-Aug-94 SitaramR Created.
// Algorithm copied from shtole.cxx
//
//--------------------------------------------------------------------------
void CLangRes::StringToCLSID( WCHAR *wszClass, GUID& guidClass )
{
wszClass[9] = 0;
guidClass.Data1 = wcstoul( &wszClass[1], 0, 16 );
wszClass[14] = 0;
guidClass.Data2 = (USHORT)wcstoul( &wszClass[10], 0, 16 );
wszClass[19] = 0;
guidClass.Data3 = (USHORT)wcstoul( &wszClass[15], 0, 16 );
WCHAR wc = wszClass[22];
wszClass[22] = 0;
guidClass.Data4[0] = (unsigned char)wcstoul( &wszClass[20], 0, 16 );
wszClass[22] = wc;
wszClass[24] = 0;
guidClass.Data4[1] = (unsigned char)wcstoul( &wszClass[22], 0, 16 );
for ( int i = 0; i < 6; i++ )
{
wc = wszClass[27+i*2];
wszClass[27+i*2] = 0;
guidClass.Data4[2+i] = (unsigned char)wcstoul( &wszClass[25+i*2], 0, 16 );
wszClass[27+i*2] = wc;
}
}