TempleOSCDV5.01.ISO
This commit is contained in:
Terry A. Davis authored and minexew committed
1 parent
f6eacf7744
commit
320c7ee98a
219 files changed
+5211
-4853
No files matched your search
@@ -0,0 +1,158 @@
|
||||
#help_index "Misc/TOS/God;God/TOS"
|
||||
|
||||
I64 tos_timestamp=0,tos_type=0;
|
||||
|
||||
RegDft("TempleOS/TOSNIST","I64 tos_nist_offset=-8049;\n");
|
||||
RegExe("TempleOS/TOSNIST");
|
||||
|
||||
public I64 CDate2Unix(CDate dt)
|
||||
{//TempleOS datetime to Unix timestamp.
|
||||
return ToI64((dt-Str2Date("1/1/1970"))/CDATE_FREQ+NIST_TIME_OFFSET);
|
||||
}
|
||||
|
||||
public CDate Unix2CDate(I64 timestamp)
|
||||
{//Unix timestamp to TempleOS datetime.
|
||||
return (timestamp-NIST_TIME_OFFSET)*CDATE_FREQ+Str2Date("1/1/1970");
|
||||
}
|
||||
|
||||
public U0 NISTBeaconSync()
|
||||
{//Help get local clk in sync with NIST clk.
|
||||
I64 i,j;
|
||||
CDate dt;
|
||||
CDateStruct ds;
|
||||
while (!ScanChar) {
|
||||
dt=Now;
|
||||
Date2Struct(&ds,dt);
|
||||
i=CDate2Unix(dt);
|
||||
j=FloorI64(i,60);
|
||||
"%d %d %02d %02d\n",i,j,ds.sec,(60+ds.sec-(i-j))%60;
|
||||
Sleep(100);
|
||||
}
|
||||
tos_nist_offset=GetI64("tos_nist_offset (%d):",tos_nist_offset);
|
||||
RegWrite("TempleOS/TOSNIST","I64 tos_nist_offset=%d;\n",tos_nist_offset);
|
||||
}
|
||||
|
||||
U0 NISTBeaconURL(I64 timestamp)
|
||||
{//Insert NIST Beacon header into blog.
|
||||
U8 *tag;
|
||||
CDateStruct ds;
|
||||
CDate dt=Unix2CDate(timestamp);
|
||||
Date2Struct(&ds,dt+local_time_offset+30*CDATE_FREQ);
|
||||
"$$TX,\"NIST Beacon Date:%D Time:%02d:%02d Unix TimeStamp:%u\","
|
||||
"HTML=\"https://beacon.nist.gov/home\"$$\n",dt,ds.hour,ds.min,timestamp;
|
||||
tag=MStrPrint("https://beacon.nist.gov/rest/record/%d",timestamp);
|
||||
"$$TX,\"NIST Beacon Record:%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
|
||||
Free(tag);
|
||||
}
|
||||
|
||||
U0 NISTGodIns1()
|
||||
{
|
||||
tos_type=PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0"
|
||||
"Hex5Bible\0Hex8Books\0Doodle\0Movie\0Painting100\0Painting1000\0"
|
||||
"Metallica\0");
|
||||
switch (tos_type) {
|
||||
case: tos_timestamp=GodHeaderIns("Bible"); break;
|
||||
case: tos_timestamp=GodHeaderIns("LinuxWords"); break;
|
||||
case: tos_timestamp=GodHeaderIns("HappyWords"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Bible"); break;
|
||||
case: tos_timestamp=GodHeaderIns("BookPick"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Doodle"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Movie"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Painting100"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Painting1000"); break;
|
||||
case: tos_timestamp=GodHeaderIns("Metallica"); break;
|
||||
}
|
||||
Once("tos_timestamp=%d;\ntos_type=%d;\n"
|
||||
"In(\"Blog(TRUE);\n\");",tos_timestamp,tos_type);
|
||||
}
|
||||
|
||||
U0 NISTGodIns2()
|
||||
{
|
||||
CRandExtDec5Form *gm=CAlloc(sizeof(CRandExtDec5Form));
|
||||
|
||||
gm->timestamp=tos_timestamp;
|
||||
switch (tos_type) {
|
||||
case:
|
||||
if (DocForm(gm(CRandExtDec5Form *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES,
|
||||
gm->rnd0,20,-5,FALSE,FALSE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CHexWordForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
Adam("GodInit(\"~/Sup1/Sup1Words/LinuxDict.TXT*\");");
|
||||
GodWordBatch(gm);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CHexWordForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
Adam("GodInit(\"~/Sup1/Sup1Words/HappyWords.TXT*\");");
|
||||
GodWordBatch(gm);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CRandHex5Form *))) {
|
||||
"$$TX,\"How this random Bible passage was chosen.\","
|
||||
"HTML=\"http://www.templeos.org/Wb"
|
||||
"/Home/Web/TAD/NISTPassage.html\"$$\n";
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES,
|
||||
gm->rnd0,20,16,TRUE,TRUE);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CRandHex8Form *))) {
|
||||
"$$TX,\"How this random book pick was chosen.\","
|
||||
"HTML=\"http://www.templeos.org/Wb"
|
||||
"/Home/Web/TAD/NISTPick002.html\"$$\n";
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodBooksPassageU32(Str2I64(gm->rnd0,16),
|
||||
"~/*","C:/Home/Books?/*");
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CHexWordForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
TOSGodDoodle(GSRC_NIST_BEACON,gm);
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CMoviesForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodVideo("Top 100 Movies",
|
||||
"http://www.afi.com/100years/movies10.aspx",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Movies.DD.Z");
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CPaintings100Form *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodWebIdx("Top 100 Paintings",
|
||||
"http://www.brushwiz.com/most-famous-paintings",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Paintings100.DD.Z");
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CPaintings1000Form *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodWebIdx("Top 1000 Paintings",
|
||||
"http://en.most-famous-paintings.com/MostFamousPaintings."
|
||||
"nsf/ListOfTop1000MostPopularPainting",
|
||||
gm->rnd0,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
|
||||
}
|
||||
break;
|
||||
case:
|
||||
if (DocForm(gm(CMetallicaForm *))) {
|
||||
NISTBeaconURL(gm->timestamp);
|
||||
GodVideo("Metallica Song",
|
||||
"http://home.hccnet.nl/a.r.adams/lyrics/"
|
||||
"metallica/songindex.html",
|
||||
gm->rnd0,2,"~/Sup1/Sup1Blog/Metallica.DD.Z");
|
||||
}
|
||||
break;
|
||||
}
|
||||
Free(gm);
|
||||
}
|
||||
Reference in new issue
Block a user