Artifact a3c57da0e98e689bf5405647186aec2640cab64f:
- File posix/errno.sls — part of check-in [e0957430e1] at 2016-12-12 16:01:40 on branch trunk — added better errno support (user: aldo size: 1854)
0000: 0a 28 6c 69 62 72 61 72 79 20 28 70 6f 73 69 78 .(library (posix 0010: 20 65 72 72 6e 6f 29 0a 20 20 28 65 78 70 6f 72 errno). (expor 0020: 74 20 20 20 20 20 20 20 20 20 3b 3b 46 52 4f 4d t ;;FROM 0030: 20 6c 69 6e 75 78 27 73 20 61 73 6d 2f 65 72 72 linux's asm/err 0040: 6e 6f 2d 62 61 73 65 2e 68 0a 09 09 20 45 50 45 no-base.h... EPE 0050: 52 4d 20 45 4e 4f 45 4e 54 20 45 53 52 43 48 20 RM ENOENT ESRCH 0060: 45 49 4e 54 52 20 45 49 4f 20 45 4e 58 49 4f 20 EINTR EIO ENXIO 0070: 45 32 42 49 47 20 45 4e 4f 45 58 45 43 20 45 42 E2BIG ENOEXEC EB 0080: 41 44 46 20 45 43 48 49 4c 44 20 45 41 47 41 49 ADF ECHILD EAGAI 0090: 4e 0a 09 09 20 45 4e 4f 4d 45 4d 20 45 41 43 43 N... ENOMEM EACC 00a0: 45 53 20 45 46 41 55 4c 54 20 45 4e 4f 54 42 4c ES EFAULT ENOTBL 00b0: 4b 20 45 42 55 53 59 20 45 45 58 49 53 54 20 45 K EBUSY EEXIST E 00c0: 58 44 45 56 20 45 4e 4f 44 45 56 20 45 4e 4f 54 XDEV ENODEV ENOT 00d0: 44 49 52 20 45 49 53 44 49 52 0a 09 09 20 45 49 DIR EISDIR... EI 00e0: 4e 56 41 4c 20 45 4e 46 49 4c 45 20 45 4d 46 49 NVAL ENFILE EMFI 00f0: 4c 45 20 45 4e 4f 54 54 59 20 45 54 58 54 42 53 LE ENOTTY ETXTBS 0100: 59 20 45 46 42 49 47 20 45 4e 4f 53 50 43 20 45 Y EFBIG ENOSPC E 0110: 53 50 49 50 45 20 45 52 4f 46 53 20 45 4d 4c 49 SPIPE EROFS EMLI 0120: 4e 4b 0a 09 09 20 45 50 49 50 45 20 45 44 4f 4d NK... EPIPE EDOM 0130: 20 45 52 41 4e 47 45 0a 09 09 20 0a 09 09 20 3b ERANGE... ... ; 0140: 3b 46 52 4f 4d 20 6c 69 6e 75 78 27 73 20 61 73 ;FROM linux's as 0150: 6d 2f 65 72 72 6e 6f 2e 68 0a 09 09 20 45 44 45 m/errno.h... EDE 0160: 41 44 4c 4b 20 45 4e 41 4d 45 54 4f 4f 4c 4f 4e ADLK ENAMETOOLON 0170: 47 20 45 4e 4f 4c 43 4b 0a 0a 09 09 20 45 4e 4f G ENOLCK.... ENO 0180: 53 59 53 0a 0a 09 09 20 45 4e 4f 54 45 4d 50 54 SYS.... ENOTEMPT 0190: 59 20 45 4c 4f 4f 50 20 45 57 4f 55 4c 44 42 4c Y ELOOP EWOULDBL 01a0: 4f 43 4b 20 45 4e 4f 4d 53 47 20 45 49 44 52 4d OCK ENOMSG EIDRM 01b0: 20 45 43 48 52 4e 47 20 45 4c 32 4e 53 59 4e 43 ECHRNG EL2NSYNC 01c0: 20 45 4c 33 48 4c 54 20 45 4c 33 52 53 54 0a 09 EL3HLT EL3RST.. 01d0: 09 20 45 4c 4e 52 4e 47 20 45 55 4e 41 54 43 48 . ELNRNG EUNATCH 01e0: 20 45 4e 4f 43 53 49 20 45 4c 32 48 4c 54 20 45 ENOCSI EL2HLT E 01f0: 42 41 44 45 20 45 42 41 44 52 20 45 58 46 55 4c BADE EBADR EXFUL 0200: 4c 20 45 4e 4f 41 4e 4f 20 45 42 41 44 52 51 43 L ENOANO EBADRQC 0210: 20 45 42 41 44 53 4c 54 0a 0a 09 09 20 45 44 45 EBADSLT.... EDE 0220: 41 44 4c 4f 43 4b 0a 0a 09 09 20 45 42 46 4f 4e ADLOCK.... EBFON 0230: 54 20 45 4e 4f 53 54 52 20 45 4e 4f 44 41 54 41 T ENOSTR ENODATA 0240: 20 45 54 49 4d 45 20 45 4e 4f 53 52 20 45 4e 4f ETIME ENOSR ENO 0250: 4e 45 54 20 45 4e 4f 50 4b 47 20 45 52 45 4d 4f NET ENOPKG EREMO 0260: 54 45 20 45 4e 4f 4c 49 4e 4b 20 45 41 44 56 0a TE ENOLINK EADV. 0270: 09 09 20 45 53 52 4d 4e 54 20 45 43 4f 4d 4d 20 .. ESRMNT ECOMM 0280: 45 50 52 4f 54 4f 20 45 4d 55 4c 54 49 48 4f 50 EPROTO EMULTIHOP 0290: 20 45 44 4f 54 44 4f 54 20 45 42 41 44 4d 53 47 EDOTDOT EBADMSG 02a0: 20 45 4f 56 45 52 46 4c 4f 57 20 45 4e 4f 54 55 EOVERFLOW ENOTU 02b0: 4e 49 51 0a 09 09 20 45 42 41 44 46 44 20 45 52 NIQ... EBADFD ER 02c0: 45 4d 43 48 47 20 45 4c 49 42 41 43 43 20 45 4c EMCHG ELIBACC EL 02d0: 49 42 42 41 44 20 45 4c 49 42 53 43 4e 20 45 4c IBBAD ELIBSCN EL 02e0: 49 42 4d 41 58 20 45 4c 49 42 45 58 45 43 20 45 IBMAX ELIBEXEC E 02f0: 49 4c 53 45 51 0a 09 09 20 45 52 45 53 54 41 52 ILSEQ... ERESTAR 0300: 54 20 45 53 54 52 50 49 50 45 20 45 55 53 45 52 T ESTRPIPE EUSER 0310: 53 20 45 4e 4f 54 53 4f 43 4b 20 45 44 45 53 54 S ENOTSOCK EDEST 0320: 41 44 44 52 52 45 51 20 45 4d 53 47 53 49 5a 45 ADDRREQ EMSGSIZE 0330: 20 45 50 52 4f 54 4f 54 59 50 45 0a 09 09 20 45 EPROTOTYPE... E 0340: 4e 4f 50 52 4f 54 4f 4f 50 54 20 45 50 52 4f 54 NOPROTOOPT EPROT 0350: 4f 4e 4f 53 55 50 50 4f 52 54 20 45 53 4f 43 4b ONOSUPPORT ESOCK 0360: 54 4e 4f 53 55 50 50 4f 52 54 20 45 4f 50 4e 4f TNOSUPPORT EOPNO 0370: 54 53 55 50 50 20 45 50 46 4e 4f 53 55 50 50 4f TSUPP EPFNOSUPPO 0380: 52 54 0a 09 09 20 45 41 46 4e 4f 53 55 50 50 4f RT... EAFNOSUPPO 0390: 52 54 20 45 41 44 44 52 49 4e 55 53 45 20 45 41 RT EADDRINUSE EA 03a0: 44 44 52 4e 4f 54 41 56 41 49 4c 20 45 4e 45 54 DDRNOTAVAIL ENET 03b0: 44 4f 57 4e 20 45 4e 45 54 55 4e 52 45 41 43 48 DOWN ENETUNREACH 03c0: 20 45 4e 45 54 52 45 53 45 54 0a 09 09 20 45 43 ENETRESET... EC 03d0: 4f 4e 4e 41 42 4f 52 54 45 44 20 45 43 4f 4e 4e ONNABORTED ECONN 03e0: 52 45 53 45 54 20 45 4e 4f 42 55 46 53 20 45 49 RESET ENOBUFS EI 03f0: 53 43 4f 4e 4e 20 45 4e 4f 54 43 4f 4e 4e 20 45 SCONN ENOTCONN E 0400: 53 48 55 54 44 4f 57 4e 0a 09 09 20 45 54 4f 4f SHUTDOWN... ETOO 0410: 4d 41 4e 59 52 45 46 53 20 45 54 49 4d 45 44 4f MANYREFS ETIMEDO 0420: 55 54 20 45 43 4f 4e 4e 52 45 46 55 53 45 44 20 UT ECONNREFUSED 0430: 45 48 4f 53 54 44 4f 57 4e 20 45 48 4f 53 54 55 EHOSTDOWN EHOSTU 0440: 4e 52 45 41 43 48 20 45 41 4c 52 45 41 44 59 0a NREACH EALREADY. 0450: 09 09 20 45 49 4e 50 52 4f 47 52 45 53 53 20 45 .. EINPROGRESS E 0460: 53 54 41 4c 45 20 45 55 43 4c 45 41 4e 20 45 4e STALE EUCLEAN EN 0470: 4f 54 4e 41 4d 20 45 4e 41 56 41 49 4c 20 45 49 OTNAM ENAVAIL EI 0480: 53 4e 41 4d 20 45 52 45 4d 4f 54 45 49 4f 20 45 SNAM EREMOTEIO E 0490: 44 51 55 4f 54 0a 09 09 20 45 4e 4f 4d 45 44 49 DQUOT... ENOMEDI 04a0: 55 4d 20 45 4d 45 44 49 55 4d 54 59 50 45 20 45 UM EMEDIUMTYPE E 04b0: 43 41 4e 43 45 4c 45 44 20 45 4e 4f 4b 45 59 20 CANCELED ENOKEY 04c0: 45 4b 45 59 45 58 50 49 52 45 44 20 45 4b 45 59 EKEYEXPIRED EKEY 04d0: 52 45 56 4f 4b 45 44 0a 09 09 20 45 4b 45 59 52 REVOKED... EKEYR 04e0: 45 4a 45 43 54 45 44 20 45 4f 57 4e 45 52 44 45 EJECTED EOWNERDE 04f0: 41 44 20 45 4e 4f 54 52 45 43 4f 56 45 52 41 42 AD ENOTRECOVERAB 0500: 4c 45 0a 0a 0a 09 09 20 73 74 72 65 72 72 6f 72 LE..... strerror 0510: 20 65 72 72 6e 6f 29 0a 20 20 28 69 6d 70 6f 72 errno). (impor 0520: 74 20 28 63 68 65 7a 73 63 68 65 6d 65 29 0a 09 t (chezscheme).. 0530: 20 20 28 73 72 66 69 20 70 72 69 76 61 74 65 20 (srfi private 0540: 69 6e 63 6c 75 64 65 29 29 0a 0a 20 20 28 6d 65 include)).. (me 0550: 74 61 2d 63 6f 6e 64 0a 20 20 20 5b 28 6d 65 6d ta-cond. [(mem 0560: 71 20 28 6d 61 63 68 69 6e 65 2d 74 79 70 65 29 q (machine-type) 0570: 20 27 28 61 36 6c 65 20 74 61 36 6c 65 20 69 33 '(a6le ta6le i3 0580: 6c 65 20 74 69 33 6c 65 29 29 0a 20 20 20 20 28 le ti3le)). ( 0590: 69 6e 63 6c 75 64 65 2f 72 65 73 6f 6c 76 65 20 include/resolve 05a0: 28 29 20 22 70 6f 73 69 78 2f 65 72 72 6e 6f 2d () "posix/errno- 05b0: 6c 69 6e 75 78 2e 73 73 22 29 5d 0a 20 20 20 5b linux.ss")]. [ 05c0: 65 6c 73 65 0a 20 20 20 20 28 65 72 72 6f 72 20 else. (error 05d0: 27 70 6f 73 69 78 2e 73 6c 73 20 22 75 6e 73 75 'posix.sls "unsu 05e0: 70 70 6f 72 74 65 64 20 6d 61 63 68 69 6e 65 2d pported machine- 05f0: 74 79 70 65 20 7e 61 22 20 28 6d 61 63 68 69 6e type ~a" (machin 0600: 65 2d 74 79 70 65 29 29 5d 29 0a 0a 20 20 28 64 e-type))]).. (d 0610: 65 66 69 6e 65 20 73 74 72 65 72 72 6f 72 0a 20 efine strerror. 0620: 20 20 20 28 63 61 73 65 2d 6c 61 6d 62 64 61 0a (case-lambda. 0630: 20 20 20 20 20 5b 28 29 20 28 73 74 72 65 72 72 [() (strerr 0640: 6f 72 20 28 65 72 72 6e 6f 29 29 5d 0a 20 20 20 or (errno))]. 0650: 20 20 5b 28 6e 29 0a 20 20 20 20 20 20 28 64 65 [(n). (de 0660: 66 69 6e 65 20 73 74 72 65 72 72 6f 72 2a 20 28 fine strerror* ( 0670: 66 6f 72 65 69 67 6e 2d 70 72 6f 63 65 64 75 72 foreign-procedur 0680: 65 20 22 73 74 72 65 72 72 6f 72 5f 72 22 20 28 e "strerror_r" ( 0690: 69 6e 74 20 75 38 2a 20 73 69 7a 65 5f 74 29 20 int u8* size_t) 06a0: 73 74 72 69 6e 67 29 29 0a 20 20 20 20 20 20 28 string)). ( 06b0: 64 65 66 69 6e 65 20 62 75 66 66 20 28 6d 61 6b define buff (mak 06c0: 65 2d 62 79 74 65 76 65 63 74 6f 72 20 31 30 32 e-bytevector 102 06d0: 34 29 29 0a 20 20 20 20 20 20 28 73 74 72 65 72 4)). (strer 06e0: 72 6f 72 2a 20 6e 20 62 75 66 66 20 31 30 32 34 ror* n buff 1024 06f0: 29 5d 29 29 0a 0a 20 20 28 64 65 66 69 6e 65 20 )])).. (define 0700: 28 65 72 72 6e 6f 29 0a 20 20 20 20 28 66 6f 72 (errno). (for 0710: 65 69 67 6e 2d 72 65 66 20 27 69 6e 74 20 28 66 eign-ref 'int (f 0720: 6f 72 65 69 67 6e 2d 65 6e 74 72 79 20 22 65 72 oreign-entry "er 0730: 72 6e 6f 22 29 20 30 29 29 0a 20 20 29 0a rno") 0)). ).