summaryrefslogtreecommitdiffstats
path: root/private/os2/client/dllnls.c
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--private/os2/client/dllnls.c1116
1 files changed, 1116 insertions, 0 deletions
diff --git a/private/os2/client/dllnls.c b/private/os2/client/dllnls.c
new file mode 100644
index 000000000..884342fac
--- /dev/null
+++ b/private/os2/client/dllnls.c
@@ -0,0 +1,1116 @@
+/*++
+
+Copyright (c) 1989 Microsoft Corporation
+
+Module Name:
+
+ dllnls.c
+
+Abstract:
+
+ This module implements the NLS OS/2 V2.0 API Calls
+
+Author:
+
+ Steve Wood (stevewo) 20-Sep-1989 (Adapted from URTL\alloc.c)
+
+Revision History:
+
+ 3/31/93 - MJarus - Moved the NLS string function for the OS2SS to ssrtl
+
+--*/
+
+
+#define INCL_OS2V20_TASKING
+#define INCL_OS2V20_ERRORS
+#define INCL_OS2V20_NLS
+#include "os2dll.h"
+#include "conrqust.h"
+#include "os2nls.h"
+#include "os2win.h"
+
+ULONG Or2ProcessCodePage;
+ULONG Or2CurrentCodePageIsOem;
+
+extern OD2_COUNTRY_ENTRY OD2_COUNTRY_TABLE[];
+extern OD2_CODEPAGE_ENTRY OD2_CODEPAGE_TABLE[];
+extern OD2_DBCS_VECTOR_ENTRY OD2_DBCS_VECTOR_TABLE[];
+extern OD2_COLLATE_CTRY_ENTRY OD2_COLLATE_CTRY_TABLE[];
+extern PUCHAR OD2_CASEMAP_TABLE[];
+extern PUCHAR OD2_COLLATE_CP_TABLE[];
+extern PUCHAR OD2_FIX_CASEMAP_TABLE[];
+extern UCHAR Od2BaseCaseMapTable[];
+extern UCHAR Od2BaseCollateTable[];
+
+
+
+APIRET
+DosQueryCtryInfo(
+ IN ULONG MaxCountryInfoLength,
+ IN PCOUNTRYCODE CountryCode,
+ OUT PCOUNTRYINFO CountryInfo,
+ OUT PULONG ActualCountryInfoLength
+ )
+{
+ COUNTRYINFO DefaultInformation;
+ APIRET RetCode;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosQueryCtryInfo";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %lu, CP %lu, (current Ctry %lu, CP %lu), Length %lu\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, MaxCountryInfoLength ));
+ }
+#endif
+
+ //
+ // zero buffer. probe parms.
+ //
+
+ try
+ {
+ RtlZeroMemory( (PVOID)CountryInfo, MaxCountryInfoLength );
+ Od2ProbeForRead (CountryCode, sizeof(COUNTRYCODE),1);
+ *ActualCountryInfoLength = 0;
+ }
+ except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = Od2GetCtryInfo(
+ CountryCode->country,
+ CountryCode->codepage,
+ &DefaultInformation
+ );
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = SesGrp->CountryCode;
+ }
+
+ if ( RetCode )
+ {
+ return (RetCode);
+ }
+
+ if (MaxCountryInfoLength < sizeof( COUNTRYINFO ))
+ {
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Table trunc (%lu instead of %lu)\n",
+ FuncName, MaxCountryInfoLength, sizeof( COUNTRYINFO )));
+ }
+#endif
+ *ActualCountryInfoLength = MaxCountryInfoLength;
+ RetCode = ERROR_NLS_TABLE_TRUNCATED;
+ } else
+ {
+ *ActualCountryInfoLength = sizeof( COUNTRYINFO );
+ }
+
+ RtlMoveMemory( (PVOID)CountryInfo,
+ (PVOID)&DefaultInformation,
+ *ActualCountryInfoLength
+ );
+ return (RetCode);
+}
+
+
+APIRET
+DosQueryDBCSEnv(
+ IN ULONG MaxDBCSEvLength,
+ IN PCOUNTRYCODE CountryCode,
+ OUT PCHAR DBCSEv
+ )
+{
+ CHAR LocalDBCSEv[12];
+ APIRET RetCode;
+ ULONG BufLength;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosQueryDBCSEnv";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %lu, CP %lu, (current Ctry %lu, CP %lu), Length %lu\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, MaxDBCSEvLength ));
+ }
+#endif
+
+ //
+ // zero buffer. probe parms.
+ //
+
+ try
+ {
+ Od2ProbeForRead( CountryCode, sizeof(COUNTRYCODE), 1 );
+ RtlZeroMemory( (PVOID)DBCSEv, MaxDBCSEvLength );
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = Od2GetDBCSEv(
+ CountryCode->country,
+ CountryCode->codepage,
+ &LocalDBCSEv[0],
+ &BufLength
+ );
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = SesGrp->CountryCode;
+ }
+
+ if ( RetCode )
+ {
+ return (RetCode);
+ }
+
+ if ( MaxDBCSEvLength < BufLength )
+ {
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Table trunc (%lu instead of %lu)\n",
+ FuncName, MaxDBCSEvLength, BufLength));
+ }
+#endif
+ BufLength = MaxDBCSEvLength;
+ RetCode = ERROR_NLS_TABLE_TRUNCATED;
+ }
+
+ RtlMoveMemory( (PVOID)DBCSEv,
+ (PVOID)LocalDBCSEv,
+ BufLength
+ );
+ return (RetCode);
+}
+
+
+APIRET
+DosMapCase(
+ IN ULONG StringLength,
+ IN PCOUNTRYCODE CountryCode,
+ IN OUT PUCHAR String
+ )
+{
+ UCHAR CaseMapTable[256];
+ ULONG CharNum;
+ APIRET RetCode;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosMapCase";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %lu, CP %lu, (current Ctry %lu, CP %lu), Length %lu, String %c...\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, StringLength, *String ));
+ }
+#endif
+
+ //
+ // probe parms.
+ //
+
+ try
+ {
+ Od2ProbeForRead (CountryCode, sizeof(COUNTRYCODE), 1);
+ Od2ProbeForWrite (String, StringLength, 1);
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = Od2GetCaseMapTable(
+ CountryCode->country,
+ CountryCode->codepage,
+ CaseMapTable);
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = SesGrp->CountryCode;
+ }
+
+ if ( RetCode )
+ {
+ return (RetCode);
+ }
+
+ for ( CharNum = 0 ; CharNum < StringLength ; CharNum++ )
+ {
+#ifdef DBCS
+// MSKK Apr.18.1993 V-AkihiS
+// Support DBCS for DosCaseMap API.
+ if (IsDBCSLeadByte(String[CharNum]))
+ {
+ CharNum++;
+ } else
+ {
+ String[CharNum] = CaseMapTable[String[CharNum]];
+ }
+#else
+ String[CharNum] = CaseMapTable[String[CharNum]];
+#endif
+ }
+ return( NO_ERROR );
+}
+
+
+APIRET
+DosQueryCollate(
+ IN ULONG MaxCollateInfoLength,
+ IN PCOUNTRYCODE CountryCode,
+ OUT PUCHAR CollateInfo,
+ OUT PULONG ActualCollateInfoLength
+ )
+{
+ UCHAR CollateTable[256];
+ APIRET RetCode;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosQueryCollate";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %lu, CP %lu, (current Ctry %lu, CP %lu), Length %lu\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, MaxCollateInfoLength ));
+ }
+#endif
+
+ //
+ // probe parms.
+ //
+
+ try
+ {
+ Od2ProbeForRead (CountryCode, sizeof(COUNTRYCODE),1);
+ RtlZeroMemory(CollateInfo, MaxCollateInfoLength);
+ *ActualCollateInfoLength = 0;
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = Od2GetCollateTable(
+ CountryCode->country,
+ CountryCode->codepage,
+ CollateTable);
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = SesGrp->CountryCode;
+ }
+
+ if ( RetCode )
+ {
+ return (RetCode);
+ }
+
+ if ( MaxCollateInfoLength > 256 )
+ {
+ MaxCollateInfoLength = 256;
+ }
+
+ memmove( CollateInfo, CollateTable, MaxCollateInfoLength);
+
+ *ActualCollateInfoLength = MaxCollateInfoLength;
+
+ if ( MaxCollateInfoLength < 256 )
+ {
+ return( ERROR_NLS_TABLE_TRUNCATED );
+ }
+
+ return( NO_ERROR );
+}
+
+
+APIRET
+DosSetProcessCp(
+ IN ULONG ulCodePage,
+ IN ULONG ulReserved
+ )
+{
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosSetProcessCp";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: CP %lu, Reserved %lu, (current %lu)\n",
+ FuncName, ulCodePage, ulReserved, SesGrp->DosCP));
+ }
+#endif
+
+ if ( ulReserved != 0 )
+ {
+ return (ERROR_INVALID_PARAMETER);
+ }
+
+ //
+ // Validate the CodePage parameter against the list of installed code
+ // pages.
+ //
+
+ if (( ulCodePage == 0 ) ||
+ (( ulCodePage != SesGrp->PrimaryCP ) &&
+ ( ulCodePage != SesGrp->SecondaryCP )))
+ {
+ return (ERROR_INVALID_CODE_PAGE);
+ }
+
+ //
+ // Store the code page in the process structure
+ //
+
+ Od2ProcessCodePage = ulCodePage;
+
+ if (Od2ProcessCodePage != SesGrp->Win32OEMCP)
+ {
+ Od2CurrentCodePageIsOem = FALSE;
+ } else
+ {
+ Od2CurrentCodePageIsOem = TRUE;
+ }
+
+ return( NO_ERROR );
+}
+
+
+APIRET
+DosQueryCp(
+ IN ULONG MaxLengthCodePageList,
+ OUT ULONG CodePages[],
+ OUT PULONG CountCodePages
+ )
+{
+ ULONG Count, TotalCount;
+ APIRET rc = NO_ERROR;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosQueryCp";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Length %lu, (current CP %lu)\n",
+ FuncName, MaxLengthCodePageList, SesGrp->DosCP));
+ }
+#endif
+
+ try
+ {
+ Od2ProbeForWrite( CountCodePages, sizeof( USHORT ), 1);
+ Od2ProbeForWrite( CodePages, MaxLengthCodePageList * sizeof( USHORT ), 1);
+ }
+ except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ if ( MaxLengthCodePageList < sizeof(ULONG) )
+ {
+ *CountCodePages = 0;
+ return (ERROR_CPLIST_TOO_SMALL);
+ }
+
+ //
+ // Determine the number of code pages to return. This is at least one
+ // for the code page associated with the current process, plus N for the
+ // N installed code pages.
+ //
+
+ Count = (SesGrp->SecondaryCP) ? 2 : 1;
+
+ //
+ // Determine the maximum number of code pages the caller can accept in
+ // their buffer. This is just the buffer length divided by sizeof( ULONG )
+ //
+
+ TotalCount = MaxLengthCodePageList / sizeof( ULONG ) - 1;
+
+ //
+ // Determine how many we will actually return and setup to return
+ // an error status if the list will be truncated.
+ //
+
+ if (Count > TotalCount)
+ {
+ Count = TotalCount;
+ rc = ERROR_CPLIST_TOO_SMALL;
+ }
+
+ //
+ // Return the actual length of code page information returned in the
+ // caller's buffer.
+ //
+
+ *CountCodePages = (Count + 1) * sizeof( ULONG );
+
+ //
+ // Return the code page for the process always.
+ //
+
+ *CodePages++ = Od2ProcessCodePage;
+
+ //
+ // Return the installed code pages.
+ //
+
+ RtlMoveMemory( CodePages, &SesGrp->PrimaryCP, Count * sizeof(ULONG) );
+
+ //
+ // Return success or error code.
+ //
+
+ return( rc );
+}
+
+
+
+APIRET
+Od2InitNls( IN ULONG CodePage,
+ IN BOOLEAN StartBySM)
+/*++
+
+Routine Description:
+
+ This routine initialize NLS parms
+
+Arguments:
+
+ CodePage - parent proess code-page identifier
+
+ StartBySm - flag indicates if start by SM (new session) or by
+ another process DosExecPgm
+
+Return Value:
+
+
+Note:
+ CodePage is relevamt only if (!StartBySM). Otherwise - codepage
+ is what os2.exe put in SesGrp->DosCp
+
+--*/
+
+{
+ if ( StartBySM )
+ {
+ Od2ProcessCodePage = SesGrp->DosCP;
+ } else
+ {
+ Od2ProcessCodePage = CodePage;
+ }
+
+ if (Od2ProcessCodePage != SesGrp->Win32OEMCP)
+ {
+ Od2CurrentCodePageIsOem = FALSE;
+ } else
+ {
+ Od2CurrentCodePageIsOem = TRUE;
+ }
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("InitNLS: Code Page %lu (OEM flag %lu, StartBySM %lu, SesGrp->DosCp %lu, Arg CP %lu)\n",
+ Od2ProcessCodePage, Od2CurrentCodePageIsOem, StartBySM, SesGrp->DosCP, CodePage ));
+ }
+#endif
+
+ Od2SystemRoot = &SesGrp->SystemDirectory[0];
+
+ return (NO_ERROR);
+}
+
+
+CHAR Spain437CurrencyStr[] = "\236\0\0\0";
+CHAR Arabic864CurrencyStr[] = "\244\0\0\0";
+
+APIRET
+Od2GetCtryInfo( IN ULONG Country,
+ IN ULONG CodePage,
+ OUT PCOUNTRYINFO CountryInfo)
+/*++
+
+Routine Description:
+
+ This routine fill country info struct after checking the parms
+
+Arguments:
+
+ Country - country code ( 0 - current )
+
+ CodePage - code-page identifier ( 0 - current )
+
+ CountryInfo - where to store COUNTRYINFO
+
+
+Return Value:
+
+ ERROR_NLS_BAD_TYPE - ?
+ ERROR_NLS_NO_CTRY_CODE - ?
+ ERROR_NLS_TYPE_NOT_FOUND - ?
+ ( ERROR_NLS_TABLE_TRUNCATED - by DosGet/QueryCtryInfo )
+
+Note:
+
+--*/
+
+{
+ ULONG CountryIndex, CodePageIndex;
+ PCOUNTRYINFO SrcCountryInfo;
+ APIRET RetCode;
+ BOOLEAN FromOriginalTable = FALSE;
+ APIRET Rc;
+ COUNTRYINFO LocalCountryInfo;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "Od2GetCtryInfo";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %u, CodePage %u\n",
+ FuncName, Country, CodePage));
+ }
+#endif
+
+ RetCode = Od2GetCtryCp( &Country, &CodePage, &CountryIndex, &CodePageIndex );
+
+ if ((Country == SesGrp->CountryCode) &&
+ ((CodePage == SesGrp->PrimaryCP) || (CodePage == SesGrp->SecondaryCP)))
+ {
+ SrcCountryInfo = &SesGrp->CountryInfo;
+ } else if (RetCode)
+ {
+ Rc = Ow2NlsGetCtryInfo(
+ CodePage,
+ Country,
+ &LocalCountryInfo
+ );
+ if ( Rc )
+ {
+#if DBG
+ IF_OD2_DEBUG( NLS )
+ {
+ KdPrint(("%s: RetCode from LPC %lu\n", FuncName, Rc));
+ }
+#endif
+ return( RetCode );
+ }
+ SrcCountryInfo = &LocalCountryInfo;
+ } else
+ {
+ SrcCountryInfo = OD2_COUNTRY_TABLE[CountryIndex].pCtryInfo;
+ FromOriginalTable = TRUE;
+ }
+
+ RtlMoveMemory(CountryInfo,
+ SrcCountryInfo,
+ sizeof(COUNTRYINFO));
+
+ CountryInfo->codepage = CodePage;
+ CountryInfo->country = Country;
+
+ if (FromOriginalTable)
+ {
+ if ((Country == COUNTRY_SPAIN) &&
+ (CodePage == CODEPAGE_US))
+ {
+ RtlMoveMemory(CountryInfo->szCurrency,
+ Spain437CurrencyStr,
+ 5);
+ } else if ((Country == COUNTRY_ARABIC) &&
+ (CodePage == CODEPAGE_ARABIC))
+ {
+ RtlMoveMemory(CountryInfo->szCurrency,
+ Arabic864CurrencyStr,
+ 5);
+ }
+ }
+
+ return (NO_ERROR);
+}
+
+
+APIRET
+Od2GetDBCSEv( IN ULONG Country,
+ IN ULONG CodePage,
+ IN OUT PUCHAR DBCSEv,
+ OUT PULONG StringLength)
+/*++
+
+Routine Description:
+
+ This routine fill DBCS environment vector after checking the parms
+
+Arguments:
+
+ Country - country code ( 0 - current )
+
+ CodePage - code-page identifier ( 0 - current )
+
+ DBVSEv - where to store the vector
+
+ StringLength - where to retutn the actual length of the output vector
+
+
+Return Value:
+
+ ERROR_NLS_BAD_TYPE - ?
+ ERROR_NLS_NO_CTRY_CODE - ?
+ ERROR_NLS_TYPE_NOT_FOUND - ?
+ ( ERROR_NLS_NO_COUNTRY_FILE - we don't keep info in file )
+ ( ERROR_NLS_OPEN_FAILED - we don't keep info in file )
+ ( ERROR_NLS_TABLE_TRUNCATED - by DosGet/QueryDBCSEv )
+
+Note:
+
+--*/
+
+{
+ ULONG CountryIndex, CodePageIndex;
+ APIRET RetCode;
+ POD2_DBCS_VECTOR_ENTRY SrcDBCSVec;
+ OD2_DBCS_VECTOR_ENTRY LocalDBCSVec;
+ APIRET Rc;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "Od2GetDBCSEv";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %u, CodePage %u\n",
+ FuncName, Country, CodePage));
+ }
+#endif
+ RetCode = Od2GetCtryCp( &Country, &CodePage, &CountryIndex, &CodePageIndex );
+
+ if (((CodePage == SesGrp->PrimaryCP) || (CodePage == SesGrp->SecondaryCP)) &&
+ ((Country == SesGrp->CountryCode) || !RetCode))
+ {
+ if(CodePage == SesGrp->PrimaryCP)
+ {
+ SrcDBCSVec = &SesGrp->PriDBCSVec;
+ } else
+ {
+ SrcDBCSVec = &SesGrp->SecDBCSVec;
+ }
+ } else if (RetCode)
+ {
+#ifdef JAPAN
+// MSKK Jul.02.1993 V-AkihiS
+// Chechk country code, because Ow2NlsGetDBCSEn does not check country code.
+ if (Country != SesGrp->CountryCode)
+ {
+ return( RetCode );
+ }
+#endif
+ Rc = Ow2NlsGetDBCSEn(
+ CodePage,
+ &LocalDBCSVec
+ );
+ if ( Rc )
+ {
+#if DBG
+ IF_OD2_DEBUG( NLS )
+ {
+ KdPrint(("%s: RetCode from LPC %lu\n", FuncName, Rc));
+ }
+#endif
+ return( RetCode );
+ }
+ SrcDBCSVec = &LocalDBCSVec;
+ } else
+ {
+ SrcDBCSVec = &OD2_DBCS_VECTOR_TABLE[OD2_CODEPAGE_TABLE[CodePageIndex].DBCSVecIndex];
+ }
+
+ *StringLength = SrcDBCSVec->VectorSize;
+
+ RtlMoveMemory(DBCSEv,
+ SrcDBCSVec->Vector,
+ *StringLength);
+
+ return (NO_ERROR);
+}
+
+
+APIRET
+Od2GetCaseMapTable(
+ IN ULONG Country,
+ IN ULONG CodePage,
+ OUT PUCHAR CaseMapTable)
+/*++
+
+Routine Description:
+
+ This routine fill creates a case map table for the CP after
+ checking the parms
+
+Arguments:
+
+ Country - country code ( 0 - current )
+
+ CodePage - code-page identifier ( 0 - current )
+
+ CaseMapTable - where to store the case map table
+
+
+Return Value:
+
+ ERROR_NLS_BAD_TYPE - ?
+ ERROR_NLS_NO_CTRY_CODE - ?
+ ERROR_NLS_TYPE_NOT_FOUND - ?
+ ( ERROR_NLS_NO_COUNTRY_FILE - we don't keep info in file )
+ ( ERROR_NLS_OPEN_FAILED - we don't keep info in file )
+ ( ERROR_NLS_TABLE_TRUNCATED - by DosGet/QueryDBCSEv )
+
+Note:
+
+--*/
+
+{
+ ULONG CountryIndex, i, CodePageIndex;
+ PUCHAR SrcTable, CPFixTable = NULL, CtryFixTable = NULL;
+ APIRET RetCode;
+ UCHAR LocalTable[256];
+ APIRET Rc;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "Od2GetCaseMapTable";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %u, CodePage %u\n",
+ FuncName, Country, CodePage));
+ }
+#endif
+ RetCode = Od2GetCtryCp( &Country, &CodePage, &CountryIndex, &CodePageIndex );
+
+ if ((Country == SesGrp->CountryCode) &&
+ ((CodePage == SesGrp->PrimaryCP) || (CodePage == SesGrp->SecondaryCP)))
+ {
+ if(CodePage == SesGrp->PrimaryCP)
+ {
+ SrcTable = SesGrp->PriCaseMapTable;
+ } else
+ {
+ SrcTable = SesGrp->SecCaseMapTable;
+ }
+ } else
+ if (RetCode)
+ {
+ Rc = Ow2NlsGetCaseMapTable(
+ CodePage,
+ Country,
+ &LocalTable[0]
+ );
+ if ( Rc )
+ {
+#if DBG
+ IF_OD2_DEBUG( NLS )
+ {
+ KdPrint(("%s: RetCode from LPC %lu\n", FuncName, Rc));
+ }
+#endif
+ return( RetCode );
+ }
+ SrcTable = &LocalTable[0];
+ } else
+ {
+ SrcTable = Od2BaseCaseMapTable;
+ CPFixTable = OD2_CASEMAP_TABLE[OD2_CODEPAGE_TABLE[CodePageIndex].CaseMapIndex];
+ if (CodePage == 437)
+ {
+ CtryFixTable = OD2_FIX_CASEMAP_TABLE[OD2_COUNTRY_TABLE[CountryIndex].CaseMapFixTableIndex];
+ }
+ }
+
+ RtlMoveMemory(CaseMapTable,
+ SrcTable,
+ 256);
+
+ if (CPFixTable)
+ {
+ for ( i = 0 ; (CPFixTable[i] || CPFixTable[i + 1]) ; i += 2 )
+ {
+ CaseMapTable[CPFixTable[i]] = CPFixTable[i + 1];
+ }
+ }
+
+ if (CtryFixTable)
+ {
+ for ( i = 0 ; (CtryFixTable[i] || CtryFixTable[i + 1]) ; i += 2 )
+ {
+ CaseMapTable[CtryFixTable[i]] = CtryFixTable[i + 1];
+ }
+ }
+
+ return (NO_ERROR);
+}
+
+
+APIRET
+Od2GetCollateTable(
+ IN ULONG Country,
+ IN ULONG CodePage,
+ OUT PUCHAR CollateTable)
+/*++
+
+Routine Description:
+
+ This routine fill creates a Collate table for the CP after
+ checking the parms
+
+Arguments:
+
+ Country - country code ( 0 - current )
+
+ CodePage - code-page identifier ( 0 - current )
+
+ CollateTable - where to store the Collate table
+
+
+Return Value:
+
+ ERROR_NLS_BAD_TYPE - ?
+ ERROR_NLS_NO_CTRY_CODE - ?
+ ERROR_NLS_TYPE_NOT_FOUND - ?
+ ( ERROR_NLS_NO_COUNTRY_FILE - we don't keep info in file )
+ ( ERROR_NLS_OPEN_FAILED - we don't keep info in file )
+ ( ERROR_NLS_TABLE_TRUNCATED - by DosGet/QueryDBCSEv )
+
+Note:
+
+--*/
+
+{
+ ULONG CountryIndex, i, CodePageIndex;
+ PUCHAR SrcTable, CPFixTable = NULL, CtryFixTable = NULL;
+ APIRET RetCode;
+// UCHAR LocalTable[256];
+#if DBG
+ APIRET Rc=0;
+ PSZ FuncName;
+
+ FuncName = "Od2GetCollateTable";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: Country %u, CodePage %u\n",
+ FuncName, Country, CodePage));
+ }
+#endif // DBG
+ RetCode = Od2GetCtryCp( &Country, &CodePage, &CountryIndex, &CodePageIndex );
+
+// if ((Country == SesGrp->CountryCode) &&
+// ((CodePage == SesGrp->PrimaryCP) || (CodePage == SesGrp->SecondaryCP)))
+// {
+// if(CodePage == SesGrp->PrimaryCP)
+// {
+// SrcTable = SesGrp->PriCollateTable;
+// } else
+// {
+// SrcTable = SesGrp->SecCollateTable;
+// }
+// } else
+ if (RetCode)
+ {
+// Rc = Ow2NlsGetCollateTable(
+// CodePage,
+// Country,
+// &LocalTable[0]
+// );
+// if ( Rc )
+// {
+#if DBG
+
+ // BUGBUG: debug statement below prints random Rc value
+ IF_OD2_DEBUG( NLS )
+ {
+ KdPrint(("%s: RetCode from LPC %lu\n", FuncName, Rc));
+ }
+#endif
+ return( RetCode );
+// }
+// SrcTable = &LocalTable[0];
+ } else
+ {
+ SrcTable = Od2BaseCollateTable;
+ CPFixTable = OD2_COLLATE_CP_TABLE[OD2_CODEPAGE_TABLE[CodePageIndex].CollateIndex];
+
+ for ( i = 0 ; OD2_COLLATE_CTRY_TABLE[i].Country ; i++ )
+ {
+ if ((OD2_COLLATE_CTRY_TABLE[i].Country == Country) &&
+ (OD2_COLLATE_CTRY_TABLE[i].CodePage == CodePage))
+ {
+ CtryFixTable = OD2_COLLATE_CTRY_TABLE[i].FixTable;
+ break;
+ }
+ }
+ }
+
+ RtlMoveMemory(CollateTable,
+ SrcTable,
+ 256);
+
+ if (CPFixTable)
+ {
+ for ( i = 0 ; (CPFixTable[i] || CPFixTable[i + 1]) ; i += 2 )
+ {
+ CollateTable[CPFixTable[i]] = CPFixTable[i + 1];
+ }
+ }
+
+ if (CtryFixTable)
+ {
+ for ( i = 0 ; (CtryFixTable[i] || CtryFixTable[i + 1]) ; i += 2 )
+ {
+ CollateTable[CtryFixTable[i]] = CtryFixTable[i + 1];
+ }
+ }
+
+ return (NO_ERROR);
+}
+
+
+APIRET
+Od2GetCtryCp( IN OUT PULONG Country,
+ IN OUT PULONG CodePage,
+ OUT PULONG CountryTableIndex,
+ OUT PULONG CodePageTableIndex)
+/*++
+
+Routine Description:
+
+ This routine checks the country and code-page parms.
+ If zero (default) it set them properly.
+ If exist in table, return index.
+
+Arguments:
+
+ Country - where to read from and update the country code ( 0 - current )
+
+ CodePage - where to read from and update the code-page identifier ( 0 - current )
+
+ CountryTableIndex - where to store the index for the language
+
+ CodePageTableIndex - where to store the index for the code page
+
+Return Value:
+
+ ERROR_NLS_BAD_TYPE - ?
+ ERROR_NLS_NO_CTRY_CODE - illegal country code or illegal code page
+ ERROR_NLS_TYPE_NOT_FOUND - ?
+ ( ERROR_NLS_NO_COUNTRY_FILE - we don't keep info in file )
+ ( ERROR_NLS_OPEN_FAILED - we don't keep info in file )
+ ( ERROR_NLS_TABLE_TRUNCATED - by DosGet/QueryCtryInfo )
+
+Note:
+
+--*/
+
+{
+ ULONG CountryIndex;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "Od2GetCtryCp";
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: enter\n", FuncName));
+ }
+#endif
+
+ if ( !*Country )
+ {
+ *Country = SesGrp->CountryCode;
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: country set to current %lu\n",
+ FuncName, SesGrp->CountryCode));
+ }
+#endif
+ }
+
+ if ( !*CodePage )
+ {
+ *CodePage = Od2ProcessCodePage;
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: code page set to current %lu\n",
+ FuncName, Od2ProcessCodePage));
+ }
+#endif
+ }
+
+ for ( CountryIndex = 0 ; ( OD2_COUNTRY_TABLE[CountryIndex].Country &&
+ ( OD2_COUNTRY_TABLE[CountryIndex].Country != *Country )) ;
+ CountryIndex++ );
+
+ if ( !OD2_COUNTRY_TABLE[CountryIndex].Country )
+ {
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: no such country %lu\n",
+ FuncName, *Country));
+ }
+#endif
+ return (ERROR_NLS_NO_CTRY_CODE);
+ }
+
+ if ( *CodePage == OD2_CODEPAGE_TABLE[OD2_COUNTRY_TABLE[CountryIndex].CodePageIndex1].CodePage )
+ {
+ *CodePageTableIndex = OD2_COUNTRY_TABLE[CountryIndex].CodePageIndex1;
+ } else if ( *CodePage == OD2_CODEPAGE_TABLE[OD2_COUNTRY_TABLE[CountryIndex].CodePageIndex2].CodePage )
+ {
+ *CodePageTableIndex = OD2_COUNTRY_TABLE[CountryIndex].CodePageIndex2;
+#ifdef DBCS
+// MSKK Apr.19.1993 V-AkihiS
+// Support CodePage 850(CODEPAGE_MULTI)
+ } else if ( *CodePage == CODEPAGE_MULTI )
+ {
+ *CodePageTableIndex = INDEX_CODEPAGE_MULTI;
+#endif
+ } else
+ {
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ KdPrint(("%s: no such code page %lu\n",
+ FuncName, *CodePage));
+ }
+#endif
+ return (ERROR_NLS_NO_CTRY_CODE);
+ }
+
+ /* In DBCS countries, when CP == US then info is according to USA. */
+
+ if ((( *Country == COUNTRY_JAPAN ) ||
+ ( *Country == COUNTRY_TAIWAN ) ||
+ ( *Country == COUNTRY_PRCHINA ) ||
+ ( *Country == COUNTRY_SOUTH_KOREA )) &&
+#ifdef DBCS
+// MSKK Apr.24.1993
+// Support CodePage 850(CODEPAGE_MULTI)
+ (( *CodePage == CODEPAGE_US ) || ( *CodePage == CODEPAGE_MULTI)))
+#else
+ ( *CodePage == CODEPAGE_US ))
+#endif
+ {
+ CountryIndex = 0; // US must be first in OD2_COUNTRY_TABLE
+ }
+
+ *CountryTableIndex = CountryIndex;
+
+ return (NO_ERROR);
+}
generated by cgit v1.2.3 (git 2.25.1) at 2024-09-08 13:35:29 +0200