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

io.files.info: Rename file-info and file-system-info.

db4
Doug Coleman 2013-03-23 16:43:32 -07:00
parent 42470e10e7
commit d2024a84e3
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/files/info/info.factor
View File

@ -5,7 +5,7 @@ vocabs vocabs.loader io.files.types math ;
IN: io.files.info
! File info
TUPLE: file-info type size size-on-disk permissions created modified
TUPLE: file-info-tuple type size size-on-disk permissions created modified
accessed ;
HOOK: file-info os ( path -- info )
@ -20,7 +20,7 @@ HOOK: link-info os ( path -- info )
! File systems
HOOK: file-systems os ( -- array )
TUPLE: file-system-info device-name mount-point type
TUPLE: file-system-info-tuple device-name mount-point type
available-space free-space used-space total-space ;
HOOK: file-system-info os ( path -- file-system-info )

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

@ -9,7 +9,7 @@ unix.groups unix.stat unix.time unix.users vocabs ;
IN: io.files.info.unix
SPECIALIZED-ARRAY: timeval
TUPLE: unix-file-system-info < file-system-info
TUPLE: unix-file-system-info < file-system-info-tuple
block-size preferred-block-size
blocks blocks-free blocks-available
files files-free files-available
@ -48,7 +48,7 @@ M: unix file-system-info
[ file-system-statvfs statvfs>file-system-info ] bi
file-system-calculations ;
TUPLE: unix-file-info < file-info uid gid dev ino
TUPLE: unix-file-info < file-info-tuple uid gid dev ino
nlink rdev blocks blocksize ;
HOOK: new-file-info os ( -- file-info )
@ -115,7 +115,7 @@ GENERIC# file-mode? 1 ( obj mask -- ? )
M: integer file-mode? mask? ;
M: string file-mode? [ stat-mode ] dip mask? ;
M: file-info file-mode? [ permissions>> ] dip mask? ;
M: file-info-tuple file-mode? [ permissions>> ] dip mask? ;
PRIVATE>