blob: 3c62a3dd41a5c6137dd6da81348aeac79baf3859 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(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")))))))
|
