Anonymous user
Walk a directory/Non-recursively: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 10:
"*.c" f:glob \ puts an array of strings with the file names on the top of the stack
</lang>
=={{header|Ada}}==▼
{{works with|GCC|4.12}}▼
<lang ada>with Ada.Directories; use Ada.Directories;▼
with Ada.Text_IO; use Ada.Text_IO;▼
procedure Walk_Directory▼
(Directory : in String := ".";▼
Pattern : in String := "") -- empty pattern = all file names/subdirectory names▼
is▼
Search : Search_Type;▼
Dir_Ent : Directory_Entry_Type;▼
begin▼
Start_Search (Search, Directory, Pattern);▼
while More_Entries (Search) loop▼
Get_Next_Entry (Search, Dir_Ent);▼
Put_Line (Simple_Name (Dir_Ent));▼
end loop;▼
End_Search (Search);▼
end Walk_Directory;</lang>▼
=={{header|68000 Assembly}}==
Line 214 ⟶ 193:
patternParsed
dcb.b sizeof_patternString*2+2</lang>
▲=={{header|Ada}}==
▲{{works with|GCC|4.12}}
▲<lang ada>with Ada.Directories; use Ada.Directories;
▲with Ada.Text_IO; use Ada.Text_IO;
▲procedure Walk_Directory
▲ (Directory : in String := ".";
▲ Pattern : in String := "") -- empty pattern = all file names/subdirectory names
▲is
▲ Search : Search_Type;
▲ Dir_Ent : Directory_Entry_Type;
▲begin
▲ Start_Search (Search, Directory, Pattern);
▲ while More_Entries (Search) loop
▲ Get_Next_Entry (Search, Dir_Ent);
▲ Put_Line (Simple_Name (Dir_Ent));
▲ end loop;
▲ End_Search (Search);
▲end Walk_Directory;</lang>
=={{header|ALGOL 68}}==
| |||