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

use readdir on openbsd until we upgrade so the build machine is ok

db4
Doug Coleman 2008-10-20 11:32:55 -05:00
parent 636873a41c
commit b90aeee25c
6 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/io/unix/files/bsd/bsd.factor
View File

@ -13,5 +13,8 @@ M: bsd stat>file-info ( stat -- file-info )
{ {
[ stat-st_flags >>flags ] [ stat-st_flags >>flags ]
[ stat-st_gen >>gen ] [ stat-st_gen >>gen ]
[ stat-st_birthtimespec timespec>unix-time >>birth-time ] [
stat-st_birthtimespec timespec>unix-time
>>birth-time
]
} cleave ; } cleave ;

6
basis/io/unix/files/files.factor
View File

@ -142,7 +142,9 @@ os {
[ opendir dup [ (io-error) ] unless ] dip [ opendir dup [ (io-error) ] unless ] dip
dupd curry swap '[ _ closedir io-error ] [ ] cleanup ; inline dupd curry swap '[ _ closedir io-error ] [ ] cleanup ; inline
: find-next-file ( DIR* -- byte-array ) HOOK: find-next-file os ( DIR* -- byte-array )
M: unix find-next-file ( DIR* -- byte-array )
"dirent" <c-object> "dirent" <c-object>
f <void*> f <void*>
[ readdir_r 0 = [ (io-error) ] unless ] 2keep [ readdir_r 0 = [ (io-error) ] unless ] 2keep
@ -159,6 +161,8 @@ M: unix (directory-entries) ( path -- seq )
[ drop ] produce [ drop ] produce
] with-unix-directory ; ] with-unix-directory ;
os openbsd = [ "io.unix.files.openbsd" require ] when
<PRIVATE <PRIVATE
: stat-mode ( path -- mode ) : stat-mode ( path -- mode )

1
basis/io/unix/files/openbsd/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

7
basis/io/unix/files/openbsd/openbsd.factor Normal file
View File

@ -0,0 +1,7 @@
! Copyright (C) 2005, 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: unix system ;
IN: io.unix.files
M: openbsd find-next-file ( DIR* -- byte-array )
readdir ;

1
basis/io/unix/files/openbsd/tags.txt Normal file
View File

@ -0,0 +1 @@
unportable

1
basis/unix/unix.factor
View File

@ -160,6 +160,7 @@ FUNCTION: int pipe ( int* filedes ) ;
FUNCTION: void* popen ( char* command, char* type ) ; FUNCTION: void* popen ( char* command, char* type ) ;
FUNCTION: ssize_t read ( int fd, void* buf, size_t nbytes ) ; FUNCTION: ssize_t read ( int fd, void* buf, size_t nbytes ) ;
FUNCTION: dirent* readdir ( DIR* dirp ) ;
FUNCTION: int readdir_r ( void* dirp, dirent* entry, dirent** result ) ; FUNCTION: int readdir_r ( void* dirp, dirent* entry, dirent** result ) ;
FUNCTION: ssize_t readlink ( char* path, char* buf, size_t bufsize ) ; FUNCTION: ssize_t readlink ( char* path, char* buf, size_t bufsize ) ;