]> pd.if.org Git - pdclib/blob - functions/stdio/vsscanf.c
51b49e5cbc90d7c25521f0775fd5d641da5edeb1
[pdclib] / functions / stdio / vsscanf.c
1 /* vsscanf( const char *, const char *, va_list arg )
2
3    This file is part of the Public Domain C Library (PDCLib).
4    Permission is granted to use, modify, and / or redistribute at will.
5 */
6
7 #include <stdio.h>
8 #include <stdarg.h>
9
10 #ifndef REGTEST
11 #include <ctype.h>
12 #include <_PDCLIB_io.h>
13
14 int vsscanf( const char * _PDCLIB_restrict s, 
15              const char * _PDCLIB_restrict format, 
16              va_list arg )
17 {
18     /* TODO: This function should interpret format as multibyte characters.  */
19     struct _PDCLIB_status_t status;
20     status.base = 0;
21     status.flags = 0;
22     status.n = 0;
23     status.i = 0;
24     status.current = 0;
25     status.s = (char *) s;
26     status.width = 0;
27     status.prec = 0;
28     status.stream = NULL;
29     va_copy( status.arg, arg );
30
31     while ( *format != '\0' )
32     {
33         const char * rc;
34         if ( ( *format != '%' ) || ( ( rc = _PDCLIB_scan( format, &status ) ) == format ) )
35         {
36             /* No conversion specifier, match verbatim */
37             if ( isspace( *format ) )
38             {
39                 /* Whitespace char in format string: Skip all whitespaces */
40                 /* No whitespaces in input do not result in matching error */
41                 while ( isspace( *status.s ) )
42                 {
43                     ++status.s;
44                     ++status.i;
45                 }
46             }
47             else
48             {
49                 /* Non-whitespace char in format string: Match verbatim */
50                 if ( *status.s != *format )
51                 {
52                     if ( *status.s == '\0' && status.n == 0 )
53                     {
54                         /* Early input error */
55                         return EOF;
56                     }
57                     /* Matching error */
58                     return status.n;
59                 }
60                 else
61                 {
62                     ++status.s;
63                     ++status.i;
64                 }
65             }
66             ++format;
67         }
68         else
69         {
70             /* NULL return code indicates error */
71             if ( rc == NULL )
72             {
73                 if ( ( *status.s == '\n' ) && ( status.n == 0 ) )
74                 {
75                     status.n = EOF;
76                 }
77                 break;
78             }
79             /* Continue parsing after conversion specifier */
80             format = rc;
81         }
82     }
83     va_end( status.arg );
84     return status.n;
85 }
86
87 #endif
88
89 #ifdef TEST
90 #define _PDCLIB_FILEID "stdio/vsscanf.c"
91 #define _PDCLIB_STRINGIO
92
93 #include <_PDCLIB_test.h>
94
95 static int testscanf( char const * stream, char const * format, ... )
96 {
97     va_list ap;
98     va_start( ap, format );
99     int result = vsscanf( stream, format, ap );
100     va_end( ap );
101     return result;
102 }
103
104 int main( void )
105 {
106     char source[100];
107 #include "scanf_testcases.h"
108     return TEST_RESULTS;
109 }
110
111 #endif