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

TempleOSCDV4.06.ISO

Browse Source
This commit is contained in:
Terry A. Davis authored and minexew committed 2018-09-08 21:47:19 +02:00
1 parent 6fe38d2d9d
commit b632ab9a4f
261 files changed
+6282 -5801
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

Adam/God/GodBible.CPP
+27 -21
View File
@@ -143,7 +143,7 @@ U0 BibleInit()
public U8 *BibleLine2Verse(I64 line,I64 separate_ch=CH_SPACE)
{//Line number to verse str, Malloc()ed.
//Separate with <SPACE> or ','.
//Separate with <SPACE> or ','. If you pass '%', it uses "%20".
CDoc *doc;
CDocEntry *doc_e;
I64 i=0,cnt=DefineCnt("ST_BIBLE_BOOKS"),start=0,last_start=0;
@@ -167,7 +167,10 @@ public U8 *BibleLine2Verse(I64 line,I64 separate_ch=CH_SPACE)
while ('0'<=*ptr2<='9' || *ptr2==':')
ptr2++;
*ptr2=0;
ptr=MStrPrint("%Z%c%s",i,"ST_BIBLE_BOOKS",separate_ch,ptr);
if (separate_ch=='%')
ptr=MStrPrint("%Z%%20%s",i,"ST_BIBLE_BOOKS",ptr);
else
ptr=MStrPrint("%Z%c%s",i,"ST_BIBLE_BOOKS",separate_ch,ptr);
} else {
while (TRUE) {
doc_e=doc_e->last;
@@ -195,7 +198,10 @@ public U8 *BibleLine2Verse(I64 line,I64 separate_ch=CH_SPACE)
while ('0'<=*ptr2<='9')
ptr2++;
*ptr2=0;
ptr=MStrPrint("%Z%c%s",i,"ST_BIBLE_BOOKS",separate_ch,ptr);
if (separate_ch=='%')
ptr=MStrPrint("%Z%%20%s",i,"ST_BIBLE_BOOKS",ptr);
else
ptr=MStrPrint("%Z%c%s",i,"ST_BIBLE_BOOKS",separate_ch,ptr);
break;
}
}
@@ -272,8 +278,8 @@ public U0 BibleVerse(CDoc *doc_out=NULL,U8 *verse,I64 lines)
public CDoc *BibleDoc()
{//Return Bible as DolDoc with trees.
CDoc *result=DocRead(BIBLE_FILENAME);
CDocEntry *doc_e=result->root.next,*doc_e1;
CDoc *res=DocRead(BIBLE_FILENAME);
CDocEntry *doc_e=res->root.next,*doc_e1;
Bool open_chapter=FALSE;
U8 *ptr=Define("ST_BIBLE_BOOK_LINES");
I64 book,book_cnt=DefineCnt("ST_BIBLE_BOOK_LINES")-1,
@@ -283,47 +289,47 @@ public CDoc *BibleDoc()
for (book=0;book<book_cnt;book++) {
while (doc_e->y+1<line) {
doc_e1=doc_e->next;
DocEntryDel(result,doc_e);
DocEntryDel(res,doc_e);
doc_e=doc_e1;
}
result->cur_entry=doc_e;
result->cur_col=0;
DocPrint(result,"$$TR,\"%Z\"$$\n$$ID,2$$",book,"ST_BIBLE_BOOKS");
res->cur_entry=doc_e;
res->cur_col=0;
DocPrint(res,"$$TR,\"%Z\"$$\n$$ID,2$$",book,"ST_BIBLE_BOOKS");
line=Str2I64(ptr,,&ptr);
ptr++;
chapter=1;
while (doc_e->y+1<line) {
doc_e1=doc_e->next;
if (doc_e->type_u8==DOCT_TEXT && StrMatch(":1 ",doc_e->tag)) {
result->cur_entry=doc_e;
result->cur_col=0;
res->cur_entry=doc_e;
res->cur_col=0;
if (open_chapter) {
DocPrint(result,"$$ID,-2$$");
DocPrint(res,"$$ID,-2$$");
open_chapter=FALSE;
}
DocPrint(result,"$$TR,\"%d\"$$\n$$ID,2$$",chapter++);
DocPrint(res,"$$TR,\"%d\"$$\n$$ID,2$$",chapter++);
open_chapter=TRUE;
} else if (chapter==1) {
doc_e1=doc_e->next;
DocEntryDel(result,doc_e);
DocEntryDel(res,doc_e);
doc_e=doc_e1;
}
doc_e=doc_e1;
}
result->cur_entry=doc_e;
result->cur_col=0;
res->cur_entry=doc_e;
res->cur_col=0;
if (open_chapter) {
DocPrint(result,"$$ID,-2$$");
DocPrint(res,"$$ID,-2$$");
open_chapter=FALSE;
}
DocPrint(result,"$$ID,-2$$");
DocPrint(res,"$$ID,-2$$");
}
while (doc_e!=result) {
while (doc_e!=res) {
doc_e1=doc_e->next;
DocEntryDel(result,doc_e);
DocEntryDel(res,doc_e);
doc_e=doc_e1;
}
return result;
return res;
}
public U0 BibleView()
Adam/God/GodDoodle.CPP
+3 -3
View File
@@ -72,10 +72,10 @@ U0 GodDoodleHexIns(U8 *st)
I64 GodDoodleBits(I64 num_bits)
{
U8 b;
I64 result=0;
I64 res=0;
while (num_bits) {
if (FifoU8Rem(god.doodle_fifo,&b)) {
result=result<<1+b;
res=res<<1+b;
num_bits--;
} else {
god.doodle_ch=GetChar(,FALSE);
@@ -90,7 +90,7 @@ I64 GodDoodleBits(I64 num_bits)
GodDoodleBitsIns(GOD_GOOD_BITS,KbdMouseEvtTime>>GOD_BAD_BITS);
}
}
return result;
return res;
}
public U8 *GodDoodleSprite(U8 *hex=NULL)
Adam/God/HSNotes.TXT
+3 -3
View File
@@ -1,10 +1,10 @@
$FG,5$$TX+CX,"The Purpose of Life"$$FG$
$WW,1$The Catholic purpose of life is to know God, love God and obey God.$FG$ Pope Francis said it was "to serve the other." I am High Priest of God's official temple and I say the purpose of life is to do continual offerings to God like Cain and Abel and enjoy God's response. Francis has a charity; I have a church. Jesus said loving God was more important than loving neighbor. $LK,"Matthew,22:36",A="BF:Matthew,22:36"$ And, He did not say with half your brain behind your back.
$WW,1$The Catholic purpose of life is to know God, love God and obey God.$FG$ Pope Francis said it was "to serve the other." I am High Priest of God's official temple and I say the purpose of life is to do continual offerings to God like Cain and Abel and enjoy God's response. Francis has a charity; I have a church. Jesus said loving God was more important than loving neighbor. $LK,"Matthew,22:35-40",A="BF:Matthew,22:35-40"$ And, He did not say with half your brain behind your back.
You don't know God. $LK,"1 Chronicles,28:9",A="BF:1 Chronicles,28:9"$, $LK,"Matthew,11:27",A="BF:Matthew,11:27"$, $LK,"Luke,13:25",A="BF:Luke,13:25"$, $LK,"1 Samuel,3:7",A="BF:1 Samuel,3:7"$ You must talk with God to know Him. $LK,"Matthew,6:6",A="BF:Matthew,6:6"$ Seek Him by taking the initiative. $LK,"Luke,11:9",A="BF:Luke,11:9"$, $LK,"Isaiah,30:2",A="BF:Isaiah,30:2"$
You don't know God. $LK,"1 Chronicles,28:9-9",A="BF:1 Chronicles,28:9-9"$, $LK,"Matthew,11:27-27",A="BF:Matthew,11:27-27"$, $LK,"Luke,13:25-27",A="BF:Luke,13:25-27"$, $LK,"1 Samuel,3:6-8",A="BF:1 Samuel,3:6-8"$ You must talk with God to know Him. With Samuel, supposedly, God took the initiative, but I think that is the exception. Seek the Lord by taking the initiative. $LK,"Luke,11:9-10",A="BF:Luke,11:9-10"$, $LK,"Isaiah,30:1-2",A="BF:Isaiah,30:1-2"$
There's something obviously different about people in the Bible compared to people today -- God talked! Also, the people in the Bible were obsessed with doing offerings all the time. It is required that you do offerings before God will talk. Did the people in the Bible hear voices? Maybe. More likely, they used occult techniques such as an oracle. $LK,"1 Kings,6:20",A="BF:1 Kings,6:20"$ Have you heard of "tongues?" $LK,"1 Corinthians,14:1",A="BF:1 Corinthians,14:1"$ The idea is, you let yourself be puppeted by a spirit, so you say things. You try to get a spirit -- the Holy Spirit -- to talk. You might as well use a Ouija board. However, it turns-out that a Ouija board is bad for technical reasons. A really good technique is just randomly opening a book. God told me in an oracle that it is a covenant that you hold-up your end of the conversation.
There's something obviously different about people in the Bible compared to people today -- God talked! Also, the people in the Bible were obsessed with doing offerings all the time. It is required that you do offerings before God will talk. Did the people in the Bible hear voices? Maybe. More likely, they used occult techniques such as an oracle. $LK,"1 Kings,6:20-23",A="BF:1 Kings,6:20-23"$ Have you heard of "tongues?" $LK,"1 Corinthians,14:1-40",A="BF:1 Corinthians,14:1-40"$ The idea is, you let yourself be puppeted by a spirit, so you say things. You try to get a spirit -- the Holy Spirit -- to talk. You might as well use a Ouija board. However, it turns-out that a Ouija board is bad for technical reasons. A really good technique is just randomly opening a book. God told me in an oracle that it is a covenant that you hold-up your end of the conversation.
You can't tell if God's talking unless you have a context of conversation, but, more importantly, you are commanded to do an offering of love, like communion preparation. $LK,"1 Corinthians,11:27",A="BF:1 Corinthians,11:27"$ When you pick a greeting card for someone, that is love effort. If you expect God to put effort toward you, you must put effort toward Him. God said, "honest measures" applies between your offering of love and His response, like a fair barter. You get out of prayer what you put into it. God wants praise, hymns, or whatever you think He might want. Try and see, like Cain and Abel. $LK,"Genesis,4:1",A="BF:Genesis,4:1"$, $LK,"Ephesians,5:10",A="BF:Ephesians,5:10"$ God told Cain his offering was not good and told him to try again. Cain really loved God! Can you imagine being so heart-broken?
Adam/God/HolySpirit.CPP
+3 -3
View File
@@ -62,15 +62,15 @@ public U0 GodHexIns(U8 *st)
public I64 GodBits(I64 num_bits,U8 *msg=NULL)
{//Return N bits. If low on entropy pop-up okay.
U8 b;
I64 result=0;
I64 res=0;
while (num_bits) {
if (FifoU8Rem(god.fifo,&b)) {
result=result<<1+b;
res=res<<1+b;
num_bits--;
} else
GodBitsIns(GOD_GOOD_BITS,GodPick(msg));
}
return result;
return res;
}
public I64 GodInit(U8 *files_find_mask="/Adam/God/Vocab.TXT*",U8 *fu_flags=NULL)