/***
*mbsupr.c - Convert string upper case (MBCS)
*
*       Copyright (c) 1985-2001, Microsoft Corporation.  All rights reserved.
*
*Purpose:
*       Convert string upper case (MBCS)
*
*Revision History:
*       11-19-92  KRS   Ported from 16-bit sources.
*       09-29-93  CFW   Merge _KANJI and _MBCS_OS
*       10-06-93  GJF   Replaced _CRTAPI1 with __cdecl.
*       04-12-94  CFW   Make function generic.
*       04-15-93  CFW   Add _MB_CP_LOCK.
*       05-16-94  CFW   Use _mbbtolower/upper.
*       05-17-94  CFW   Enable non-Win32.
*       03-13-95  JCF   Add (unsigned char) in _MB* compare with *(cp+1).
*       05-31-95  CFW   Fix horrible Mac bug.
*       03-17-97  RDK   Added error flag to __crtLCMapStringA.
*       09-26-97  BWT   Fix POSIX
*       04-21-98  GJF   Revised multithread support based on threadmbcinfo
*                       structs
*       05-17-99  PML   Remove all Macintosh support.
*
*******************************************************************************/

#ifdef  _MBCS

#include <awint.h>
#include <mtdll.h>
#include <cruntime.h>
#include <ctype.h>
#include <mbdata.h>
#include <mbstring.h>
#include <mbctype.h>


/***
* _mbsupr - Convert string upper case (MBCS)
*
*Purpose:
*       Converts all the lower case characters in a string
*       to upper case in place.   Handles MBCS chars correctly.
*
*Entry:
*       unsigned char *string = pointer to string
*
*Exit:
*       Returns a pointer to the input string; no error return.
*
*Exceptions:
*
*******************************************************************************/

unsigned char * __cdecl _mbsupr(
        unsigned char *string
        )
{
        unsigned char *cp;
#ifdef  _MT
        pthreadmbcinfo ptmbci = _getptd()->ptmbcinfo;

        if ( ptmbci != __ptmbcinfo )
            ptmbci = __updatetmbcinfo();
#endif

        for (cp=string; *cp; cp++)
        {
#ifdef  _MT
            if ( __ismbblead_mt(ptmbci, *cp) )
#else
            if ( _ismbblead(*cp) )
#endif
            {

#if     !defined(_POSIX_)

                int retval;
                unsigned char ret[4];

#ifdef  _MT
                if ( (retval = __crtLCMapStringA( ptmbci->mblcid,
#else
                if ( (retval = __crtLCMapStringA( __mblcid,
#endif
                                                  LCMAP_UPPERCASE,
                                                  cp,
                                                  2,
                                                  ret,
                                                  2,
#ifdef  _MT
                                                  ptmbci->mbcodepage,
#else
                                                  __mbcodepage,
#endif
                                                  TRUE )) == 0 )
                    return NULL;

                *cp = ret[0];

                if (retval > 1)
                    *(++cp) = ret[1];

#else   /* !_POSIX_ */

                int mbval = ((*cp) << 8) + *(cp+1);

                cp++;
                if (     mbval >= _MBLOWERLOW1
                    &&   mbval <= _MBLOWERHIGH1 )
                    *cp -= _MBCASEDIFF1;

                else if (mbval >= _MBLOWERLOW2
                    &&   mbval <= _MBLOWERHIGH2 )
                    *cp -= _MBCASEDIFF2;

#endif  /* !_POSIX_ */

            }
            else
                /* single byte, macro version */
#ifdef  _MT
                *cp = (unsigned char) __mbbtoupper_mt(ptmbci, *cp);
#else
                *cp = (unsigned char) _mbbtoupper(*cp);
#endif
        }

        return string ;
}

#endif  /* _MBCS */