\ cv.txt for Jenny Brien  Leo Wong 30 March 02003 fyj +
\ Give chapter and verse of any phrase in the King James bible
\ Uses ot.xml and nt.xm from:
\ http://www.ibiblio.org/xml/examples/religion/
\ See usage example at the end of this file

include from.txt

from jenx.txt

S" xml\ot.xml" string ot
S" xml\nt.xml" string nt

CREATE CurrentBook 84 CHARS ALLOT
CREATE CurrentChapter 84 CHARS ALLOT
CREATE CurrentVerse 1 k* CHARS ALLOT
CREATE Phrase 256 CHARS ALLOT

: .Verse  ( n -- )
    CurrentBook COUNT CR CR TYPE SPACE
    CurrentChapter COUNT <word TYPE 2DROP .c :  0 U.R
    cBuff @+ CR TYPE  KEY DROP ;

' -cBuff many: aliases  p chtitle bktshort ; DROP

: /chtitle  ( n -- 0 )  cBuff @+ CurrentChapter place  DROP 0 ;
: /bktshort   ( -- )  cBuff @+ CurrentBook place ;
: v   ( n -- n+1 )  -cBuff 1+ ;
: /v  ( n -- n )
   cBuff @+ CurrentVerse $place
   CurrentVerse @+ 2DUP supper  Phrase COUNT sscan NIP
     IF DUP .Verse THEN ;

: cv  ( -- )  \ cv <phrase>
   0 PARSE 2DUP supper Phrase place
   ot INCLUDED  nt INCLUDED ;

\ Usage example:
\ cv prove all things