X-Git-Url: https://pd.if.org/git/?a=blobdiff_plain;f=functions%2Fstdio%2Fvfscanf.c;h=bd5a68121bb1b1a56de023428b542d921e68c252;hb=b5b6c4a890795ea76f9b92b817b0a83c6bb4862c;hp=fbf5356d78673667b741fca010ea4af5cfc9adbe;hpb=33515db12d3cc5e53a8bdea58d2cde299cba2267;p=pdclib.old diff --git a/functions/stdio/vfscanf.c b/functions/stdio/vfscanf.c index fbf5356..bd5a681 100644 --- a/functions/stdio/vfscanf.c +++ b/functions/stdio/vfscanf.c @@ -11,8 +11,11 @@ #include #ifndef REGTEST +#include <_PDCLIB_io.h> -int vfscanf( FILE * _PDCLIB_restrict stream, const char * _PDCLIB_restrict format, va_list arg ) +int _PDCLIB_vfscanf_unlocked( FILE * _PDCLIB_restrict stream, + const char * _PDCLIB_restrict format, + va_list arg ) { /* TODO: This function should interpret format as multibyte characters. */ struct _PDCLIB_status_t status; @@ -42,20 +45,20 @@ int vfscanf( FILE * _PDCLIB_restrict stream, const char * _PDCLIB_restrict forma { ++status.i; } - if ( ! feof( stream ) ) /* TODO: Check EOF status directly */ + if ( ! feof( stream ) ) { - ungetc( c, stream ); + _PDCLIB_ungetc_unlocked( c, stream ); } } else { /* Non-whitespace char in format string: Match verbatim */ - if ( ( ( c = getc( stream ) ) != *format ) || feof( stream ) ) /* TODO: Check EOF status directly */ + if ( ( ( c = _PDCLIB_getc_unlocked( stream ) ) != *format ) || feof( stream ) ) { /* Matching error */ - if ( ! feof( stream ) && ! ferror( stream ) ) /* TODO: Check EOF status directly */ + if ( ! feof( stream ) && ! ferror( stream ) ) { - ungetc( c, stream ); + _PDCLIB_ungetc_unlocked( c, stream ); } else if ( status.n == 0 ) { @@ -85,6 +88,16 @@ int vfscanf( FILE * _PDCLIB_restrict stream, const char * _PDCLIB_restrict forma return status.n; } +int vfscanf( FILE * _PDCLIB_restrict stream, + const char * _PDCLIB_restrict format, + va_list arg ) +{ + _PDCLIB_flockfile( stream ); + int r = _PDCLIB_vfscanf_unlocked( stream, format, arg ); + _PDCLIB_funlockfile( stream ); + return r; +} + #endif #ifdef TEST