steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

split up some unix constants 

split up netbsd stat
db4
Doug Coleman 2007-04-14 04:27:15 -05:00
parent bd89b4eb12
commit 4ecd7fff42
10 changed files with 80 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/unix/bsd/bsd.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2006 Slava Pestov. ! Copyright (C) 2005, 2006 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.syntax combinators system vocabs.loader ;
IN: unix IN: unix
USING: alien.syntax ;
! FreeBSD ! FreeBSD
@ -15,8 +15,6 @@ USING: alien.syntax ;
: O_TRUNC HEX: 0400 ; inline : O_TRUNC HEX: 0400 ; inline
: O_EXCL HEX: 0800 ; inline : O_EXCL HEX: 0800 ; inline
: FD_SETSIZE 1024 ; inline
: SOL_SOCKET HEX: ffff ; inline : SOL_SOCKET HEX: ffff ; inline
: SO_REUSEADDR HEX: 4 ; inline : SO_REUSEADDR HEX: 4 ; inline
: SO_OOBINLINE HEX: 100 ; inline : SO_OOBINLINE HEX: 100 ; inline
@ -83,3 +81,10 @@ C-STRUCT: sockaddr-un
: SEEK_SET 0 ; inline : SEEK_SET 0 ; inline
: SEEK_CUR 1 ; inline : SEEK_CUR 1 ; inline
: SEEK_END 2 ; inline : SEEK_END 2 ; inline
os {
{ "macosx" [ "unix.bsd.macosx" require ] }
{ "freebsd" [ "unix.bsd.freebsd" require ] }
{ "openbsd" [ "unix.bsd.openbsd" require ] }
{ "netbsd" [ "unix.bsd.netbsd" require ] }
} case

3
extra/unix/bsd/freebsd/freebsd.factor Normal file
View File

@ -0,0 +1,3 @@
IN: unix
: FD_SETSIZE 1024 ;

3
extra/unix/bsd/macosx/macosx.factor Normal file
View File

@ -0,0 +1,3 @@
IN: unix
: FD_SETSIZE 1024 ; inline

3
extra/unix/bsd/netbsd/netbsd.factor Normal file
View File

@ -0,0 +1,3 @@
IN: unix
: FD_SETSIZE 256 ; inline

3
extra/unix/bsd/openbsd/openbsd.factor Normal file
View File

@ -0,0 +1,3 @@
IN: unix
: FD_SETSIZE 1024 ; inline

26
extra/unix/stat/netbsd/32/32.factor Normal file
View File

@ -0,0 +1,26 @@
USING: kernel alien.syntax math ;
IN: unix.stat
! NetBSD 4.0
C-STRUCT: stat
{ "dev_t" "st_dev" }
{ "mode_t" "st_mode" }
{ "ino_t" "st_ino" }
{ "nlink_t" "st_nlink" }
{ "uid_t" "st_uid" }
{ "gid_t" "st_gid" }
{ "dev_t" "st_rdev" }
{ "timespec" "st_atim" }
{ "timespec" "st_mtim" }
{ "timespec" "st_ctim" }
{ "timespec" "st_birthtim" }
{ "off_t" "st_size" }
{ "blkcnt_t" "st_blocks" }
{ "blksize_t" "st_blksize" }
{ "uint32_t" "st_flags" }
{ "uint32_t" "st_gen" }
{ { "uint32_t" 2 } "st_qspare" } ;
FUNCTION: int stat ( char* pathname, stat* buf ) ;
FUNCTION: int lstat ( char* pathname, stat* buf ) ;

27
extra/unix/stat/netbsd/64/64.factor Normal file
View File

