blob: 4e87fd412eca64543cb8460192eb3204aa72eb37 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
/*
* 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>
void GETSTRNG(strongs_no, verse_list, otflg)
/* get verses for a given strongs no */
int strongs_no; /* strongs number to fetch verse list for */
INT verse_list[MAX_LIST]; /* resultant verse list */
CHAR otflg; /* Old Testament Number flag */
{
extern struct zversion version;
int entry_size;
long int seek_posn;
X("Getstrng");
if (strongs_no > 8849 || strongs_no < 0) then
ERROR("Getstrng - Invalid Strong's Number");
entry_size = READNDX(strongs_no, fp_xrefndxs, &seek_posn);
call LISTLOAD(fp_xref, entry_size, verse_list, seek_posn);
if (otflg == 0) then
call LISTRANG(verse_list, version.nt_ver, version.total_ver);
else
call LISTRANG(verse_list, 1, version.nt_ver - 1);
Y();
}
|
