annotate lib/xprintf.c @ 9364:559ef0e161fe

New module: xprintf * modules/xprintf, lib/xprintf.c, lib/xprintf.h: New files.
author Jim Meyering <meyering@redhat.com>
date Fri, 19 Oct 2007 17:09:37 +0200
parents
children 73ad59013feb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9364
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
1 /* printf wrappers that fail immediately for non-file-related errors
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
2 Copyright (C) 2007 Free Software Foundation, Inc.
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
3
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
4 This program is free software: you can redistribute it and/or modify
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
6 the Free Software Foundation; either version 3 of the License, or
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
7 (at your option) any later version.
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
8
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
12 GNU General Public License for more details.
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
13
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
16
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
17 #ifdef HAVE_CONFIG_H
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
18 # include <config.h>
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
19 #endif
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
20
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
21 #include "xprintf.h"
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
22
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
23 #include <errno.h>
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
24 #include <stdarg.h>
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
25
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
26 #include "error.h"
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
27 #include "exitfail.h"
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
28 #include "gettext.h"
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
29
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
30 /* written by Jim Meyering */
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
31
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
32 /* Just like printf, but call error if it fails for any reason
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
33 for which printf does not set the stream error indicator. */
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
34 int
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
35 xprintf (char const *restrict format, ...)
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
36 {
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
37 va_list args;
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
38 va_start (args, format);
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
39 int err = vprintf (format, args);
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
40 if (err && (errno == EILSEQ || errno == EINVAL || errno == ENOMEM))
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
41 error (exit_failure, errno, gettext ("write error"));
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
42
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
43 return err;
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
44 }
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
45
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
46 /* Just like fprintf, but call error if it fails for any reason
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
47 for which printf does not set the stream error indicator. */
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
48 int
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
49 xfprintf (FILE *restrict stream, char const *restrict format, ...)
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
50 {
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
51 va_list args;
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
52 va_start (args, format);
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
53 int err = vfprintf (stream, format, args);
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
54 if (err && (errno == EILSEQ || errno == EINVAL || errno == ENOMEM))
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
55 error (exit_failure, errno, gettext ("write error"));
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
56
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
57 return err;
559ef0e161fe New module: xprintf
Jim Meyering <meyering@redhat.com>
parents:
diff changeset
58 }