From bd50acf4240d3f9d69c0a4fd9f244d7363491087 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Fri, 14 Oct 2011 17:59:54 -0700 Subject: [PATCH] unix.stat: bind to fstat --- basis/unix/stat/freebsd/freebsd.factor | 1 + basis/unix/stat/linux/32/32.factor | 2 ++ basis/unix/stat/linux/64/64.factor | 2 ++ basis/unix/stat/macosx/macosx.factor | 2 ++ basis/unix/stat/netbsd/32/32.factor | 2 ++ basis/unix/stat/netbsd/64/64.factor | 2 ++ basis/unix/stat/openbsd/openbsd.factor | 1 + 7 files changed, 12 insertions(+) diff --git a/basis/unix/stat/freebsd/freebsd.factor b/basis/unix/stat/freebsd/freebsd.factor index 93ed1a42db..8535e9f3fd 100644 --- 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 b3becff240..d0f60d7581 100644 --- 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 0862bf82a0..8913fc6556 100644 --- 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 024cd317e8..b96c1f4eed 100644 --- 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 bb0a403751..f89b67c25d 100644 --- 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 010dcca724..d6e2b73a25 100644 --- 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 b562d085b3..6c805e82cb 100644 --- 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 ) ;