New upstream version 1.8
[debian/gzip] / lib / vfprintf.c
1 /* Formatted output to a stream.
2    Copyright (C) 2004, 2006-2016 Free Software Foundation, Inc.
3
4    This program is free software: you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 3 of the License, or
7    (at your option) any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
16
17 #ifdef HAVE_CONFIG_H
18 # include <config.h>
19 #endif
20
21 /* Specification.  */
22 #include <stdio.h>
23
24 #include <errno.h>
25 #include <limits.h>
26 #include <stdarg.h>
27 #include <stdlib.h>
28
29 #include "fseterr.h"
30 #include "vasnprintf.h"
31
32 /* Print formatted output to the stream FP.
33    Return string length of formatted string.  On error, return a negative
34    value.  */
35 int
36 vfprintf (FILE *fp, const char *format, va_list args)
37 {
38   char buf[2000];
39   char *output;
40   size_t len;
41   size_t lenbuf = sizeof (buf);
42
43   output = vasnprintf (buf, &lenbuf, format, args);
44   len = lenbuf;
45
46   if (!output)
47     {
48       fseterr (fp);
49       return -1;
50     }
51
52   if (fwrite (output, 1, len, fp) < len)
53     {
54       if (output != buf)
55         {
56           int saved_errno = errno;
57           free (output);
58           errno = saved_errno;
59         }
60       return -1;
61     }
62
63   if (output != buf)
64     free (output);
65
66   if (len > INT_MAX)
67     {
68       errno = EOVERFLOW;
69       fseterr (fp);
70       return -1;
71     }
72
73   return len;
74 }