![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to strerror.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Micropolis - Activity] / micropolis / src / tcl / compat|
Return to strerror.c CVS log | Up to [Micropolis - Activity] / micropolis / src / tcl / compat |
1.1 ! root 1: /* ! 2: * strerror.c -- ! 3: * ! 4: * Source code for the "strerror" library routine. ! 5: * ! 6: * Copyright 1988-1991 Regents of the University of California ! 7: * Permission to use, copy, modify, and distribute this ! 8: * software and its documentation for any purpose and without ! 9: * fee is hereby granted, provided that the above copyright ! 10: * notice appears in all copies. The University of California ! 11: * makes no representations about the suitability of this ! 12: * software for any purpose. It is provided "as is" without ! 13: * express or implied warranty. ! 14: */ ! 15: ! 16: #ifndef lint ! 17: static char rcsid[] = "$Header: /user6/ouster/tcl/compat/RCS/strerror.c,v 1.2 91/12/16 09:26:48 ouster Exp $ SPRITE (Berkeley)"; ! 18: #endif /* not lint */ ! 19: ! 20: #include <tclint.h> ! 21: #include <tclunix.h> ! 22: ! 23: /* ! 24: *---------------------------------------------------------------------- ! 25: * ! 26: * strerror -- ! 27: * ! 28: * Map an integer error number into a printable string. ! 29: * ! 30: * Results: ! 31: * The return value is a pointer to a string describing ! 32: * error. The first character of string isn't capitalized. ! 33: * ! 34: * Side effects: ! 35: * Each call to this procedure may overwrite the value returned ! 36: * by the previous call. ! 37: * ! 38: *---------------------------------------------------------------------- ! 39: */ ! 40: ! 41: char * ! 42: strerror(error) ! 43: int error; /* Integer identifying error (must be ! 44: * one of the officially-defined Sprite ! 45: * errors, as defined in errno.h). */ ! 46: { ! 47: static char msg[50]; ! 48: ! 49: #if TCL_SYS_ERRLIST ! 50: if ((error <= sys_nerr) && (error > 0)) { ! 51: return sys_errlist[error]; ! 52: } ! 53: #else ! 54: switch (error) { ! 55: #ifdef E2BIG ! 56: case E2BIG: return "argument list too long"; ! 57: #endif ! 58: #ifdef EACCES ! 59: case EACCES: return "permission denied"; ! 60: #endif ! 61: #ifdef EADDRINUSE ! 62: case EADDRINUSE: return "address already in use"; ! 63: #endif ! 64: #ifdef EADDRNOTAVAIL ! 65: case EADDRNOTAVAIL: return "can't assign requested address"; ! 66: #endif ! 67: #ifdef EADV ! 68: case EADV: return "advertise error"; ! 69: #endif ! 70: #ifdef EAFNOSUPPORT ! 71: case EAFNOSUPPORT: return "address family not supported by protocol family"; ! 72: #endif ! 73: #ifdef EAGAIN ! 74: case EAGAIN: return "no more processes"; ! 75: #endif ! 76: #ifdef EALIGN ! 77: case EALIGN: return "EALIGN"; ! 78: #endif ! 79: #ifdef EALREADY ! 80: case EALREADY: return "operation already in progress"; ! 81: #endif ! 82: #ifdef EBADE ! 83: case EBADE: return "bad exchange descriptor"; ! 84: #endif ! 85: #ifdef EBADF ! 86: case EBADF: return "bad file number"; ! 87: #endif ! 88: #ifdef EBADFD ! 89: case EBADFD: return "file descriptor in bad state"; ! 90: #endif ! 91: #ifdef EBADMSG ! 92: case EBADMSG: return "not a data message"; ! 93: #endif ! 94: #ifdef EBADR ! 95: case EBADR: return "bad request descriptor"; ! 96: #endif ! 97: #ifdef EBADRPC ! 98: case EBADRPC: return "RPC structure is bad"; ! 99: #endif ! 100: #ifdef EBADRQC ! 101: case EBADRQC: return "bad request code"; ! 102: #endif ! 103: #ifdef EBADSLT ! 104: case EBADSLT: return "invalid slot"; ! 105: #endif ! 106: #ifdef EBFONT ! 107: case EBFONT: return "bad font file format"; ! 108: #endif ! 109: #ifdef EBUSY ! 110: case EBUSY: return "mount device busy"; ! 111: #endif ! 112: #ifdef ECHILD ! 113: case ECHILD: return "no children"; ! 114: #endif ! 115: #ifdef ECHRNG ! 116: case ECHRNG: return "channel number out of range"; ! 117: #endif ! 118: #ifdef ECOMM ! 119: case ECOMM: return "communication error on send"; ! 120: #endif ! 121: #ifdef ECONNABORTED ! 122: case ECONNABORTED: return "software caused connection abort"; ! 123: #endif ! 124: #ifdef ECONNREFUSED ! 125: case ECONNREFUSED: return "connection refused"; ! 126: #endif ! 127: #ifdef ECONNRESET ! 128: case ECONNRESET: return "connection reset by peer"; ! 129: #endif ! 130: #if defined(EDEADLK) && (!defined(EWOULDBLOCK) || (EDEADLK != EWOULDBLOCK)) ! 131: case EDEADLK: return "resource deadlock avoided"; ! 132: #endif ! 133: #ifdef EDEADLOCK ! 134: case EDEADLOCK: return "resource deadlock avoided"; ! 135: #endif ! 136: #ifdef EDESTADDRREQ ! 137: case EDESTADDRREQ: return "destination address required"; ! 138: #endif ! 139: #ifdef EDIRTY ! 140: case EDIRTY: return "mounting a dirty fs w/o force"; ! 141: #endif ! 142: #ifdef EDOM ! 143: case EDOM: return "math argument out of range"; ! 144: #endif ! 145: #ifdef EDOTDOT ! 146: case EDOTDOT: return "cross mount point"; ! 147: #endif ! 148: #ifdef EDQUOT ! 149: case EDQUOT: return "disk quota exceeded"; ! 150: #endif ! 151: #ifdef EDUPPKG ! 152: case EDUPPKG: return "duplicate package name"; ! 153: #endif ! 154: #ifdef EEXIST ! 155: case EEXIST: return "file already exists"; ! 156: #endif ! 157: #ifdef EFAULT ! 158: case EFAULT: return "bad address in system call argument"; ! 159: #endif ! 160: #ifdef EFBIG ! 161: case EFBIG: return "file too large"; ! 162: #endif ! 163: #ifdef EHOSTDOWN ! 164: case EHOSTDOWN: return "host is down"; ! 165: #endif ! 166: #ifdef EHOSTUNREACH ! 167: case EHOSTUNREACH: return "host is unreachable"; ! 168: #endif ! 169: #ifdef EIDRM ! 170: case EIDRM: return "identifier removed"; ! 171: #endif ! 172: #ifdef EINIT ! 173: case EINIT: return "initialization error"; ! 174: #endif ! 175: #ifdef EINPROGRESS ! 176: case EINPROGRESS: return "operation now in progress"; ! 177: #endif ! 178: #ifdef EINTR ! 179: case EINTR: return "interrupted system call"; ! 180: #endif ! 181: #ifdef EINVAL ! 182: case EINVAL: return "invalid argument"; ! 183: #endif ! 184: #ifdef EIO ! 185: case EIO: return "I/O error"; ! 186: #endif ! 187: #ifdef EISCONN ! 188: case EISCONN: return "socket is already connected"; ! 189: #endif ! 190: #ifdef EISDIR ! 191: case EISDIR: return "illegal operation on a directory"; ! 192: #endif ! 193: #ifdef EISNAME ! 194: case EISNAM: return "is a name file"; ! 195: #endif ! 196: #ifdef ELBIN ! 197: case ELBIN: return "ELBIN"; ! 198: #endif ! 199: #ifdef EL2HLT ! 200: case EL2HLT: return "level 2 halted"; ! 201: #endif ! 202: #ifdef EL2NSYNC ! 203: case EL2NSYNC: return "level 2 not synchronized"; ! 204: #endif ! 205: #ifdef EL3HLT ! 206: case EL3HLT: return "level 3 halted"; ! 207: #endif ! 208: #ifdef EL3RST ! 209: case EL3RST: return "level 3 reset"; ! 210: #endif ! 211: #ifdef ELIBACC ! 212: case ELIBACC: return "can not access a needed shared library"; ! 213: #endif ! 214: #ifdef ELIBBAD ! 215: case ELIBBAD: return "accessing a corrupted shared library"; ! 216: #endif ! 217: #ifdef ELIBEXEC ! 218: case ELIBEXEC: return "can not exec a shared library directly"; ! 219: #endif ! 220: #ifdef ELIBMAX ! 221: case ELIBMAX: return ! 222: "attempting to link in more shared libraries than system limit"; ! 223: #endif ! 224: #ifdef ELIBSCN ! 225: case ELIBSCN: return ".lib section in a.out corrupted"; ! 226: #endif ! 227: #ifdef ELNRNG ! 228: case ELNRNG: return "link number out of range"; ! 229: #endif ! 230: #ifdef ELOOP ! 231: case ELOOP: return "too many levels of symbolic links"; ! 232: #endif ! 233: #ifdef EMFILE ! 234: case EMFILE: return "too many open files"; ! 235: #endif ! 236: #ifdef EMLINK ! 237: case EMLINK: return "too many links"; ! 238: #endif ! 239: #ifdef EMSGSIZE ! 240: case EMSGSIZE: return "message too long"; ! 241: #endif ! 242: #ifdef EMULTIHOP ! 243: case EMULTIHOP: return "multihop attempted"; ! 244: #endif ! 245: #ifdef ENAMETOOLONG ! 246: case ENAMETOOLONG: return "file name too long"; ! 247: #endif ! 248: #ifdef ENAVAIL ! 249: case ENAVAIL: return "not available"; ! 250: #endif ! 251: #ifdef ENET ! 252: case ENET: return "ENET"; ! 253: #endif ! 254: #ifdef ENETDOWN ! 255: case ENETDOWN: return "network is down"; ! 256: #endif ! 257: #ifdef ENETRESET ! 258: case ENETRESET: return "network dropped connection on reset"; ! 259: #endif ! 260: #ifdef ENETUNREACH ! 261: case ENETUNREACH: return "network is unreachable"; ! 262: #endif ! 263: #ifdef ENFILE ! 264: case ENFILE: return "file table overflow"; ! 265: #endif ! 266: #ifdef ENOANO ! 267: case ENOANO: return "anode table overflow"; ! 268: #endif ! 269: #if defined(ENOBUFS) && (!defined(ENOSR) || (ENOBUFS != ENOSR)) ! 270: case ENOBUFS: return "no buffer space available"; ! 271: #endif ! 272: #ifdef ENOCSI ! 273: case ENOCSI: return "no CSI structure available"; ! 274: #endif ! 275: #ifdef ENODATA ! 276: case ENODATA: return "no data available"; ! 277: #endif ! 278: #ifdef ENODEV ! 279: case ENODEV: return "no such device"; ! 280: #endif ! 281: #ifdef ENOENT ! 282: case ENOENT: return "no such file or directory"; ! 283: #endif ! 284: #ifdef ENOEXEC ! 285: case ENOEXEC: return "exec format error"; ! 286: #endif ! 287: #ifdef ENOLCK ! 288: case ENOLCK: return "no locks available"; ! 289: #endif ! 290: #ifdef ENOLINK ! 291: case ENOLINK: return "link has be severed"; ! 292: #endif ! 293: #ifdef ENOMEM ! 294: case ENOMEM: return "not enough memory"; ! 295: #endif ! 296: #ifdef ENOMSG ! 297: case ENOMSG: return "no message of desired type"; ! 298: #endif ! 299: #ifdef ENONET ! 300: case ENONET: return "machine is not on the network"; ! 301: #endif ! 302: #ifdef ENOPKG ! 303: case ENOPKG: return "package not installed"; ! 304: #endif ! 305: #ifdef ENOPROTOOPT ! 306: case ENOPROTOOPT: return "bad proocol option"; ! 307: #endif ! 308: #ifdef ENOSPC ! 309: case ENOSPC: return "no space left on device"; ! 310: #endif ! 311: #ifdef ENOSR ! 312: case ENOSR: return "out of stream resources"; ! 313: #endif ! 314: #ifdef ENOSTR ! 315: case ENOSTR: return "not a stream device"; ! 316: #endif ! 317: #ifdef ENOSYM ! 318: case ENOSYM: return "unresolved symbol name"; ! 319: #endif ! 320: #ifdef ENOSYS ! 321: case ENOSYS: return "function not implemented"; ! 322: #endif ! 323: #ifdef ENOTBLK ! 324: case ENOTBLK: return "block device required"; ! 325: #endif ! 326: #ifdef ENOTCONN ! 327: case ENOTCONN: return "socket is not connected"; ! 328: #endif ! 329: #ifdef ENOTDIR ! 330: case ENOTDIR: return "not a directory"; ! 331: #endif ! 332: #ifdef ENOTEMPTY ! 333: case ENOTEMPTY: return "directory not empty"; ! 334: #endif ! 335: #ifdef ENOTNAM ! 336: case ENOTNAM: return "not a name file"; ! 337: #endif ! 338: #ifdef ENOTSOCK ! 339: case ENOTSOCK: return "socket operation on non-socket"; ! 340: #endif ! 341: #ifdef ENOTTY ! 342: case ENOTTY: return "inappropriate device for ioctl"; ! 343: #endif ! 344: #ifdef ENOTUNIQ ! 345: case ENOTUNIQ: return "name not unique on network"; ! 346: #endif ! 347: #ifdef ENXIO ! 348: case ENXIO: return "no such device or address"; ! 349: #endif ! 350: #ifdef EOPNOTSUPP ! 351: case EOPNOTSUPP: return "operation not supported on socket"; ! 352: #endif ! 353: #ifdef EPERM ! 354: case EPERM: return "not owner"; ! 355: #endif ! 356: #ifdef EPFNOSUPPORT ! 357: case EPFNOSUPPORT: return "protocol family not supported"; ! 358: #endif ! 359: #ifdef EPIPE ! 360: case EPIPE: return "broken pipe"; ! 361: #endif ! 362: #ifdef EPROCLIM ! 363: case EPROCLIM: return "too many processes"; ! 364: #endif ! 365: #ifdef EPROCUNAVAIL ! 366: case EPROCUNAVAIL: return "bad procedure for program"; ! 367: #endif ! 368: #ifdef EPROGMISMATCH ! 369: case EPROGMISMATCH: return "program version wrong"; ! 370: #endif ! 371: #ifdef EPROGUNAVAIL ! 372: case EPROGUNAVAIL: return "RPC program not available"; ! 373: #endif ! 374: #ifdef EPROTO ! 375: case EPROTO: return "protocol error"; ! 376: #endif ! 377: #ifdef EPROTONOSUPPORT ! 378: case EPROTONOSUPPORT: return "protocol not suppored"; ! 379: #endif ! 380: #ifdef EPROTOTYPE ! 381: case EPROTOTYPE: return "protocol wrong type for socket"; ! 382: #endif ! 383: #ifdef ERANGE ! 384: case ERANGE: return "math result unrepresentable"; ! 385: #endif ! 386: #if defined(EREFUSED) && (!defined(ECONNREFUSED) || (EREFUSED != ECONNREFUSED)) ! 387: case EREFUSED: return "EREFUSED"; ! 388: #endif ! 389: #ifdef EREMCHG ! 390: case EREMCHG: return "remote address changed"; ! 391: #endif ! 392: #ifdef EREMDEV ! 393: case EREMDEV: return "remote device"; ! 394: #endif ! 395: #ifdef EREMOTE ! 396: case EREMOTE: return "pathname hit remote file system"; ! 397: #endif ! 398: #ifdef EREMOTEIO ! 399: case EREMOTEIO: return "remote i/o error"; ! 400: #endif ! 401: #ifdef EREMOTERELEASE ! 402: case EREMOTERELEASE: return "EREMOTERELEASE"; ! 403: #endif ! 404: #ifdef EROFS ! 405: case EROFS: return "read-only file system"; ! 406: #endif ! 407: #ifdef ERPCMISMATCH ! 408: case ERPCMISMATCH: return "RPC version is wrong"; ! 409: #endif ! 410: #ifdef ERREMOTE ! 411: case ERREMOTE: return "object is remote"; ! 412: #endif ! 413: #ifdef ESHUTDOWN ! 414: case ESHUTDOWN: return "can't send afer socket shutdown"; ! 415: #endif ! 416: #ifdef ESOCKTNOSUPPORT ! 417: case ESOCKTNOSUPPORT: return "socket type not supported"; ! 418: #endif ! 419: #ifdef ESPIPE ! 420: case ESPIPE: return "invalid seek"; ! 421: #endif ! 422: #ifdef ESRCH ! 423: case ESRCH: return "no such process"; ! 424: #endif ! 425: #ifdef ESRMNT ! 426: case ESRMNT: return "srmount error"; ! 427: #endif ! 428: #ifdef ESTALE ! 429: case ESTALE: return "stale remote file handle"; ! 430: #endif ! 431: #ifdef ESUCCESS ! 432: case ESUCCESS: return "Error 0"; ! 433: #endif ! 434: #ifdef ETIME ! 435: case ETIME: return "timer expired"; ! 436: #endif ! 437: #ifdef ETIMEDOUT ! 438: case ETIMEDOUT: return "connection timed out"; ! 439: #endif ! 440: #ifdef ETOOMANYREFS ! 441: case ETOOMANYREFS: return "too many references: can't splice"; ! 442: #endif ! 443: #ifdef ETXTBSY ! 444: case ETXTBSY: return "text file or pseudo-device busy"; ! 445: #endif ! 446: #ifdef EUCLEAN ! 447: case EUCLEAN: return "structure needs cleaning"; ! 448: #endif ! 449: #ifdef EUNATCH ! 450: case EUNATCH: return "protocol driver not attached"; ! 451: #endif ! 452: #ifdef EUSERS ! 453: case EUSERS: return "too many users"; ! 454: #endif ! 455: #ifdef EVERSION ! 456: case EVERSION: return "version mismatch"; ! 457: #endif ! 458: #if defined(EWOULDBLOCK) && (!defined(EAGAIN) || (EWOULDBLOCK != EAGAIN)) ! 459: case EWOULDBLOCK: return "operation would block"; ! 460: #endif ! 461: #ifdef EXDEV ! 462: case EXDEV: return "cross-domain link"; ! 463: #endif ! 464: #ifdef EXFULL ! 465: case EXFULL: return "message tables full"; ! 466: #endif ! 467: } ! 468: #endif /* ! TCL_SYS_ERRLIST */ ! 469: sprintf(msg, "unknown error (%d)", error); ! 470: return msg; ! 471: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.