Files
TempleOS-Rijn/Demo/Templates/Util2.CPP
T
2018-09-08 21:47:44 +02:00

55 lines
1.2 KiB
C++

I64 MyUtilDoc(CDoc *doc,I64 fuf_flags)
{
Bool unlock=DocLock(doc);
I64 res=0;
CDocEntry *doc_e;
DocRecalc(doc);
doc_e=doc->head.next;
while (doc_e!=doc) {
res++;
doc_e=doc_e->next;
}
DocRecalc(doc);
if (unlock)
DocUnlock(doc);
return res;
}
I64 MyUtilFile(U8 *filename,I64 fuf_flags)
{//Optimize File.
I64 res;
CDoc *doc=DocRead(filename);
if (res=MyUtilDoc(doc,fuf_flags)) {
"%8d:%s\n",res,doc->filename.name;
DocWrite(doc);
}
DocDel(doc);
return res;
}
I64 MyUtilLst(CDirEntry *tempde,I64 fuf_flags)
{
I64 res=0;
CDirEntry *tempde1;
while (tempde) {
tempde1=tempde->next;
if (tempde->attr & RS_ATTR_DIR) {
if (tempde->sub) {
"Processing Directory: %s\n",tempde->full_name;
res+=MyUtilLst(tempde->sub,fuf_flags);
}
} else
res+=MyUtilFile(tempde->full_name,fuf_flags);
DirEntryDel(tempde);
tempde=tempde1;
}
return res;
}
I64 MyUtil(U8 *files_find_mask="*",U8 *fu_flags=NULL)
{
I64 fuf_flags=0;
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r+T");
ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),fu_flags);
return MyUtilLst(FilesFind(files_find_mask,fuf_flags&FUG_FILES_FIND),
fuf_flags&~FUG_FILES_FIND);
}