1 files changed, 83 insertions, 0 deletions
diff --git a/private/crt32/stdio/fscanf.c b/private/crt32/stdio/fscanf.c
new file mode 100644
index 000000000..7e6dbb6dc
--- /dev/null
+++ b/private/crt32/stdio/fscanf.c
@@ -0,0 +1,83 @@
+/***
+*fscanf.c - read formatted data from stream
+*
+*	Copyright (c) 1985-1991, Microsoft Corporation. All rights reserved.
+*
+*Purpose:
+*	defines fscanf() - reads formatted data from stream
+*
+*Revision History:
+*	09-02-83  RN	initial version
+*	04-13-87  JCR	added const to declaration
+*	06-24-87  JCR	(1) Made declaration conform to ANSI prototype and use
+*			the va_ macros; (2) removed SS_NE_DS conditionals.
+*	11-06-87  JCR	Multi-thread support
+*	12-11-87  JCR	Added "_LOAD_DS" to declaration
+*	05-31-88  PHG	Merged DLL and normal versions
+*	02-15-90  GJF	Fixed copyright and indents
+*	03-19-90  GJF	Replaced _LOAD_DS with _CALLTYPE2 and added #include
+*			<cruntime.h>.
+*	03-26-90  GJF	Added #include <internal.h>.
+*	07-23-90  SBM	Replaced <assertm.h> by <assert.h>
+*	10-02-90  GJF	New-style function declarator.
+*
+*******************************************************************************/
+
+#include <cruntime.h>
+#include <stdio.h>
+#include <assert.h>
+#include <stdarg.h>
+#include <file2.h>
+#include <internal.h>
+#include <os2dll.h>
+
+/***
+*int fscanf(stream, format, ...) - read formatted data from stream
+*
+*Purpose:
+*	Reads formatted data from stream into arguments.  _input does the real
+*	work here.
+*
+*Entry:
+*	FILE *stream - stream to read data from
+*	char *format - format string
+*	followed by list of pointers to storage for the data read.  The number
+*	and type are controlled by the format string.
+*
+*Exit:
+*	returns number of fields read and assigned
+*
+*Exceptions:
+*
+*******************************************************************************/
+
+int _CALLTYPE2 fscanf (
+	FILE *stream,
+	const char *format,
+	...
+	)
+/*
+ * 'F'ile (stream) 'SCAN', 'F'ormatted
+ */
+{
+	int retval;
+#ifdef MTHREAD
+	int index;
+#endif
+
+	va_list arglist;
+
+	va_start(arglist, format);
+
+	assert(stream != NULL);
+	assert(format != NULL);
+
+#ifdef MTHREAD
+	index = _iob_index(stream);
+#endif
+	_lock_str(index);
+	retval = (_input(stream,format,arglist));
+	_unlock_str(index);
+
+	return(retval);
+}