markov-scm/kjv2delimited.scm

31 lines
1.1 KiB
Scheme
Raw Normal View History

2024-09-13 22:48:27 -04:00
(import sql-de-lite)
(define (!= x y)
(not (= x y)))
(with-output-to-file "kjv.txt"
(lambda ()
(call-with-database "bible-sqlite.db"
(lambda (db)
(let ((previous-book 0)
(previous-chapter 0)
(previous-verse 0))
(query (for-each-row
(lambda (row)
(let ((book (car row))
(chapter (cadr row))
(verse (caddr row))
(text (cadddr row)))
(when (!= book previous-book)
(display "startofbook\n"))
(when (!= chapter previous-chapter)
(display "startofchapter\n"))
(when (!= verse previous-verse)
(display "startofverse\n"))
(set! previous-book book)
(set! previous-chapter chapter)
(set! previous-verse verse)
(display text)
(newline))))
(sql db "select b,c,v,t from t_kjv")))))))