]> pd.if.org Git - pdclib.old/blob - stdio/vsscanf.c
[gandr] s/__lp64__/__LP64__/ to match GCC define
[pdclib.old] / stdio / vsscanf.c
1 /* $Id$ */
2
3 /* vsscanf( const char *, const char *, va_list arg )
4
5    This file is part of the Public Domain C Library (PDCLib).
6    Permission is granted to use, modify, and / or redistribute at will.
7 */
8
9 #include <stdio.h>
10 #include <stdarg.h>
11
12 #ifndef REGTEST
13 #include <ctype.h>
14
15 int vsscanf( const char * _PDCLIB_restrict s, const char * _PDCLIB_restrict format, va_list arg )
16 {
17     /* base, flag, n, i, current, s, width, prec, stream, arg */
18     struct _PDCLIB_status_t status = { 0, 0, 0, 0, 0, (char *)s, 0, 0, NULL, NULL };
19     va_copy( status.arg, arg );
20
21     while ( *format != '\0' )
22     {
23         const char * rc;
24         if ( ( *format != '%' ) || ( ( rc = _PDCLIB_scan( format, &status ) ) == format ) )
25         {
26             /* No conversion specifier, match verbatim */
27             if ( isspace( *format ) )
28             {
29                 /* Whitespace char in format string: Skip all whitespaces */
30                 /* No whitespaces in input do not result in matching error */
31                 while ( isspace( *status.s ) )
32                 {
33                     ++status.s;
34                     ++status.i;
35                 }
36             }
37             else
38             {
39                 /* Non-whitespace char in format string: Match verbatim */
40                 if ( *status.s != *format )
41                 {
42                     /* Matching error */
43                     return status.n;
44                 }
45                 else
46                 {
47                     ++status.s;
48                     ++status.i;
49                 }
50             }
51             ++format;
52         }
53         else
54         {
55             /* NULL return code indicates input error */
56             if ( rc == NULL )
57             {
58                 break;
59             }
60             /* Continue parsing after conversion specifier */
61             format = rc;
62         }
63     }
64     va_end( status.arg );
65     return status.n;
66 }
67
68 #endif
69
70 #ifdef TEST
71 #include <_PDCLIB_test.h>
72
73 int main( void )
74 {
75     char const * teststring1 = "abc  def";
76     char const * teststring2 = "abcdef";
77     char const * teststring3 = "abc%def";
78     int x;
79     TESTCASE( sscanf( teststring2, "abcdef%n", &x ) == 0 );
80     TESTCASE( x == 6 );
81     TESTCASE( sscanf( teststring1, "abc def%n", &x ) == 0 );
82     TESTCASE( x == 8 );
83     TESTCASE( sscanf( teststring2, "abc def%n", &x ) == 0 );
84     TESTCASE( x == 6 );
85     TESTCASE( sscanf( teststring3, "abc%%def%n", &x ) == 0 );
86     TESTCASE( x == 7 );
87     return TEST_RESULTS;
88 }
89
90 #endif