diff options
| author | Chris Little <chrislit@crosswire.org> | 2013-06-22 09:21:20 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2013-06-22 09:21:20 +0000 |
| commit | 82c9d8a327130d9b8e47526f9583f51d862ec96f (patch) | |
| tree | 66a742206afdb3f01ac7e117effaa19d5107803e /misc/olb/Getstrng.c | |
| parent | 61f0c5af5fc5c7352e0320e585aa57ddce0d92a4 (diff) | |
| download | sword-tools-82c9d8a327130d9b8e47526f9583f51d862ec96f.tar.gz | |
moved this ancient, unmaintained, and unneeded converter from the sword SVN root
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@425 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'misc/olb/Getstrng.c')
| -rw-r--r-- | misc/olb/Getstrng.c | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/misc/olb/Getstrng.c b/misc/olb/Getstrng.c new file mode 100644 index 0000000..4e87fd4 --- /dev/null +++ b/misc/olb/Getstrng.c @@ -0,0 +1,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();
+}
|