factor/library/io/files.factor

! Copyright (C) 2004, 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license.
IN: files
USING: kernel lists strings ;

! Words for accessing filesystem meta-data.

: exists? ( file -- ? ) stat >boolean ;
: directory? ( file -- ? ) stat car ;
: directory ( dir -- list ) (directory) [ string> ] sort ;
: file-length ( file -- length ) stat dup [ cdr cdr car ] when ;
: file-extension ( filename -- extension )
    "." split cdr dup [ last ] when ;
tuple dispatch compiled, adding USING: to more files, inference terminator cleanup, jedit cleanup, new reload word to reload a word's source file 2005-02-08 22:02:44 -05:00			`! Copyright (C) 2004, 2005 Slava Pestov.`
			`! See http://factor.sf.net/license.txt for BSD license.`
new files vocab, dissolved builtins vocab, moved tutorial programs to doc/tutorial/ 2004-08-28 16:43:43 -04:00			`IN: files`
class introspection tools 2005-04-10 18:58:30 -04:00			`USING: kernel lists strings ;`
new files vocab, dissolved builtins vocab, moved tutorial programs to doc/tutorial/ 2004-08-28 16:43:43 -04:00
various cleanups, updated plugin docs, plugin fixes 2005-03-18 21:41:13 -05:00			`! Words for accessing filesystem meta-data.`
dissolve platform/native/ 2004-11-25 21:51:47 -05:00
various cleanups, updated plugin docs, plugin fixes 2005-03-18 21:41:13 -05:00			`: exists? ( file -- ? ) stat >boolean ;`
More PowerPC work 2005-03-19 00:30:49 -05:00			`: directory? ( file -- ? ) stat car ;`
various cleanups, updated plugin docs, plugin fixes 2005-03-18 21:41:13 -05:00			`: directory ( dir -- list ) (directory) [ string> ] sort ;`
			`: file-length ( file -- length ) stat dup [ cdr cdr car ] when ;`
			`: file-extension ( filename -- extension )`
			`"." split cdr dup [ last ] when ;`