TempleOSTS_130707.ISO

TempleOS/Demo/Dsk/FPrintF.CPP

@@ -4,7 +4,31 @@ hold the file until you are done.  The $LK,"CDoc","MN:CDoc"$
 framework is convenient for this.
 */
 
-#include "/TempleOS/Demo/Shared/TreeDemoJoin"
+U0 TreeSub(CDoc *doc,CDirEntry *tempm)
+{
+  CDirEntry *tempm1;
+  while (tempm) {
+    tempm1=tempm->next;
+    if (tempm->attr & _ATTR_DIR) {
+      DocPutS(doc,"$$TR,\"\"$$");
+      DocPrintF(doc,"$$MA+A,\"%s\",\"Cd(\\\"%s\\\");Dir;\n\"$$\n",
+      tempm->name,tempm->full_name);
+      if (tempm->sub) {
+	DocPutS(doc,"$$ID,+2$$");
+	TreeSub(doc,tempm->sub);
+	DocPutS(doc,"$$ID,-2$$");
+      }
+    } else {
+      DocPrintF(doc,"$$LK,\"%s\",\"FI:%s\"$$\n",
+	tempm->name,tempm->full_name);
+    }
+    //Note there is also a routine
+    //to delete an entire CDirEntry tree.
+    //See $LK,"CDirLstDel","MN:CDirLstDel"$().
+    CDirEntryDel(tempm);
+    tempm=tempm1;
+  }
+}
 
 U0 FPrintFDemo(U8 *output_filename=NULL)
 {

TempleOS/Demo/Dsk/UnusedSpaceRep.CPP

@@ -5,7 +5,7 @@ U0 UnusedSpaceRep()
   for (i=0;i<26;i++) {
     try {
       p=Drv2Prt(i+'A');
-      if (p->type==PT_FAT32 || p->type==PT_NATIVE)
+      if (p->type==PT_FAT32 || p->type==PT_REDSEA)
 	"%C: %7.3f%% Free\n",
 	  Prt2Drv(p),UnusedDrvSpace(Prt2Drv(p))*100.0/(p->size*BLK_SIZE);
     } catch