]> pd.if.org Git - pdclib/blob - functions/stdio/vfprintf.c
7ab3167499a8d2f57360d01a1b3a458abf4b477d
[pdclib] / functions / stdio / vfprintf.c
1 /* $Id$ */
2
3 /* vfprintf( 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 <stdint.h>
12
13 #ifndef REGTEST
14
15 int vfprintf( struct _PDCLIB_file_t * _PDCLIB_restrict stream, const char * _PDCLIB_restrict format, va_list arg )
16 {
17     /* TODO: This function should interpret format as multibyte characters.  */
18     struct _PDCLIB_status_t status;
19     status.base = 0;
20     status.flags = 0;
21     status.n = SIZE_MAX;
22     status.i = 0;
23     status.current = 0;
24     status.s = NULL;
25     status.width = 0;
26     status.prec = 0;
27     status.stream = stream;
28     va_copy( status.arg, arg );
29
30     while ( *format != '\0' )
31     {
32         const char * rc;
33         if ( ( *format != '%' ) || ( ( rc = _PDCLIB_print( format, &status ) ) == format ) )
34         {
35             /* No conversion specifier, print verbatim */
36             putc( *(format++), stream );
37             status.i++;
38         }
39         else
40         {
41             /* Continue parsing after conversion specifier */
42             format = rc;
43         }
44     }
45     va_end( status.arg );
46     return status.i;
47 }
48
49 #endif
50
51 #ifdef TEST
52 #define _PDCLIB_FILEID "stdio/vfprintf.c"
53 #define FPRINTF_FUNCTION
54 #include <stdlib.h>
55 #include <limits.h>
56 #include <string.h>
57 #include <_PDCLIB_test.h>
58
59 static int testprintf( FILE * stream, const char * format, ... )
60 {
61     int i;
62     va_list arg;
63     va_start( arg, format );
64     i = vfprintf( stream, format, arg );
65     va_end( arg );
66     return i;
67 }
68
69 int main( void )
70 {
71     FILE * target;
72     TESTCASE( ( target = fopen( testfile, "wb+" ) ) != NULL );
73 #include "printf_testcases.incl"
74     TESTCASE( fclose( target ) == 0 );
75     TESTCASE( remove( testfile ) == 0 );
76     return TEST_RESULTS;
77 }
78
79 #endif