if (command_name && *command_name) if (status) fprintf (out, "%s [%s aborted]: ", program_name, command_name);
error (status, errnum, message, va_alist)     int status;     int errnum;     const char *message;     va_dcl#endif{  FILE *out = stderr;  extern char *program_name;  extern char *command_name;#ifdef HAVE_VPRINTF  va_list args;#endif  if (error_use_protocol)    {      out = stdout;      printf ("E ");    }  if (command_name && *command_name)    if (status)      fprintf (out, "%s [%s aborted]: ", program_name, command_name);    else      fprintf (out, "%s %s: ", program_name, command_name);  else    fprintf (out, "%s: ", program_name);#ifdef HAVE_VPRINTF  VA_START (args, message);  vfprintf (out, message, args);  va_end (args);#else#ifdef HAVE_DOPRNT  _doprnt (message, &args, out);#else  fprintf (out, message, a1, a2, a3, a4, a5, a6, a7, a8);#endif#endif  if (errnum)    fprintf (out, ": %s", strerror (errnum));  putc ('\n', out);  fflush (out);  if (status)    {      if (cleanup_fn)	(*cleanup_fn) ();      exit (status);    }}