windows-nt/Source/XPSP1/NT/base/crts/crtw32/mbstring/mbsnset.c

145 lines
4.1 KiB
C
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
/***
*mbsnset.c - Sets first n charcaters of string to given character (MBCS)
*
* Copyright (c) 1985-2001, Microsoft Corporation. All rights reserved.
*
*Purpose:
* Sets first n charcaters of string to given character (MBCS)
*
*Revision History:
* 11-19-92 KRS Ported from 16-bit sources.
* 08-20-93 CFW Change short params to int for 32-bit tree.
* 10-05-93 GJF Replaced _CRTAPI1 with __cdecl.
* 04-15-93 CFW Add _MB_CP_LOCK.
* 05-09-94 CFW Optimize for SBCS.
* 05-19-94 CFW Enable non-Win32.
* 09-11-97 GJF Replaced __mbcodepage == 0 with _ISNOTMBCP.
* 04-17-98 GJF Revised multithread support based on threadmbcinfo
* structs
*
*******************************************************************************/
#ifdef _MBCS
#include <mtdll.h>
#include <cruntime.h>
#include <string.h>
#include <mbdata.h>
#include <mbctype.h>
#include <mbstring.h>
/***
* _mbsnset - Sets first n charcaters of string to given character (MBCS)
*
*Purpose:
* Sets the first n characters of string to the supplied
* character value. If the length of string is less than n,
* the length of string is used in place of n. Handles
* MBCS chars correctly.
*
* There are several factors that make this routine complicated:
* (1) The fill value may be 1 or 2 bytes long.
* (2) The fill operation may end by hitting the count value
* or by hitting the end of the string.
* (3) A null terminating char is NOT placed at the end of
* the string.
*
* Cases to be careful of (both of these can occur at once):
* (1) Leaving an "orphaned" trail byte in the string (e.g.,
* overwriting a lead byte but not the corresponding trail byte).
* (2) Writing only the 1st byte of a 2-byte fill value because the
* end of string was encountered.
*
*Entry:
* unsigned char *string = string to modify
* unsigned int val = value to fill string with
* size_t count = count of characters to fill
*
*
*Exit:
* Returns string = now filled with char val
*
*Uses:
*
*Exceptions:
*
*******************************************************************************/
unsigned char * __cdecl _mbsnset(
unsigned char *string,
unsigned int val,
size_t count
)
{
unsigned char *start = string;
unsigned int leadbyte = 0;
unsigned char highval, lowval;
#ifdef _MT
pthreadmbcinfo ptmbci = _getptd()->ptmbcinfo;
if ( ptmbci != __ptmbcinfo )
ptmbci = __updatetmbcinfo();
#endif
/*
* leadbyte flag indicates if the last byte we overwrote was
* a lead byte or not.
*/
#ifdef _MT
if ( _ISNOTMBCP_MT(ptmbci) )
#else
if ( _ISNOTMBCP )
#endif
return _strnset(string, val, count);
if (highval = (unsigned char)(val>>8)) {
/* double byte value */
lowval = (unsigned char)(val & 0x00ff);
while (count-- && *string) {
#ifdef _MT
leadbyte = __ismbbtruelead_mt(ptmbci, leadbyte, *string);
#else
leadbyte = _ismbbtruelead(leadbyte, *string);
#endif
*string++ = highval;
if (*string) {
#ifdef _MT
leadbyte = __ismbbtruelead_mt(ptmbci, leadbyte, *string);
#else
leadbyte = _ismbbtruelead(leadbyte, *string);
#endif
*string++ = lowval;
}
else
/* overwrite orphaned highval byte */
*(string-1) = ' ';
}
}
else {
/* single byte value */
while (count-- && *string) {
#ifdef _MT
leadbyte = __ismbbtruelead_mt(ptmbci, leadbyte, *string);
#else
leadbyte = _ismbbtruelead(leadbyte, *string);
#endif
*string++ = (unsigned char)val;
}
}
/* overwrite orphaned trailing byte, if necessary */
if(leadbyte && *string)
*string = ' ';
return( start );
}
#endif /* _MBCS */