pd.if.org Git - pdclib/blob - functions/stdio/vsscanf.c

   1 /* vsscanf( const char *, const char *, va_list )
   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