2005-02-08 22:02:44 -05:00
|
|
|
! Copyright (C) 2004, 2005 Slava Pestov.
|
|
|
|
|
! See http://factor.sf.net/license.txt for BSD license.
|
2005-06-19 17:50:35 -04:00
|
|
|
IN: io
|
2005-06-19 18:53:58 -04:00
|
|
|
USING: kernel lists namespaces sequences strings ;
|
2004-08-28 16:43:43 -04:00
|
|
|
|
2005-03-18 21:41:13 -05:00
|
|
|
! Words for accessing filesystem meta-data.
|
2004-11-25 21:51:47 -05:00
|
|
|
|
2005-06-19 18:31:02 -04:00
|
|
|
: path+ ( path path -- path ) "/" swap append3 ;
|
2005-03-18 21:41:13 -05:00
|
|
|
: exists? ( file -- ? ) stat >boolean ;
|
2005-03-19 00:30:49 -05:00
|
|
|
: directory? ( file -- ? ) stat car ;
|
2005-08-13 23:39:46 -04:00
|
|
|
: directory ( dir -- list ) (directory) [ lexi ] sort ;
|
2005-05-28 20:52:23 -04:00
|
|
|
: file-length ( file -- length ) stat third ;
|
2005-03-18 21:41:13 -05:00
|
|
|
: file-extension ( filename -- extension )
|
2005-04-26 00:35:55 -04:00
|
|
|
"." split cdr dup [ peek ] when ;
|
2005-06-19 18:53:58 -04:00
|
|
|
|
|
|
|
|
DEFER: <file-reader>
|
|
|
|
|
|
|
|
|
|
: resource-path ( -- path )
|
|
|
|
|
"resource-path" get [ "." ] unless* ;
|
|
|
|
|
|
|
|
|
|
: <resource-stream> ( path -- stream )
|
|
|
|
|
#! Open a file path relative to the Factor source code root.
|
|
|
|
|
resource-path swap path+ <file-reader> ;
|
