#include "os2native.h"

#include "nls.h"

APIRET DosQueryDBCSEnv(ULONG buflen, PCOUNTRYCODE pcc, PCHAR buf)

{

// !!! FIXME: implement this for real.

TRACE_NATIVE("DosQueryDBCSEnv(%u, %p, %p)", (uint) buflen, pcc, buf);

if ((pcc->country != 0) || (pcc->codepage != 0))

return ERROR_CODE_PAGE_NOT_FOUND;

memset(buf, '\0', buflen);

return NO_ERROR;

} // DosQueryDBCSEnv

APIRET DosMapCase(ULONG cb, PCOUNTRYCODE pcc, PCHAR pch)

{

// !!! FIXME: implement this for real.

TRACE_NATIVE("DosMapCase(%u, %p, %p)", (uint) cb, pcc, pch);

if ((pcc->country != 0) || (pcc->codepage != 0))

return ERROR_CODE_PAGE_NOT_FOUND;

for (ULONG i = 0; i < cb; i++) {

const CHAR ch = *pch;

*(pch++) = ((ch >= 'A') && (ch <= 'Z')) ? ch - ('A' - 'a') : ch;

} // for

return NO_ERROR;

} // DosMapCase

APIRET DosQueryCtryInfo(ULONG cb, PCOUNTRYCODE pcc, PCOUNTRYINFO pci, PULONG pcbActual)

{

// From the 4.5 toolkit docs: "If this area is too small to hold all of

// the available information, then as much information as possible is

// provided in the available space (in the order in which the data would

// appear)." ...so we fill in a local struct and memcpy it at the end.

COUNTRYINFO ci;

memset(&ci, '\0', sizeof (ci));

// From the 4.5 toolkit docs: "If the amount of data returned is not

// enough to fill the memory area provided by the caller, then the memory

// that is unaltered by the available data is zeroed out." ...so blank

// it all out now.

memset(pci, '\0', cb);

if ((pcc->country != 0) || (pcc->codepage != 0))

return ERROR_CODE_PAGE_NOT_FOUND;

// !!! FIXME: this is just what OS/2 Warp 4.52 returns by default for my USA system.

ci.country = 1;

ci.codepage = 437;

ci.fsDateFmt = 0;

ci.szCurrency[0] = '$';

ci.szThousandsSeparator[0] = ',';

ci.szDecimal[0] = '.';

ci.szDateSeparator[0] = '-';

ci.szTimeSeparator[0] = ':';

ci.fsCurrencyFmt = 0;;

ci.cDecimalPlace = 2;

ci.fsTimeFmt = 0;

//USHORT abReserved1[2];

ci.szDataSeparator[0] = ',';

//USHORT abReserved2[5];

if (pcbActual)

*pcbActual = 38; // OS/2 Warp 4.52 doesn't count the abReserved[5] at the end.

return NO_ERROR;

} // DosQueryCtryInfo

// end of nls.c ...