[Git][cmucl/cmucl][issue-365-add-strerror-with-generated-unix-errno] 2 commits: Use shell script to create unix-errno.lisp

10 Feb 2025


      Raymond Toy pushed to branch issue-365-add-strerror-with-generated-unix-errno at cmucl / cmucl


Commits:
2f9a0e54 by Raymond Toy at 2025-02-10T07:28:15-08:00
Use shell script to create unix-errno.lisp

Instead of embedding the header and tail of unix-errno.lisp in the awk
script, use a shell script to print out the header and tail.  We embed
the fairly simple awk script into the shell script.

Update the build scripts to use this new shell script.

- - - - -
5e784f72 by Raymond Toy at 2025-02-10T07:29:56-08:00
Remove create-errno.awk

This has all been subsumed by the scripts create-errno.sh.

- - - - -


4 changed files:

- bin/build.sh
- − bin/create-errno.awk
- + bin/create-errno.sh
- bin/cross-build-world.sh


Changes:

=====================================
bin/build.sh
=====================================
@@ -159,7 +159,8 @@ case `uname -s` in
 	   ;;
 esac
 
-awk -f bin/create-errno.awk ${ERRNO_FILES} > src/code/unix-errno.lisp
+#awk -f bin/create-errno.awk ${ERRNO_FILES} > src/code/unix-errno.lisp
+bin/create-errno.sh ${ERRNO_FILES} > src/code/unix-errno.lisp
 
 BUILDWORLD="$TOOLDIR/build-world.sh"
 BUILD_POT="yes"


