src/comerr/com_err.c

   1 /*
   2  * Copyright 1987, 1988 by MIT Student Information Processing Board.
   3  *
   4  * For copyright info, see mit-sipb-cr.h.
   5  */
   6
   7 #include <afsconfig.h>
   8 #include <afs/param.h>
   9
  10 RCSID("$Header$");
  11
  12 #include "internal.h"
  13 #include <stdio.h>
  14 #include <stdarg.h>
  15 #include "error_table.h"
  16 #include "com_err.h"
  17
  18 static void
  19     default_com_err_proc (const char *whoami, afs_int32 code, const char *fmt, va_list args)
  20 {
  21     if (whoami) {
  22         fputs(whoami, stderr);
  23         fputs(": ", stderr);
  24     }
  25     if (code) {
  26         fputs(error_message(code), stderr);
  27         fputs(" ", stderr);
  28     }
  29     if (fmt) {
  30         vfprintf (stderr, fmt, args);
  31     }
  32     putc('\n', stderr);
  33     /* should do this only on a tty in raw mode */
  34     putc('\r', stderr);
  35     fflush(stderr);
  36 }
  37
  38 typedef void (*errf) (const char *, afs_int32, const char *, va_list);
  39
  40 static errf com_err_hook = default_com_err_proc;
  41
  42 void com_err_va (const char *whoami, afs_int32 code, const char *fmt, va_list args)
  43 {
  44     (*com_err_hook) (whoami, code, fmt, args);
  45 }
  46
  47 void com_err (const char *whoami, afs_int32 code, const char *fmt, ...)
  48 {
  49     va_list pvar;
  50
  51     if (!com_err_hook)
  52         com_err_hook = default_com_err_proc;
  53     va_start(pvar, fmt);
  54     com_err_va (whoami, code, fmt, pvar);
  55     va_end(pvar);
  56 }
  57
  58 errf set_com_err_hook (errf new_proc)
  59 {
  60     errf x = com_err_hook;
  61     if (new_proc) com_err_hook = new_proc;
  62     else com_err_hook = default_com_err_proc;
  63     return x;
  64 }
  65
  66 errf reset_com_err_hook (void)
  67 {
  68     errf x = com_err_hook;
  69     com_err_hook = default_com_err_proc;
  70     return x;
  71 }