SparrowOSTS_121127.ISO

SparrowOS/Demo/Dsk/OrderedIO.CPP

@@ -0,0 +1,17 @@
+/*
+$WW,1$This gets a list of files, flattens the list from a tree into an array and sorts them by cluster num, to speed-up access time by avoiding moving the disk head around.
+$WW,0$*/
+
+U0 Main()
+{
+  I64 i,cnt=0;
+  CDirEntry *tempm=FilesFind("::/SparrowOS/*",1<<FUf_RECURSE),
+      **a=FilesOrder(tempm,&cnt);
+  for (i=0;i<cnt;i++) {
+    "%08X %s\n",a[i]->cluster,a[i]->full_name;
+    CDirEntryDel(a[i]);
+  }
+  Free(a);
+}
+
+Main;