TempleOSCD_140715.ISO

Demo/DolDoc/TreeDemo.CPP

@@ -0,0 +1,53 @@
+/*Uses $LK,"DocPrint",A="MN:DocPrint"$() because updates
+to within a tree while a tree is collapsed get
+messed-up if "live" (like using ordinary Print.)
+The insert point is confused by hiding of
+data in collapsed trees.  Therefore, the window main
+Doc is taken off-line by disabling preemption so there
+are no screen updates until all data has been inserted.
+
+There is a special Doc function which is also
+available to take an Doc off-line.  See $LK,"DocPrintAtomic",A="MN:DocPrintAtomic"$.
+For this example, however, I wanted to use DocPrint
+and disabled Preemption myself.
+*/
+
+U0 TreeSub(CDoc *doc,CDirEntry *tempde)
+{
+  CDirEntry *tempde1;
+  while (tempde) {
+    tempde1=tempde->next;
+    if (tempde->attr & RS_ATTR_DIR) {
+      DocPrint(doc,"$$TR,\"\"$$");
+      DocPrint(doc,"$$MA,T=\"%s\",LM=\"Cd(\\\"%s\\\");Dir;\n\"$$\n",
+      tempde->name,tempde->full_name);
+      if (tempde->sub) {
+	DocPrint(doc,"$$ID,+2$$");
+	TreeSub(doc,tempde->sub);
+	DocPrint(doc,"$$ID,-2$$");
+      }
+    } else
+      DocPrint(doc,"$$LK,\"%s\",A=\"FI:%s\"$$\n",
+	tempde->name,tempde->full_name);
+    //Note there is also a routine
+    //to delete an entire CDirEntry tree.
+    //See $LK,"DirTreeDel",A="MN:DirTreeDel"$().
+    DirEntryDel(tempde);
+    tempde=tempde1;
+  }
+}
+
+U0 TreeDemo()
+{
+  I64 fuf_flags=0;
+  CDoc *doc=DocNew;
+  ScanFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r");
+  DocPrint(doc,"$$TR-C,\"\"$$\n");
+  DocPrint(doc,"$$ID,+2$$");
+  TreeSub(doc,FilesFind("/*",fuf_flags));
+  DocPrint(doc,"$$ID,-2$$");
+  DocInsDoc(DocPut,doc);
+  DocDel(doc);
+}
+ 
+TreeDemo;