]> pd.if.org Git - pdclib.old/blob - stdio/vfscanf.c
[gandr] s/__lp64__/__LP64__/ to match GCC define
[pdclib.old] / stdio / vfscanf.c
1 /* $Id$ */
2
3 /* vfscanf( FILE *, const char *, va_list )
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 #include <ctype.h>
12
13 #ifndef REGTEST
14
15 int vfscanf( FILE * _PDCLIB_restrict stream, const char * _PDCLIB_restrict format, va_list arg )
16 {
17     /* base, flags, n, i, current, s, width, prec, stream, arg */
18     struct _PDCLIB_status_t status = { 0, 0, 0, 0, 0, NULL, 0, 0, stream, NULL };
19     va_copy( status.arg, arg );
20     while ( *format != '\0' )
21     {
22         const char * rc;
23         if ( ( *format != '%' ) || ( ( rc = _PDCLIB_scan( format, &status ) ) == format ) )
24         {
25             int c;
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 does not result in matching error */
31                 while ( isspace( c = getc( stream ) ) )
32                 {
33                     ++status.i;
34                 }
35                 if ( c != EOF )
36                 {
37                     ungetc( c, stream );
38                 }
39             }
40             else
41             {
42                 /* Non-whitespace char in format string: Match verbatim */
43                 if ( ( c = getc( stream ) ) != *format )
44                 {
45                     /* Matching error */
46                     ungetc( c, stream );
47                     return status.n;
48                 }
49                 else
50                 {
51                     ++status.i;
52                 }
53             }
54             ++format;
55         }
56         else
57         {
58             /* NULL return code indicates matching error */
59             if ( rc == NULL )
60             {
61                 break;
62             }
63             /* Continue parsing after conversion specifier */
64             format = rc;
65         }
66     }
67     va_end( status.arg );
68     return status.n;
69 }
70
71 #endif
72
73 #ifdef TEST
74 #include <_PDCLIB_test.h>
75
76 int main( void )
77 {
78     /* TODO: Check whitespace / EOF / ungetc handling */
79     TESTCASE( NO_TESTDRIVER );
80     return TEST_RESULTS;
81 }
82
83 #endif