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

remove openbsd shiz

Doug Coleman 2008-10-20 23:23:17 -05:00
parent ce84be5f23
commit f40fc145de
4 changed files with 1 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -142,9 +142,7 @@ 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
HOOK: find-next-file os ( DIR* -- byte-array ) : find-next-file ( 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
@ -161,8 +159,6 @@ 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
View File

@ -1 +0,0 @@
Doug Coleman

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

@ -1,7 +0,0 @@
! 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
View File

@ -1 +0,0 @@
unportable