1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
|
class EXAMPLE1
--
-- This example shows how to list the contents of a directory
-- using class DIRECTORY.
-- When no argument is given in the command line, the current working
-- directory is listed.
--
-- compile -o run_it example1
-- run_it some_directory_path
--
creation make
feature {NONE}
make is
local
directory: DIRECTORY;
some_path: STRING;
do
if argument_count > 1 then
io.put_string("usage : example1 [<some_path>]%N");
elseif argument_count = 1 then
some_path := argument(1);
!!directory.scan(some_path);
if directory.last_scan_status then
list_directory(directory);
else
io.put_string("Unable to open directory %"");
io.put_string(some_path);
io.put_string("%".%N");
directory.scan_with(some_path);
if directory.last_scan_status then
list_directory(directory);
end;
end;
else
io.put_string("Scanning current working directory.%N");
!!directory.scan_current_working_directory;
list_directory(directory);
end;
end;
list_directory(directory: DIRECTORY) is
local
i: INTEGER;
do
io.put_string("Printing content of %"");
io.put_string(directory.path);
io.put_string("%".%N");
io.put_integer(directory.count);
io.put_string(" item(s) found:%N");
from
i := directory.lower;
until
i > directory.count
loop
io.put_character('%T');
io.put_string(directory.name(i));
io.put_character('%N');
i := i + 1;
end;
end;
end
|