1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1985-2009 AT&T Intellectual Property *
* and is licensed under the *
* Common Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* http://www.opensource.org/licenses/cpl1.0.txt *
* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* David Korn <dgk@research.att.com> *
* Phong Vo <kpv@research.att.com> *
* *
***********************************************************************/
#include "sfhdr.h"
/* Read formated data from a stream
**
** Written by Kiem-Phong Vo.
*/
#if __STD_C
int sfscanf(Sfio_t* f, const char* form, ...)
#else
int sfscanf(va_alist)
va_dcl
#endif
{
va_list args;
reg int rv;
#if __STD_C
va_start(args,form);
#else
reg Sfio_t* f;
reg char* form;
va_start(args);
f = va_arg(args,Sfio_t*);
form = va_arg(args,char*);
#endif
rv = (f && form) ? sfvscanf(f,form,args) : -1;
va_end(args);
return rv;
}
#if __STD_C
int sfvsscanf(const char* s, const char* form, va_list args)
#else
int sfvsscanf(s, form, args)
char* s;
char* form;
va_list args;
#endif
{
Sfio_t f;
if(!s || !form)
return -1;
/* make a fake stream */
SFCLEAR(&f,NIL(Vtmutex_t*));
f.flags = SF_STRING|SF_READ;
f.bits = SF_PRIVATE;
f.mode = SF_READ;
f.size = strlen((char*)s);
f.data = f.next = f.endw = (uchar*)s;
f.endb = f.endr = f.data+f.size;
return sfvscanf(&f,form,args);
}
#if __STD_C
int sfsscanf(const char* s, const char* form,...)
#else
int sfsscanf(va_alist)
va_dcl
#endif
{
va_list args;
reg int rv;
#if __STD_C
va_start(args,form);
#else
reg char* s;
reg char* form;
va_start(args);
s = va_arg(args,char*);
form = va_arg(args,char*);
#endif
rv = (s && form) ? sfvsscanf(s,form,args) : -1;
va_end(args);
return rv;
}
|
