mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
138 lines
4.1 KiB
138 lines
4.1 KiB
/***
|
|
*strupr.c - routine to map lower-case characters in a string to upper-case
|
|
*
|
|
* Copyright (c) 1985-1992, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* Converts all the lower case characters in string to upper case
|
|
* in place.
|
|
*
|
|
*Revision History:
|
|
* 05-31-89 JCR C version created.
|
|
* 02-27-90 GJF Fixed calling type, #include <cruntime.h>, fixed
|
|
* copyright.
|
|
* 10-02-90 GJF New-style function declarator.
|
|
* 01-18-91 GJF ANSI naming.
|
|
* 09-18-91 ETC Locale support under _INTL switch.
|
|
* 12-08-91 ETC Updated nlsapi; added multithread.
|
|
* 08-19-92 KRS Activated NLS Support.
|
|
* 08-22-92 SRW Allow INTL definition to be conditional for building ntcrt.lib
|
|
* 09-02-92 SRW Get _INTL definition via ..\crt32.def
|
|
* 03-10-93 CFW Remove UNDONE comment.
|
|
* 06-02-93 SRW ignore _INTL if _NTSUBSET_ defined.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#include <string.h>
|
|
#include <malloc.h>
|
|
#include <locale.h>
|
|
#include <setlocal.h>
|
|
#include <limits.h> /* for INT_MAX */
|
|
#include <os2dll.h>
|
|
|
|
/***
|
|
*char *_strupr(string) - map lower-case characters in a string to upper-case
|
|
*
|
|
*Purpose:
|
|
* _strupr() converts lower-case characters in a null-terminated string
|
|
* to their upper-case equivalents. Conversion is done in place and
|
|
* characters other than lower-case letters are not modified.
|
|
*
|
|
* In the C locale, this function modifies only 7-bit ASCII characters
|
|
* in the range 0x61 through 0x7A ('a' through 'z').
|
|
*
|
|
* If the locale is not the 'C' locale, MapStringW() is used to do
|
|
* the work. Assumes enough space in the string to hold result.
|
|
*
|
|
*Entry:
|
|
* char *string - string to change to upper case
|
|
*
|
|
*Exit:
|
|
* input string address
|
|
*
|
|
*Exceptions:
|
|
* The original string is returned unchanged on any error.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
char * _CALLTYPE1 _strupr (
|
|
char * string
|
|
)
|
|
{
|
|
#if defined(_INTL) && !defined(_NTSUBSET_)
|
|
char *cp; /* traverses string for C locale conversion */
|
|
wchar_t *wsrc = NULL; /* wide version of string in original case */
|
|
wchar_t *wdst = NULL; /* wide version of string in alternate case */
|
|
int srclen; /* general purpose length of source string */
|
|
int dstlen; /* len of wdst string, wide chars, no null */
|
|
|
|
_mlock (_LC_CTYPE_LOCK);
|
|
|
|
if ((_lc_handle[LC_CTYPE] == _CLOCALEHANDLE) &&
|
|
(_lc_codepage == _CLOCALECP))
|
|
{
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
|
|
for (cp=string; *cp; ++cp)
|
|
{
|
|
if ('a' <= *cp && *cp <= 'z')
|
|
*cp += 'A' - 'a';
|
|
}
|
|
|
|
return(string);
|
|
} /* C locale */
|
|
|
|
/* Algorithm for non-C locale: */
|
|
/* Convert string to wide-character wsrc string */
|
|
/* Map wrc string to wide-character wdst string in alternate case */
|
|
/* Convert wdst string to char string and place in user buffer */
|
|
|
|
/* Allocate maximum required space for wsrc */
|
|
srclen = strlen(string) + 1;
|
|
if ((wsrc = (wchar_t *) malloc(srclen*sizeof(wchar_t))) == NULL)
|
|
goto error_cleanup;
|
|
|
|
/* Convert string to wide-character wsrc string */
|
|
if ((srclen=MultiByteToWideChar(_lc_codepage, MB_PRECOMPOSED, string,
|
|
srclen, wsrc, srclen)) == 0)
|
|
goto error_cleanup;
|
|
|
|
/* Inquire size of wdst string */
|
|
if ((dstlen=LCMapStringW(_lc_handle[LC_CTYPE], LCMAP_UPPERCASE, wsrc,
|
|
srclen, wdst, 0)) == 0)
|
|
goto error_cleanup;
|
|
|
|
/* Allocate space for wdst */
|
|
if ((wdst = (wchar_t *) malloc(dstlen*sizeof(wchar_t))) == NULL)
|
|
goto error_cleanup;
|
|
|
|
/* Map wrc string to wide-character wdst string in alternate case */
|
|
if ((dstlen=LCMapStringW (_lc_handle[LC_CTYPE], LCMAP_UPPERCASE, wsrc,
|
|
srclen, wdst, dstlen)) == 0)
|
|
goto error_cleanup;
|
|
|
|
/* Convert wdst string to char string and place in user buffer */
|
|
srclen = INT_MAX; /* may overwrite length of user string */
|
|
if (WideCharToMultiByte(_lc_codepage, WC_COMPOSITECHECK|WC_SEPCHARS,
|
|
wdst, dstlen, string, srclen, NULL, NULL) == 0)
|
|
goto error_cleanup; /* can't recover here if fail */
|
|
|
|
error_cleanup:
|
|
_munlock (_LC_CTYPE_LOCK);
|
|
free (wsrc);
|
|
free (wdst);
|
|
return (string);
|
|
|
|
#else
|
|
char * cp;
|
|
|
|
for (cp=string; *cp; ++cp)
|
|
{
|
|
if ('a' <= *cp && *cp <= 'z')
|
|
*cp += 'A' - 'a';
|
|
}
|
|
|
|
return(string);
|
|
#endif /* _INTL */
|
|
}
|