templeos-info/Copy.HC

25 lines
511 B
HolyC
Raw Normal View History

2024-03-16 10:26:19 +00:00
// Copies all source files uncompressed into the home directory
CDirEntry *start_entry = FilesFind(
"/*.Z;!/Home/*",
FUF_RECURSE | FUF_JUST_FILES
);
CDirEntry *entry = start_entry;
do {
Print("%s", entry->full_name);
U8 *new_name = MAlloc(StrLen(entry->full_name) * 2);
StrPrint(new_name, "/Home/Src%s", entry->full_name + 2);
new_name[StrLen(new_name) - 2] = NULL;
Print(" -> %s\n", new_name);
Copy(entry->full_name, new_name);
} while (entry = entry->next);
DirTreeDel(start_entry);