unix.stat: bind to fstat

diff --git a/basis/unix/stat/freebsd/freebsd.factor b/basis/unix/stat/freebsd/freebsd.factor
index 93ed1a42db9b8702d433b87d53824504964733b8..8535e9f3fd4764f3b428cf424df9f31be30d42e5 100644 (file)
--- a/basis/unix/stat/freebsd/freebsd.factor
+++ b/basis/unix/stat/freebsd/freebsd.factor
@@ -26,3 +26,4 @@ STRUCT: stat
 
 FUNCTION: int stat  ( c-string pathname, stat* buf ) ;
 FUNCTION: int lstat ( c-string pathname, stat* buf ) ;
+FUNCTION: int fstat ( int fd, stat* buf ) ;

diff --git a/basis/unix/stat/linux/32/32.factor b/basis/unix/stat/linux/32/32.factor
index b3becff2408caaa2e9bbc72ee1744ad7ff778fe5..d0f60d75819079b24ffd87c278e3476fe3c2160a 100644 (file)
--- a/basis/unix/stat/linux/32/32.factor
+++ b/basis/unix/stat/linux/32/32.factor
@@ -23,6 +23,8 @@ STRUCT: stat
 
 FUNCTION: int __xstat64  ( int ver, c-string pathname, stat* buf ) ;
 FUNCTION: int __lxstat64 ( int ver, c-string pathname, stat* buf ) ;
+FUNCTION: int __fxstat64 ( int ver, int fd, stat* buf ) ;
 
 :  stat ( pathname buf -- int ) [ 1 ] 2dip __xstat64 ;
 : lstat ( pathname buf -- int ) [ 1 ] 2dip __lxstat64 ;
+: fstat ( fd buf -- int ) [ 1 ] 2dip __fxstat64 ;

diff --git a/basis/unix/stat/linux/64/64.factor b/basis/unix/stat/linux/64/64.factor
index 0862bf82a0d4f9dbacfe4463a9cb8eaeb82edd96..8913fc65569a2cb6af06c4189f4b6492a5d15065 100644 (file)
--- a/basis/unix/stat/linux/64/64.factor
+++ b/basis/unix/stat/linux/64/64.factor
@@ -23,6 +23,8 @@ STRUCT: stat
 
 FUNCTION: int __xstat64  ( int ver, c-string pathname, stat* buf ) ;
 FUNCTION: int __lxstat64 ( int ver, c-string pathname, stat* buf ) ;
+FUNCTION: int __fxstat64 ( int ver, int fd, stat* buf ) ;
 
 :  stat ( pathname buf -- int ) [ 1 ] 2dip __xstat64 ;
 : lstat ( pathname buf -- int ) [ 1 ] 2dip __lxstat64 ;
+: fstat ( fd buf -- int ) [ 1 ] 2dip __fxstat64 ;

diff --git a/basis/unix/stat/macosx/macosx.factor b/basis/unix/stat/macosx/macosx.factor
index 024cd317e81672426df1f8a34d491388c9521d6a..b96c1f4eed3e42f955d06c1c9cea373e8374b8d4 100644 (file)
--- a/basis/unix/stat/macosx/macosx.factor
+++ b/basis/unix/stat/macosx/macosx.factor
@@ -28,6 +28,8 @@ STRUCT: stat
 
 FUNCTION: int stat64  ( c-string pathname, stat* buf ) ;
 FUNCTION: int lstat64 ( c-string pathname, stat* buf ) ;
+FUNCTION: int fstat64 ( int fd, stat* buf ) ;
 
 : stat ( path buf -- n ) stat64 ;
 : lstat ( path buf -- n ) lstat64 ;
+: fstat ( fd buf -- n ) fstat64 ;

diff --git a/basis/unix/stat/netbsd/32/32.factor b/basis/unix/stat/netbsd/32/32.factor
index bb0a40375153d8592da0daa8145cea85bc48c94e..f89b67c25da7b410efcd36374fbc9c16e9135ea2 100644 (file)
--- a/basis/unix/stat/netbsd/32/32.factor
+++ b/basis/unix/stat/netbsd/32/32.factor
@@ -25,6 +25,8 @@ STRUCT: stat
 
 FUNCTION: int __stat30  ( c-string pathname, stat* buf ) ;
 FUNCTION: int __lstat30 ( c-string pathname, stat* buf ) ;
+FUNCTION: int __fstat30 ( int fd, stat* buf ) ;
 
 : stat ( pathname buf -- n ) __stat30 ;
 : lstat ( pathname buf -- n ) __lstat30 ;
+: fstat ( fd buf -- n ) __fstat30 ;

diff --git a/basis/unix/stat/netbsd/64/64.factor b/basis/unix/stat/netbsd/64/64.factor
index 010dcca7242f03a4fa71cf0e47ca2c468f710192..d6e2b73a25f0fe746a9c704e20b22161105eb789 100644 (file)
--- a/basis/unix/stat/netbsd/64/64.factor
+++ b/basis/unix/stat/netbsd/64/64.factor
@@ -25,6 +25,8 @@ STRUCT: stat
 
 FUNCTION: int __stat13 ( c-string pathname, stat* buf ) ;
 FUNCTION: int __lstat13 ( c-string pathname, stat* buf ) ;
+FUNCTION: int __fstat13 ( int fd, stat* buf ) ;
 
 : stat ( pathname buf -- n ) __stat13 ;
 : lstat ( pathname buf -- n ) __lstat13 ;
+: fstat ( fd buf -- n ) __fstat13 ;

diff --git a/basis/unix/stat/openbsd/openbsd.factor b/basis/unix/stat/openbsd/openbsd.factor
index b562d085b389865504420325a7957d09db6c4dd0..6c805e82cbf95f72760e34be7ca158a9d616b7c5 100644 (file)
--- a/basis/unix/stat/openbsd/openbsd.factor
+++ b/basis/unix/stat/openbsd/openbsd.factor
@@ -27,3 +27,4 @@ STRUCT: stat
 
 FUNCTION: int stat  ( c-string pathname, stat* buf ) ;
 FUNCTION: int lstat ( c-string pathname, stat* buf ) ;
+FUNCTION: int fstat ( int fd, stat* buf ) ;