SparrowOSTS_121127.ISO

SparrowOS/Demo/Dsk/FPrintF.CPP

@@ -0,0 +1,27 @@
+/* There is no FPrintF type function and no
+way to grow files. Therefore, use mem to
+hold the file until you are done.  The $LK,"CDoc","MN:CDoc"$
+framework is convenient for this.
+*/
+
+#include "/SparrowOS/Demo/Shared/TreeDemoJoin"
+
+U0 FPrintFDemo(U8 *output_filename=NULL)
+{
+  I64 fuf_flags=0;
+  CDoc *doc=DocNew;
+  GetFFlags(&fuf_flags,Define("ST_FILE_UTIL_FLAGS"),"+r");
+  DocPutS(doc,"$$TR-C+AL,\"\"$$\n");
+  DocPutS(doc,"$$ID,+2$$");
+  TreeSub(doc,FilesFind("/SparrowOS/*",fuf_flags));
+  DocPutS(doc,"$$ID,-2$$");
+  DocRecalc(doc);
+  if (output_filename) {
+    StrCpy(doc->filename.name,output_filename);
+    DocWrite(doc,FALSE);
+  } else
+    DocWrite(doc,TRUE);
+  DocDel(doc);
+}
+
+FPrintFDemo;