TempleOSCDV4.11.ISO

This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:50 +02:00
1 parent 9206246147
commit 93ca216483
662 files changed
+6431 -7369

No files matched your search

@@ -12,10 +12,10 @@ U0 F64FileGenTXT(U8 *filename,I64 n)
DocWrite(doc);
DocDel(doc);
}
F64FileGenTXT("~/DemoUnsortedF64.TXT.Z",10);
F64FileGenTXT("~/DemoUnsortedF64.DD.Z",10);
U0 F64FileGenDAT(U8 *filename,I64 n)
{//$LK,"File/CFile",A="HI:File/CFile"$, $LK,"::/Demo/Dsk/DataBase.CPP"$
{//$LK,"File/CFile",A="HI:File/CFile"$, $LK,"::/Demo/Dsk/DataBase.HC"$
I64 i;
F64 *a=MAlloc(n*sizeof(F64));
for (i=0;i<n;i++)
@@ -44,12 +44,12 @@ U0 F64FileSortTXT(U8 *in_name,U8 *out_name)
Free(a);
}
F64FileSortTXT("~/DemoUnsortedF64.TXT.Z","~/DemoSortedF64.TXT.Z");
Type("~/DemoUnsortedF64.TXT.Z");
Type("~/DemoSortedF64.TXT.Z");
F64FileSortTXT("~/DemoUnsortedF64.DD.Z","~/DemoSortedF64.DD.Z");
Type("~/DemoUnsortedF64.DD.Z");
Type("~/DemoSortedF64.DD.Z");
U0 F64FileSortDAT(U8 *in_name,U8 *out_name)
{//$LK,"File/CFile",A="HI:File/CFile"$, $LK,"::/Demo/Dsk/DataBase.CPP"$
{//$LK,"File/CFile",A="HI:File/CFile"$, $LK,"::/Demo/Dsk/DataBase.HC"$
I64 size;
F64 *a=FileRead(in_name,&size);
QSortI64(a,size/sizeof(F64),&Compare); //Sort 64-bit sized values
@@ -59,7 +59,7 @@ U0 F64FileSortDAT(U8 *in_name,U8 *out_name)
F64FileSortDAT("~/DemoUnsortedF64.DAT.Z","~/DemoSortedF64.DAT.Z");
U0 F64FileDumpDAT(U8 *in_name)
{//$LK,"File/CFile",A="HI:File/CFile"$, $LK,"::/Demo/Dsk/DataBase.CPP"$
{//$LK,"File/CFile",A="HI:File/CFile"$, $LK,"::/Demo/Dsk/DataBase.HC"$
I64 i,n,size;
F64 *a=FileRead(in_name,&size);
n=size/sizeof(F64);