TempleOSTS_140317.ISO

Demo/SortFileExample/F64FileGen.CPP

@@ -0,0 +1,25 @@
+//This makes a file of N random double values.
+//$LK,"/Demo/SortFileExample/UnsortedF64.TXT"$
+
+U0 F64FileGenTXT(U8 *filename,I64 n)
+{
+  I64 i;
+  CDoc *doc=DocNew(filename);
+  DocPrint(doc,"//This is unsorted.\n");
+  for (i=0;i<n;i++)
+    DocPrint(doc,"%12.6f\n",Rand);
+  DocWrite(doc);
+  DocDel(doc);
+}
+F64FileGenTXT("/Demo/SortFileExample/UnsortedF64.TXT.Z",10);
+
+U0 F64FileGenDAT(U8 *filename,I64 n)
+{//$LK,"File/Program Routines/CFile",A="HI:File/Program Routines/CFile"$, $LK,"::/Demo/Dsk/DataBase.CPP"$
+  I64 i;
+  F64 *a=MAlloc(n*sizeof(F64));
+  for (i=0;i<n;i++)
+    a[i]=Rand;
+  FileWrite(filename,a,n*sizeof(F64));
+  Free(a);
+}
+F64FileGenDAT("/Demo/SortFileExample/UnsortedF64.DAT.Z",10);