diff options
Diffstat (limited to 'private/crt32/string/strupr.c')
| -rw-r--r-- | private/crt32/string/strupr.c | 138 |
1 files changed, 138 insertions, 0 deletions
diff --git a/private/crt32/string/strupr.c b/private/crt32/string/strupr.c new file mode 100644 index 000000000..fcab9dbde --- /dev/null +++ b/private/crt32/string/strupr.c @@ -0,0 +1,138 @@ +/*** +*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 */ +} |