libiberty/strerror.c

   1 /* Extended support for using errno values.
   2    Written by Fred Fish.  fnf@cygnus.com
   3    This file is in the public domain.  --Per Bothner.  */
   4
   5 #include "config.h"
   6
   7 #ifdef HAVE_SYS_ERRLIST
   8 /* Note that errno.h (not sure what OS) or stdio.h (BSD 4.4, at least)
   9    might declare sys_errlist in a way that the compiler might consider
  10    incompatible with our later declaration, perhaps by using const
  11    attributes.  So we hide the declaration in errno.h (if any) using a
  12    macro. */
  13 #define sys_nerr sys_nerr__
  14 #define sys_errlist sys_errlist__
  15 #endif
  16
  17 #include "ansidecl.h"
  18 #include "libiberty.h"
  19
  20 #include <stdio.h>
  21 #include <errno.h>
  22
  23 #ifdef HAVE_SYS_ERRLIST
  24 #undef sys_nerr
  25 #undef sys_errlist
  26 #endif
  27
  28 /*  Routines imported from standard C runtime libraries. */
  29
  30 #ifdef HAVE_STDLIB_H
  31 #include <stdlib.h>
  32 #else
  33 extern PTR malloc ();
  34 #endif
  35
  36 #ifdef HAVE_STRING_H
  37 #include <string.h>
  38 #else
  39 extern PTR memset ();
  40 #endif
  41
  42 #ifndef MAX
  43 #  define MAX(a,b) ((a) > (b) ? (a) : (b))
  44 #endif
  45
  46 static void init_error_tables PARAMS ((void));
  47
  48 /* Translation table for errno values.  See intro(2) in most UNIX systems
  49    Programmers Reference Manuals.
  50
  51    Note that this table is generally only accessed when it is used at runtime
  52    to initialize errno name and message tables that are indexed by errno
  53    value.
  54
  55    Not all of these errnos will exist on all systems.  This table is the only
  56    thing that should have to be updated as new error numbers are introduced.
  57    It's sort of ugly, but at least its portable. */
  58
  59 struct error_info
  60 {
  61   const int value;              /* The numeric value from <errno.h> */
  62   const char *const name;       /* The equivalent symbolic value */
  63 #ifndef HAVE_SYS_ERRLIST
  64   const char *const msg;        /* Short message about this value */
  65 #endif
  66 };
  67
  68 #ifndef HAVE_SYS_ERRLIST
  69 #   define ENTRY(value, name, msg)      {value, name, msg}
  70 #else
  71 #   define ENTRY(value, name, msg)      {value, name}
  72 #endif
  73
  74 static const struct error_info error_table[] =
  75 {
  76 #if defined (EPERM)
  77   ENTRY(EPERM, "EPERM", "Not owner"),
  78 #endif
  79 #if defined (ENOENT)
  80   ENTRY(ENOENT, "ENOENT", "No such file or directory"),
  81 #endif
  82 #if defined (ESRCH)
  83   ENTRY(ESRCH, "ESRCH", "No such process"),
  84 #endif
  85 #if defined (EINTR)
  86   ENTRY(EINTR, "EINTR", "Interrupted system call"),
  87 #endif
  88 #if defined (EIO)
  89   ENTRY(EIO, "EIO", "I/O error"),
  90 #endif
  91 #if defined (ENXIO)
  92   ENTRY(ENXIO, "ENXIO", "No such device or address"),
  93 #endif
  94 #if defined (E2BIG)
  95   ENTRY(E2BIG, "E2BIG", "Arg list too long"),
  96 #endif
  97 #if defined (ENOEXEC)
  98   ENTRY(ENOEXEC, "ENOEXEC", "Exec format error"),
  99 #endif
 100 #if defined (EBADF)
 101   ENTRY(EBADF, "EBADF", "Bad file number"),
 102 #endif
 103 #if defined (ECHILD)
 104   ENTRY(ECHILD, "ECHILD", "No child processes"),
 105 #endif
 106 #if defined (EWOULDBLOCK)       /* Put before EAGAIN, sometimes aliased */
 107   ENTRY(EWOULDBLOCK, "EWOULDBLOCK", "Operation would block"),
 108 #endif
 109 #if defined (EAGAIN)
 110   ENTRY(EAGAIN, "EAGAIN", "No more processes"),
 111 #endif
 112 #if defined (ENOMEM)
 113   ENTRY(ENOMEM, "ENOMEM", "Not enough space"),
 114 #endif
 115 #if defined (EACCES)
 116   ENTRY(EACCES, "EACCES", "Permission denied"),
 117 #endif
 118 #if defined (EFAULT)
 119   ENTRY(EFAULT, "EFAULT", "Bad address"),
 120 #endif
 121 #if defined (ENOTBLK)
 122   ENTRY(ENOTBLK, "ENOTBLK", "Block device required"),
 123 #endif
 124 #if defined (EBUSY)
 125   ENTRY(EBUSY, "EBUSY", "Device busy"),
 126 #endif
 127 #if defined (EEXIST)
 128   ENTRY(EEXIST, "EEXIST", "File exists"),
 129 #endif
 130 #if defined (EXDEV)
 131   ENTRY(EXDEV, "EXDEV", "Cross-device link"),
 132 #endif
 133 #if defined (ENODEV)
 134   ENTRY(ENODEV, "ENODEV", "No such device"),
 135 #endif
 136 #if defined (ENOTDIR)
 137   ENTRY(ENOTDIR, "ENOTDIR", "Not a directory"),
 138 #endif
 139 #if defined (EISDIR)
 140   ENTRY(EISDIR, "EISDIR", "Is a directory"),
 141 #endif
 142 #if defined (EINVAL)
 143   ENTRY(EINVAL, "EINVAL", "Invalid argument"),
 144 #endif
 145 #if defined (ENFILE)
 146   ENTRY(ENFILE, "ENFILE", "File table overflow"),
 147 #endif
 148 #if defined (EMFILE)
 149   ENTRY(EMFILE, "EMFILE", "Too many open files"),
 150 #endif
 151 #if defined (ENOTTY)
 152   ENTRY(ENOTTY, "ENOTTY", "Not a typewriter"),
 153 #endif
 154 #if defined (ETXTBSY)
 155   ENTRY(ETXTBSY, "ETXTBSY", "Text file busy"),
 156 #endif
 157 #if defined (EFBIG)
 158   ENTRY(EFBIG, "EFBIG", "File too large"),
 159 #endif
 160 #if defined (ENOSPC)
 161   ENTRY(ENOSPC, "ENOSPC", "No space left on device"),
 162 #endif
 163 #if defined (ESPIPE)
 164   ENTRY(ESPIPE, "ESPIPE", "Illegal seek"),
 165 #endif
 166 #if defined (EROFS)
 167   ENTRY(EROFS, "EROFS", "Read-only file system"),
 168 #endif
 169 #if defined (EMLINK)
 170   ENTRY(EMLINK, "EMLINK", "Too many links"),
 171 #endif
 172 #if defined (EPIPE)
 173   ENTRY(EPIPE, "EPIPE", "Broken pipe"),
 174 #endif
 175 #if defined (EDOM)
 176   ENTRY(EDOM, "EDOM", "Math argument out of domain of func"),
 177 #endif
 178 #if defined (ERANGE)
 179   ENTRY(ERANGE, "ERANGE", "Math result not representable"),
 180 #endif
 181 #if defined (ENOMSG)
 182   ENTRY(ENOMSG, "ENOMSG", "No message of desired type"),
 183 #endif
 184 #if defined (EIDRM)
 185   ENTRY(EIDRM, "EIDRM", "Identifier removed"),
 186 #endif
 187 #if defined (ECHRNG)
 188   ENTRY(ECHRNG, "ECHRNG", "Channel number out of range"),
 189 #endif
 190 #if defined (EL2NSYNC)
 191   ENTRY(EL2NSYNC, "EL2NSYNC", "Level 2 not synchronized"),
 192 #endif
 193 #if defined (EL3HLT)
 194   ENTRY(EL3HLT, "EL3HLT", "Level 3 halted"),
 195 #endif
 196 #if defined (EL3RST)
 197   ENTRY(EL3RST, "EL3RST", "Level 3 reset"),
 198 #endif
 199 #if defined (ELNRNG)
 200   ENTRY(ELNRNG, "ELNRNG", "Link number out of range"),
 201 #endif
 202 #if defined (EUNATCH)
 203   ENTRY(EUNATCH, "EUNATCH", "Protocol driver not attached"),
 204 #endif
 205 #if defined (ENOCSI)
 206   ENTRY(ENOCSI, "ENOCSI", "No CSI structure available"),
 207 #endif
 208 #if defined (EL2HLT)
 209   ENTRY(EL2HLT, "EL2HLT", "Level 2 halted"),
 210 #endif
 211 #if defined (EDEADLK)
 212   ENTRY(EDEADLK, "EDEADLK", "Deadlock condition"),
 213 #endif
 214 #if defined (ENOLCK)
 215   ENTRY(ENOLCK, "ENOLCK", "No record locks available"),
 216 #endif
 217 #if defined (EBADE)
 218   ENTRY(EBADE, "EBADE", "Invalid exchange"),
 219 #endif
 220 #if defined (EBADR)
 221   ENTRY(EBADR, "EBADR", "Invalid request descriptor"),
 222 #endif
 223 #if defined (EXFULL)
 224   ENTRY(EXFULL, "EXFULL", "Exchange full"),
 225 #endif
 226 #if defined (ENOANO)
 227   ENTRY(ENOANO, "ENOANO", "No anode"),
 228 #endif
 229 #if defined (EBADRQC)
 230   ENTRY(EBADRQC, "EBADRQC", "Invalid request code"),
 231 #endif
 232 #if defined (EBADSLT)
 233   ENTRY(EBADSLT, "EBADSLT", "Invalid slot"),
 234 #endif
 235 #if defined (EDEADLOCK)
 236   ENTRY(EDEADLOCK, "EDEADLOCK", "File locking deadlock error"),
 237 #endif
 238 #if defined (EBFONT)
 239   ENTRY(EBFONT, "EBFONT", "Bad font file format"),
 240 #endif
 241 #if defined (ENOSTR)
 242   ENTRY(ENOSTR, "ENOSTR", "Device not a stream"),
 243 #endif
 244 #if defined (ENODATA)
 245   ENTRY(ENODATA, "ENODATA", "No data available"),
 246 #endif
 247 #if defined (ETIME)
 248   ENTRY(ETIME, "ETIME", "Timer expired"),
 249 #endif
 250 #if defined (ENOSR)
 251   ENTRY(ENOSR, "ENOSR", "Out of streams resources"),
 252 #endif
 253 #if defined (ENONET)
 254   ENTRY(ENONET, "ENONET", "Machine is not on the network"),
 255 #endif
 256 #if defined (ENOPKG)
 257   ENTRY(ENOPKG, "ENOPKG", "Package not installed"),
 258 #endif
 259 #if defined (EREMOTE)
 260   ENTRY(EREMOTE, "EREMOTE", "Object is remote"),
 261 #endif
 262 #if defined (ENOLINK)
 263   ENTRY(ENOLINK, "ENOLINK", "Link has been severed"),
 264 #endif
 265 #if defined (EADV)
 266   ENTRY(EADV, "EADV", "Advertise error"),
 267 #endif
 268 #if defined (ESRMNT)
 269   ENTRY(ESRMNT, "ESRMNT", "Srmount error"),
 270 #endif
 271 #if defined (ECOMM)
 272   ENTRY(ECOMM, "ECOMM", "Communication error on send"),
 273 #endif
 274 #if defined (EPROTO)
 275   ENTRY(EPROTO, "EPROTO", "Protocol error"),
 276 #endif
 277 #if defined (EMULTIHOP)
 278   ENTRY(EMULTIHOP, "EMULTIHOP", "Multihop attempted"),
 279 #endif
 280 #if defined (EDOTDOT)
 281   ENTRY(EDOTDOT, "EDOTDOT", "RFS specific error"),
 282 #endif
 283 #if defined (EBADMSG)
 284   ENTRY(EBADMSG, "EBADMSG", "Not a data message"),
 285 #endif
 286 #if defined (ENAMETOOLONG)
 287   ENTRY(ENAMETOOLONG, "ENAMETOOLONG", "File name too long"),
 288 #endif
 289 #if defined (EOVERFLOW)
 290   ENTRY(EOVERFLOW, "EOVERFLOW", "Value too large for defined data type"),
 291 #endif
 292 #if defined (ENOTUNIQ)
 293   ENTRY(ENOTUNIQ, "ENOTUNIQ", "Name not unique on network"),
 294 #endif
 295 #if defined (EBADFD)
 296   ENTRY(EBADFD, "EBADFD", "File descriptor in bad state"),
 297 #endif
 298 #if defined (EREMCHG)
 299   ENTRY(EREMCHG, "EREMCHG", "Remote address changed"),
 300 #endif
 301 #if defined (ELIBACC)
 302   ENTRY(ELIBACC, "ELIBACC", "Can not access a needed shared library"),
 303 #endif
 304 #if defined (ELIBBAD)
 305   ENTRY(ELIBBAD, "ELIBBAD", "Accessing a corrupted shared library"),
 306 #endif
 307 #if defined (ELIBSCN)
 308   ENTRY(ELIBSCN, "ELIBSCN", ".lib section in a.out corrupted"),
 309 #endif
 310 #if defined (ELIBMAX)
 311   ENTRY(ELIBMAX, "ELIBMAX", "Attempting to link in too many shared libraries"),
 312 #endif
 313 #if defined (ELIBEXEC)
 314   ENTRY(ELIBEXEC, "ELIBEXEC", "Cannot exec a shared library directly"),
 315 #endif
 316 #if defined (EILSEQ)
 317   ENTRY(EILSEQ, "EILSEQ", "Illegal byte sequence"),
 318 #endif
 319 #if defined (ENOSYS)
 320   ENTRY(ENOSYS, "ENOSYS", "Operation not applicable"),
 321 #endif
 322 #if defined (ELOOP)
 323   ENTRY(ELOOP, "ELOOP", "Too many symbolic links encountered"),
 324 #endif
 325 #if defined (ERESTART)
 326   ENTRY(ERESTART, "ERESTART", "Interrupted system call should be restarted"),
 327 #endif
 328 #if defined (ESTRPIPE)
 329   ENTRY(ESTRPIPE, "ESTRPIPE", "Streams pipe error"),
 330 #endif
 331 #if defined (ENOTEMPTY)
 332   ENTRY(ENOTEMPTY, "ENOTEMPTY", "Directory not empty"),
 333 #endif
 334 #if defined (EUSERS)
 335   ENTRY(EUSERS, "EUSERS", "Too many users"),
 336 #endif
 337 #if defined (ENOTSOCK)
 338   ENTRY(ENOTSOCK, "ENOTSOCK", "Socket operation on non-socket"),
 339 #endif
 340 #if defined (EDESTADDRREQ)
 341   ENTRY(EDESTADDRREQ, "EDESTADDRREQ", "Destination address required"),
 342 #endif
 343 #if defined (EMSGSIZE)
 344   ENTRY(EMSGSIZE, "EMSGSIZE", "Message too long"),
 345 #endif
 346 #if defined (EPROTOTYPE)
 347   ENTRY(EPROTOTYPE, "EPROTOTYPE", "Protocol wrong type for socket"),
 348 #endif
 349 #if defined (ENOPROTOOPT)
 350   ENTRY(ENOPROTOOPT, "ENOPROTOOPT", "Protocol not available"),
 351 #endif
 352 #if defined (EPROTONOSUPPORT)
 353   ENTRY(EPROTONOSUPPORT, "EPROTONOSUPPORT", "Protocol not supported"),
 354 #endif
 355 #if defined (ESOCKTNOSUPPORT)
 356   ENTRY(ESOCKTNOSUPPORT, "ESOCKTNOSUPPORT", "Socket type not supported"),
 357 #endif
 358 #if defined (EOPNOTSUPP)
 359   ENTRY(EOPNOTSUPP, "EOPNOTSUPP", "Operation not supported on transport endpoint"),
 360 #endif
 361 #if defined (EPFNOSUPPORT)
 362   ENTRY(EPFNOSUPPORT, "EPFNOSUPPORT", "Protocol family not supported"),
 363 #endif
 364 #if defined (EAFNOSUPPORT)
 365   ENTRY(EAFNOSUPPORT, "EAFNOSUPPORT", "Address family not supported by protocol"),
 366 #endif
 367 #if defined (EADDRINUSE)
 368   ENTRY(EADDRINUSE, "EADDRINUSE", "Address already in use"),
 369 #endif
 370 #if defined (EADDRNOTAVAIL)
 371   ENTRY(EADDRNOTAVAIL, "EADDRNOTAVAIL","Cannot assign requested address"),
 372 #endif
 373 #if defined (ENETDOWN)
 374   ENTRY(ENETDOWN, "ENETDOWN", "Network is down"),
 375 #endif
 376 #if defined (ENETUNREACH)
 377   ENTRY(ENETUNREACH, "ENETUNREACH", "Network is unreachable"),
 378 #endif
 379 #if defined (ENETRESET)
 380   ENTRY(ENETRESET, "ENETRESET", "Network dropped connection because of reset"),
 381 #endif
 382 #if defined (ECONNABORTED)
 383   ENTRY(ECONNABORTED, "ECONNABORTED", "Software caused connection abort"),
 384 #endif
 385 #if defined (ECONNRESET)
 386   ENTRY(ECONNRESET, "ECONNRESET", "Connection reset by peer"),
 387 #endif
 388 #if defined (ENOBUFS)
 389   ENTRY(ENOBUFS, "ENOBUFS", "No buffer space available"),
 390 #endif
 391 #if defined (EISCONN)
 392   ENTRY(EISCONN, "EISCONN", "Transport endpoint is already connected"),
 393 #endif
 394 #if defined (ENOTCONN)
 395   ENTRY(ENOTCONN, "ENOTCONN", "Transport endpoint is not connected"),
 396 #endif
 397 #if defined (ESHUTDOWN)
 398   ENTRY(ESHUTDOWN, "ESHUTDOWN", "Cannot send after transport endpoint shutdown"),
 399 #endif
 400 #if defined (ETOOMANYREFS)
 401   ENTRY(ETOOMANYREFS, "ETOOMANYREFS", "Too many references: cannot splice"),
 402 #endif
 403 #if defined (ETIMEDOUT)
 404   ENTRY(ETIMEDOUT, "ETIMEDOUT", "Connection timed out"),
 405 #endif
 406 #if defined (ECONNREFUSED)
 407   ENTRY(ECONNREFUSED, "ECONNREFUSED", "Connection refused"),
 408 #endif
 409 #if defined (EHOSTDOWN)
 410   ENTRY(EHOSTDOWN, "EHOSTDOWN", "Host is down"),
 411 #endif
 412 #if defined (EHOSTUNREACH)
 413   ENTRY(EHOSTUNREACH, "EHOSTUNREACH", "No route to host"),
 414 #endif
 415 #if defined (EALREADY)
 416   ENTRY(EALREADY, "EALREADY", "Operation already in progress"),
 417 #endif
 418 #if defined (EINPROGRESS)
 419   ENTRY(EINPROGRESS, "EINPROGRESS", "Operation now in progress"),
 420 #endif
 421 #if defined (ESTALE)
 422   ENTRY(ESTALE, "ESTALE", "Stale NFS file handle"),
 423 #endif
 424 #if defined (EUCLEAN)
 425   ENTRY(EUCLEAN, "EUCLEAN", "Structure needs cleaning"),
 426 #endif
 427 #if defined (ENOTNAM)
 428   ENTRY(ENOTNAM, "ENOTNAM", "Not a XENIX named type file"),
 429 #endif
 430 #if defined (ENAVAIL)
 431   ENTRY(ENAVAIL, "ENAVAIL", "No XENIX semaphores available"),
 432 #endif
 433 #if defined (EISNAM)
 434   ENTRY(EISNAM, "EISNAM", "Is a named type file"),
 435 #endif
 436 #if defined (EREMOTEIO)
 437   ENTRY(EREMOTEIO, "EREMOTEIO", "Remote I/O error"),
 438 #endif
 439   ENTRY(0, NULL, NULL)
 440 };
 441
 442 #ifdef EVMSERR
 443 /* This is not in the table, because the numeric value of EVMSERR (32767)
 444    lies outside the range of sys_errlist[].  */
 445 static struct { int value; const char *name, *msg; }
 446   evmserr = { EVMSERR, "EVMSERR", "VMS-specific error" };
 447 #endif
 448
 449 /* Translation table allocated and initialized at runtime.  Indexed by the
 450    errno value to find the equivalent symbolic value. */
 451
 452 static const char **error_names;
 453 static int num_error_names = 0;
 454
 455 /* Translation table allocated and initialized at runtime, if it does not
 456    already exist in the host environment.  Indexed by the errno value to find
 457    the descriptive string.
 458
 459    We don't export it for use in other modules because even though it has the
 460    same name, it differs from other implementations in that it is dynamically
 461    initialized rather than statically initialized. */
 462
 463 #ifndef HAVE_SYS_ERRLIST
 464
 465 #define sys_nerr sys_nerr__
 466 #define sys_errlist sys_errlist__
 467 static int sys_nerr;
 468 static const char **sys_errlist;
 469
 470 #else
 471
 472 extern int sys_nerr;
 473 extern char *sys_errlist[];
 474
 475 #endif
 476
 477 /*
 478
 479 NAME
 480
 481         init_error_tables -- initialize the name and message tables
 482
 483 SYNOPSIS
 484
 485         static void init_error_tables ();
 486
 487 DESCRIPTION
 488
 489         Using the error_table, which is initialized at compile time, generate
 490         the error_names and the sys_errlist (if needed) tables, which are
 491         indexed at runtime by a specific errno value.
 492
 493 BUGS
 494
 495         The initialization of the tables may fail under low memory conditions,
 496         in which case we don't do anything particularly useful, but we don't
 497         bomb either.  Who knows, it might succeed at a later point if we free
 498         some memory in the meantime.  In any case, the other routines know
 499         how to deal with lack of a table after trying to initialize it.  This
 500         may or may not be considered to be a bug, that we don't specifically
 501         warn about this particular failure mode.
 502
 503 */
 504
 505 static void
 506 init_error_tables ()
 507 {
 508   const struct error_info *eip;
 509   int nbytes;
 510
 511   /* If we haven't already scanned the error_table once to find the maximum
 512      errno value, then go find it now. */
 513
 514   if (num_error_names == 0)
 515     {
 516       for (eip = error_table; eip -> name != NULL; eip++)
 517         {
 518           if (eip -> value >= num_error_names)
 519             {
 520               num_error_names = eip -> value + 1;
 521             }
 522         }
 523     }
 524
 525   /* Now attempt to allocate the error_names table, zero it out, and then
 526      initialize it from the statically initialized error_table. */
 527
 528   if (error_names == NULL)
 529     {
 530       nbytes = num_error_names * sizeof (char *);
 531       if ((error_names = (const char **) malloc (nbytes)) != NULL)
 532         {
 533           memset (error_names, 0, nbytes);
 534           for (eip = error_table; eip -> name != NULL; eip++)
 535             {
 536               error_names[eip -> value] = eip -> name;
 537             }
 538         }
 539     }
 540
 541 #ifndef HAVE_SYS_ERRLIST
 542
 543   /* Now attempt to allocate the sys_errlist table, zero it out, and then
 544      initialize it from the statically initialized error_table. */
 545
 546   if (sys_errlist == NULL)
 547     {
 548       nbytes = num_error_names * sizeof (char *);
 549       if ((sys_errlist = (const char **) malloc (nbytes)) != NULL)
 550         {
 551           memset (sys_errlist, 0, nbytes);
 552           sys_nerr = num_error_names;
 553           for (eip = error_table; eip -> name != NULL; eip++)
 554             {
 555               sys_errlist[eip -> value] = eip -> msg;
 556             }
 557         }
 558     }
 559
 560 #endif
 561
 562 }
 563
 564 /*
 565
 566
 567 @deftypefn Extension int errno_max (void)
 568
 569 Returns the maximum @code{errno} value for which a corresponding
 570 symbolic name or message is available.  Note that in the case where we
 571 use the @code{sys_errlist} supplied by the system, it is possible for
 572 there to be more symbolic names than messages, or vice versa.  In
 573 fact, the manual page for @code{perror(3C)} explicitly warns that one
 574 should check the size of the table (@code{sys_nerr}) before indexing
 575 it, since new error codes may be added to the system before they are
 576 added to the table.  Thus @code{sys_nerr} might be smaller than value
 577 implied by the largest @code{errno} value defined in @code{<errno.h>}.
 578
 579 We return the maximum value that can be used to obtain a meaningful
 580 symbolic name or message.
 581
 582 @end deftypefn
 583
 584 */
 585
 586 int
 587 errno_max ()
 588 {
 589   int maxsize;
 590
 591   if (error_names == NULL)
 592     {
 593       init_error_tables ();
 594     }
 595   maxsize = MAX (sys_nerr, num_error_names);
 596   return (maxsize - 1);
 597 }
 598
 599 #ifndef HAVE_STRERROR
 600
 601 /*
 602
 603 @deftypefn Supplemental char* strerror (int @var{errnoval})
 604
 605 Maps an @code{errno} number to an error message string, the contents
 606 of which are implementation defined.  On systems which have the
 607 external variables @code{sys_nerr} and @code{sys_errlist}, these
 608 strings will be the same as the ones used by @code{perror}.
 609
 610 If the supplied error number is within the valid range of indices for
 611 the @code{sys_errlist}, but no message is available for the particular
 612 error number, then returns the string @samp{Error @var{num}}, where
 613 @var{num} is the error number.
 614
 615 If the supplied error number is not a valid index into
 616 @code{sys_errlist}, returns @code{NULL}.
 617
 618 The returned string is only guaranteed to be valid only until the
 619 next call to @code{strerror}.
 620
 621 @end deftypefn
 622
 623 */
 624
 625 char *
 626 strerror (errnoval)
 627   int errnoval;
 628 {
 629   const char *msg;
 630   static char buf[32];
 631
 632 #ifndef HAVE_SYS_ERRLIST
 633
 634   if (error_names == NULL)
 635     {
 636       init_error_tables ();
 637     }
 638
 639 #endif
 640
 641   if ((errnoval < 0) || (errnoval >= sys_nerr))
 642     {
 643 #ifdef EVMSERR
 644       if (errnoval == evmserr.value)
 645         msg = evmserr.msg;
 646       else
 647 #endif
 648       /* Out of range, just return NULL */
 649       msg = NULL;
 650     }
 651   else if ((sys_errlist == NULL) || (sys_errlist[errnoval] == NULL))
 652     {
 653       /* In range, but no sys_errlist or no entry at this index. */
 654       sprintf (buf, "Error %d", errnoval);
 655       msg = buf;
 656     }
 657   else
 658     {
 659       /* In range, and a valid message.  Just return the message. */
 660       msg = (char *) sys_errlist[errnoval];
 661     }
 662
 663   return (msg);
 664 }
 665
 666 #endif  /* ! HAVE_STRERROR */
 667
 668
 669 /*
 670
 671 @deftypefn Replacement {const char*} strerrno (int @var{errnum})
 672
 673 Given an error number returned from a system call (typically returned
 674 in @code{errno}), returns a pointer to a string containing the
 675 symbolic name of that error number, as found in @code{<errno.h>}.
 676
 677 If the supplied error number is within the valid range of indices for
 678 symbolic names, but no name is available for the particular error
 679 number, then returns the string @samp{Error @var{num}}, where @var{num}
 680 is the error number.
 681
 682 If the supplied error number is not within the range of valid
 683 indices, then returns @code{NULL}.
 684
 685 The contents of the location pointed to are only guaranteed to be
 686 valid until the next call to @code{strerrno}.
 687
 688 @end deftypefn
 689
 690 */
 691
 692 const char *
 693 strerrno (errnoval)
 694   int errnoval;
 695 {
 696   const char *name;
 697   static char buf[32];
 698
 699   if (error_names == NULL)
 700     {
 701       init_error_tables ();
 702     }
 703
 704   if ((errnoval < 0) || (errnoval >= num_error_names))
 705     {
 706 #ifdef EVMSERR
 707       if (errnoval == evmserr.value)
 708         name = evmserr.name;
 709       else
 710 #endif
 711       /* Out of range, just return NULL */
 712       name = NULL;
 713     }
 714   else if ((error_names == NULL) || (error_names[errnoval] == NULL))
 715     {
 716       /* In range, but no error_names or no entry at this index. */
 717       sprintf (buf, "Error %d", errnoval);
 718       name = (const char *) buf;
 719     }
 720   else
 721     {
 722       /* In range, and a valid name.  Just return the name. */
 723       name = error_names[errnoval];
 724     }
 725
 726   return (name);
 727 }
 728
 729 /*
 730
 731 @deftypefn Extension int strtoerrno (const char *@var{name})
 732
 733 Given the symbolic name of a error number (e.g., @code{EACCES}), map it
 734 to an errno value.  If no translation is found, returns 0.
 735
 736 @end deftypefn
 737
 738 */
 739
 740 int
 741 strtoerrno (name)
 742      const char *name;
 743 {
 744   int errnoval = 0;
 745
 746   if (name != NULL)
 747     {
 748       if (error_names == NULL)
 749         {
 750           init_error_tables ();
 751         }
 752       for (errnoval = 0; errnoval < num_error_names; errnoval++)
 753         {
 754           if ((error_names[errnoval] != NULL) &&
 755               (strcmp (name, error_names[errnoval]) == 0))
 756             {
 757               break;
 758             }
 759         }
 760       if (errnoval == num_error_names)
 761         {
 762 #ifdef EVMSERR
 763           if (strcmp (name, evmserr.name) == 0)
 764             errnoval = evmserr.value;
 765           else
 766 #endif
 767           errnoval = 0;
 768         }
 769     }
 770   return (errnoval);
 771 }
 772
 773
 774 /* A simple little main that does nothing but print all the errno translations
 775    if MAIN is defined and this file is compiled and linked. */
 776
 777 #ifdef MAIN
 778
 779 #include <stdio.h>
 780
 781 int
 782 main ()
 783 {
 784   int errn;
 785   int errnmax;
 786   const char *name;
 787   const char *msg;
 788   char *strerror ();
 789
 790   errnmax = errno_max ();
 791   printf ("%d entries in names table.\n", num_error_names);
 792   printf ("%d entries in messages table.\n", sys_nerr);
 793   printf ("%d is max useful index.\n", errnmax);
 794
 795   /* Keep printing values until we get to the end of *both* tables, not
 796      *either* table.  Note that knowing the maximum useful index does *not*
 797      relieve us of the responsibility of testing the return pointer for
 798      NULL. */
 799
 800   for (errn = 0; errn <= errnmax; errn++)
 801     {
 802       name = strerrno (errn);
 803       name = (name == NULL) ? "<NULL>" : name;
 804       msg = strerror (errn);
 805       msg = (msg == NULL) ? "<NULL>" : msg;
 806       printf ("%-4d%-18s%s\n", errn, name, msg);
 807     }
 808
 809   return 0;
 810 }
 811
 812 #endif