home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume22 / bibleref / patch01 / 1.0-1.1
Encoding:
Text File  |  1991-08-17  |  24.1 KB  |  688 lines
  1. *** bibleref-1.0/Makefile.dist    Sun Jul 14 14:07:58 1991
  2. --- bibleref-new/Makefile.dist    Wed Jul 17 03:10:13 1991
  3. ***************
  4. *** 25,31 ****
  5.   # Name of your icon compiler and compiler flags.
  6.   #
  7.   ICONC = /usr/icon/v8/bin/icont
  8. ! IFLAGS = -Sc 200 -Sg 400 -Si 2000 -Sn 3000 -SF 30
  9.   
  10.   #
  11.   # Names of KJV files as packaged in the PC-SIG disk set (19 discs).
  12. --- 25,31 ----
  13.   # Name of your icon compiler and compiler flags.
  14.   #
  15.   ICONC = /usr/icon/v8/bin/icont
  16. ! IFLAGS = -Sc 400 -Sg 400 -Si 2000 -Sn 3000 -SF 30
  17.   
  18.   #
  19.   # Names of KJV files as packaged in the PC-SIG disk set (19 discs).
  20. ***************
  21. *** 51,56 ****
  22. --- 51,67 ----
  23.   # RAWFILES = ./kjv.Z
  24.   
  25.   #
  26. + # If, instead of the KJV, you have a CCAT RSV text, you can concatenate
  27. + # all the books for that text into one "kjv.rtv" file.  When done doing
  28. + # this, go to the "non-modifiable" section of this makefile, and change
  29. + # the line reading "CONVERTER = kjv2rtv" to "CONVERTER = rsv2rtv".  I
  30. + # personally have never tried doing this, and have no idea whether it
  31. + # will work.  The converter, rsv2rtv, though is included in this dis-
  32. + # tribution on a test basis.  If anyone tries to use it, please let me
  33. + # know (for better or worse).
  34. + #
  35. + 
  36. + #
  37.   # If you've compressed your KJV file(s), use zcat; otherwise use cat.
  38.   #
  39.   CAT = cat
  40. ***************
  41. *** 65,76 ****
  42.   
  43.   ###########################################################################
  44.   #
  45. ! #  Don't change anything below this line.
  46.   #
  47.   
  48.   RTVFILE = kjv.rtv
  49.   
  50.   CONVERTER = kjv2rtv
  51.   CONVERTSRC = $(CONVERTER).icn convertr.icn name2num.icn complete.icn
  52.   
  53.   INDEXER = makeind
  54. --- 76,89 ----
  55.   
  56.   ###########################################################################
  57.   #
  58. ! #  Don't change anything below this line unless you are absolutely and
  59. ! #  positively sure you know what you are doing.
  60.   #
  61.   
  62.   RTVFILE = kjv.rtv
  63.   
  64.   CONVERTER = kjv2rtv
  65. + # CONVERTER = rsv2rtv
  66.   CONVERTSRC = $(CONVERTER).icn convertr.icn name2num.icn complete.icn
  67.   
  68.   INDEXER = makeind
  69. *** bibleref-1.0/README    Sun Jul 14 14:07:58 1991
  70. --- bibleref-new/README    Wed Jul 17 03:10:14 1991
  71. ***************
  72. *** 71,77 ****
  73.   your login ID and default group ID).  Finally, check to be certain
  74.   that the correct names are used for your raw King James Bible file(s),
  75.   and that the target CAT is set to either "cat" or "zcat," depending on
  76. ! whether you have compressed the raw files or not.
  77.       Assuming you've modified the Makefile correctly, you can then
  78.   simply type "make."  After this, you might as well go off and have
  79.   dinner or something.  Better yet, go to bed.  The entire reformatting,
  80. --- 71,83 ----
  81.   your login ID and default group ID).  Finally, check to be certain
  82.   that the correct names are used for your raw King James Bible file(s),
  83.   and that the target CAT is set to either "cat" or "zcat," depending on
  84. ! whether you have compressed the raw files or not.  Note that you need
  85. ! not use all the KJV files.  Christians, for instance, will frequently
  86. ! want to comment out the Old Testament books, while Jews will normally
  87. ! want to do the reverse.  Bibleref doesn't care how many, or what KJV
  88. ! books, there are.  It doesn't really even care about the order (though
  89. ! for human readers' sake it's advisable to put them in some coherent,
  90. ! canonical order).
  91.       Assuming you've modified the Makefile correctly, you can then
  92.   simply type "make."  After this, you might as well go off and have
  93.   dinner or something.  Better yet, go to bed.  The entire reformatting,
  94. ***************
  95. *** 256,269 ****
  96.   these utilities are *not* geared solely for the KJV.  In fact, they
  97.   are set up so that they can be used with just about any text broken up
  98.   into hierarchically arranged divisions.  If, for instance, you don't
  99. ! like Renaissance English, and have a more modern Bible translation
  100. ! online, you can certainly use that instead.  All you'll need to do is
  101. ! copy the kjv2rtv.icn file to, say, kjv2rsv.icn, edit it to reflect the
  102. ! text you are using, run it on your text, and then index it as you
  103. ! would have done for the King James text.  You can tell Bibleref to use
  104. ! this text instead of the King James text either by modifying
  105. ! bibleref.icn to point to the new file, or by giving it a filename
  106. ! argument, a la "bibleref -f your.indexed.bible.text."
  107.       If you need help integrating a new biblical text into the
  108.   retrieve package, drop me a line.  If I'm not busy, and the job looks
  109.   to be one I can help you out with, I'll be glad to do so.  If nothing
  110. --- 262,277 ----
  111.   these utilities are *not* geared solely for the KJV.  In fact, they
  112.   are set up so that they can be used with just about any text broken up
  113.   into hierarchically arranged divisions.  If, for instance, you don't
  114. ! like Renaissance English, and have the more modern RSV translation
  115. ! online, you can certainly use that instead.  Actually, those of you
  116. ! who possess CCAT RSV texts could do me the great favor of playing
  117. ! guinea pig.  Read the makefile, do what it says with the CONVERTB
  118. ! target, then make.  If you have already indexed some other files, then
  119. ! you should clobber them (a la "make clobber"), and start over again.
  120. ! If you manage to index the RSV, please let me know.  I haven't got the
  121. ! disk space here to do it.  The whole procedure with RSV texts is
  122. ! wholly untested, and I fully expect it to blow up on anyone who tries
  123. ! it :-) 1/2.
  124.       If you need help integrating a new biblical text into the
  125.   retrieve package, drop me a line.  If I'm not busy, and the job looks
  126.   to be one I can help you out with, I'll be glad to do so.  If nothing
  127. ***************
  128. *** 275,293 ****
  129.   tested, or 3) that are likely to change.  For instance, the "d"
  130.   command can take a number argument, which causes it to display the
  131.   list whose position in the global list of lists corresponds to that
  132. ! number).  The "!" command can also pass its arguments to the shell
  133. ! (/bin/sh, or the value of your SHELL environment variable).  Also, if
  134. ! you type "f lord god" at the main prompt, and press return, you'll get
  135. ! a list of verses containing the words "lord" and "god" (i.e. Bibleref
  136. ! will, in other words, perform a verse-based, range 0 "and" on the
  137. ! respective hit lists for these two words).  While I don't want to hide
  138. ! the existence of these marginal features, I don't want to encourage
  139. ! anyone to expect their presence in later versions, or to suggest that
  140. ! they will work properly in the current one.  I'm particularly worried
  141. ! about the "f lord god" example above, as it might lead people to think
  142. ! that Bibleref has a concept of word order within verses.  In fact,
  143. ! this is just an alternate way of performing a set intersection on the
  144. ! hit lists for "lord" and "god."
  145.   
  146.   
  147.   --------
  148. --- 283,301 ----
  149.   tested, or 3) that are likely to change.  For instance, the "d"
  150.   command can take a number argument, which causes it to display the
  151.   list whose position in the global list of lists corresponds to that
  152. ! number).  On the top level, the "!" command can also pass arguments to
  153. ! a shell (/bin/sh, or the value of your SHELL environment variable).
  154. ! Also, if you type "f lord god" at the main prompt, and press return,
  155. ! you'll get a list of verses containing the words "lord" and "god"
  156. ! (i.e. Bibleref will, in other words, perform a verse-based, range 0
  157. ! "and" on the respective hit lists for these two words).  While I don't
  158. ! want to hide the existence of these marginal features, I don't want to
  159. ! encourage anyone to expect their presence in later versions, or to
  160. ! suggest that they will work properly in the current one.  I'm
  161. ! particularly worried about the "f lord god" example above, as it might
  162. ! lead people to think that Bibleref has a concept of word order within
  163. ! verses.  In fact, this is just an alternate way of performing a set
  164. ! intersection on the hit lists for "lord" and "god."
  165.   
  166.   
  167.   --------
  168. *** bibleref-1.0/README.rtv    Sun Jul 14 14:07:58 1991
  169. --- bibleref-new/README.rtv    Wed Jul 17 03:10:15 1991
  170. ***************
  171. *** 167,188 ****
  172.   the King James Version (KJV).  How might you invoke makeind to
  173.   accomplish this?  First you would need to determine the maximum field
  174.   value for your text.  In the case of the Christian English Bible, this
  175. ! is 176.  The English Bible (including Apocrypha) contains 73 books.
  176. ! The Protestant KJV contains 66.  The maximum number of chapters in any
  177. ! book is 150 (Psalms).  The maximum number of verses in any one chapter
  178. ! in any one book is 176 (Psalm 119).  176 would therefore be the
  179. ! maximum value any field would have to contain.  You would pass this
  180. ! information to makeind via the -m option.  The total number of fields
  181. ! is three, naturally (book, chapter, and verse).  This value would be
  182. ! passed using the -n option.  As noted above, in order to use relative
  183. ! locations you would need to tell makeind what field to record max
  184. ! values for.  In our hypothesized scenario, you would want makeind to
  185. ! store the max value for the verse field for every chapter of every
  186. ! book in the Bible.  The verse field (field #3), in other words, is
  187. ! your "rollover" field, and would be passed to makeind using the -l
  188. ! option.  Assuming "kjv" to be the name of your indexable biblical
  189. ! text, this set of circumstances would imply the following invocation
  190. ! for makeind:
  191.   
  192.       makeind -f kjv -m 176 -n 3 -l 3
  193.   
  194. --- 167,188 ----
  195.   the King James Version (KJV).  How might you invoke makeind to
  196.   accomplish this?  First you would need to determine the maximum field
  197.   value for your text.  In the case of the Christian English Bible, this
  198. ! is 176.  The English Bible (including Apocrypha) contains 84 books (at
  199. ! least in the RSV).  The Protestant KJV contains 66.  The maximum
  200. ! number of chapters in any book is 150 (Psalms).  The maximum number of
  201. ! verses in any one chapter in any one book is 176 (Psalm 119).  176
  202. ! would therefore be the maximum value any field would have to contain.
  203. ! You would pass this information to makeind via the -m option.  The
  204. ! total number of fields is three, naturally (book, chapter, and verse).
  205. ! This value would be passed using the -n option.  As noted above, in
  206. ! order to use relative locations you would need to tell makeind what
  207. ! field to record max values for.  In our hypothesized scenario, you
  208. ! would want makeind to store the max value for the verse field for
  209. ! every chapter of every book in the Bible.  The verse field (field #3),
  210. ! in other words, is your "rollover" field, and would be passed to
  211. ! makeind using the -l option.  Assuming "kjv" to be the name of your
  212. ! indexable biblical text, this set of circumstances would imply the
  213. ! following invocation for makeind:
  214.   
  215.       makeind -f kjv -m 176 -n 3 -l 3
  216.   
  217. *** bibleref-1.0/bibleref.src    Sun Jul 14 14:07:59 1991
  218. --- bibleref-new/bibleref.src    Wed Jul 17 03:09:52 1991
  219. ***************
  220. *** 6,12 ****
  221.   #
  222.   #    Author:     Richard L. Goerwitz
  223.   #
  224. ! #    Version: 1.18
  225.   #
  226.   ############################################################################
  227.   #
  228. --- 6,12 ----
  229.   #
  230.   #    Author:     Richard L. Goerwitz
  231.   #
  232. ! #    Version: 1.19
  233.   #
  234.   ############################################################################
  235.   #
  236. ***************
  237. *** 133,141 ****
  238.       fail
  239.       }
  240.   
  241. !     msg := "\"Bibleref\" - a King James Bible browser _
  242. !            by Richard Goerwitz"
  243. !     short_message := "\"Bibleref,\" by Richard Goerwitz"
  244.   
  245.       clear()
  246.       status_line(msg, short_message, "c") &
  247. --- 133,140 ----
  248.       fail
  249.       }
  250.   
  251. !     msg := "\"Bibleref\" - a Bible browser by Richard Goerwitz"
  252. !     short_message := "\"Bibleref,\" by RG"
  253.   
  254.       clear()
  255.       status_line(msg, short_message, "c") &
  256. ***************
  257. *** 191,197 ****
  258.       #
  259.       local capname
  260.   
  261. !     every capname := ("li","co","ce","so") do {
  262.       getval(capname) | {
  263.           quit("check_features",
  264.            "terminal lacks "||capname||" capability", 2)
  265. --- 190,196 ----
  266.       #
  267.       local capname
  268.   
  269. !     every capname := ("li","co","ce") do {
  270.       getval(capname) | {
  271.           quit("check_features",
  272.            "terminal lacks "||capname||" capability", 2)
  273. *** bibleref-1.0/convertb.icn    Sun Jul 14 14:07:59 1991
  274. --- bibleref-new/convertb.icn    Wed Jul 17 03:09:53 1991
  275. ***************
  276. *** 7,13 ****
  277.   #
  278.   #    Author:     Richard L. Goerwitz
  279.   #
  280. ! #    Version: 1.3
  281.   #
  282.   ############################################################################
  283.   #
  284. --- 7,13 ----
  285.   #
  286.   #    Author:     Richard L. Goerwitz
  287.   #
  288. ! #    Version: 1.4
  289.   #
  290.   ############################################################################
  291.   #
  292. ***************
  293. *** 67,73 ****
  294.       local names, n
  295.       static num_table
  296.       initial {
  297. !     names     := ["Gen", "Exod", "Lev", "Num", "Deut", "Josh",
  298.                 "Judg", "Ruth", "1Sam", "2Sam", "1Kgs", "2Kgs",
  299.                 "1Chr", "2Chr", "Ezra", "Neh", "Esth", "Job",
  300.                 "Pss", "Prov", "Qoh", "Cant", "Isa", "Jer",
  301. --- 67,73 ----
  302.       local names, n
  303.       static num_table
  304.       initial {
  305. !     names := [    "Gen", "Exod", "Lev", "Num", "Deut", "Josh",
  306.                 "Judg", "Ruth", "1Sam", "2Sam", "1Kgs", "2Kgs",
  307.                 "1Chr", "2Chr", "Ezra", "Neh", "Esth", "Job",
  308.                 "Pss", "Prov", "Qoh", "Cant", "Isa", "Jer",
  309. ***************
  310. *** 78,87 ****
  311.                 "Eph", "Phil", "Col", "1Thess", "2Thess",
  312.                 "1Tim", "2Tim", "Titus", "Phlm", "Heb", "Jas",
  313.                 "1Pet", "2Pet", "1John", "2John", "3John",
  314. !               "Jude", "Rev", "Tob", "Jdt", "Wis", "Sir",
  315. !               "Bar", "1Macc", "2Macc"]
  316.           num_table :=  table()
  317. !     every n := 1 to 73 do
  318.           insert(num_table, n, get(names))
  319.       }
  320.   
  321. --- 78,90 ----
  322.                 "Eph", "Phil", "Col", "1Thess", "2Thess",
  323.                 "1Tim", "2Tim", "Titus", "Phlm", "Heb", "Jas",
  324.                 "1Pet", "2Pet", "1John", "2John", "3John",
  325. !               "Jude", "Rev", "1Esdr", "2Esdr", "Tob", "Jdt",
  326. !               "Addest", "Wis", "Sirp", "Sir", "Letjer",
  327. !               "Prazar", "Suz", "Bar", "Prman", "1Macc",
  328. !               "2Macc", "3Macc", "4Macc", "Ps 151"]
  329. ! 
  330.           num_table :=  table()
  331. !     every n := 1 to 84 do
  332.           insert(num_table, n, get(names))
  333.       }
  334.   
  335. *** bibleref-1.0/name2num.icn    Sun Jul 14 14:08:01 1991
  336. --- bibleref-new/name2num.icn    Wed Jul 17 03:09:53 1991
  337. ***************
  338. *** 6,12 ****
  339.   #
  340.   #    Author:     Richard L. Goerwitz
  341.   #
  342. ! #    Version: 1.3
  343.   #
  344.   ############################################################################
  345.   #
  346. --- 6,12 ----
  347.   #
  348.   #    Author:     Richard L. Goerwitz
  349.   #
  350. ! #    Version: 1.5
  351.   #
  352.   ############################################################################
  353.   #
  354. ***************
  355. *** 40,47 ****
  356.                 "2thessalonians", "1timothy", "2timothy",
  357.                 "titus", "philemon", "hebrews", "james",
  358.                 "1peter", "2peter", "1john", "2john", "3john",
  359. !               "jude", "revelation", "tobit", "judith", "wisdom",
  360. !               "sirach", "baruch", "1maccabees", "2maccabees",
  361.   
  362.                 "gen", "exod", "lev", "num", "deut", "josh",
  363.                 "judg", "ruth", "1sam", "2sam", "1kgs", "2kgs",
  364. --- 40,46 ----
  365.                 "2thessalonians", "1timothy", "2timothy",
  366.                 "titus", "philemon", "hebrews", "james",
  367.                 "1peter", "2peter", "1john", "2john", "3john",
  368. !               "jude", "revelation",
  369.   
  370.                 "gen", "exod", "lev", "num", "deut", "josh",
  371.                 "judg", "ruth", "1sam", "2sam", "1kgs", "2kgs",
  372. ***************
  373. *** 54,61 ****
  374.                 "eph", "phil", "col", "1thess", "2thess",
  375.                 "1tim", "2tim", "titus", "phlm", "heb", "jas",
  376.                 "1pet", "2pet", "1john", "2john", "3john",
  377. !               "jude", "rev", "tob", "jdt", "wis", "sir",
  378. !               "bar", "1macc", "2macc",
  379.   
  380.                 "dt", "jdg", "jg", "rth", "sa1", "sa2", "ki1",
  381.                 "ki2", "ch1", "ch2", "jl", "mt", "mk", "lk",
  382. --- 53,59 ----
  383.                 "eph", "phil", "col", "1thess", "2thess",
  384.                 "1tim", "2tim", "titus", "phlm", "heb", "jas",
  385.                 "1pet", "2pet", "1john", "2john", "3john",
  386. !               "jude", "rev",
  387.   
  388.                 "dt", "jdg", "jg", "rth", "sa1", "sa2", "ki1",
  389.                 "ki2", "ch1", "ch2", "jl", "mt", "mk", "lk",
  390. ***************
  391. *** 63,76 ****
  392.                 "phm", "pe1", "pe2", "jo1", "jo2", "jo3", "1jn",
  393.                 "2jn", "3jn",
  394.   
  395. !               "son", "solomon", "ecclesiasticus", "ecclus"]
  396.   
  397.           abbrevtbl := table()
  398.       tmp_names := copy(names)
  399. !     every i := (1 to 73) | (1 to 73) |
  400.           5|7|7|8|9|10|11|12|13|14|29|40|41|42|43|46|
  401.           47|52|53|54|55|57|60|61|62|63|64|62|63|64|
  402. !         22|22|70|70
  403.       do {
  404.           insert(abbrevtbl, get(tmp_names), i)
  405.       }
  406. --- 61,94 ----
  407.                 "phm", "pe1", "pe2", "jo1", "jo2", "jo3", "1jn",
  408.                 "2jn", "3jn",
  409.   
  410. !               "1esdras", "2esdras", "tobit", "judith",
  411. !               "additions to esther", "wisdom of solomon",
  412. !               "sirach prologue", "sirach", "letter of _
  413. !               jeremiah", "prayer of azariah", "susanna",
  414. !               "baruch", "prayer of manasseh", "1maccabees",
  415. !               "2maccabees", "3maccabees", "4maccabees",
  416. !               "ps151",
  417. ! 
  418. !               "1esdr", "2esdr", "tob", "jdt", "addesth",
  419. !               "wis", "sirp", "sir", "letjer", "prazar", "suz",
  420. !               "bar", "prman", "1macc", "2macc", "3macc",
  421. !               "4macc", "151",
  422. ! 
  423. !               "song of songs", "solomon", "song of solomon",
  424. ! 
  425. !               "3ezra", "4ezra", "3esdras", "4esdras",
  426. !               "adesth", "prologue", "ecclesiasticus",
  427. !               "ecclus", "epjer", "epistle of jeremiah",
  428. !               "song of three", "song of 3", "s of 3 y",
  429. !               "manasseh", "pss151"]
  430.   
  431.           abbrevtbl := table()
  432.       tmp_names := copy(names)
  433. !     every i := (1 to 66) | (1 to 66) |
  434.           5|7|7|8|9|10|11|12|13|14|29|40|41|42|43|46|
  435.           47|52|53|54|55|57|60|61|62|63|64|62|63|64|
  436. !         (67 to 84) | (67 to 84) | 22|22|22|
  437. !         67|68|67|68|71|73|74|74|75|75|76|76|76|79|84
  438.       do {
  439.           insert(abbrevtbl, get(tmp_names), i)
  440.       }
  441. *** bibleref-1.0/passutil.icn    Sun Jul 14 14:08:01 1991
  442. --- bibleref-new/passutil.icn    Wed Jul 17 03:09:55 1991
  443. ***************
  444. *** 1,6 ****
  445.   ############################################################################
  446.   #
  447. ! #    Name:     1.15
  448.   #
  449.   #    Title:     utilities for displaying passages
  450.   #
  451. --- 1,6 ----
  452.   ############################################################################
  453.   #
  454. ! #    Name:     1.17
  455.   #
  456.   #    Title:     utilities for displaying passages
  457.   #
  458. ***************
  459. *** 70,77 ****
  460.   
  461.       message("Locating text in main file...")
  462.           # Now check to see if the passage is present in the indexed text.
  463. !     text := bitmap_2_text(bitmap, kjv_filename) | fail
  464. ! 
  465.           # Rewrap passage to width characters per line; put them into a list.
  466.       d_list := []
  467.       every put(d_list, rewrap(text, width))
  468. --- 70,79 ----
  469.   
  470.       message("Locating text in main file...")
  471.           # Now check to see if the passage is present in the indexed text.
  472. !     text := bitmap_2_text(bitmap, kjv_filename) | {
  473. !         err_message("No such passage in " || kjv_filename || ".")
  474. !         fail
  475. !     }
  476.           # Rewrap passage to width characters per line; put them into a list.
  477.       d_list := []
  478.       every put(d_list, rewrap(text, width))
  479. ***************
  480. *** 224,230 ****
  481.   
  482.       next_bitmap := NextBitmap(lastone, kjv_filename) | {
  483.       err_message(convertb(lastone, kjv_filename) || " has no successor.")
  484. !     fail
  485.       }
  486.       return next_bitmap
  487.   
  488. --- 226,232 ----
  489.   
  490.       next_bitmap := NextBitmap(lastone, kjv_filename) | {
  491.       err_message(convertb(lastone, kjv_filename) || " has no successor.")
  492. !     return lastone
  493.       }
  494.       return next_bitmap
  495.   
  496. ***************
  497. *** 239,245 ****
  498.   
  499.       prev_bitmap := PrevBitmap(lastone, kjv_filename) | {
  500.       err_message(convertb(lastone, kjv_filename) || " has no predecessor.")
  501. !     fail
  502.       }
  503.       return prev_bitmap
  504.   
  505. --- 241,247 ----
  506.   
  507.       prev_bitmap := PrevBitmap(lastone, kjv_filename) | {
  508.       err_message(convertb(lastone, kjv_filename) || " has no predecessor.")
  509. !     return lastone
  510.       }
  511.       return prev_bitmap
  512.   
  513. *** bibleref-1.0/ref2bmap.icn    Sun Jul 14 14:08:01 1991
  514. --- bibleref-new/ref2bmap.icn    Wed Jul 17 03:09:52 1991
  515. ***************
  516. *** 62,69 ****
  517.       s ? {
  518.   
  519.       # Find book name, convert it to an integer.
  520. !     bookname ||:= tab(any('1234'));    tab(many(' '))
  521. !     bookname ||:= tab(many(&letters)) | fail
  522.       # Fail if the user gives us just a single letter...
  523.       *bookname > 1 | fail
  524.       # ...otherwise, convert book name into the correct value for
  525. --- 62,75 ----
  526.       s ? {
  527.   
  528.       # Find book name, convert it to an integer.
  529. !     bookname ||:= tab(any('1234')) | {
  530. !         (="first",  "1") |
  531. !         (="second", "2") |
  532. !         (="third",  "3") |
  533. !         (="fourth", "4")
  534. !     }
  535. !     tab(many(' '))
  536. !     bookname ||:= trim(tab(many(&letters ++ ' '))) | fail
  537.       # Fail if the user gives us just a single letter...
  538.       *bookname > 1 | fail
  539.       # ...otherwise, convert book name into the correct value for
  540. *** bibleref-1.0/rsv2rtv.icn    Wed Jul 17 02:07:18 1991
  541. --- bibleref-new/rsv2rtv.icn    Wed Jul 17 03:10:16 1991
  542. ***************
  543. *** 0 ****
  544. --- 1,111 ----
  545. + ############################################################################
  546. + #
  547. + #    Name:     rsv2rtv.icn
  548. + #
  549. + #    Title:     RSV -> retrieve format converter
  550. + #
  551. + #    Author:     Richard L. Goerwitz
  552. + #
  553. + #    Version: 1.3
  554. + #
  555. + ############################################################################
  556. + #
  557. + #  Program for converting CCAT RSV biblical texts into retrieve
  558. + #  format.  Reads standard input.  Writes reformatted text to standard
  559. + #  output.  Assumes the specific TLG betacode format for the input
  560. + #  file(s).  If you have an RSV text that has been "tampered" with,
  561. + #  this program may not work correctly.  Note that this program will
  562. + #  probably work for any betacode-based biblical text (though I can't
  563. + #  imagine what good it would be for anything but the RSV).
  564. + #
  565. + ############################################################################
  566. + #
  567. + #  Links: complete.icn ./convertr.icn ./name2num.icn
  568. + #
  569. + ############################################################################
  570. + 
  571. + # link snapshot          # for debugging purposes
  572. + 
  573. + procedure main()
  574. + 
  575. +     local line, verse, firstline
  576. + 
  577. +     # Go to first tilde-initial line.
  578. +     match("~", firstline := !&input)
  579. + 
  580. +     # While you can read lines from stdin...
  581. +     every line := firstline | !&input do {
  582. + 
  583. +     # ...scan them for betacode level-marker lines (which begin
  584. +     # with a tilde).
  585. +     trim(line, '\x09\x0D ') ? {
  586. + 
  587. +         # Housekeeping.
  588. +         tab(many('\t '))    # tab past whitespace (if present)
  589. +         pos(0) & next    # skip past empty lines
  590. + 
  591. +         # If we have a betacode level marker line, then flush the
  592. +         # verse buffer.
  593. +         if ="~" then {
  594. +         tab(many(~&letters))
  595. +         write(trim(\verse))
  596. +         rtvcode := beta2rtv(tab(0)) |
  597. +             stop("rsv2rtv:  Can't parse ", &subject, ".")
  598. +         write("::", \rtvcode)
  599. +         verse := ""
  600. +         }
  601. +         else verse ||:= tab(0) || " "
  602. +     }
  603. +     }
  604. +     write(trim(verse))
  605. +     exit(0)
  606. + 
  607. + end
  608. + 
  609. + 
  610. + 
  611. + procedure beta2rtv(s)
  612. + 
  613. +     local offset, nextfield, nextoffset
  614. +     static location, fields, offsets
  615. +     initial {
  616. +     location := ["","","",0,0]
  617. +     fields   := "abcxy"
  618. +     offsets  := "12345"
  619. +     }
  620. + 
  621. +     s ? {
  622. +     while offset := map(move(1), fields, offsets) do {
  623. + #           # for debugging purposes
  624. + #        snapshot()
  625. +         nextoffset := offset+1
  626. +         nextfield  := fields[nextoffset] | &null
  627. +         location[offset] := {
  628. +         if pos(0) then integer(location[offset])+1 | fail
  629. +         else {
  630. +             case &subject[&pos] of {
  631. +             "\""      : 2(="\"", tab(find("\"")), ="\"")
  632. +             nextfield : integer(location[offset])+1
  633. +             default   : integer(tab(find(\nextfield) | 0))
  634. +             }
  635. +         }
  636. +         } | fail
  637. + 
  638. +         # If the current field is "y" and its value is "t" then
  639. +         # snarf the next input line, and set this field to 0.
  640. +         # The next input line contains a title (the "t").
  641. +         if any('xyz',fields,offset) & location[offset] === "t" then {
  642. +         read(&input)
  643. +         location[offset] := 0
  644. +         return &null
  645. +         }
  646. +         every location[nextoffset to 5] := 1
  647. +         every location[nextoffset to 3] := ""
  648. + #        snapshot()
  649. +     }
  650. +     }
  651. + 
  652. +     pos(0) &
  653. +     return convertr(location[3] ||" "|| location[4] ||":"|| location[5])
  654. + 
  655. + end
  656. *** bibleref-1.0/version.icn    Sun Jul 14 14:08:02 1991
  657. --- bibleref-new/version.icn    Wed Jul 17 03:09:56 1991
  658. ***************
  659. *** 6,12 ****
  660.   #
  661.   #    Author:     Richard L. Goerwitz
  662.   #
  663. ! #    Version: 1.1
  664.   #
  665.   ############################################################################
  666.   #
  667. --- 6,12 ----
  668.   #
  669.   #    Author:     Richard L. Goerwitz
  670.   #
  671. ! #    Version: 1.2
  672.   #
  673.   ############################################################################
  674.   #
  675. ***************
  676. *** 15,19 ****
  677.   ############################################################################
  678.   
  679.   procedure _version()
  680. !     return "Bibleref, version 1.0, patchlevel 0"
  681.   end
  682. --- 15,19 ----
  683.   ############################################################################
  684.   
  685.   procedure _version()
  686. !     return "Bibleref, version 1.0, patchlevel 1"
  687.   end
  688.