=====================================
bin/create-errno.awk deleted
=====================================
@@ -1,248 +0,0 @@
-BEGIN {
-    print ";;; -*- Package: UNIX -*-\n\
-;;;\n\
-;;; **********************************************************************\n\
-;;; This code was written as part of the CMU Common Lisp project at\n\
-;;; Carnegie Mellon University, and has been placed in the public domain.\n\
-;;;\n\
-(ext:file-comment\n\
-  \"$Header: src/code/unix-errno.lisp $\")\n\
-;;;\n\
-;;; **********************************************************************\n\
-;;;\n\
-;;; This file contains the UNIX low-level support, just enough to run\n\
-;;; CMUCL.\n\
-;;;\n\
-(in-package \"UNIX\")\n\
-(intl:textdomain \"cmucl-unix\")\n\
-\n\
-;;;; Errno stuff.\n\
-(eval-when (compile eval)\n\
-\n\
-(defparameter *compiler-unix-errors* nil)\n\
-\n\
-(defmacro def-unix-error (name number &optional description)\n\
-  \"Define a constant named Name corresponding to the Unix errno value\n\
-  Number.  A description of the errno is optional in Description.\"\n\
-  `(progn\n\
-     (eval-when (compile eval)\n\
-       (push (cons ,number ,description) *compiler-unix-errors*))\n\
-     (defconstant ,name ,number ,description)\n\
-     (export ',name)))\n\
-\n\
-(defmacro emit-unix-errors ()\n\
-  (let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*)))\n\
-	 (array (make-array (1+ max) :initial-element nil)))\n\
-    (dolist (error *compiler-unix-errors*)\n\
-      (setf (svref array (car error)) (cdr error)))\n\
-    `(progn\n\
-       (defvar *unix-errors* ',array)\n\
-       (declaim (simple-vector *unix-errors*)))))\n\
-\n\
-) ;eval-when\n\
-\n\
-;;; \n\
-;;; From <errno.h>\n\
-;;; \n\
-(def-unix-error ESUCCESS 0 _N\"Successful\")\n\
-#-linux\n\
-(progn\n\
-(def-unix-error EPERM 1 _N\"Operation not permitted\")\n\
-(def-unix-error ENOENT 2 _N\"No such file or directory\")\n\
-(def-unix-error ESRCH 3 _N\"No such process\")\n\
-(def-unix-error EINTR 4 _N\"Interrupted system call\")\n\
-(def-unix-error EIO 5 _N\"I/O error\")\n\
-(def-unix-error ENXIO 6 _N\"Device not configured\")\n\
-(def-unix-error E2BIG 7 _N\"Arg list too long\")\n\
-(def-unix-error ENOEXEC 8 _N\"Exec format error\")\n\
-(def-unix-error EBADF 9 _N\"Bad file descriptor\")\n\
-(def-unix-error ECHILD 10 _N\"No child process\")\n\
-)\n\
-#+bsd(def-unix-error EDEADLK 11 _N\"Resource deadlock avoided\")\n\
-#-bsd(def-unix-error EAGAIN 11 #-linux _N\"No more processes\" #+linux _N\"Try again\")\n\
-#-linux\n\
-(progn\n\
-(def-unix-error ENOMEM 12 _N\"Out of memory\")\n\
-(def-unix-error EACCES 13 _N\"Permission denied\")\n\
-(def-unix-error EFAULT 14 _N\"Bad address\")\n\
-(def-unix-error ENOTBLK 15 _N\"Block device required\")\n\
-(def-unix-error EBUSY 16 _N\"Device or resource busy\")\n\
-(def-unix-error EEXIST 17 _N\"File exists\")\n\
-(def-unix-error EXDEV 18 _N\"Cross-device link\")\n\
-(def-unix-error ENODEV 19 _N\"No such device\")\n\
-(def-unix-error ENOTDIR 20 _N\"Not a director\")\n\
-(def-unix-error EISDIR 21 _N\"Is a directory\")\n\
-(def-unix-error EINVAL 22 _N\"Invalid argument\")\n\
-(def-unix-error ENFILE 23 _N\"File table overflow\")\n\
-(def-unix-error EMFILE 24 _N\"Too many open files\")\n\
-(def-unix-error ENOTTY 25 _N\"Inappropriate ioctl for device\")\n\
-(def-unix-error ETXTBSY 26 _N\"Text file busy\")\n\
-(def-unix-error EFBIG 27 _N\"File too large\")\n\
-(def-unix-error ENOSPC 28 _N\"No space left on device\")\n\
-(def-unix-error ESPIPE 29 _N\"Illegal seek\")\n\
-(def-unix-error EROFS 30 _N\"Read-only file system\")\n\
-(def-unix-error EMLINK 31 _N\"Too many links\")\n\
-(def-unix-error EPIPE 32 _N\"Broken pipe\")\n\
-;;; \n\
-;;; Math\n\
-(def-unix-error EDOM 33 _N\"Numerical argument out of domain\")\n\
-(def-unix-error ERANGE 34 #-linux _N\"Result too large\" #+linux _N\"Math result not representable\")\n\
-)\n\
-;;; \n\
-#-(or linux svr4)\n\
-(progn\n\
-;;; non-blocking and interrupt i/o\n\
-(def-unix-error EWOULDBLOCK 35 _N\"Operation would block\")\n\
-#-bsd(def-unix-error EDEADLK 35 _N\"Operation would block\") ; Ditto\n\
-#+bsd(def-unix-error EAGAIN 35 _N\"Resource temporarily unavailable\")\n\
-(def-unix-error EINPROGRESS 36 _N\"Operation now in progress\")\n\
-(def-unix-error EALREADY 37 _N\"Operation already in progress\")\n\
-;;;\n\
-;;; ipc/network software\n\
-(def-unix-error ENOTSOCK 38 _N\"Socket operation on non-socket\")\n\
-(def-unix-error EDESTADDRREQ 39 _N\"Destination address required\")\n\
-(def-unix-error EMSGSIZE 40 _N\"Message too long\")\n\
-(def-unix-error EPROTOTYPE 41 _N\"Protocol wrong type for socket\")\n\
-(def-unix-error ENOPROTOOPT 42 _N\"Protocol not available\")\n\
-(def-unix-error EPROTONOSUPPORT 43 _N\"Protocol not supported\")\n\
-(def-unix-error ESOCKTNOSUPPORT 44 _N\"Socket type not supported\")\n\
-(def-unix-error EOPNOTSUPP 45 _N\"Operation not supported on socket\")\n\
-(def-unix-error EPFNOSUPPORT 46 _N\"Protocol family not supported\")\n\
-(def-unix-error EAFNOSUPPORT 47 _N\"Address family not supported by protocol family\")\n\
-(def-unix-error EADDRINUSE 48 _N\"Address already in use\")\n\
-(def-unix-error EADDRNOTAVAIL 49 _N\"Can't assign requested address\")\n\
-;;;\n\
-;;; operational errors\n\
-(def-unix-error ENETDOWN 50 _N\"Network is down\")\n\
-(def-unix-error ENETUNREACH 51 _N\"Network is unreachable\")\n\
-(def-unix-error ENETRESET 52 _N\"Network dropped connection on reset\")\n\
-(def-unix-error ECONNABORTED 53 _N\"Software caused connection abort\")\n\
-(def-unix-error ECONNRESET 54 _N\"Connection reset by peer\")\n\
-(def-unix-error ENOBUFS 55 _N\"No buffer space available\")\n\
-(def-unix-error EISCONN 56 _N\"Socket is already connected\")\n\
-(def-unix-error ENOTCONN 57 _N\"Socket is not connected\")\n\
-(def-unix-error ESHUTDOWN 58 _N\"Can't send after socket shutdown\")\n\
-(def-unix-error ETOOMANYREFS 59 _N\"Too many references: can't splice\")\n\
-(def-unix-error ETIMEDOUT 60 _N\"Connection timed out\")\n\
-(def-unix-error ECONNREFUSED 61 _N\"Connection refused\")\n\
-;;; \n\
-(def-unix-error ELOOP 62 _N\"Too many levels of symbolic links\")\n\
-(def-unix-error ENAMETOOLONG 63 _N\"File name too long\")\n\
-;;; \n\
-(def-unix-error EHOSTDOWN 64 _N\"Host is down\")\n\
-(def-unix-error EHOSTUNREACH 65 _N\"No route to host\")\n\
-(def-unix-error ENOTEMPTY 66 _N\"Directory not empty\")\n\
-;;; \n\
-;;; quotas & resource \n\
-(def-unix-error EPROCLIM 67 _N\"Too many processes\")\n\
-(def-unix-error EUSERS 68 _N\"Too many users\")\n\
-(def-unix-error EDQUOT 69 _N\"Disc quota exceeded\")\n\
-;;;\n\
-;;; CMU RFS\n\
-(def-unix-error ELOCAL 126 _N\"namei should continue locally\")\n\
-(def-unix-error EREMOTE 127 _N\"namei was handled remotely\")\n\
-;;;\n\
-;;; VICE\n\
-(def-unix-error EVICEERR 70 _N\"Remote file system error _N\")\n\
-(def-unix-error EVICEOP 71 _N\"syscall was handled by Vice\")\n\
-)\n\
-#+svr4\n\
-(progn\n\
-(def-unix-error ENOMSG 35 _N\"No message of desired type\")\n\
-(def-unix-error EIDRM 36 _N\"Identifier removed\")\n\
-(def-unix-error ECHRNG 37 _N\"Channel number out of range\")\n\
-(def-unix-error EL2NSYNC 38 _N\"Level 2 not synchronized\")\n\
-(def-unix-error EL3HLT 39 _N\"Level 3 halted\")\n\
-(def-unix-error EL3RST 40 _N\"Level 3 reset\")\n\
-(def-unix-error ELNRNG 41 _N\"Link number out of range\")\n\
-(def-unix-error EUNATCH 42 _N\"Protocol driver not attached\")\n\
-(def-unix-error ENOCSI 43 _N\"No CSI structure available\")\n\
-(def-unix-error EL2HLT 44 _N\"Level 2 halted\")\n\
-(def-unix-error EDEADLK 45 _N\"Deadlock situation detected/avoided\")\n\
-(def-unix-error ENOLCK 46 _N\"No record locks available\")\n\
-(def-unix-error ECANCELED 47 _N\"Error 47\")\n\
-(def-unix-error ENOTSUP 48 _N\"Error 48\")\n\
-(def-unix-error EBADE 50 _N\"Bad exchange descriptor\")\n\
-(def-unix-error EBADR 51 _N\"Bad request descriptor\")\n\
-(def-unix-error EXFULL 52 _N\"Message tables full\")\n\
-(def-unix-error ENOANO 53 _N\"Anode table overflow\")\n\
-(def-unix-error EBADRQC 54 _N\"Bad request code\")\n\
-(def-unix-error EBADSLT 55 _N\"Invalid slot\")\n\
-(def-unix-error EDEADLOCK 56 _N\"File locking deadlock\")\n\
-(def-unix-error EBFONT 57 _N\"Bad font file format\")\n\
-(def-unix-error ENOSTR 60 _N\"Not a stream device\")\n\
-(def-unix-error ENODATA 61 _N\"No data available\")\n\
-(def-unix-error ETIME 62 _N\"Timer expired\")\n\
-(def-unix-error ENOSR 63 _N\"Out of stream resources\")\n\
-(def-unix-error ENONET 64 _N\"Machine is not on the network\")\n\
-(def-unix-error ENOPKG 65 _N\"Package not installed\")\n\
-(def-unix-error EREMOTE 66 _N\"Object is remote\")\n\
-(def-unix-error ENOLINK 67 _N\"Link has been severed\")\n\
-(def-unix-error EADV 68 _N\"Advertise error\")\n\
-(def-unix-error ESRMNT 69 _N\"Srmount error\")\n\
-(def-unix-error ECOMM 70 _N\"Communication error on send\")\n\
-(def-unix-error EPROTO 71 _N\"Protocol error\")\n\
-(def-unix-error EMULTIHOP 74 _N\"Multihop attempted\")\n\
-(def-unix-error EBADMSG 77 _N\"Not a data message\")\n\
-(def-unix-error ENAMETOOLONG 78 _N\"File name too long\")\n\
-(def-unix-error EOVERFLOW 79 _N\"Value too large for defined data type\")\n\
-(def-unix-error ENOTUNIQ 80 _N\"Name not unique on network\")\n\
-(def-unix-error EBADFD 81 _N\"File descriptor in bad state\")\n\
-(def-unix-error EREMCHG 82 _N\"Remote address changed\")\n\
-(def-unix-error ELIBACC 83 _N\"Can not access a needed shared library\")\n\
-(def-unix-error ELIBBAD 84 _N\"Accessing a corrupted shared library\")\n\
-(def-unix-error ELIBSCN 85 _N\".lib section in a.out corrupted\")\n\
-(def-unix-error ELIBMAX 86 _N\"Attempting to link in more shared libraries than system limit\")\n\
-(def-unix-error ELIBEXEC 87 _N\"Can not exec a shared library directly\")\n\
-(def-unix-error EILSEQ 88 _N\"Error 88\")\n\
-(def-unix-error ENOSYS 89 _N\"Operation not applicable\")\n\
-(def-unix-error ELOOP 90 _N\"Number of symbolic links encountered during path name traversal exceeds MAXSYMLINKS\")\n\
-(def-unix-error ERESTART 91 _N\"Error 91\")\n\
-(def-unix-error ESTRPIPE 92 _N\"Error 92\")\n\
-(def-unix-error ENOTEMPTY 93 _N\"Directory not empty\")\n\
-(def-unix-error EUSERS 94 _N\"Too many users\")\n\
-(def-unix-error ENOTSOCK 95 _N\"Socket operation on non-socket\")\n\
-(def-unix-error EDESTADDRREQ 96 _N\"Destination address required\")\n\
-(def-unix-error EMSGSIZE 97 _N\"Message too long\")\n\
-(def-unix-error EPROTOTYPE 98 _N\"Protocol wrong type for socket\")\n\
-(def-unix-error ENOPROTOOPT 99 _N\"Option not supported by protocol\")\n\
-(def-unix-error EPROTONOSUPPORT 120 _N\"Protocol not supported\")\n\
-(def-unix-error ESOCKTNOSUPPORT 121 _N\"Socket type not supported\")\n\
-(def-unix-error EOPNOTSUPP 122 _N\"Operation not supported on transport endpoint\")\n\
-(def-unix-error EPFNOSUPPORT 123 _N\"Protocol family not supported\")\n\
-(def-unix-error EAFNOSUPPORT 124 _N\"Address family not supported by protocol family\")\n\
-(def-unix-error EADDRINUSE 125 _N\"Address already in use\")\n\
-(def-unix-error EADDRNOTAVAIL 126 _N\"Cannot assign requested address\")\n\
-(def-unix-error ENETDOWN 127 _N\"Network is down\")\n\
-(def-unix-error ENETUNREACH 128 _N\"Network is unreachable\")\n\
-(def-unix-error ENETRESET 129 _N\"Network dropped connection because of reset\")\n\
-(def-unix-error ECONNABORTED 130 _N\"Software caused connection abort\")\n\
-(def-unix-error ECONNRESET 131 _N\"Connection reset by peer\")\n\
-(def-unix-error ENOBUFS 132 _N\"No buffer space available\")\n\
-(def-unix-error EISCONN 133 _N\"Transport endpoint is already connected\")\n\
-(def-unix-error ENOTCONN 134 _N\"Transport endpoint is not connected\")\n\
-(def-unix-error ESHUTDOWN 143 _N\"Cannot send after socket shutdown\")\n\
-(def-unix-error ETOOMANYREFS 144 _N\"Too many references: cannot splice\")\n\
-(def-unix-error ETIMEDOUT 145 _N\"Connection timed out\")\n\
-(def-unix-error ECONNREFUSED 146 _N\"Connection refused\")\n\
-(def-unix-error EHOSTDOWN 147 _N\"Host is down\")\n\
-(def-unix-error EHOSTUNREACH 148 _N\"No route to host\")\n\
-(def-unix-error EWOULDBLOCK 11 _N\"Resource temporarily unavailable\")\n\
-(def-unix-error EALREADY 149 _N\"Operation already in progress\")\n\
-(def-unix-error EINPROGRESS 150 _N\"Operation now in progress\")\n\
-(def-unix-error ESTALE 151 _N\"Stale NFS file handle\")\n\
-)\n\
-";
-}
-
-/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([A-Z0-9]+).*$/ {
-    printf "(def-unix-error %s %s)\n", $2, $3;
-}
-
-END {
-    print "\n\n;;;\n\
-;;; And now for something completely different ...\n\
-(emit-unix-errors)\n\
-"
-}
-


