summaryrefslogtreecommitdiffstats
path: root/private/os2/client/dllnls16.c
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--private/os2/client/dllnls16.c417
1 files changed, 417 insertions, 0 deletions
diff --git a/private/os2/client/dllnls16.c b/private/os2/client/dllnls16.c
new file mode 100644
index 000000000..0650fe3f6
--- /dev/null
+++ b/private/os2/client/dllnls16.c
@@ -0,0 +1,417 @@
+/*++
+
+Copyright (c) 1989 Microsoft Corporation
+
+Module Name:
+
+ dllnls16.c
+
+Abstract:
+
+ This module implements 32 equivalents of NLS OS/2 V1.21
+ API Calls and 16b implementation service routines.
+ The APIs are called from 16->32 thunks (i386\doscalls.asm).
+
+Author:
+
+ Michael Jarus (mjarus) 15-Apr-1992
+
+Revision History:
+
+--*/
+
+#define INCL_OS2V20_TASKING
+#define INCL_OS2V20_NLS
+#define INCL_OS2V20_ERRORS
+#include "os2dll.h"
+#include "os2dll16.h"
+#include "conrqust.h"
+#include "os2nls.h"
+
+
+
+APIRET
+DosSetCp(
+ IN ULONG ulCodePage,
+ IN ULONG ulReserved
+ )
+{
+ APIRET rc;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosSetCp";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: CP %lu, Reserved %lu, (current %lu)\n",
+ FuncName, ulCodePage, ulReserved, SesGrp->DosCP);
+ }
+#endif
+
+ if ( rc = DosSetProcessCp(ulCodePage, ulReserved) )
+ {
+ return (rc);
+ }
+
+ if ( rc = VioSetCp(0, ulCodePage, 0) )
+ {
+ return (rc);
+ }
+
+ if( rc = KbdSetCp(0, ulCodePage, 0))
+ {
+ return (rc);
+ }
+
+ rc = KbdFlushBuffer(0);
+ return (rc);
+}
+
+
+APIRET
+DosSetProcCp(
+ IN ULONG ulCodePage,
+ IN ULONG ulReserved
+ )
+{
+ APIRET rc;
+
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosSetProcCp";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: CP %lu, Reserved %lu, (current %lu)\n",
+ FuncName, ulCodePage, ulReserved, SesGrp->DosCP);
+ }
+#endif
+
+ rc = DosSetProcessCp(ulCodePage, ulReserved);
+ return (rc);
+}
+
+
+APIRET
+DosGetCp(
+ IN ULONG MaxLengthCodePageList,
+ OUT USHORT CodePages[],
+ OUT PUSHORT CountCodePages
+ )
+{
+ ULONG Count, TotalCount, *pUl;
+ APIRET rc = NO_ERROR;
+
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosGetCp";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%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(USHORT) )
+ {
+ *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( USHORT )
+ //
+
+ TotalCount = MaxLengthCodePageList / sizeof( USHORT ) - 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 = (USHORT)((Count + 1) * sizeof( USHORT ));
+
+ //
+ // Return the code page for the process always.
+ //
+
+ *CodePages++ = (USHORT)Od2ProcessCodePage;
+
+ //
+ // Return the installed code pages.
+ //
+
+ pUl = &SesGrp->PrimaryCP;
+
+ while (Count--)
+ {
+ *CodePages++ = (USHORT)*pUl++;
+ }
+
+ //
+ // Return success or error code.
+ //
+
+ return( rc );
+}
+
+
+APIRET
+DosCaseMap(
+ IN ULONG cbLength,
+ IN PCOUNTRYCODE16 CountryCode,
+ IN OUT PUCHAR pchString)
+{
+ COUNTRYCODE ctryc;
+ APIRET RetCode;
+
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosCaseMap";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: Country %u, CP %u, (current Ctry %lu, CP %lu), Length %lu, String %c...\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, cbLength, *pchString );
+ }
+#endif
+
+ //
+ // probe parms.
+ //
+
+ try
+ {
+ ctryc.country = CountryCode->country;
+ ctryc.codepage = CountryCode->codepage;
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = DosMapCase(cbLength, &ctryc, pchString);
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = (USHORT)SesGrp->CountryCode;
+ }
+
+ return (RetCode);
+}
+
+
+APIRET
+DosGetDBCSEv(
+ IN ULONG cbBuf,
+ IN PCOUNTRYCODE16 CountryCode,
+ IN OUT PCHAR pchString)
+{
+ COUNTRYCODE ctryc;
+ APIRET RetCode;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosGetDBCSEv";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: Country %u, CP %u, (current Ctry %lu, CP %lu), Length %lu\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, cbBuf );
+ }
+#endif
+
+ //
+ // probe parms.
+ //
+
+ try
+ {
+ ctryc.country = CountryCode->country;
+ ctryc.codepage = CountryCode->codepage;
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = DosQueryDBCSEnv(cbBuf, &ctryc, pchString);
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = (USHORT)SesGrp->CountryCode;
+ }
+
+ return (RetCode);
+}
+
+
+APIRET
+DosGetCtryInfo(
+ IN ULONG MaxCountryInfoLength,
+ IN PCOUNTRYCODE16 CountryCode,
+ OUT PCOUNTRYINFO16 CountryInfo,
+ OUT PUSHORT ActualCountryInfoLength
+ )
+{
+ COUNTRYINFO CountryInfo32;
+ COUNTRYINFO16 DefaultInformation;
+ APIRET RetCode;
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosGetCtryInfo";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: Country %lu, CP %u, (current Ctry %u, 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(COUNTRYCODE16),1);
+ *ActualCountryInfoLength = 0;
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = Od2GetCtryInfo((ULONG)CountryCode->country,
+ (ULONG)CountryCode->codepage,
+ &CountryInfo32);
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = (USHORT)SesGrp->CountryCode;
+ }
+
+ if ( RetCode )
+ {
+ return (RetCode);
+ }
+
+ DefaultInformation.country = (USHORT)CountryInfo32.country;
+ DefaultInformation.codepage = (USHORT)CountryInfo32.codepage;
+ DefaultInformation.fsDateFmt = (USHORT)CountryInfo32.fsDateFmt;
+
+ RtlMoveMemory( (PVOID)&DefaultInformation.szCurrency[0],
+ (PVOID)&CountryInfo32.szCurrency[0],
+ sizeof( COUNTRYINFO16 ) - 3 * sizeof(USHORT));
+
+ if (MaxCountryInfoLength < sizeof( COUNTRYINFO16 ))
+ {
+ RtlMoveMemory( (PVOID)CountryInfo,
+ (PVOID)&DefaultInformation,
+ MaxCountryInfoLength
+ );
+ *ActualCountryInfoLength = (USHORT)MaxCountryInfoLength;
+#if DBG
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: Table trunc (%lu instead of %lu)\n",
+ FuncName, MaxCountryInfoLength, sizeof( COUNTRYINFO16 ));
+ }
+#endif
+ return( ERROR_NLS_TABLE_TRUNCATED );
+ } else
+ {
+ RtlMoveMemory( (PVOID)CountryInfo,
+ (PVOID)&DefaultInformation,
+ sizeof( COUNTRYINFO16 )
+ );
+ *ActualCountryInfoLength = sizeof( COUNTRYINFO16 );
+ return( NO_ERROR );
+ }
+}
+
+
+APIRET
+DosGetCollate(
+ IN ULONG cbLength,
+ IN PCOUNTRYCODE16 CountryCode,
+ IN OUT PUCHAR pchBuf,
+ OUT PUSHORT pcbTable
+ )
+{
+ COUNTRYCODE ctryc;
+ ULONG Count = 0;
+ APIRET RetCode;
+
+#if DBG
+ PSZ FuncName;
+
+ FuncName = "DosGetCollate";
+ IF_OD2_DEBUG(NLS)
+ {
+ DbgPrint("%s: Country %u, CP %u, (current Ctry %lu, CP %lu), Length %lu\n",
+ FuncName, CountryCode->country, CountryCode->codepage,
+ SesGrp->CountryCode, SesGrp->DosCP, cbLength );
+ }
+#endif
+
+ //
+ // probe parms.
+ //
+
+ try
+ {
+ ctryc.country = CountryCode->country;
+ ctryc.codepage = CountryCode->codepage;
+ *pcbTable = 0;
+ } except( EXCEPTION_EXECUTE_HANDLER )
+ {
+ Od2ExitGP();
+ }
+
+ RetCode = DosQueryCollate(cbLength,
+ &ctryc,
+ pchBuf,
+ &Count);
+
+ *pcbTable = (USHORT)Count;
+
+ if ( !CountryCode->country && CountryCode->codepage)
+ {
+ CountryCode->country = (USHORT)SesGrp->CountryCode;
+ }
+
+ return (RetCode);
+}
+
+
generated by cgit v1.2.3 (git 2.25.1) at 2024-10-19 03:55:39 +0200