82 lines
2.3 KiB
C
82 lines
2.3 KiB
C
/***
|
|
*swscanf.c - read formatted data from wide-character string
|
|
*
|
|
* Copyright (c) 1991-1992, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* defines _swscanf() - reads formatted data from wide-character string
|
|
*
|
|
*Revision History:
|
|
* 11-21-91 ETC Created from sscanf.c
|
|
# 05-16-92 KRS Revised for new ISO spec. format is wchar_t * now.
|
|
* 02-18-93 SRW Make FILE a local and remove lock usage.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#include <stdio.h>
|
|
#include <wchar.h>
|
|
#include <assert.h>
|
|
#include <stdarg.h>
|
|
#include <string.h>
|
|
#include <internal.h>
|
|
#include <os2dll.h>
|
|
|
|
/***
|
|
*int swscanf(string, format, ...) - read formatted data from wide-char string
|
|
*
|
|
*Purpose:
|
|
* Same as sscanf (described below) from reads from a wide-char string.
|
|
*
|
|
* Reads formatted data from string into arguments. _winput does the real
|
|
* work here. Sets up a FILE so file i/o operations can be used, makes
|
|
* string look like a huge buffer to it, but _filbuf will refuse to refill
|
|
* it if it is exhausted.
|
|
*
|
|
* Allocate the 'fake' _iob[] entryit statically instead of on
|
|
* the stack so that other routines can assume that _iob[] entries are in
|
|
* are in DGROUP and, thus, are near.
|
|
*
|
|
* Multi-thread: (1) Since there is no stream, this routine must never try
|
|
* to get the stream lock (i.e., there is no stream lock either). (2)
|
|
* Also, since there is only one staticly allocated 'fake' iob, we must
|
|
* lock/unlock to prevent collisions.
|
|
*
|
|
*Entry:
|
|
* wchar_t *string - wide-character string to read data from
|
|
* wchar_t *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 swscanf (
|
|
REG2 const wchar_t *string,
|
|
const wchar_t *format,
|
|
...
|
|
)
|
|
{
|
|
va_list arglist;
|
|
FILE str;
|
|
REG1 FILE *infile = &str;
|
|
REG2 int retval;
|
|
|
|
va_start(arglist, format);
|
|
|
|
assert(string != NULL);
|
|
assert(format != NULL);
|
|
|
|
infile->_flag = _IOREAD|_IOSTRG|_IOMYBUF;
|
|
infile->_ptr = infile->_base = (char *) string;
|
|
infile->_cnt = wcslen(string)*sizeof(wchar_t);
|
|
|
|
retval = (_winput(infile,format,arglist));
|
|
|
|
return(retval);
|
|
}
|