home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / mail / pp / pp-6.0 / Lib / util / err_abrt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-18  |  850 b   |  51 lines
  1. /* err_abrt: abort from an error */
  2.  
  3. # ifndef lint
  4. static char Rcsid[] = "@(#)$Header: /xtel/pp/pp-beta/Lib/util/RCS/err_abrt.c,v 6.0 1991/12/18 20:25:18 jpo Rel $";
  5. # endif
  6.  
  7. /*
  8.  * $Header: /xtel/pp/pp-beta/Lib/util/RCS/err_abrt.c,v 6.0 1991/12/18 20:25:18 jpo Rel $
  9.  *
  10.  * $Log: err_abrt.c,v $
  11.  * Revision 6.0  1991/12/18  20:25:18  jpo
  12.  * Release 6.0
  13.  *
  14.  */
  15.  
  16.  
  17.  
  18. #include        "head.h"
  19. #include     <varargs.h>
  20.  
  21. #ifdef lint
  22. /*VARARGS2 */
  23. void err_abrt(code, fmt)
  24. int     code;
  25. char    *fmt;
  26. {
  27.     err_abrt (code, fmt);
  28. }
  29. #else
  30.  
  31. void err_abrt (va_alist)
  32. va_dcl
  33. {
  34.     va_list    ap;
  35.     int code;
  36.     char    tbuf[BUFSIZ];
  37.  
  38.     va_start (ap);
  39.  
  40.     code = va_arg (ap, int);
  41.  
  42.     _asprintf (tbuf, NULLCP, ap);
  43.  
  44.     PP_OPER (NULLCP, ("err_abrt (%s) [%s]", tbuf, rp_valstr(code)));
  45.     fprintf(stderr, "err_abrt -> %s [%s]\n", tbuf, rp_valstr(code));
  46.     va_end (ap);
  47.  
  48.     exit(code);
  49. }
  50. #endif
  51.