@ -0,0 +1,27 @@
USING: kernel alien.syntax math ;
IN: unix.stat
! NetBSD 4.0
C-STRUCT: stat
{ "dev_t" "st_dev" }
{ "ino_t" "st_ino" }
{ "mode_t" "st_mode" }
{ "nlink_t" "st_nlink" }
{ "uid_t" "st_uid" }
{ "gid_t" "st_gid" }
{ "dev_t" "st_rdev" }
{ "timespec" "st_atim" }
{ "timespec" "st_mtim" }
{ "timespec" "st_ctim" }
{ "off_t" "st_size" }
{ "blkcnt_t" "st_blocks" }
{ "blksize_t" "st_blksize" }
{ "uint32_t" "st_flags" }
{ "uint32_t" "st_gen" }
{ "uint32_t" "st_spare0" }
{ "timespec" "st_birthtim" }
{ "int" "__pad5" } ;
FUNCTION: int stat ( char* pathname, stat* buf ) ;
FUNCTION: int lstat ( char* pathname, stat* buf ) ;

29
extra/unix/stat/netbsd/netbsd.factor
View File

@ -1,26 +1,7 @@
USING: kernel alien.syntax math ; USING: layouts combinators vocabs.loader ;
IN: unix.stat IN: unix.stat
! NetBSD 4.0 cell-bits {
{ 32 [ "unix.stat.netbsd.32" require ] }
C-STRUCT: stat { 64 [ "unix.stat.netbsd.64" require ] }
{ "dev_t" "st_dev" } } case
{ "mode_t" "st_mode" }
{ "ino_t" "st_ino" }
{ "nlink_t" "st_nlink" }
{ "uid_t" "st_uid" }
{ "gid_t" "st_gid" }
{ "dev_t" "st_rdev" }
{ "timespec" "st_atim" }
{ "timespec" "st_mtim" }
{ "timespec" "st_ctim" }
{ "timespec" "st_birthtim" }
{ "off_t" "st_size" }
{ "blkcnt_t" "st_blocks" }
{ "blksize_t" "st_blksize" }
{ "uint32_t" "st_flags" }
{ "uint32_t" "st_gen" }
{ { "uint32_t" 2 } "st_qspare" } ;
FUNCTION: int stat ( char* pathname, stat* buf ) ;
FUNCTION: int lstat ( char* pathname, stat* buf ) ;

5
extra/unix/types/netbsd/netbsd.factor
View File

@ -18,7 +18,7 @@ TYPEDEF: ulonglong u_int64_t
TYPEDEF: __uint32_t __dev_t TYPEDEF: __uint32_t __dev_t
TYPEDEF: __uint32_t dev_t TYPEDEF: __uint32_t dev_t
TYPEDEF: __uint64_t ino_t TYPEDEF: __uint32_t ino_t
TYPEDEF: __uint32_t mode_t TYPEDEF: __uint32_t mode_t
TYPEDEF: __uint32_t nlink_t TYPEDEF: __uint32_t nlink_t
TYPEDEF: __uint32_t uid_t TYPEDEF: __uint32_t uid_t
@ -26,7 +26,6 @@ TYPEDEF: __uint32_t gid_t
TYPEDEF: __int64_t off_t TYPEDEF: __int64_t off_t
TYPEDEF: __int64_t blkcnt_t TYPEDEF: __int64_t blkcnt_t
TYPEDEF: __uint32_t blksize_t TYPEDEF: __uint32_t blksize_t
TYPEDEF: __uint32_t fflags_t TYPEDEF: longlong ssize_t
TYPEDEF: int ssize_t
TYPEDEF: int pid_t TYPEDEF: int pid_t
TYPEDEF: int time_t TYPEDEF: int time_t

1
extra/unix/unix.factor
View File

@ -149,6 +149,5 @@ FUNCTION: ssize_t write ( int fd, void* buf, size_t nbytes ) ;
{ [ linux? ] [ "unix.linux" require ] } { [ linux? ] [ "unix.linux" require ] }
{ [ bsd? ] [ "unix.bsd" require ] } { [ bsd? ] [ "unix.bsd" require ] }
{ [ solaris? ] [ "unix.solaris" require ] } { [ solaris? ] [ "unix.solaris" require ] }
{ [ t ] [ ] }
} cond } cond