=====================================
bin/create-errno.sh
=====================================
@@ -0,0 +1,264 @@
+#! /bin/sh
+
+# Generates the contents of the file code/unix-errno.lisp.  The args
+# to this script, if supplied, must be a list of files containing the
+# definitions of all the Unix errno values.
+#
+
+# The header was copied from code/unix.lisp.  This includes all the
+# support code for DEF-UNIX-ERROR and for all OSes that don't use the
+# awk script to create the DEF-UNIX-ERROR forms.
+#
+cat <<EOF
+;;; -*- Package: UNIX -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;;
+(ext:file-comment
+  "$Header: src/code/unix-errno.lisp $")
+;;;
+;;; **********************************************************************
+;;;
+;;; This file contains the UNIX low-level support, just enough to run
+;;; CMUCL.
+;;;
+(in-package "UNIX")
+(intl:textdomain "cmucl-unix")
+
+;;;; Errno stuff.
+(eval-when (compile eval)
+
+(defparameter *compiler-unix-errors* nil)
+
+(defmacro def-unix-error (name number &optional description)
+  "Define a constant named Name corresponding to the Unix errno value
+  Number.  A description of the errno is optional in Description."
+  \`(progn
+     (eval-when (compile eval)
+       (push (cons ,number ,description) *compiler-unix-errors*))
+     (defconstant ,name ,number ,description)
+     (export ',name)))
+
+(defmacro emit-unix-errors ()
+  (let* ((max (apply #'max (mapcar #'car *compiler-unix-errors*)))
+	 (array (make-array (1+ max) :initial-element nil)))
+    (dolist (error *compiler-unix-errors*)
+      (setf (svref array (car error)) (cdr error)))
+    \`(progn
+       (defvar *unix-errors* ',array)
+       (declaim (simple-vector *unix-errors*)))))
+
+) ;eval-when
+
+;;; 
+;;; From <errno.h>
+;;; 
+(def-unix-error ESUCCESS 0 _N"Successful")
+#-linux
+(progn
+(def-unix-error EPERM 1 _N"Operation not permitted")
+(def-unix-error ENOENT 2 _N"No such file or directory")
+(def-unix-error ESRCH 3 _N"No such process")
+(def-unix-error EINTR 4 _N"Interrupted system call")
+(def-unix-error EIO 5 _N"I/O error")
+(def-unix-error ENXIO 6 _N"Device not configured")
+(def-unix-error E2BIG 7 _N"Arg list too long")
+(def-unix-error ENOEXEC 8 _N"Exec format error")
+(def-unix-error EBADF 9 _N"Bad file descriptor")
+(def-unix-error ECHILD 10 _N"No child process")
+)
+#+bsd(def-unix-error EDEADLK 11 _N"Resource deadlock avoided")
+#-(or bsd linux) (def-unix-error EAGAIN 11 #-linux _N"No more processes" #+linux _N"Try again")
+#-linux
+(progn
+(def-unix-error ENOMEM 12 _N"Out of memory")
+(def-unix-error EACCES 13 _N"Permission denied")
+(def-unix-error EFAULT 14 _N"Bad address")
+(def-unix-error ENOTBLK 15 _N"Block device required")
+(def-unix-error EBUSY 16 _N"Device or resource busy")
+(def-unix-error EEXIST 17 _N"File exists")
+(def-unix-error EXDEV 18 _N"Cross-device link")
+(def-unix-error ENODEV 19 _N"No such device")
+(def-unix-error ENOTDIR 20 _N"Not a director")
+(def-unix-error EISDIR 21 _N"Is a directory")
+(def-unix-error EINVAL 22 _N"Invalid argument")
+(def-unix-error ENFILE 23 _N"File table overflow")
+(def-unix-error EMFILE 24 _N"Too many open files")
+(def-unix-error ENOTTY 25 _N"Inappropriate ioctl for device")
+(def-unix-error ETXTBSY 26 _N"Text file busy")
+(def-unix-error EFBIG 27 _N"File too large")
+(def-unix-error ENOSPC 28 _N"No space left on device")
+(def-unix-error ESPIPE 29 _N"Illegal seek")
+(def-unix-error EROFS 30 _N"Read-only file system")
+(def-unix-error EMLINK 31 _N"Too many links")
+(def-unix-error EPIPE 32 _N"Broken pipe")
+;;; 
+;;; Math
+(def-unix-error EDOM 33 _N"Numerical argument out of domain")
+(def-unix-error ERANGE 34 #-linux _N"Result too large" #+linux _N"Math result not representable")
+)
+;;; 
+#-(or linux svr4)
+(progn
+;;; non-blocking and interrupt i/o
+(def-unix-error EWOULDBLOCK 35 _N"Operation would block")
+#-bsd(def-unix-error EDEADLK 35 _N"Operation would block") ; Ditto
+#+bsd(def-unix-error EAGAIN 35 _N"Resource temporarily unavailable")
+(def-unix-error EINPROGRESS 36 _N"Operation now in progress")
+(def-unix-error EALREADY 37 _N"Operation already in progress")
+;;;
+;;; ipc/network software
+(def-unix-error ENOTSOCK 38 _N"Socket operation on non-socket")
+(def-unix-error EDESTADDRREQ 39 _N"Destination address required")
+(def-unix-error EMSGSIZE 40 _N"Message too long")
+(def-unix-error EPROTOTYPE 41 _N"Protocol wrong type for socket")
+(def-unix-error ENOPROTOOPT 42 _N"Protocol not available")
+(def-unix-error EPROTONOSUPPORT 43 _N"Protocol not supported")
+(def-unix-error ESOCKTNOSUPPORT 44 _N"Socket type not supported")
+(def-unix-error EOPNOTSUPP 45 _N"Operation not supported on socket")
+(def-unix-error EPFNOSUPPORT 46 _N"Protocol family not supported")
+(def-unix-error EAFNOSUPPORT 47 _N"Address family not supported by protocol family")
+(def-unix-error EADDRINUSE 48 _N"Address already in use")
+(def-unix-error EADDRNOTAVAIL 49 _N"Can't assign requested address")
+;;;
+;;; operational errors
+(def-unix-error ENETDOWN 50 _N"Network is down")
+(def-unix-error ENETUNREACH 51 _N"Network is unreachable")
+(def-unix-error ENETRESET 52 _N"Network dropped connection on reset")
+(def-unix-error ECONNABORTED 53 _N"Software caused connection abort")
+(def-unix-error ECONNRESET 54 _N"Connection reset by peer")
+(def-unix-error ENOBUFS 55 _N"No buffer space available")
+(def-unix-error EISCONN 56 _N"Socket is already connected")
+(def-unix-error ENOTCONN 57 _N"Socket is not connected")
+(def-unix-error ESHUTDOWN 58 _N"Can't send after socket shutdown")
+(def-unix-error ETOOMANYREFS 59 _N"Too many references: can't splice")
+(def-unix-error ETIMEDOUT 60 _N"Connection timed out")
+(def-unix-error ECONNREFUSED 61 _N"Connection refused")
+;;; 
+(def-unix-error ELOOP 62 _N"Too many levels of symbolic links")
+(def-unix-error ENAMETOOLONG 63 _N"File name too long")
+;;; 
+(def-unix-error EHOSTDOWN 64 _N"Host is down")
+(def-unix-error EHOSTUNREACH 65 _N"No route to host")
+(def-unix-error ENOTEMPTY 66 _N"Directory not empty")
+;;; 
+;;; quotas & resource 
+(def-unix-error EPROCLIM 67 _N"Too many processes")
+(def-unix-error EUSERS 68 _N"Too many users")
+(def-unix-error EDQUOT 69 _N"Disc quota exceeded")
+;;;
+;;; CMU RFS
+(def-unix-error ELOCAL 126 _N"namei should continue locally")
+(def-unix-error EREMOTE 127 _N"namei was handled remotely")
+;;;
+;;; VICE
+(def-unix-error EVICEERR 70 _N"Remote file system error _N")
+(def-unix-error EVICEOP 71 _N"syscall was handled by Vice")
+)
+#+svr4
+(progn
+(def-unix-error ENOMSG 35 _N"No message of desired type")
+(def-unix-error EIDRM 36 _N"Identifier removed")
+(def-unix-error ECHRNG 37 _N"Channel number out of range")
+(def-unix-error EL2NSYNC 38 _N"Level 2 not synchronized")
+(def-unix-error EL3HLT 39 _N"Level 3 halted")
+(def-unix-error EL3RST 40 _N"Level 3 reset")
+(def-unix-error ELNRNG 41 _N"Link number out of range")
+(def-unix-error EUNATCH 42 _N"Protocol driver not attached")
+(def-unix-error ENOCSI 43 _N"No CSI structure available")
+(def-unix-error EL2HLT 44 _N"Level 2 halted")
+(def-unix-error EDEADLK 45 _N"Deadlock situation detected/avoided")
+(def-unix-error ENOLCK 46 _N"No record locks available")
+(def-unix-error ECANCELED 47 _N"Error 47")
+(def-unix-error ENOTSUP 48 _N"Error 48")
+(def-unix-error EBADE 50 _N"Bad exchange descriptor")
+(def-unix-error EBADR 51 _N"Bad request descriptor")
+(def-unix-error EXFULL 52 _N"Message tables full")
+(def-unix-error ENOANO 53 _N"Anode table overflow")
+(def-unix-error EBADRQC 54 _N"Bad request code")
+(def-unix-error EBADSLT 55 _N"Invalid slot")
+(def-unix-error EDEADLOCK 56 _N"File locking deadlock")
+(def-unix-error EBFONT 57 _N"Bad font file format")
+(def-unix-error ENOSTR 60 _N"Not a stream device")
+(def-unix-error ENODATA 61 _N"No data available")
+(def-unix-error ETIME 62 _N"Timer expired")
+(def-unix-error ENOSR 63 _N"Out of stream resources")
+(def-unix-error ENONET 64 _N"Machine is not on the network")
+(def-unix-error ENOPKG 65 _N"Package not installed")
+(def-unix-error EREMOTE 66 _N"Object is remote")
+(def-unix-error ENOLINK 67 _N"Link has been severed")
+(def-unix-error EADV 68 _N"Advertise error")
+(def-unix-error ESRMNT 69 _N"Srmount error")
+(def-unix-error ECOMM 70 _N"Communication error on send")
+(def-unix-error EPROTO 71 _N"Protocol error")
+(def-unix-error EMULTIHOP 74 _N"Multihop attempted")
+(def-unix-error EBADMSG 77 _N"Not a data message")
+(def-unix-error ENAMETOOLONG 78 _N"File name too long")
+(def-unix-error EOVERFLOW 79 _N"Value too large for defined data type")
+(def-unix-error ENOTUNIQ 80 _N"Name not unique on network")
+(def-unix-error EBADFD 81 _N"File descriptor in bad state")
+(def-unix-error EREMCHG 82 _N"Remote address changed")
+(def-unix-error ELIBACC 83 _N"Can not access a needed shared library")
+(def-unix-error ELIBBAD 84 _N"Accessing a corrupted shared library")
+(def-unix-error ELIBSCN 85 _N".lib section in a.out corrupted")
+(def-unix-error ELIBMAX 86 _N"Attempting to link in more shared libraries than system limit")
+(def-unix-error ELIBEXEC 87 _N"Can not exec a shared library directly")
+(def-unix-error EILSEQ 88 _N"Error 88")
+(def-unix-error ENOSYS 89 _N"Operation not applicable")
+(def-unix-error ELOOP 90 _N"Number of symbolic links encountered during path name traversal exceeds MAXSYMLINKS")
+(def-unix-error ERESTART 91 _N"Error 91")
+(def-unix-error ESTRPIPE 92 _N"Error 92")
+(def-unix-error ENOTEMPTY 93 _N"Directory not empty")
+(def-unix-error EUSERS 94 _N"Too many users")
+(def-unix-error ENOTSOCK 95 _N"Socket operation on non-socket")
+(def-unix-error EDESTADDRREQ 96 _N"Destination address required")
+(def-unix-error EMSGSIZE 97 _N"Message too long")
+(def-unix-error EPROTOTYPE 98 _N"Protocol wrong type for socket")
+(def-unix-error ENOPROTOOPT 99 _N"Option not supported by protocol")
+(def-unix-error EPROTONOSUPPORT 120 _N"Protocol not supported")
+(def-unix-error ESOCKTNOSUPPORT 121 _N"Socket type not supported")
+(def-unix-error EOPNOTSUPP 122 _N"Operation not supported on transport endpoint")
+(def-unix-error EPFNOSUPPORT 123 _N"Protocol family not supported")
+(def-unix-error EAFNOSUPPORT 124 _N"Address family not supported by protocol family")
+(def-unix-error EADDRINUSE 125 _N"Address already in use")
+(def-unix-error EADDRNOTAVAIL 126 _N"Cannot assign requested address")
+(def-unix-error ENETDOWN 127 _N"Network is down")
+(def-unix-error ENETUNREACH 128 _N"Network is unreachable")
+(def-unix-error ENETRESET 129 _N"Network dropped connection because of reset")
+(def-unix-error ECONNABORTED 130 _N"Software caused connection abort")
+(def-unix-error ECONNRESET 131 _N"Connection reset by peer")
+(def-unix-error ENOBUFS 132 _N"No buffer space available")
+(def-unix-error EISCONN 133 _N"Transport endpoint is already connected")
+(def-unix-error ENOTCONN 134 _N"Transport endpoint is not connected")
+(def-unix-error ESHUTDOWN 143 _N"Cannot send after socket shutdown")
+(def-unix-error ETOOMANYREFS 144 _N"Too many references: cannot splice")
+(def-unix-error ETIMEDOUT 145 _N"Connection timed out")
+(def-unix-error ECONNREFUSED 146 _N"Connection refused")
+(def-unix-error EHOSTDOWN 147 _N"Host is down")
+(def-unix-error EHOSTUNREACH 148 _N"No route to host")
+(def-unix-error EWOULDBLOCK 11 _N"Resource temporarily unavailable")
+(def-unix-error EALREADY 149 _N"Operation already in progress")
+(def-unix-error EINPROGRESS 150 _N"Operation now in progress")
+(def-unix-error ESTALE 151 _N"Stale NFS file handle")
+)
+
+;;; Auto-generated forms, if any.
+EOF
+
+# Create appropriate DEF-UNIX-ERROR forms by reading header files
+# containing the C definitions.
+awk '/^#define[ \t]+(E[A-Z0-9]+)[ \t]+([A-Z0-9]+).*$/ {
+    printf "(def-unix-error %s %s)\n", $2, $3;
+}' "$@"
+
+# The tail was also copied from code/unix.lisp.  It's needed to tell
+# Lisp about the errno values.
+cat <<EOF
+;;; End auto-generated forms, if any.
+
+;;;
+;;; And now for something completely different ...
+(emit-unix-errors)
+EOF


=====================================
bin/cross-build-world.sh
=====================================
@@ -90,7 +90,8 @@ case `uname -s` in
 	   ;;
 esac
 
-awk -f bin/create-errno.awk ${ERRNO_FILES} > src/code/unix-errno.lisp
+#awk -f bin/create-errno.awk ${ERRNO_FILES} > src/code/unix-errno.lisp
+bin/create-errno.sh ${ERRNO_FILES} > src/code/unix-errno.lisp
 
 echo cross boot = $CROSSBOOT
 $LISP "$@" -noinit -nositeinit <<EOF



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a6792e5033f63c9688e0fda...

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a6792e5033f63c9688e0fda...
You're receiving this email because of your account on gitlab.common-lisp.net.

    

Raymond Toy (＠rtoy)

tags

participants (1)