summaryrefslogtreecommitdiff
path: root/olb/Getstrng.c
diff options
context:
space:
mode:
Diffstat (limited to 'olb/Getstrng.c')
-rw-r--r--olb/Getstrng.c43
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();
-}