Fix I/O error codes. (fixes #103)

fukamachi · Aug 11, 2024 · 64d81cd · 64d81cd
1 parent 8cfaced
commit 64d81cd
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 11 deletions.
diff --git a/src/syscall/main.lisp b/src/syscall/main.lisp
@@ -43,16 +43,6 @@
 (defconstant F-SETFL 4.)
 (defconstant O-NONBLOCK 4.)
 
-(defconstant EWOULDBLOCK 35.)
-(defconstant EPIPE 32.)
-(defconstant EINTR 4.)
-(defconstant EPROTO 100.)
-(defconstant ECONNABORTED 53.)
-(defconstant ECONNREFUSED 61.)
-(defconstant ECONNRESET 54.)
-(defconstant ENOTCONN 57.)
-(defconstant EAGAIN 11.)
-
 (defun set-fd-nonblock (fd enabled)
   (declare (optimize (speed 3) (safety 0)))
   (let ((current-flags (%fcntl/noarg fd F-GETFL)))

diff --git a/src/syscall/types.lisp b/src/syscall/types.lisp
@@ -1,4 +1,4 @@
-(include "sys/types.h" "sys/fcntl.h")
+(include "sys/types.h" "sys/fcntl.h" "errno.h")
 #+(or freebsd bsd)
 (include "sys/socket.h")
 
@@ -14,3 +14,12 @@
 (constant (+SF-MNOWAIT+ "SF_MNOWAIT"))
 
 (constant (+O-RDONLY+ "O_RDONLY"))
+(constant (EWOULDBLOCK "EWOULDBLOCK"))
+(constant (EPIPE "EPIPE"))
+(constant (EINTR "EINTR"))
+(constant (EPROTO "EPROTO"))
+(constant (ECONNABORTED "ECONNABORTED"))
+(constant (ECONNREFUSED "ECONNREFUSED"))
+(constant (ECONNRESET "ECONNRESET"))
+(constant (ENOTCONN "ENOTCONN"))
+(constant (EAGAIN "EAGAIN"))