contrib/gcc-4.4/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 (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 (void)
 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 (void)
 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 (int errnoval)
 627 {
 628   const char *msg;
 629   static char buf[32];
 630
 631 #ifndef HAVE_SYS_ERRLIST
 632
 633   if (error_names == NULL)
 634     {
 635       init_error_tables ();
 636     }
 637
 638 #endif
 639
 640   if ((errnoval < 0) || (errnoval >= sys_nerr))
 641     {
 642 #ifdef EVMSERR
 643       if (errnoval == evmserr.value)
 644         msg = evmserr.msg;
 645       else
 646 #endif
 647       /* Out of range, just return NULL */
 648       msg = NULL;
 649     }
 650   else if ((sys_errlist == NULL) || (sys_errlist[errnoval] == NULL))
 651     {
 652       /* In range, but no sys_errlist or no entry at this index. */
 653       sprintf (buf, "Error %d", errnoval);
 654       msg = buf;
 655     }
 656   else
 657     {
 658       /* In range, and a valid message.  Just return the message. */
 659       msg = (char *) sys_errlist[errnoval];
 660     }
 661
 662   return (msg);
 663 }
 664
 665 #endif  /* ! HAVE_STRERROR */
 666
 667
 668 /*
 669
 670 @deftypefn Replacement {const char*} strerrno (int @var{errnum})
 671
 672 Given an error number returned from a system call (typically returned
 673 in @code{errno}), returns a pointer to a string containing the
 674 symbolic name of that error number, as found in @code{<errno.h>}.
 675
 676 If the supplied error number is within the valid range of indices for
 677 symbolic names, but no name is available for the particular error
 678 number, then returns the string @samp{Error @var{num}}, where @var{num}
 679 is the error number.
 680
 681 If the supplied error number is not within the range of valid
 682 indices, then returns @code{NULL}.
 683
 684 The contents of the location pointed to are only guaranteed to be
 685 valid until the next call to @code{strerrno}.
 686
 687 @end deftypefn
 688
 689 */
 690
 691 const char *
 692 strerrno (int errnoval)
 693 {
 694   const char *name;
 695   static char buf[32];
 696
 697   if (error_names == NULL)
 698     {
 699       init_error_tables ();
 700     }
 701
 702   if ((errnoval < 0) || (errnoval >= num_error_names))
 703     {
 704 #ifdef EVMSERR
 705       if (errnoval == evmserr.value)
 706         name = evmserr.name;
 707       else
 708 #endif
 709       /* Out of range, just return NULL */
 710       name = NULL;
 711     }
 712   else if ((error_names == NULL) || (error_names[errnoval] == NULL))
 713     {
 714       /* In range, but no error_names or no entry at this index. */
 715       sprintf (buf, "Error %d", errnoval);
 716       name = (const char *) buf;
 717     }
 718   else
 719     {
 720       /* In range, and a valid name.  Just return the name. */
 721       name = error_names[errnoval];
 722     }
 723
 724   return (name);
 725 }
 726
 727 /*
 728
 729 @deftypefn Extension int strtoerrno (const char *@var{name})
 730
 731 Given the symbolic name of a error number (e.g., @code{EACCES}), map it
 732 to an errno value.  If no translation is found, returns 0.
 733
 734 @end deftypefn
 735
 736 */
 737
 738 int
 739 strtoerrno (const char *name)
 740 {
 741   int errnoval = 0;
 742
 743   if (name != NULL)
 744     {
 745       if (error_names == NULL)
 746         {
 747           init_error_tables ();
 748         }
 749       for (errnoval = 0; errnoval < num_error_names; errnoval++)
 750         {
 751           if ((error_names[errnoval] != NULL) &&
 752               (strcmp (name, error_names[errnoval]) == 0))
 753             {
 754               break;
 755             }
 756         }
 757       if (errnoval == num_error_names)
 758         {
 759 #ifdef EVMSERR
 760           if (strcmp (name, evmserr.name) == 0)
 761             errnoval = evmserr.value;
 762           else
 763 #endif
 764           errnoval = 0;
 765         }
 766     }
 767   return (errnoval);
 768 }
 769
 770
 771 /* A simple little main that does nothing but print all the errno translations
 772    if MAIN is defined and this file is compiled and linked. */
 773
 774 #ifdef MAIN
 775
 776 #include <stdio.h>
 777
 778 int
 779 main (void)
 780 {
 781   int errn;
 782   int errnmax;
 783   const char *name;
 784   const char *msg;
 785   char *strerror ();
 786
 787   errnmax = errno_max ();
 788   printf ("%d entries in names table.\n", num_error_names);
 789   printf ("%d entries in messages table.\n", sys_nerr);
 790   printf ("%d is max useful index.\n", errnmax);
 791
 792   /* Keep printing values until we get to the end of *both* tables, not
 793      *either* table.  Note that knowing the maximum useful index does *not*
 794      relieve us of the responsibility of testing the return pointer for
 795      NULL. */
 796
 797   for (errn = 0; errn <= errnmax; errn++)
 798     {
 799       name = strerrno (errn);
 800       name = (name == NULL) ? "<NULL>" : name;
 801       msg = strerror (errn);
 802       msg = (msg == NULL) ? "<NULL>" : msg;
 803       printf ("%-4d%-18s%s\n", errn, name, msg);
 804     }
 805
 806   return 0;
 807 }
 808
 809 #endif