![]() Search (Name, "", (Directory => True, others => False ), Walk' Access ) Search (Name, Pattern, ( others => True ), Print' Access ) If Simple_Name (Item ) /= "." and then Simple_Name (Item ) /= "." then Procedure Walk (Item : Directory_Entry_Type ) is Procedure Print (Item : Directory_Entry_Type ) isĪda. Procedure Walk (Name : String Pattern : String ) is "*.c" f:rglob \ top of stack now has list of all "*.c" files, recursivelyĪda with Ada. Translation of: Nim L(filename) fs:walk_dir(‘/’)
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |