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);

Demo/SortFileExample/F64FileSort.CPP

@@ -0,0 +1,72 @@
+//This takes an input file of doubles and makes a sorted output file.
+//$LK,"/Demo/SortFileExample/UnsortedF64.TXT"$
+//$LK,"/Demo/SortFileExample/SortedF64.TXT"$
+
+I64 Compare(F64 e1,F64 e2)
+{
+  return Sign(e1-e2);
+}
+
+U0 F64FileSortTXT(U8 *in_name,U8 *out_name)
+{
+  CLex *lx;
+  I64 i,n;
+  F64 *a;
+  CDoc *doc;
+
+  //Pass1: Count the number of F64s.
+  n=0;
+  lx=LexNew(MPrint("#include \"%s\"",in_name));
+  while (Lex(lx))
+    if (lx->token==TK_F64)
+      n++;
+  LexDel(lx);
+
+  a=MAlloc(n*sizeof(F64));
+
+  //Pass2: Read F64s.
+  i=0;
+  lx=LexNew(MPrint("#include \"%s\"",in_name));
+  while (Lex(lx))
+    if (lx->token==TK_F64)
+      a[i++]=lx->cur_f64;
+  LexDel(lx);
+
+  QSortI64(a,n,&Compare); //Sort 64-bit sized values
+
+  //Save
+  doc=DocNew(out_name);
+  DocPrint(doc,"//This is sorted.\n");
+  for (i=0;i<n;i++)
+    DocPrint(doc,"%12.6f\n",a[i]);
+  DocWrite(doc);
+  DocDel(doc);
+
+  Free(a);
+}
+F64FileSortTXT("/Demo/SortFileExample/UnsortedF64.TXT.Z","/Demo/SortFileExample/SortedF64.TXT.Z");
+Type("/Demo/SortFileExample/UnsortedF64.TXT.Z");
+Type("/Demo/SortFileExample/SortedF64.TXT.Z");
+
+U0 F64FileSortDAT(U8 *in_name,U8 *out_name)
+{//$LK,"File/Program Routines/CFile",A="HI:File/Program Routines/CFile"$, $LK,"::/Demo/Dsk/DataBase.CPP"$
+  I64 size;
+  F64 *a=FileRead(in_name,&size);
+  QSortI64(a,size/sizeof(F64),&Compare); //Sort 64-bit sized values
+  FileWrite(out_name,a,size);
+  Free(a);
+}
+F64FileSortDAT("/Demo/SortFileExample/UnsortedF64.DAT.Z","/Demo/SortFileExample/SortedF64.DAT.Z");
+
+U0 F64FileDumpDAT(U8 *in_name)
+{//$LK,"File/Program Routines/CFile",A="HI:File/Program Routines/CFile"$, $LK,"::/Demo/Dsk/DataBase.CPP"$
+  I64 i,n,size;
+  F64 *a=FileRead(in_name,&size);
+  n=size/sizeof(F64);
+  "%s\n",in_name;
+  for (i=0;i<n;i++)
+    "%12.6f\n",a[i];
+  Free(a);
+}
+F64FileDumpDAT("/Demo/SortFileExample/UnsortedF64.DAT.Z");
+F64FileDumpDAT("/Demo/SortFileExample/SortedF64.DAT.Z");

Demo/SortFileExample/SortedF64.TXT

@@ -0,0 +1,11 @@
+//This is sorted.
+    0.098806
+    0.110989
+    0.116332
+    0.210938
+    0.228724
+    0.316528
+    0.474631
+    0.830658
+    0.882384
+    0.982264

Demo/SortFileExample/UnsortedF64.TXT

@@ -0,0 +1,11 @@
+//This is unsorted.
+    0.830658
+    0.228724
+    0.474631
+    0.982264
+    0.098806
+    0.316528
+    0.882384
+    0.110989
+    0.210938
+    0.116332