4coder-non-source/test_data/lots_of_files/_toupper.c

120 lines
2.9 KiB
C
Raw Normal View History

2023-09-30 01:17:40 +00:00
/***
*_toupper.c - convert character to uppercase
*
* Copyright (c) Microsoft Corporation. All rights reserved.
*
*Purpose:
* Defines _Toupper()
*
*******************************************************************************/
#include <cruntime.h>
#include <ctype.h>
#include <stddef.h>
#include <xlocinfo.h>
#include <locale.h>
#include <mtdll.h>
#include <setlocal.h>
#include <awint.h>
#include <yvals.h>
/* remove macro definitions of _toupper() and toupper()
*/
#undef _toupper
#undef toupper
/***
*int _Toupper(c) - convert character to uppercase
*
*Purpose:
* _Toupper() is a version of toupper with a locale argument.
*
*Entry:
* c - int value of character to be converted
* const _Ctypevec * = pointer to locale info
*
*Exit:
* returns int value of uppercase representation of c
*
*Exceptions:
*
*******************************************************************************/
_CRTIMP2_PURE int __CLRCALL_PURE_OR_CDECL _Toupper (
int c,
const _Ctypevec *ploc
)
{
int size;
unsigned char inbuffer[3];
unsigned char outbuffer[3];
const wchar_t *locale_name;
UINT codepage;
if (ploc == 0)
{
locale_name = ___lc_locale_name_func()[LC_CTYPE];
codepage = ___lc_codepage_func();
}
else
{
locale_name = ploc->_LocaleName;
codepage = ploc->_Page;
}
if (locale_name == NULL)
{
if ( (c >= 'a') && (c <= 'z') )
c = c - ('a' - 'A');
return c;
}
/* if checking case of c does not require API call, do it */
if ((unsigned)c < 256)
{
if (ploc == 0)
{
if (!islower(c))
{
return c;
}
}
else
{
if (!(ploc->_Table[c] & _LOWER))
{
return c;
}
}
}
/* convert int c to multibyte string */
if (ploc == 0 ? _cpp_isleadbyte((c >> 8) & 0xff)
: (ploc->_Table[(c >> 8) & 0xff] & _LEADBYTE) != 0)
{
inbuffer[0] = (c >> 8 & 0xff);
inbuffer[1] = (unsigned char)c;
inbuffer[2] = 0;
size = 2;
} else {
inbuffer[0] = (unsigned char)c;
inbuffer[1] = 0;
size = 1;
}
/* convert wide char to uppercase */
if (0 == (size = __crtLCMapStringA(NULL, locale_name, LCMAP_UPPERCASE,
(const char *)inbuffer, size, (char *)outbuffer, 3, codepage, TRUE)))
{
return c;
}
/* construct integer return value */
if (size == 1)
return ((int)outbuffer[0]);
else
return ((int)outbuffer[1] | ((int)outbuffer[0] << 8));
}