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

fix struct sizes 

fix file-info
Doug Coleman 2008-03-27 13:10:51 -05:00
parent 84a2a32a4e
commit 857a442e07
4 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/unix/stat/netbsd/32/32.factor
View File

@ -22,5 +22,8 @@ C-STRUCT: stat
{ "uint32_t" "st_gen" } { "uint32_t" "st_gen" }
{ { "uint32_t" 2 } "st_qspare" } ; { { "uint32_t" 2 } "st_qspare" } ;
FUNCTION: int stat ( char* pathname, stat* buf ) ; FUNCTION: int __stat30 ( char* pathname, stat* buf ) ;
FUNCTION: int lstat ( char* pathname, stat* buf ) ; FUNCTION: int __lstat30 ( char* pathname, stat* buf ) ;
: stat __stat30 ;
: lstat __lstat30 ;

6
extra/unix/types/netbsd/32/32.factor Executable file
View File

@ -0,0 +1,6 @@
USING: alien.syntax ;
IN: unix.types
! NetBSD 4.0
TYPEDEF: __uint64_t ino_t

6
extra/unix/types/netbsd/64/64.factor Executable file
View File

@ -0,0 +1,6 @@
USING: alien.syntax ;
IN: unix.types
! NetBSD 4.0
TYPEDEF: __uint32_t ino_t

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

@ -1,4 +1,4 @@
USING: alien.syntax ; USING: alien.syntax combinators layouts vocabs.loader ;
IN: unix.types IN: unix.types
! NetBSD 4.0 ! NetBSD 4.0
@ -18,7 +18,6 @@ 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: __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,6 +25,12 @@ 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: longlong ssize_t TYPEDEF: long ssize_t
TYPEDEF: int pid_t TYPEDEF: int pid_t
TYPEDEF: int time_t TYPEDEF: int time_t
cell-bits {
{ 32 [ "unix.types.netbsd.32" require ] }
{ 64 [ "unix.types.netbsd.64" require ] }
} case