diff options
Diffstat (limited to 'olb/Getstrng.c')
-rw-r--r-- | olb/Getstrng.c | 43 |
1 files changed, 0 insertions, 43 deletions
diff --git a/olb/Getstrng.c b/olb/Getstrng.c deleted file mode 100644 index 32430ce..0000000 --- a/olb/Getstrng.c +++ /dev/null @@ -1,43 +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> - -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(); -} |