2.9BSD - /usr/src/lib/libU77/gerror_.c

   1: /*
   2: char id_gerror[] = "@(#)gerror_.c	1.1";
   3:  *
   4:  * Return a standard error message in a character string.
   5:  *
   6:  * calling sequence:
   7:  *	call gerror (string)
   8:  * or
   9:  *	character*20 gerror, string
  10:  *	string = gerror()
  11:  * where:
  12:  *	'string' will receive the standard error message
  13:  */
  14: 
  15: #include    "../libI77/fiodefs.h"
  16: 
  17: extern char *sys_errlist[];
  18: extern int sys_nerr;
  19: extern char *f_errlist[];
  20: extern int f_nerr;
  21: 
  22: gerror_(s, len)
  23: char *s; ftnlen len;
  24: {
  25:     char *mesg;
  26: 
  27:     if (errno >=0 && errno < sys_nerr)
  28:         mesg = sys_errlist[errno];
  29:     else if (errno >= F_ER && errno < (F_ER + f_nerr))
  30:         mesg = f_errlist[errno - F_ER];
  31:     else
  32:         mesg = "unknown error number";
  33:     b_char(mesg, s, len);
  34: }

Defined functions