32 lines
756 B
Factor
32 lines
756 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
|
IN: files
|
||
|
|
USING: alien kernel math namespaces ;
|
||
|
|
|
||
|
|
: cd ( dir -- )
|
||
|
|
"void" "libc" "chdir" [ "char*" ] alien-invoke ;
|
||
|
|
|
||
|
|
: stat ( path -- [ dir? mode size mtime ] )
|
||
|
|
<stat> tuck sys-stat 0 < [
|
||
|
|
drop f
|
||
|
|
] [
|
||
|
|
[
|
||
|
|
dup stat-mode dup S_ISDIR ,
|
||
|
|
S_IFMT bitnot bitand ,
|
||
|
|
dup stat-size ,
|
||
|
|
stat-mtime ,
|
||
|
|
] make-list
|
||
|
|
] ifte ;
|
||
|
|
|
||
|
|
: (directory) ( path -- list )
|
||
|
|
sys-opendir [
|
||
|
|
[
|
||
|
|
[ dirent-name , ] [ dup sys-readdir null>f ] while
|
||
|
|
] make-list swap sys-closedir
|
||
|
|
] [
|
||
|
|
[ ]
|
||
|
|
] ifte* ;
|
||
|
|
|
||
|
|
: cwd ( -- str )
|
||
|
|
<string-box> dup 255 sys-getcwd io-error string-box-value ;
|