1 /* error.c -- error handler for noninteractive utilities
2 Copyright (C) 1990-1992 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 2, or (at your option)
7 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 /* David MacKenzie */
15 /* Brian Berliner added support for CVS */
16
17 #include "cvs.h"
18
19 #include <stdio.h>
20
21 /* If non-zero, error will use the CVS protocol to stdout to report error
22 messages. This will only be set in the CVS server parent process;
23 most other code is run via do_cvs_command, which forks off a child
24 process and packages up its stderr in the protocol. */
25 int error_use_protocol;
26
27 #ifdef HAVE_VPRINTF
28
29 #ifdef __STDC__
30 #include <stdarg.h>
31 #define VA_START(args, lastarg) va_start(args, lastarg)
32 #else /* ! __STDC__ */
33 #include <varargs.h>
34 #define VA_START(args, lastarg) va_start(args)
35 #endif /* __STDC__ */
36
37 #else /* ! HAVE_VPRINTF */
38
39 #ifdef HAVE_DOPRNT
40 #define va_alist args
41 #define va_dcl int args;
42 #else /* ! HAVE_DOPRNT */
43 #define va_alist a1, a2, a3, a4, a5, a6, a7, a8
44 #define va_dcl char *a1, *a2, *a3, *a4, *a5, *a6, *a7, *a8;
45 #endif /* HAVE_DOPRNT */
46
47 #endif /* HAVE_VPRINTF */
48
49 #if STDC_HEADERS
50 #include <stdlib.h>
51 #include <string.h>
52 #else /* ! STDC_HEADERS */
53 #ifdef __STDC__
54 void exit(int status);
55 #else /* ! __STDC__ */
56 void exit ();
57 #endif /* __STDC__ */
58 #endif /* STDC_HEADERS */
59
60 #ifndef strerror
61 extern char *strerror ();
62 #endif
63
64 void
error_exit(void)65 error_exit PROTO ((void))
66 {
67 rcs_cleanup ();
68 Lock_Cleanup ();
69 #ifdef SERVER_SUPPORT
70 if (server_active)
71 server_cleanup (0);
72 #endif
73 #ifdef SYSTEM_CLEANUP
74 /* Hook for OS-specific behavior, for example socket subsystems on
75 NT and OS2 or dealing with windows and arguments on Mac. */
76 SYSTEM_CLEANUP ();
77 #endif
78 exit (EXIT_FAILURE);
79 }
80
81 /* Print the program name and error message MESSAGE, which is a printf-style
82 format string with optional args. This is a very limited printf subset:
83 %s, %d, %c, %x and %% only (without anything between the % and the s,
84 d, &c). Callers who want something fancier can use sprintf.
85
86 If ERRNUM is nonzero, print its corresponding system error message.
87 Exit with status EXIT_FAILURE if STATUS is nonzero. If MESSAGE is "",
88 no need to print a message.
89
90 I think this is largely cleaned up to the point where it does the right
91 thing for the server, whether the normal server_active (child process)
92 case or the error_use_protocol (parent process) case. The one exception
93 is that STATUS nonzero for error_use_protocol probably doesn't work yet;
94 in that case still need to use the pending_error machinery in server.c.
95
96 error() does not molest errno; some code (e.g. Entries_Open) depends
97 on being able to say something like:
98 error (0, 0, "foo");
99 error (0, errno, "bar");
100
101 */
102
103 /* VARARGS */
104 void
105 #if defined (__STDC__)
error(int status,int errnum,const char * message,...)106 error (int status, int errnum, const char *message, ...)
107 #else
108 error (status, errnum, message, va_alist)
109 int status;
110 int errnum;
111 const char *message;
112 va_dcl
113 #endif
114 {
115 int save_errno = errno;
116
117 if (message[0] != '\0')
118 {
119 va_list args;
120 const char *p;
121 char *q;
122 char *str;
123 int num;
124 long lnum;
125 unsigned int unum;
126 unsigned long ulnum;
127 int ch;
128 char buf[100];
129
130 cvs_outerr (program_name, 0);
131 if (command_name && *command_name)
132 {
133 cvs_outerr (" ", 1);
134 if (status != 0)
135 cvs_outerr ("[", 1);
136 cvs_outerr (command_name, 0);
137 if (status != 0)
138 cvs_outerr (" aborted]", 0);
139 }
140 cvs_outerr (": ", 2);
141
142 VA_START (args, message);
143 p = message;
144 while ((q = strchr (p, '%')) != NULL)
145 {
146 static const char msg[] =
147 "\ninternal error: bad % in error()\n";
148 if (q - p > 0)
149 cvs_outerr (p, q - p);
150
151 switch (q[1])
152 {
153 case 's':
154 str = va_arg (args, char *);
155 cvs_outerr (str, strlen (str));
156 break;
157 case 'd':
158 num = va_arg (args, int);
159 sprintf (buf, "%d", num);
160 cvs_outerr (buf, strlen (buf));
161 break;
162 case 'l':
163 if (q[2] == 'd')
164 {
165 lnum = va_arg (args, long);
166 sprintf (buf, "%ld", lnum);
167 }
168 else if (q[2] == 'u')
169 {
170 ulnum = va_arg (args, unsigned long);
171 sprintf (buf, "%lu", ulnum);
172 }
173 else goto bad;
174 cvs_outerr (buf, strlen (buf));
175 q++;
176 break;
177 case 'x':
178 unum = va_arg (args, unsigned int);
179 sprintf (buf, "%x", unum);
180 cvs_outerr (buf, strlen (buf));
181 break;
182 case 'c':
183 ch = va_arg (args, int);
184 buf[0] = ch;
185 cvs_outerr (buf, 1);
186 break;
187 case '%':
188 cvs_outerr ("%", 1);
189 break;
190 default:
191 bad:
192 cvs_outerr (msg, sizeof (msg) - 1);
193 /* Don't just keep going, because q + 1 might point to the
194 terminating '\0'. */
195 goto out;
196 }
197 p = q + 2;
198 }
199 cvs_outerr (p, strlen (p));
200 out:
201 va_end (args);
202
203 if (errnum != 0)
204 {
205 cvs_outerr (": ", 2);
206 cvs_outerr (strerror (errnum), 0);
207 }
208 cvs_outerr ("\n", 1);
209 }
210
211 if (status)
212 error_exit ();
213 errno = save_errno;
214 }
215
216 /* Print the program name and error message MESSAGE, which is a printf-style
217 format string with optional args to the file specified by FP.
218 If ERRNUM is nonzero, print its corresponding system error message.
219 Exit with status EXIT_FAILURE if STATUS is nonzero. */
220 /* VARARGS */
221 void
222 #if defined (HAVE_VPRINTF) && defined (__STDC__)
fperrmsg(FILE * fp,int status,int errnum,char * message,...)223 fperrmsg (FILE *fp, int status, int errnum, char *message, ...)
224 #else
225 fperrmsg (fp, status, errnum, message, va_alist)
226 FILE *fp;
227 int status;
228 int errnum;
229 char *message;
230 va_dcl
231 #endif
232 {
233 #ifdef HAVE_VPRINTF
234 va_list args;
235 #endif
236
237 fprintf (fp, "%s: ", program_name);
238 #ifdef HAVE_VPRINTF
239 VA_START (args, message);
240 vfprintf (fp, message, args);
241 va_end (args);
242 #else
243 #ifdef HAVE_DOPRNT
244 _doprnt (message, &args, fp);
245 #else
246 fprintf (fp, message, a1, a2, a3, a4, a5, a6, a7, a8);
247 #endif
248 #endif
249 if (errnum)
250 fprintf (fp, ": %s", strerror (errnum));
251 putc ('\n', fp);
252 fflush (fp);
253 if (status)
254 error_exit ();
255 }
256