From 03134fa5f6f25d92724ce4c183f9bbe12a9e37dc Mon Sep 17 00:00:00 2001
From: "Roberto C. Sanchez" <roberto@connexer.com>
Date: Sat, 29 Mar 2014 10:53:59 -0400
Subject: Imported Upstream version 1.5.11

---
 olb/Getstrng.c | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 olb/Getstrng.c

(limited to 'olb/Getstrng.c')

diff --git a/olb/Getstrng.c b/olb/Getstrng.c
new file mode 100644
index 0000000..b5e6938
--- /dev/null
+++ b/olb/Getstrng.c
@@ -0,0 +1,26 @@
+#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();
+}
-- 
cgit v1.2.3