1 files changed, 87 insertions, 0 deletions

diff --git a/private/crt32/stdio/putw.c b/private/crt32/stdio/putw.c
new file mode 100644
index 000000000..db5600417
--- /dev/null
+++ b/private/crt32/stdio/putw.c
@@ -0,0 +1,87 @@
+/***
+*putw.c - put a binary int to output stream
+*
+*	Copyright (c) 1985-1991, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	defines _putw() - puts a binary int to an output stream
+*
+*Revision History:
+*	09-02-83  RN	initial version
+*	11-09-87  JCR	Multi-thread support
+*	12-11-87  JCR	Added "_LOAD_DS" to declaration
+*	01-13-88  JCR	Removed unnecessary calls to mthread fileno/feof/ferror
+*	05-27-88  PHG	Merged DLL and normal versions
+*	06-15-88  JCR	Near reference to _iob[] entries; improve REG variables
+*	08-25-88  GJF	Don't use FP_OFF() macro for the 386
+*	08-18-89  GJF	Clean up, now specific to OS/2 2.0 (i.e., 386 flat
+*			model). Also fixed copyright and indents.
+*	02-15-90  GJF	Fixed copyright
+*	03-19-90  GJF	Made calling type _CALLTYPE1, added #include
+*			<cruntime.h> and removed #include <register.h>.
+*	07-23-90  SBM	Replaced <assertm.h> by <assert.h>
+*	10-03-90  GJF	New-style function declarators.
+*	01-21-91  GJF	ANSI naming.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <stdio.h>
+#include <assert.h>
+#include <file2.h>
+#include <internal.h>
+#include <os2dll.h>
+
+/***
+*int _putw(word, stream) - write a binary int to an output stream
+*
+*Purpose:
+*	Writes sizeof(int) bytes to the output stream, high byte first.
+*	This routine should be machine independent.
+*
+*Entry:
+*	int word - integer to write
+*	FILE *stream - stream to write to
+*
+*Exit:
+*	returns the word put to the stream
+*	returns EOF if error, but this is a legit int value, so should
+*	test with feof() or ferror().
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+int _CALLTYPE1 _putw (
+	int word,
+	FILE *str
+	)
+{
+	REG1 FILE *stream;
+	REG3 int bytecount = sizeof(int);
+	REG2 char *byteptr = (char *)&word;
+	int retval;
+#ifdef MTHREAD
+	int index;
+#endif
+
+	assert(str != NULL);
+
+	/* Init stream pointer */
+	stream = str;
+
+#ifdef MTHREAD
+	index = _iob_index(stream);
+#endif
+	_lock_str(index);
+
+	while (bytecount--)
+	{
+		_putc_lk(*byteptr,stream);
+		++byteptr;
+	}
+	retval = (ferror(stream) ? EOF : word);
+
+	_unlock_str(index);
+	return(retval);
+}