annotate lib/error.c @ 482:ef6aca95adeb

Fix typo in comment.
author Jim Meyering <jim@meyering.net>
date Wed, 13 Sep 1995 13:15:35 +0000
parents 79626753a234
children c6cca2ddbf8d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* error.c -- error handler for noninteractive utilities
440
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
2 Copyright (C) 1990, 91, 92, 93, 94, 95 Free Software Foundation, Inc.
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7 any later version.
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12 GNU General Public License for more details.
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 along with this program; if not, write to the Free Software
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
18 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
19
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
20 #ifdef HAVE_CONFIG_H
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
21 #include <config.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
22 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 #include <stdio.h>
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
26 #if HAVE_VPRINTF || HAVE_DOPRNT
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
27 # if __STDC__
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
28 # include <stdarg.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
29 # define VA_START(args, lastarg) va_start(args, lastarg)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
30 # else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
31 # include <varargs.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
32 # define VA_START(args, lastarg) va_start(args)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
33 # endif
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
34 #else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
35 # define va_alist a1, a2, a3, a4, a5, a6, a7, a8
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
36 # define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
37 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
39 #if STDC_HEADERS
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
40 # include <stdlib.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
41 # include <string.h>
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
42 #else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
43 void exit ();
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
44 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45
440
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
46 /* This variable is incremented each time `error' is called. */
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
47 unsigned int error_message_count;
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
48
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
49 /* If NULL, error will flush stdout, then print on stderr the program
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
50 name, a colon and a space. Otherwise, error will call this
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
51 function without parameters instead. */
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
52 void (*error_print_progname) () = NULL;
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
54 /* The calling program should define program_name and set it to the
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
55 name of the executing program. */
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
56 extern char *program_name;
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
57
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
58 #if HAVE_STRERROR
482
ef6aca95adeb Fix typo in comment.
Jim Meyering <jim@meyering.net>
parents: 440
diff changeset
59 # ifndef strerror /* On some systems, strerror is a macro */
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
60 char *strerror ();
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
61 # endif
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
62 #else
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 static char *
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 private_strerror (errnum)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 int errnum;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66 {
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67 extern char *sys_errlist[];
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 extern int sys_nerr;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 if (errnum > 0 && errnum <= sys_nerr)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 return sys_errlist[errnum];
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 return "Unknown system error";
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73 }
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74 #define strerror private_strerror
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
75 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
77 /* Print the program name and error message MESSAGE, which is a printf-style
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
78 format string with optional args.
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
79 If ERRNUM is nonzero, print its corresponding system error message.
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
80 Exit with status STATUS if it is nonzero. */
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
81 /* VARARGS */
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
82
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
83 void
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
84 #if defined(VA_START) && __STDC__
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
85 error (int status, int errnum, const char *message, ...)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
86 #else
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
87 error (status, errnum, message, va_alist)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
88 int status;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
89 int errnum;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
90 char *message;
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
91 va_dcl
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
92 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
93 {
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
94 #ifdef VA_START
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
95 va_list args;
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
96 #endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
97
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
98 if (error_print_progname)
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
99 (*error_print_progname) ();
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
100 else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
101 {
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
102 fflush (stdout);
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
103 fprintf (stderr, "%s: ", program_name);
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
104 }
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
105
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
106 #ifdef VA_START
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107 VA_START (args, message);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
108 # if HAVE_VPRINTF
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
109 vfprintf (stderr, message, args);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
110 # else
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
111 _doprnt (message, args, stderr);
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
112 # endif
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113 va_end (args);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
114 #else
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
115 fprintf (stderr, message, a1, a2, a3, a4, a5, a6, a7, a8);
398
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
116 #endif
Jim Meyering <jim@meyering.net>
parents: 9
diff changeset
117
440
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
118 ++error_message_count;
79626753a234 merge with 1.11.1a
Jim Meyering <jim@meyering.net>
parents: 398
diff changeset
119
9
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
120 if (errnum)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
121 fprintf (stderr, ": %s", strerror (errnum));
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
122 putc ('\n', stderr);
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
123 fflush (stderr);
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
124 if (status)
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
125 exit (status);
f8dce34b5ab0 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
126 }