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 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__) 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__) 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