1 files changed, 159 insertions, 0 deletions
diff --git a/private/crt32/stdio/fputwc.c b/private/crt32/stdio/fputwc.c
new file mode 100644
index 000000000..f28fb10b6
--- /dev/null
+++ b/private/crt32/stdio/fputwc.c
@@ -0,0 +1,159 @@
+/***
+*fputwc.c - write a wide character to an output stream
+*
+*	Copyright (c) 1993, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	defines fputwc() - writes a wide character to a stream
+*
+*Revision History:
+*	04-26-93  CFW	Module created.
+*	04-30-93  CFW	Bring wide char support from fputc.c.
+*	05-03-93  CFW	Add putwc function.
+*	05-10-93  CFW	Optimize, fix error handling.
+*	06-02-93  CFW	Wide get/put use wint_t.
+*       07-16-93  SRW   ALPHA Merge
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <stdio.h>
+#include <assert.h>
+#include <file2.h>
+#include <internal.h>
+#include <os2dll.h>
+#include <msdos.h>
+#include <errno.h>
+#include <wchar.h>
+#include <tchar.h>
+#include <setlocal.h>
+
+#ifdef MTHREAD	/* multi-thread; define both fputwc and _putwc_lk */
+
+/***
+*wint_t fputwc(ch, stream) - write a wide character to a stream
+*
+*Purpose:
+*	Writes a wide character to a stream.  Function version of putwc().
+*
+*Entry:
+*	wint_t ch - wide character to write
+*	FILE *stream - stream to write to
+*
+*Exit:
+*	returns the wide character if successful
+*	returns WEOF if fails
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+wint_t _CRTAPI1 fputwc (
+	wint_t ch,
+	FILE *str
+	)
+{
+	REG1 FILE *stream;
+	REG2 wint_t retval;
+	int index;
+
+	assert(str != NULL);
+
+	/* Init stream pointer */
+	stream = str;
+
+	index = _iob_index(stream);
+	_lock_str(index);
+	retval = _putwc_lk(ch,stream);
+	_unlock_str(index);
+
+	return(retval);
+}
+
+/***
+*_putwc_lk() -  putwc() core routine (locked version)
+*
+*Purpose:
+*	Core putwc() routine; assumes stream is already locked.
+*
+*	[See putwc() above for more info.]
+*
+*Entry: [See putwc()]
+*
+*Exit:	[See putwc()]
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+wint_t _CRTAPI1 _putwc_lk (
+	wint_t ch,
+	FILE *str
+	)
+{
+
+#else	/* non multi-thread; just define fputwc */
+
+wint_t _CRTAPI1 fputwc (
+	wint_t ch,
+	FILE *str
+	)
+{
+
+#endif	/* rejoin common code */
+
+#ifndef _NTSUBSET_
+	if (!(str->_flag & _IOSTRG) && (_osfile[_fileno(str)] & FTEXT))
+	{
+		int size, defused;
+		char mbc[4];
+	
+		/* text (multi-byte) mode */
+		size = WideCharToMultiByte(_lc_codepage,
+					   WC_COMPOSITECHECK | WC_SEPCHARS,
+					   (wchar_t *)&ch,
+					   1,
+					   mbc,
+					   MB_CUR_MAX,
+					   NULL,
+					   &defused);
+
+		if ( (size == 0) || defused )
+		{
+			/*
+			 * Conversion failed! Set errno and return
+			 * failure.
+			 */
+			errno = EILSEQ;
+			return WEOF;
+		}
+		else if ( size == 1 )
+		{
+			if ( _putc_lk(mbc[0], str) == EOF )
+				return WEOF;
+			return (wint_t)(0xffff & ch);
+		}
+		else { /* size == 2 */
+			if ( (_putc_lk(mbc[0], str) == EOF) ||
+			     (_putc_lk(mbc[1], str) == EOF) )
+			 	return WEOF;
+			return (wint_t)(0xffff & ch);
+		}
+	}
+#endif
+	/* binary (Unicode) mode */
+	if ( (str->_cnt -= sizeof(wchar_t)) >= 0 )
+		return (wint_t) (0xffff & (*((wchar_t *)(str->_ptr))++ = (wchar_t)ch));
+	else
+		return _flswbuf(ch, str);
+}
+
+#undef putwc
+
+wint_t _CRTAPI1 putwc (
+	wint_t ch,
+	FILE *str
+	)
+{
+	return fputwc(ch, str);
+}