Walk a directory/Recursively: Difference between revisions
adding gap
(Added BBC BASIC) |
(adding gap) |
||
Line 413:
s" ." ls-r</lang>
=={{header|GAP}}==
<lang gap>Walk := function(name, op)
local dir, file, e;
dir := Directory(name);
for e in SortedList(DirectoryContents(name)) do
file := Filename(dir, e);
if IsDirectoryPath(file) then
if not (e in [".", ".."]) then
Walk(file, op);
fi;
else
op(file);
fi;
od;
end;
# This will print filenames
Walk(".", Display);</lang>
=={{header|Go}}==
| |||