Expose UV_EUNATCH

src/c/luv_c_type_descriptions.ml

@@ -89,6 +89,7 @@ struct
     let esrch = constant "UV_ESRCH" int
     let etimedout = constant "UV_ETIMEDOUT" int
     let etxtbsy = constant "UV_ETXTBSY" int
+    let eunatch = constant "UV_EUNATCH" int
     let exdev = constant "UV_EXDEV" int
     let unknown = constant "UV_UNKNOWN" int
     let eof = constant "UV_EOF" int

src/c/shims.h

@@ -743,4 +743,6 @@
     {
         return ENOSYS;
     }
+
+    #define UV_EUNATCH 0x7242424
 #endif

src/error.ml

@@ -79,6 +79,7 @@ type t = [
   | `ESRCH
   | `ETIMEDOUT
   | `ETXTBSY
+  | `EUNATCH
   | `EXDEV
   | `UNKNOWN
   | `EOF
@@ -162,6 +163,7 @@ let to_c = let open C.Types.Error in function
   | `ESRCH -> esrch
   | `ETIMEDOUT -> etimedout
   | `ETXTBSY -> etxtbsy
+  | `EUNATCH -> eunatch
   | `EXDEV -> exdev
   | `UNKNOWN -> unknown
   | `EOF -> eof

src/error.mli

@@ -86,6 +86,7 @@ type t = [
   | `ESRCH
   | `ETIMEDOUT
   | `ETXTBSY
+  | `EUNATCH
   | `EXDEV
   | `UNKNOWN
   | `EOF

test/error.ml

@@ -88,6 +88,7 @@ let tests = [
     t "ESRCH" "no such process" `ESRCH;
     t "ETIMEDOUT" "connection timed out" `ETIMEDOUT;
     t "ETXTBSY" "text file is busy" `ETXTBSY;
+    t "EUNATCH" "protocol driver not attached" `EUNATCH;
     t "EXDEV" "cross-device link not permitted" `EXDEV;
     t "UNKNOWN" "unknown error" `UNKNOWN;
     t "EOF" "end of file" `EOF;
@@ -180,6 +181,7 @@ let tests = [
     t "ESRCH" `ESRCH;
     t "ETIMEDOUT" `ETIMEDOUT;
     t "ETXTBSY" `ETXTBSY;
+    t "EUNATCH" `EUNATCH;
     t "EXDEV" `EXDEV;
     t "UNKNOWN" `UNKNOWN;
     t "EOF" `EOF;