diff options
Diffstat (limited to 'olb/Online.c')
-rw-r--r-- | olb/Online.c | 114 |
1 files changed, 0 insertions, 114 deletions
diff --git a/olb/Online.c b/olb/Online.c deleted file mode 100644 index 54298e4..0000000 --- a/olb/Online.c +++ /dev/null @@ -1,114 +0,0 @@ -/* - * Copyright 2009 CrossWire Bible Society (http://www.crosswire.org) - * CrossWire Bible Society - * P. O. Box 2528 - * Tempe, AZ 85280-2528 - * - * This program is free software; you can redistribute it and/or modify it - * under the terms of the GNU General Public License as published by the - * Free Software Foundation version 2. - * - * This program is distributed in the hope that it will be useful, but - * WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * General Public License for more details. - * - */ - -#include "online.dcl" - -/* - Online Bible Database Access Routines -*/ - -INT versedata[MAX_VERSE]; -INT verse_list[MAX_LIST]; -CHAR data[MAX_DATA]; - -void main(argc, argv) -int argc; -CHAR *argv[]; -{ - CHAR found, passage[64], *p; - int i, j; - INT word; -short verse_list[MAX_LIST]; - extern struct zonline online; - - if (argc > 1) - call DOINIT(argv[1]); /* initialise system */ - else - call DOINIT("g:\\bible\\av"); /* initialise system */ - - /* get text for Ge 1:1 & Rev 22:21 */ - - for (i = 1; i < 8; i++) - puts(GETVRSN(i)); - - verse_list[0] = 10; - for (i=1; i <= 8; i++) - verse_list[i] = i; - verse_list[9] = 31101; - verse_list[10] = 31102; - for (i = 1; i <= 10; i++) - puts(VRSTOREF(verse_list[i], 0)); - call DUMPVRS(verse_list, versedata, data); - - word = MAPWORD("Aaron", &found); /* map a word into an absolute number */ - call PUTLIST("Aaron=", word); - if (found == 0) then - puts("*Not Found"); - else - puts("*Found"); - call GETWORD(word, verse_list); /* get list of verses for a word */ - call DUMPVRS(verse_list, versedata, (CHAR *) data); - - /* first word in index */ - word = MAPWORD("a", &found); /* map a word into an absolute number */ - call PUTLIST("a=", word); - if (found == 0) then - puts("*Not Found"); - else - puts("*Found"); - call GETWORD(word, verse_list); /* get list of verses for a word */ - call DUMPVRS(verse_list, versedata, (CHAR *) data); - call GETSTRNG(1, verse_list, 0); /* get list of verses for Strong's */ - call DUMPVRS(verse_list, versedata, (CHAR *) data); - - /* last word in index */ - word = MAPWORD("Zuzims", &found); /* map a word into an absolute number */ - call PUTLIST("Zuzims=", word); - if (found == 0) then - puts("*Not Found"); - else - puts("*Found"); - - call GETWORD(word, verse_list); /* get list of verses for a word */ - call DUMPVRS(verse_list, versedata, (CHAR *) data); - - printf("\nCross References for Ge 1:1\n"); - call GETCXREF(1, verse_list); /* get cross-references for a verse */ - verse_list[1] = verse_list[66]; - verse_list[2] = verse_list[67]; - call DUMPVRS(verse_list, versedata, (CHAR *) data); - - for (i = 1; i <= 31102; i++) /* verify conversion routines work */ - { - if ((i % 1000) == 0) then - puts(DECIMAL(i)); - p = VRSTOREF(i, 0); - if (*p < '9' && *(p+1) == ' ') then - { /* fix book names like 1 Timothy -> 1Timothy */ - *(p+1) = *p; - *p = ' '; - } - j = REFTOVRS(p); - if (j != i) then - { - printf("i=%d, j=%d, ref=%s\n", i, j, p); - call ERROR("VRSTOREF - Error"); - } - } - - DOEND(); -} |