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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-05-13 16:26:27 -05:00
parent 58861321ff 1342d0964c
commit df19138327
3 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/io/unix/files/files.factor
View File

@ -97,10 +97,10 @@ M: unix copy-file ( from to -- )
\ file-info boa ; \ file-info boa ;
M: unix file-info ( path -- info ) M: unix file-info ( path -- info )
normalize-path stat* stat>file-info ; normalize-path file-status stat>file-info ;
M: unix link-info ( path -- info ) M: unix link-info ( path -- info )
normalize-path lstat* stat>file-info ; normalize-path link-status stat>file-info ;
M: unix make-link ( path1 path2 -- ) M: unix make-link ( path1 path2 -- )
normalize-path symlink io-error ; normalize-path symlink io-error ;

2
extra/io/unix/linux/monitors/monitors.factor
View File

@ -23,7 +23,7 @@ TUPLE: linux-monitor < monitor wd inotify watches ;
: wd>monitor ( wd -- monitor ) watches get at ; : wd>monitor ( wd -- monitor ) watches get at ;
: <inotify> ( -- port/f ) : <inotify> ( -- port/f )
inotify_init dup 0 < [ drop f ] [ <reader> ] if ; inotify_init dup 0 < [ drop f ] [ <input-port> ] if ;
: inotify-fd inotify get handle>> ; : inotify-fd inotify get handle>> ;

20
extra/unix/stat/stat.factor
View File

@ -1,6 +1,6 @@
USING: kernel system combinators alien.syntax alien.c-types USING: kernel system combinators alien.syntax alien.c-types
math io.unix.backend vocabs.loader ; math io.unix.backend vocabs.loader unix ;
IN: unix.stat IN: unix.stat
@ -60,14 +60,12 @@ FUNCTION: int mkdir ( char* path, mode_t mode ) ;
>> >>
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: check-status ( n -- ) io-error ; : file-status ( pathname -- stat )
"stat" <c-object> dup >r
[ stat ] unix-system-call drop
r> ;
: stat* ( pathname -- stat ) : link-status ( pathname -- stat )
"stat" <c-object> dup >r "stat" <c-object> dup >r
stat check-status [ lstat ] unix-system-call drop
r> ; r> ;
: lstat* ( pathname -- stat )
"stat" <c-object> dup >r
lstat check-status
r> ;