Rijn/TempleOS-Rijn
1
1 Fork 0
Code Issues Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Nightly update (ISO SHA-1 b968ab1)

Browse Source
This commit is contained in:
TempleOS-bot committed 2017-03-11 00:27:26 -05:00
1 parent a44b73b0fb
commit a6f832ee31
13 files changed
+52 -9
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

TempleOSCD/Demo/AcctExample/TOS/TOSExt.HC
+19
View File
@@ -167,6 +167,25 @@ class CPaintings1000Form
I64 cert;
};
class CPoems100Form
{
I64 timestamp;
U8 rnd0[512] fmtstr "$$DA-P,"
"A=\"Poems #00-99 (2 Decimal Digits from Hex):%s\"$$\n";
U8 rnd1[512];
U8 rnd2[512];
U8 rnd3[512];
U8 rnd4[512];
U8 rnd5[512];
U8 rnd6[512];
U8 rnd7[512];
U8 rnd8[512];
U8 rnd9[512];
U8 rndA[512];
U8 rndB[512];
I64 cert;
};
class CMetallicaForm
{
I64 timestamp;
TempleOSCD/Demo/AcctExample/TOS/TOSHolySpirit.HC
+15 -2
View File
@@ -453,7 +453,7 @@ U0 TimerGodIns()
FifoU8Flush(god.fifo);
GodBitsIns(GOD_GOOD_BITS,KbdMsEvtTime>>GOD_BAD_BITS);
switch (PopUpPickLst("Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0"
"Painting1000\0Metallica\0")) {
"Painting1000\0Poems100\0Metallica\0")) {
case:
StrPrint(buf,"%05X",GodBits(5*4));
"$$TX,\"How this random Bible passage was chosen.\","
@@ -487,6 +487,12 @@ U0 TimerGodIns()
"nsf/ListOfTop1000MostPopularPainting",
buf,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
break;
case:
StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
GodWebIdx("Top 100 Poems",
"http://100.best-poems.net/top-100-best-poems.html",
buf,2,"~/Sup1/Sup1Blog/Poems100.DD.Z");
break;
case:
StrPrint(buf,"%05X",GodBits(2*5*4)); //Little bit risky if no dec.
GodVideoDigits("Metallica Song",
@@ -520,7 +526,7 @@ public U0 GodIns()
"$$TX,\"%$$Q\",HTML=\"%$$Q\"$$\n",tag,tag;
switch (PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0"
"Words1000\0Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0"
"Painting100\0Painting1000\0Metallica\0")) {
"Painting100\0Painting1000\0Poems100\0Metallica\0")) {
case:
if (DocForm(gm(CRandExtDec5Form *)))
TOSBookLines("~/Sup1/Sup1Blog/NumBible.TXT",ST_BIBLE_LINES,
@@ -589,6 +595,13 @@ public U0 GodIns()
gm->rnd0,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
}
break;
case:
if (DocForm(gm(CPoems100Form *))) {
GodWebIdx("Top 100 Poems",
"http://100.best-poems.net/top-100-best-poems.html",
gm->rnd0,2,"~/Sup1/Sup1Blog/Poems100.DD.Z");
}
break;
case:
if (DocForm(gm(CMetallicaForm *)))
GodVideoDigits("Metallica Song",
TempleOSCD/Demo/AcctExample/TOS/TOSNIST.HC
+10 -1
View File
@@ -49,7 +49,7 @@ U0 NISTGodIns1()
{
tos_type=PopUpPickLst("ExtDec5Bible\0LinuxWords\0HappyWords\0Words1000\0"
"Words10k\0Hex5Bible\0Hex8Books\0Doodle\0Movie100\0Painting100\0"
"Painting1000\0Metallica\0");
"Painting1000\0Poems100\0Metallica\0");
switch (tos_type) {
case: tos_timestamp=GodHeaderIns("Bible"); break;
case: tos_timestamp=GodHeaderIns("LinuxWords"); break;
@@ -62,6 +62,7 @@ U0 NISTGodIns1()
case: tos_timestamp=GodHeaderIns("Movie100"); break;
case: tos_timestamp=GodHeaderIns("Painting100"); break;
case: tos_timestamp=GodHeaderIns("Painting1000"); break;
case: tos_timestamp=GodHeaderIns("Poems100"); break;
case: tos_timestamp=GodHeaderIns("Metallica"); break;
}
Once("tos_timestamp=%d;\ntos_type=%d;\n"
@@ -158,6 +159,14 @@ U0 NISTGodIns2()
gm->rnd0,3,"~/Sup1/Sup1Blog/Paintings1000.DD.Z");
}
break;
case:
if (DocForm(gm(CPoems100Form *))) {
NISTBeaconURL(gm->timestamp);
GodWebIdx("Top 100 Poems",
"http://100.best-poems.net/top-100-best-poems.html",
gm->rnd0,2,"~/Sup1/Sup1Blog/Poems100.DD.Z");
}
break;
case:
if (DocForm(gm(CMetallicaForm *))) {
NISTBeaconURL(gm->timestamp);