lib/et/com_err.c

   1 /*
   2  * Copyright 1987, 1988 by MIT Student Information Processing Board.
   3  *
   4  * Permission to use, copy, modify, and distribute this software and
   5  * its documentation for any purpose is hereby granted, provided that
   6  * the names of M.I.T. and the M.I.T. S.I.P.B. not be used in
   7  * advertising or publicity pertaining to distribution of the software
   8  * without specific, written prior permission.  M.I.T. and the
   9  * M.I.T. S.I.P.B. make no representations about the suitability of
  10  * this software for any purpose.  It is provided "as is" without
  11  * express or implied warranty.
  12  */
  13
  14 #include "config.h"
  15 #include <stdio.h>
  16 #ifdef HAVE_TERMIOS_H
  17 #include <termios.h>
  18 #endif
  19 #ifdef HAVE_UNISTD_H
  20 #include <unistd.h>
  21 #endif
  22 #include "com_err.h"
  23 #include "error_table.h"
  24 #include "internal.h"
  25
  26 static void
  27 default_com_err_proc (const char *whoami, errcode_t code, const
  28                       char *fmt, va_list args)
  29         COM_ERR_ATTR((format(printf, 3, 0)));
  30
  31 static void
  32 default_com_err_proc (const char *whoami, errcode_t code, const
  33                       char *fmt, va_list args)
  34 {
  35     int do_cr = 1, fd = fileno(stderr);
  36
  37     if (whoami) {
  38         fputs(whoami, stderr);
  39         fputs(": ", stderr);
  40     }
  41     if (code) {
  42         fputs(error_message(code), stderr);
  43         fputs(" ", stderr);
  44     }
  45     if (fmt) {
  46         vfprintf (stderr, fmt, args);
  47     }
  48     if (!isatty(fd))
  49         do_cr = 0;
  50 #ifdef HAVE_TERMIOS_H
  51     else {
  52         struct termios t;
  53
  54         if ((tcgetattr(fd, &t)) == 0 &&
  55             (t.c_oflag & OPOST) && (t.c_oflag & ONLCR))
  56         do_cr = 0;
  57     }
  58 #endif
  59     if (do_cr)
  60         fputc('\r', stderr);
  61     fputc('\n', stderr);
  62     fflush(stderr);
  63 }
  64
  65 typedef void (*errf) (const char *, errcode_t, const char *, va_list)
  66         COM_ERR_ATTR((format(printf, 3, 0)));
  67
  68 errf com_err_hook = default_com_err_proc;
  69
  70 void com_err_va (const char *whoami, errcode_t code, const char *fmt,
  71                  va_list args)
  72 {
  73     (*com_err_hook) (whoami, code, fmt, args);
  74 }
  75
  76 void com_err (const char *whoami,
  77               errcode_t code,
  78               const char *fmt, ...)
  79 {
  80     va_list pvar;
  81
  82     if (!com_err_hook)
  83         com_err_hook = default_com_err_proc;
  84     va_start(pvar, fmt);
  85     com_err_va (whoami, code, fmt, pvar);
  86     va_end(pvar);
  87 }
  88
  89 errf set_com_err_hook(errf new_proc)
  90 {
  91     errf x = com_err_hook;
  92
  93     if (new_proc)
  94         com_err_hook = new_proc;
  95     else
  96         com_err_hook = default_com_err_proc;
  97
  98     return x;
  99 }
 100
 101 errf reset_com_err_hook(void) {
 102     errf x = com_err_hook;
 103     com_err_hook = default_com_err_proc;
 104     return x;
 105 }