diff options
Diffstat (limited to 'private/crt32/convert/wcstombs.c')
| -rw-r--r-- | private/crt32/convert/wcstombs.c | 213 |
1 files changed, 213 insertions, 0 deletions
diff --git a/private/crt32/convert/wcstombs.c b/private/crt32/convert/wcstombs.c new file mode 100644 index 000000000..2b7f97194 --- /dev/null +++ b/private/crt32/convert/wcstombs.c @@ -0,0 +1,213 @@ +/*** +*wcstombs.c - Convert wide char string to multibyte char string. +* +* Copyright (c) 1990-1993, Microsoft Corporation. All rights reserved. +* +*Purpose: +* Convert a wide char string into the equivalent multibyte char string. +* +*Revision History: +* 08-24-90 KRS Module created. +* 01-14-91 KRS Added _WINSTATIC for Windows DLL. Fix wctomb() call. +* 03-18-91 KRS Fix check for NUL. +* 03-20-91 KRS Ported from 16-bit tree. +* 10-16-91 ETC Locale support under _INTL switch. +* 12-09-91 ETC Updated nlsapi; added multithread. +* 08-20-92 KRS Activated NLSAPI 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 +* 01-06-93 CFW Added (count < n) to outer loop - avoid bad wctomb calls +* 01-07-93 KRS Major code cleanup. Fix error return, comments. +* 05-03-93 CFW Return pointer == NULL, return size, plus massive cleanup. +* 06-02-93 SRW ignore _INTL if _NTSUBSET_ defined. +* 01-14-94 SRW if _NTSUBSET_ defined call Rtl functions +* +*******************************************************************************/ + +#ifdef _NTSUBSET_ +#include <nt.h> +#include <ntrtl.h> +#include <nturtl.h> +#endif +#include <cruntime.h> +#include <stdlib.h> +#include <limits.h> +#include <internal.h> +#include <os2dll.h> +#include <locale.h> +#include <setlocal.h> +#include <errno.h> +#include <assert.h> + +/*** +*size_t wcstombs() - Convert wide char string to multibyte char string. +* +*Purpose: +* Convert a wide char string into the equivalent multibyte char string, +* according to the LC_CTYPE category of the current locale. +* [ANSI]. +* +* NOTE: Currently, the C libraries support the "C" locale only. +* Non-C locale support now available under _INTL switch. +*Entry: +* char *s = pointer to destination multibyte char string +* const wchar_t *pwc = pointer to source wide character string +* size_t n = maximum number of bytes to store in s +* +*Exit: +* If s != NULL, returns (size_t)-1 (if a wchar cannot be converted) +* Otherwise: Number of bytes modified (<=n), not including +* the terminating NUL, if any. +* +*Exceptions: +* Returns (size_t)-1 if s is NULL or invalid mb character encountered. +* +*******************************************************************************/ + +#ifdef MTHREAD +size_t _CRTAPI1 wcstombs + ( + char *s, + const wchar_t *pwcs, + size_t n + ) +{ + int retval; + + _mlock (_LC_CTYPE_LOCK); + retval = _wcstombs_lk(s, pwcs, n); + _munlock (_LC_CTYPE_LOCK); + return retval; +} +#endif /* MTHREAD */ + +#ifdef MTHREAD +size_t _CRTAPI1 _wcstombs_lk +#else +size_t _CRTAPI1 wcstombs +#endif + ( + char *s, + const wchar_t *pwcs, + size_t n + ) +{ + int i, retval; + size_t count = 0; + char buffer[MB_LEN_MAX]; /* UNDONE: what about MTHREAD ? */ + BOOL defused = 0; + + if (s && n == 0) + return (size_t) 0; + + assert(pwcs != NULL); + + /* if destination string exists, fill it in */ + if (s) + { +#if defined(_INTL) && !defined(_NTSUBSET_) + if (_lc_handle[LC_CTYPE] == _CLOCALEHANDLE && + _lc_codepage == _CLOCALECP) + { +#endif /* _INTL */ +#ifdef _NTSUBSET_ + { + NTSTATUS Status; + + Status = RtlUnicodeToMultiByteN(s, n, (PULONG)&count, (wchar_t *)pwcs, (wcslen(pwcs)+1)*sizeof(WCHAR)); + if (NT_SUCCESS(Status)) + { + return count - 1; /* don't count NUL */ + } else { + errno = EILSEQ; + count = (size_t)-1; + } + } +#else + /* C locale: easy and fast */ + while(count < n) + { + if (*pwcs > 255) /* validate high byte */ + { + errno = EILSEQ; + return (size_t)-1; /* error */ + } + s[count] = (char) *pwcs; + if (*pwcs++ == L'\0') + return count; + count++; + } +#endif + return count; +#if defined(_INTL) && !defined(_NTSUBSET_) + } else { + /* Assume that usually the buffer is large enough */ + if (((count=WideCharToMultiByte(_lc_codepage, + WC_COMPOSITECHECK | WC_SEPCHARS, + pwcs, -1, s, n, NULL, &defused)) != 0) && (!defused)) + return count - 1; /* don't count NUL */ + + if (defused || GetLastError() != ERROR_INSUFFICIENT_BUFFER) + { + errno = EILSEQ; + return (size_t)-1; + } + + /* buffer not large enough, must do char by char */ + while (count < n) + { + if (((retval = WideCharToMultiByte (_lc_codepage, 0, + pwcs, 1, buffer, MB_CUR_MAX, NULL, &defused)) == 0) || defused) + { + errno = EILSEQ; + return (size_t)-1; + } + + if (count + retval > n) + return count; + + for (i = 0; i < retval; i++, count++) /* store character */ + if((s[count] = buffer[i])=='\0') + return count; /* done if NUL */ + pwcs++; + } + return count; + } +#endif /* _INTL */ + } + else { /* s == NULL, get size only, pwcs must be NUL-terminated */ +#if defined(_INTL) && !defined(_NTSUBSET_) + if (_lc_handle[LC_CTYPE] == _CLOCALEHANDLE && + _lc_codepage == _CLOCALECP) +#endif /* _INTL */ +#ifdef _NTSUBSET_ + { + NTSTATUS Status; + + Status = RtlUnicodeToMultiByteSize((PULONG)&count, (wchar_t *)pwcs, (wcslen(pwcs)+1)*sizeof(WCHAR)); + if (NT_SUCCESS(Status)) + { + return count - 1; /* don't count NUL */ + } else { + errno = EILSEQ; + count = (size_t)-1; + } + } +#else + return wcslen(pwcs); +#endif +#if defined(_INTL) && !defined(_NTSUBSET_) + else { + if (((count=WideCharToMultiByte(_lc_codepage, + WC_COMPOSITECHECK | WC_SEPCHARS, + pwcs, -1, NULL, 0, NULL, &defused)) == 0) || (defused)) + { + errno = EILSEQ; + return (size_t)-1; + } + + return count - 1; + } +#endif /* _INTL */ + } +} |