INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES
indexing
title:
"Information about files and directories"
project:
"Visual Eiffel Library"
copyright:
"Object Tools, 1996-2000"
version:
"$Revision: 1.1 $"
key:
"file information",
"directory information"
cluster:
pool
class
FSYS_DAT
inherit
COMPARABLE
end
creation
{
FILE_SYSTEM
}
make
feature
-- Access
name
:
STRING
path
:
STRING
time
:
REAL
-- Time of last modification
count
:
INTEGER
-- Size of file or no. files in cluster
infix
"<" (
other
:
like
Current
):
BOOLEAN
feature
{
NONE
}
-- Implementation
make
(
n
:
STRING
;
pa
:
STRING
;
my_fs
:
FILE_SYSTEM
;
is_file
:
BOOLEAN
)
end
-- class
FSYS_DAT
INDEX
CLUSTER
FEATURES
SHORT
FRAMES
NO FRAMES