Files
TempleOS-Rijn/LT/DEMO/TreeDemoJoin.CPZ
T
2018-09-08 21:45:17 +02:00

23 lines
559 B
Plaintext

void TreeSub(Ltf *l,LTDirEntry *tempm)
{
LTDirEntry *tempm1;
while (tempm) {
tempm1=tempm->next;
if (tempm->attr & LT_ATTR_DIR) {
LtfPutS(l,"$$TR \"\"$$");
LtfPrintF(l,"$$MA +A \"%s\",\"Cd(\\\"%s\\\");Dir;\r\"$$\r\n",
tempm->name,tempm->full_name);
if (tempm->sub) {
LtfPutS(l,"$$ID,+2$$");
TreeSub(l,tempm->sub);
LtfPutS(l,"$$ID,-2$$");
}
} else {
LtfPrintF(l,"$$LK \"%12s\",\"FI:%s\"$$\r\n",
tempm->name,tempm->full_name);
}
DelLTDirEntry(tempm);
tempm=tempm1;
}
}