51 lines
1.7 KiB
C
51 lines
1.7 KiB
C
|
/* p__qbstscanf.c
|
||
|
|
Author: Steven Augart (swa@isi.edu)
|
||
|
|
Designed, Documented, and Written: 7/18/92 -- 7/27/92
|
||
|
|
Ported from Gnu C to full ANSI C & traditional C, 10/5/92
|
||
|
|
& modifier added, detraditionalized: 2/16/93.
|
||
|
|
Made a wrapper around qscanf(), 3/2/93
|
||
|
|
Turned into p__qbstscanf(), 19 Nov 1993
|
||
|
|
*/
|
||
|
|
/* This file is not a final interface; use it for internal purposes only. */
|
||
|
|
/* Copyright (c) 1992, 1993 by the University of Southern California. */
|
||
|
|
/* For copying and distribution information, see the file <usc-license.h> */
|
||
|
|
|
||
|
|
#include <usc-license.h>
|
||
|
|
#include <stdarg.h> /* ANSI variable arguments facility. */
|
||
|
|
#include <pfs.h>
|
||
|
|
#include <pparse.h>
|
||
|
|
|
||
|
|
int
|
||
|
|
p__qbstscanf(const char *sthead, /* Start of the string stpos is in */
|
||
|
|
const char *stpos, /* position for the read ptr. */
|
||
|
|
const char *format, /* What to scan for. */
|
||
|
|
...) /* remaining args: pointers to places to store
|
||
|
|
the data we read, or integers (field widths).
|
||
|
|
*/
|
||
|
|
{
|
||
|
|
va_list ap; /* for varargs */
|
||
|
|
int retval;
|
||
|
|
INPUT_ST in_st;
|
||
|
|
INPUT in = &in_st;
|
||
|
|
|
||
|
|
#ifdef P_ALLOCATOR_CONSISTENCY_CHECK
|
||
|
|
assert(p__bst_consistency_fld(sthead) == P__INUSE_PATTERN);
|
||
|
|
#endif
|
||
|
|
CHECK_PTRinBUFF(sthead,stpos);
|
||
|
|
in->sourcetype = IO_BSTRING;
|
||
|
|
in->rreq = NULL;
|
||
|
|
in->s = stpos;
|
||
|
|
in->file = NULL;
|
||
|
|
in->bstring_length = p_bstlen(sthead);
|
||
|
|
assert(sthead <= stpos);
|
||
|
|
in->offset = stpos - sthead;
|
||
|
|
assert(in->offset <= in->bstring_length); /* make sure consistent. */
|
||
|
|
in->flags = PERCENT_R_TARGET_IS_STRING;
|
||
|
|
|
||
|
|
va_start(ap, format);
|
||
|
|
|
||
|
|
retval = vqscanf(in, format, ap);
|
||
|
|
va_end(ap);
|
||
|
|
return retval;
|
||
|
|
}
|