190 lines
4.6 KiB
C
190 lines
4.6 KiB
C
/***
|
|
*toupper.c - convert character to uppercase
|
|
*
|
|
* Copyright (c) 1985-1991, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* Defines function versions of _toupper() and toupper().
|
|
*
|
|
*Revision History:
|
|
* 11-09-84 DFW created
|
|
* 12-11-87 JCR Added "_LOAD_DS" to declaration
|
|
* 02-23-89 GJF Added function version of _toupper and cleaned up.
|
|
* 03-26-89 GJF Migrated to 386 tree
|
|
* 03-06-90 GJF Fixed calling type, added #include <cruntime.h> and
|
|
* fixed copyright.
|
|
* 09-27-90 GJF New-style function declarators.
|
|
* 10-11-91 ETC Locale support for toupper under _INTL switch.
|
|
* 12-10-91 ETC Updated nlsapi; added multithread.
|
|
* 12-17-92 KRS Updated and optimized for latest NLSAPI. Bug-fixes.
|
|
* 01-19-93 CFW Fixed typo.
|
|
* 03-25-93 CFW _toupper now defined when _INTL.
|
|
* 06-02-93 SRW ignore _INTL if _NTSUBSET_ defined.
|
|
* 09-15-93 CFW Change buffer to unsigned char to fix nasty cast bug.
|
|
* 01-14-94 SRW if _NTSUBSET_ defined call Rtl functions
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef _NTSUBSET_
|
|
#include <nt.h>
|
|
#include <ntrtl.h>
|
|
#include <nturtl.h>
|
|
#endif
|
|
#include <cruntime.h>
|
|
#include <ctype.h>
|
|
#include <stddef.h>
|
|
#ifdef _INTL
|
|
#include <locale.h>
|
|
#include <setlocal.h>
|
|
#include <os2dll.h>
|
|
#endif
|
|
|
|
/* remove macro definitions of _toupper() and toupper()
|
|
*/
|
|
#undef _toupper
|
|
#undef toupper
|
|
|
|
/* define function-like macro equivalent to _toupper()
|
|
*/
|
|
#define mkupper(c) ( (c)-'a'+'A' )
|
|
|
|
/***
|
|
*int _toupper(c) - convert character to uppercase
|
|
*
|
|
*Purpose:
|
|
* _toupper() is simply a function version of the macro of the same name.
|
|
*
|
|
*Entry:
|
|
* c - int value of character to be converted
|
|
*
|
|
*Exit:
|
|
* returns int value of uppercase representation of c
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
int _CALLTYPE1 _toupper (
|
|
int c
|
|
)
|
|
{
|
|
return(mkupper(c));
|
|
}
|
|
|
|
|
|
/***
|
|
*int toupper(c) - convert character to uppercase
|
|
*
|
|
*Purpose:
|
|
* toupper() is simply a function version of the macro of the same name.
|
|
*
|
|
*Entry:
|
|
* c - int value of character to be converted
|
|
*
|
|
*Exit:
|
|
* if c is a lower case letter, returns int value of uppercase
|
|
* representation of c. otherwise, it returns c.
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
|
|
int _CALLTYPE1 toupper (
|
|
int c
|
|
)
|
|
{
|
|
#if defined(_INTL) && !defined(_NTSUBSET_)
|
|
wchar_t widechar1[2], widechar2[2];
|
|
int size;
|
|
unsigned char buffer[3];
|
|
|
|
_mlock (_LC_CTYPE_LOCK);
|
|
|
|
if ((_lc_handle[LC_CTYPE] == _CLOCALEHANDLE) &&
|
|
(_lc_codepage == _CLOCALECP)) {
|
|
if (islower(c))
|
|
c = c - ('a' - 'A');
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
return c;
|
|
}
|
|
|
|
/* if checking case of c does not require API call, do it */
|
|
if (c < 256) {
|
|
if (!islower(c)) {
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
return c;
|
|
}
|
|
}
|
|
|
|
/* convert c to wide char */
|
|
if (isleadbyte(c>>8 & 0xff))
|
|
{
|
|
buffer[0] = (c>>8 & 0xff); /* put lead-byte at start of str */
|
|
buffer[1] = (unsigned char)c;
|
|
buffer[2] = 0;
|
|
}
|
|
else
|
|
{
|
|
buffer[0] = (unsigned char)c;
|
|
buffer[1] = 0;
|
|
}
|
|
if (!(size=MultiByteToWideChar(_lc_codepage,MB_PRECOMPOSED,
|
|
buffer, -1, widechar1, 2))) {
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
return c;
|
|
}
|
|
|
|
/* convert wide char to uppercase */
|
|
if (!(size=LCMapStringW(_lc_handle[LC_CTYPE], LCMAP_UPPERCASE,
|
|
widechar1, size, widechar2, 2))) {
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
return c;
|
|
}
|
|
|
|
/* convert wide char back to multibyte */
|
|
if (!(size=WideCharToMultiByte(_lc_codepage,(WC_COMPOSITECHECK|WC_DISCARDNS),
|
|
widechar2, size, buffer, 2, NULL, NULL))) {
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
return c;
|
|
}
|
|
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
|
|
/* construct integer return value */
|
|
if (size == 1)
|
|
return ((int)buffer[0]);
|
|
else
|
|
return ((int)buffer[0] | ((int)buffer[1] << 8));
|
|
#else
|
|
#ifdef _NTSUBSET_
|
|
{
|
|
NTSTATUS Status;
|
|
char *s = &c;
|
|
WCHAR Unicode;
|
|
ULONG UnicodeSize;
|
|
ULONG MultiSize;
|
|
UCHAR MultiByte[2];
|
|
|
|
Unicode = RtlAnsiCharToUnicodeChar( &s );
|
|
Status = RtlUpcaseUnicodeToMultiByteN( MultiByte,
|
|
sizeof( MultiByte ),
|
|
&MultiSize,
|
|
&Unicode,
|
|
sizeof( Unicode )
|
|
);
|
|
if (!NT_SUCCESS( Status ))
|
|
return c;
|
|
else
|
|
if (MultiSize == 1)
|
|
return ((int)MultiByte[0]);
|
|
else
|
|
return ((int)MultiByte[0] | ((int)MultiByte[1] << 8));
|
|
|
|
}
|
|
#else
|
|
return(islower(c) ? mkupper(c) : c);
|
|
#endif
|
|
#endif /* _INTL */
|
|
}
|