349 lines
6.9 KiB
HolyC
349 lines
6.9 KiB
HolyC
|
#help_index "God"
|
|||
|
|
U0 BibleInit()
|
|||
|
|
{
|
|||
|
|
DefineLstLoad("ST_BIBLE_BOOKS",
|
|||
|
|
"Genesis\0"
|
|||
|
|
"Exodus\0"
|
|||
|
|
"Leviticus\0"
|
|||
|
|
"Numbers\0"
|
|||
|
|
"Deuteronomy\0"
|
|||
|
|
"Joshua\0"
|
|||
|
|
"Judges\0"
|
|||
|
|
"Ruth\0"
|
|||
|
|
"1 Samuel\0"
|
|||
|
|
"2 Samuel\0"
|
|||
|
|
"1 Kings\0"
|
|||
|
|
"2 Kings\0"
|
|||
|
|
"1 Chronicles\0"
|
|||
|
|
"2 Chronicles\0"
|
|||
|
|
"Ezra\0"
|
|||
|
|
"Nehemiah\0"
|
|||
|
|
"Esther\0"
|
|||
|
|
"Job\0"
|
|||
|
|
"Psalms\0"
|
|||
|
|
"Proverbs\0"
|
|||
|
|
"Ecclesiastes\0"
|
|||
|
|
"Song of Songs\0"
|
|||
|
|
"Isaiah\0"
|
|||
|
|
"Jeremiah\0"
|
|||
|
|
"Lamentations\0"
|
|||
|
|
"Ezekiel\0"
|
|||
|
|
"Daniel\0"
|
|||
|
|
"Hosea\0"
|
|||
|
|
"Joel\0"
|
|||
|
|
"Amos\0"
|
|||
|
|
"Obadiah\0"
|
|||
|
|
"Jonah\0"
|
|||
|
|
"Micah\0"
|
|||
|
|
"Nahum\0"
|
|||
|
|
"Habakkuk\0"
|
|||
|
|
"Zephaniah\0"
|
|||
|
|
"Haggai\0"
|
|||
|
|
"Zechariah\0"
|
|||
|
|
"Malachi\0"
|
|||
|
|
"Matthew\0"
|
|||
|
|
"Mark\0"
|
|||
|
|
"Luke\0"
|
|||
|
|
"John\0"
|
|||
|
|
"Acts\0"
|
|||
|
|
"Romans\0"
|
|||
|
|
"1 Corinthians\0"
|
|||
|
|
"2 Corinthians\0"
|
|||
|
|
"Galatians\0"
|
|||
|
|
"Ephesians\0"
|
|||
|
|
"Philippians\0"
|
|||
|
|
"Colossians\0"
|
|||
|
|
"1 Thessalonians\0"
|
|||
|
|
"2 Thessalonians\0"
|
|||
|
|
"1 Timothy\0"
|
|||
|
|
"2 Timothy\0"
|
|||
|
|
"Titus\0"
|
|||
|
|
"Philemon\0"
|
|||
|
|
"Hebrews\0"
|
|||
|
|
"James\0"
|
|||
|
|
"1 Peter\0"
|
|||
|
|
"2 Peter\0"
|
|||
|
|
"1 John\0"
|
|||
|
|
"2 John\0"
|
|||
|
|
"3 John\0"
|
|||
|
|
"Jude\0"
|
|||
|
|
"Revelation\0");
|
|||
|
|
DefineLstLoad("ST_BIBLE_BOOK_LINES",
|
|||
|
|
"297\0"
|
|||
|
|
"5068\0"
|
|||
|
|
"9123\0"
|
|||
|
|
"12005\0"
|
|||
|
|
"15977\0"
|
|||
|
|
"19168\0"
|
|||
|
|
"21329\0"
|
|||
|
|
"23598\0"
|
|||
|
|
"23902\0"
|
|||
|
|
"26892\0"
|
|||
|
|
"29345\0"
|
|||
|
|
"32241\0"
|
|||
|
|
"34961\0"
|
|||
|
|
"37633\0"
|
|||
|
|
"40756\0"
|
|||
|
|
"41671\0"
|
|||
|
|
"42963\0"
|
|||
|
|
"43605\0"
|
|||
|
|
"46190\0"
|
|||
|
|
"53793\0"
|
|||
|
|
"56267\0"
|
|||
|
|
"56966\0"
|
|||
|
|
"57332\0"
|
|||
|
|
"61806\0"
|
|||
|
|
"66736\0"
|
|||
|
|
"67217\0"
|
|||
|
|
"71804\0"
|
|||
|
|
"73189\0"
|
|||
|
|
"73876\0"
|
|||
|
|
"74130\0"
|
|||
|
|
"74615\0"
|
|||
|
|
"74697\0"
|
|||
|
|
"74860\0"
|
|||
|
|
"75241\0"
|
|||
|
|
"75416\0"
|
|||
|
|
"75604\0"
|
|||
|
|
"75806\0"
|
|||
|
|
"75932\0"
|
|||
|
|
"76684\0"
|
|||
|
|
"76908\0"
|
|||
|
|
"79970\0"
|
|||
|
|
"81941\0"
|
|||
|
|
"85266\0"
|
|||
|
|
"87803\0"
|
|||
|
|
"90914\0"
|
|||
|
|
"92110\0"
|
|||
|
|
"93323\0"
|
|||
|
|
"94088\0"
|
|||
|
|
"94514\0"
|
|||
|
|
"94869\0"
|
|||
|
|
"95153\0"
|
|||
|
|
"95402\0"
|
|||
|
|
"95647\0"
|
|||
|
|
"95772\0"
|
|||
|
|
"96090\0"
|
|||
|
|
"96320\0"
|
|||
|
|
"96440\0"
|
|||
|
|
"96500\0"
|
|||
|
|
"97370\0"
|
|||
|
|
"97687\0"
|
|||
|
|
"97976\0"
|
|||
|
|
"98163\0"
|
|||
|
|
"98506\0"
|
|||
|
|
"98552\0"
|
|||
|
|
"98597\0"
|
|||
|
|
"98684\0"
|
|||
|
|
"100111\0");
|
|||
|
|
DefinePrint("ST_BIBLE_LINES","%d",
|
|||
|
|
Str2I64(DefineSub(DefineCnt("ST_BIBLE_BOOK_LINES")-1,
|
|||
|
|
"ST_BIBLE_BOOK_LINES"))-1);
|
|||
|
|
} BibleInit;
|
|||
|
|
|
|||
|
|
public U8 *BibleLine2Verse(I64 line,I64 separate_ch=CH_SPACE)
|
|||
|
|
{//Line number to verse str, Malloc()ed.
|
|||
|
|
//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;
|
|||
|
|
U8 *ptr=DefineSub(0,"ST_BIBLE_BOOK_LINES"),*ptr2;
|
|||
|
|
while (i<=cnt) {
|
|||
|
|
last_start=start;
|
|||
|
|
start=Str2I64(ptr);
|
|||
|
|
if (line<start)
|
|||
|
|
break;
|
|||
|
|
i++;
|
|||
|
|
ptr+=StrLen(ptr)+1;
|
|||
|
|
}
|
|||
|
|
if (0<=--i<cnt) {
|
|||
|
|
doc=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
|||
|
|
DocGoToLine(doc,line); //one based
|
|||
|
|
doc_e=doc->cur_entry;
|
|||
|
|
while (doc_e!=doc && (doc_e->type_u8!=DOCT_TEXT || !*doc_e->tag))
|
|||
|
|
doc_e=doc_e->next;
|
|||
|
|
if (doc_e->type_u8==DOCT_TEXT && '0'<=*doc_e->tag<='9') {
|
|||
|
|
ptr=ptr2=doc_e->tag;
|
|||
|
|
while ('0'<=*ptr2<='9' || *ptr2==':')
|
|||
|
|
ptr2++;
|
|||
|
|
*ptr2=0;
|
|||
|
|
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;
|
|||
|
|
if (doc_e==doc) {
|
|||
|
|
ptr=NULL;
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
if (doc_e->y+1<last_start) {
|
|||
|
|
ptr=MStrPrint("%Z",i,"ST_BIBLE_BOOKS");
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
if (doc_e->type_u8==DOCT_TEXT && StrLen(doc_e->tag)>=3) {
|
|||
|
|
ptr=doc_e->tag+StrLen(doc_e->tag)-1;
|
|||
|
|
while (ptr>doc_e->tag && (!('0'<=*(ptr-1)<='9') || *ptr!=':' ||
|
|||
|
|
!('0'<=*(ptr+1)<='9')))
|
|||
|
|
ptr--;
|
|||
|
|
ptr--;
|
|||
|
|
while (ptr>=doc_e->tag && '0'<=*ptr<='9')
|
|||
|
|
ptr--;
|
|||
|
|
ptr2=++ptr;
|
|||
|
|
if ('0'<=*ptr2++<='9') {
|
|||
|
|
while ('0'<=*ptr2<='9')
|
|||
|
|
ptr2++;
|
|||
|
|
if (*ptr2++==':' && '0'<=*ptr2++<='9') {
|
|||
|
|
while ('0'<=*ptr2<='9')
|
|||
|
|
ptr2++;
|
|||
|
|
*ptr2=0;
|
|||
|
|
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;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
DocDel(doc);
|
|||
|
|
return ptr;
|
|||
|
|
} else
|
|||
|
|
return NULL;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public U0 BookLines(CDoc *doc_out=NULL,I64 start,I64 lines,
|
|||
|
|
U8 *book_filename=BIBLE_FILENAME)
|
|||
|
|
{//Put N line starting at line M into doc.
|
|||
|
|
CDoc *doc_in;
|
|||
|
|
CDocEntry *doc_e;
|
|||
|
|
if (!doc_out) doc_out=DocPut;
|
|||
|
|
if (doc_out && FileFind(book_filename)) {
|
|||
|
|
doc_in=DocRead(book_filename,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
|||
|
|
DocGoToLine(doc_in,start); //one based
|
|||
|
|
doc_e=doc_in->cur_entry;
|
|||
|
|
while (lines>0 && doc_e!=doc_in) {
|
|||
|
|
if (doc_e->type_u8==DOCT_TEXT)
|
|||
|
|
DocPrint(doc_out,"%s",doc_e->tag);
|
|||
|
|
else if (doc_e->type_u8==DOCT_NEW_LINE) {
|
|||
|
|
DocPutKey(doc_out,'\n');
|
|||
|
|
lines--;
|
|||
|
|
}
|
|||
|
|
doc_e=doc_e->next;
|
|||
|
|
}
|
|||
|
|
DocDel(doc_in);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public U0 BibleVerse(CDoc *doc_out=NULL,U8 *verse,I64 lines)
|
|||
|
|
{//Put N lines starting at verse str into doc.
|
|||
|
|
I64 i;
|
|||
|
|
CDoc *doc_in;
|
|||
|
|
CDocEntry *doc_e;
|
|||
|
|
U8 *st,*st2;
|
|||
|
|
if (!doc_out) doc_out=DocPut;
|
|||
|
|
if (doc_out && FileFind(BIBLE_FILENAME)) {
|
|||
|
|
st=StrNew(verse);
|
|||
|
|
st2=StrNew(verse);
|
|||
|
|
if (StrOcc(st,','))
|
|||
|
|
StrLastRem(st,",",st2);
|
|||
|
|
else
|
|||
|
|
*st2=0;
|
|||
|
|
i=DefineMatch(st,"ST_BIBLE_BOOKS",LMF_IGNORE_CASE);
|
|||
|
|
if (i>=0) {
|
|||
|
|
i=Str2I64(DefineSub(i,"ST_BIBLE_BOOK_LINES"));
|
|||
|
|
doc_in=DocRead(BIBLE_FILENAME,DOCF_PLAIN_TEXT|DOCF_NO_CURSOR);
|
|||
|
|
DocGoToLine(doc_in,i); //one based
|
|||
|
|
if (*st2) {
|
|||
|
|
StrCpy(doc_in->find_replace->find_text,st2);
|
|||
|
|
EdFindNext(doc_in);
|
|||
|
|
}
|
|||
|
|
doc_e=doc_in->cur_entry;
|
|||
|
|
while (lines>0 && doc_e!=doc_in) {
|
|||
|
|
if (doc_e->type_u8==DOCT_TEXT)
|
|||
|
|
DocPrint(doc_out,"%s",doc_e->tag);
|
|||
|
|
else if (doc_e->type_u8==DOCT_NEW_LINE) {
|
|||
|
|
DocPutKey(doc_out,'\n');
|
|||
|
|
lines--;
|
|||
|
|
}
|
|||
|
|
doc_e=doc_e->next;
|
|||
|
|
}
|
|||
|
|
DocDel(doc_in);
|
|||
|
|
}
|
|||
|
|
Free(st);
|
|||
|
|
Free(st2);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public CDoc *BibleDoc()
|
|||
|
|
{//Return Bible as DolDoc with trees.
|
|||
|
|
CDoc *res=DocRead(BIBLE_FILENAME);
|
|||
|
|
CDocEntry *doc_e=res->head.next,*doc_e1;
|
|||
|
|
Bool open_chapter=FALSE;
|
|||
|
|
U8 *ptr=Define("ST_BIBLE_BOOK_LINES");
|
|||
|
|
I64 book,book_cnt=DefineCnt("ST_BIBLE_BOOK_LINES")-1,
|
|||
|
|
chapter,
|
|||
|
|
line=Str2I64(ptr,,&ptr);
|
|||
|
|
ptr++;
|
|||
|
|
for (book=0;book<book_cnt;book++) {
|
|||
|
|
while (doc_e->y+1<line) {
|
|||
|
|
doc_e1=doc_e->next;
|
|||
|
|
DocEntryDel(res,doc_e);
|
|||
|
|
doc_e=doc_e1;
|
|||
|
|
}
|
|||
|
|
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)) {
|
|||
|
|
res->cur_entry=doc_e;
|
|||
|
|
res->cur_col=0;
|
|||
|
|
if (open_chapter) {
|
|||
|
|
DocPrint(res,"$$ID,-2$$");
|
|||
|
|
open_chapter=FALSE;
|
|||
|
|
}
|
|||
|
|
DocPrint(res,"$$TR,\"%d\"$$\n$$ID,2$$",chapter++);
|
|||
|
|
open_chapter=TRUE;
|
|||
|
|
} else if (chapter==1) {
|
|||
|
|
doc_e1=doc_e->next;
|
|||
|
|
DocEntryDel(res,doc_e);
|
|||
|
|
doc_e=doc_e1;
|
|||
|
|
}
|
|||
|
|
doc_e=doc_e1;
|
|||
|
|
}
|
|||
|
|
res->cur_entry=doc_e;
|
|||
|
|
res->cur_col=0;
|
|||
|
|
if (open_chapter) {
|
|||
|
|
DocPrint(res,"$$ID,-2$$");
|
|||
|
|
open_chapter=FALSE;
|
|||
|
|
}
|
|||
|
|
DocPrint(res,"$$ID,-2$$");
|
|||
|
|
}
|
|||
|
|
while (doc_e!=res) {
|
|||
|
|
doc_e1=doc_e->next;
|
|||
|
|
DocEntryDel(res,doc_e);
|
|||
|
|
doc_e=doc_e1;
|
|||
|
|
}
|
|||
|
|
return res;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
public U0 BibleView()
|
|||
|
|
{//View Bible as DolDoc with trees.
|
|||
|
|
U8 buf[STR_LEN];
|
|||
|
|
CDoc *doc=BibleDoc;
|
|||
|
|
StrPrint(buf,"AL:%d,1",doc);
|
|||
|
|
Ed(buf);
|
|||
|
|
DocDel(doc);
|
|||
|
|
}
|
|||
|
|
U0 CtrlAltB(I64)
|
|||
|
|
{
|
|||
|
|
PopUp("BibleView;");
|
|||
|
|
}
|
|||
|
|
CtrlAltCBSet('B',&CtrlAltB,"Cmd /Bible");
|