add a couple constants for unix file access

diff --git a/basis/unix/bsd/bsd.factor b/basis/unix/bsd/bsd.factor
index 0c669d225826d1cfe3552b584fd746c439e6b06b..68444de85f23058cb3b17601a8b15bfe9dbd2366 100755 (executable)
--- a/basis/unix/bsd/bsd.factor
+++ b/basis/unix/bsd/bsd.factor
@@ -7,13 +7,15 @@ IN: unix
 
 : MAXPATHLEN 1024 ; inline
 
-: O_RDONLY  HEX: 0000 ; inline
-: O_WRONLY  HEX: 0001 ; inline
-: O_RDWR    HEX: 0002 ; inline
-: O_APPEND  HEX: 0008 ; inline
-: O_CREAT   HEX: 0200 ; inline
-: O_TRUNC   HEX: 0400 ; inline
-: O_EXCL    HEX: 0800 ; inline
+: O_RDONLY   HEX: 0000 ; inline
+: O_WRONLY   HEX: 0001 ; inline
+: O_RDWR     HEX: 0002 ; inline
+: O_NONBLOCK HEX: 0004 ; inline
+: O_APPEND   HEX: 0008 ; inline
+: O_CREAT    HEX: 0200 ; inline
+: O_TRUNC    HEX: 0400 ; inline
+: O_EXCL     HEX: 0800 ; inline
+: O_NOCTTY   HEX: 20000 ; inline
 
 : SOL_SOCKET HEX: ffff ; inline
 : SO_REUSEADDR HEX: 4 ; inline
@@ -24,7 +26,6 @@ IN: unix
 : F_SETFD 2 ; inline
 : F_SETFL 4 ; inline
 : FD_CLOEXEC 1 ; inline
-: O_NONBLOCK 4 ; inline
 
 C-STRUCT: sockaddr-in
     { "uchar" "len" }

diff --git a/basis/unix/linux/linux.factor b/basis/unix/linux/linux.factor
index 0efacee2946ba9db82a647afb53945e6fb7ff937..cc1e056b8ba5c3f95010e501724664f28a815870 100755 (executable)
--- a/basis/unix/linux/linux.factor
+++ b/basis/unix/linux/linux.factor
@@ -7,13 +7,15 @@ USING: alien.syntax ;
 
 : MAXPATHLEN 1024 ; inline
 
-: O_RDONLY  HEX: 0000 ; inline
-: O_WRONLY  HEX: 0001 ; inline
-: O_RDWR    HEX: 0002 ; inline
-: O_CREAT   HEX: 0040 ; inline
-: O_EXCL    HEX: 0080 ; inline
-: O_TRUNC   HEX: 0200 ; inline
-: O_APPEND  HEX: 0400 ; inline
+: O_RDONLY   HEX: 0000 ; inline
+: O_WRONLY   HEX: 0001 ; inline
+: O_RDWR     HEX: 0002 ; inline
+: O_CREAT    HEX: 0040 ; inline
+: O_EXCL     HEX: 0080 ; inline
+: O_NOCTTY   HEX: 0100 ; inline
+: O_TRUNC    HEX: 0200 ; inline
+: O_APPEND   HEX: 0400 ; inline
+: O_NONBLOCK HEX: 0800 ; inline
 
 : SOL_SOCKET 1 ; inline
 
@@ -28,7 +30,6 @@ USING: alien.syntax ;
 : FD_CLOEXEC 1 ; inline
 
 : F_SETFL 4 ; inline
-: O_NONBLOCK HEX: 800 ; inline
 
 C-STRUCT: addrinfo
     { "int" "flags" }

diff --git a/basis/unix/unix.factor b/basis/unix/unix.factor
index 083700493d02702f2fde96c1c2973b28541b6511..065087fa59364640afaa13d475e630fdeff3d1e6 100755 (executable)
--- a/basis/unix/unix.factor
+++ b/basis/unix/unix.factor
@@ -25,6 +25,8 @@ TYPEDEF: uint socklen_t
 
 : NGROUPS_MAX 16 ; inline
 
+: O_NDELAY O_NONBLOCK ; inline
+
 C-STRUCT: group
     { "char*" "gr_name" }
     { "char*" "gr_passwd" }