💾 Archived View for gemini.conman.org › extensions › port70 › handlers › bible.lua captured on 2021-12-03 at 14:04:38.
⬅️ Previous capture (2020-10-31)
-=-=-=-=-=-=-
-- ***********************************************************************
--
-- Module to display the King James Bible
-- Copyright 2019 by Sean Conner.
--
-- 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, either version 3 of the License, or (at your
-- option) any later version.
--
-- 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.
--
-- You should have received a copy of the GNU General Public License along
-- with this program. If not, see <http://www.gnu.org/licenses/>.
--
-- Comments, questions and criticisms can be sent to: sean@conman.org
-- ***********************************************************************
-- luacheck: globals init handler
-- luacheck: ignore 611
local soundex = require "org.conman.parsers.soundex"
local metaphone = require "org.conman.string".metaphone
local wrapt = require "org.conman.string".wrapt
local lpeg = require "lpeg"
local readfile = require "port70.readfile"
local mklink = require "port70.mklink"
local io = require "io"
local math = require "math"
local string = require "string"
local table = require "table"
local tonumber = tonumber
_ENV = {}
-- ***********************************************************************
local ABBR , BOOKS , SOUNDEX , METAPHONE do
local entry = lpeg.C(lpeg.R("AZ","az","09")^1)
* lpeg.S" \t"^0 * lpeg.P"," * lpeg.S" \t"^0
* lpeg.C(lpeg.R("AZ","az","09")^1)
ABBR = {}
BOOKS = {}
SOUNDEX = {}
METAPHONE = {}
function init(conf)
for line in io.lines(conf.books) do
local abbr,book = entry:match(line)
local s = soundex:match(book)
local m = metaphone(book)
ABBR[abbr] = book
BOOKS[book] = true
SOUNDEX[s] = book
METAPHONE[m] = book
end
return true
end
end
-- ***********************************************************************
local parse do
local Cb = lpeg.Cb
local Cc = lpeg.Cc
local Cg = lpeg.Cg
local Ct = lpeg.Ct
local P = lpeg.P
local R = lpeg.R
-- G G.1:1-999:999
-- G.a G.a:1-a:999
-- G.a:b G.a:b-a:b
-- G.a:b-x G.a:b-a:x
-- G.a-c G.a:1-c:999
-- G.a-c:d G.a:1-c:d
-- G.a:b-c:d G.a:b-c:d
local num = R"09"^1 / tonumber
local book = Cg(R("AZ","az","09")^1,'book')
* Cg(Cc( 1),'cb') * Cg(Cc( 1),'vb') -- starting chapter/book
* Cg(Cc(999),'ce') * Cg(Cc(999),'ve') -- ending chapter/book
local start = P"." * Cg(num,'cb')
* Cg(Cb'cb','ce')
* (
P":" * Cg(num,'vb')
* (
(#(P"-" * R"09"^1 * P(-1)) * P"-" * Cg(num,'ve'))
+ Cg(Cb'vb','ve')
)
)^-1
local stop = P"-" * Cg(num,'ce')
* (P":" * Cg(num,'ve'))^-1
parse = Ct(book * (start * stop^-1)^-1) * P(-1)
end
-- ***********************************************************************
local function request(query)
local r = parse:match(query)
if not r then return end
if ABBR[r.book] then
r.book = ABBR[r.book]
return r
end
if not BOOKS[r.book] then
local s = soundex:match(r.book)
if SOUNDEX[s] then
r.book = SOUNDEX[s]
return r
end
local m = metaphone(r.book)
if METAPHONE[m] then
r.book = METAPHONE[m]
return r
end
else
return r
end
end
-- ***********************************************************************
function handler(conf,req,ios)
if req.rest == "" then
return readfile(conf.index,conf.extension,conf,nil,ios)
end
local r = request(req.rest)
if not r then
ios:write(mklink { type = 'error' , display = "Selector not found" , selector = req.selector .. req.rest })
return false
end
-- ================================================
local function write(fmt,...)
ios:write(string.format(fmt,...))
end
-- ================================================
local function readint(file)
local c = file:read(1) -- trigger EOF
if c then
return c:byte()
+ file:read(1):byte() * 2^8
+ file:read(1):byte() * 2^16
+ file:read(1):byte() * 2^24
end
end
-- ================================================
local function show_chapter(chapter,low,high)
local index = io.open(string.format("%s/%s/%d.index",conf.verses,r.book,chapter),"rb")
if not index then return end
local verse = io.open(string.format("%s/%s/%d",conf.verses,r.book,chapter),"r")
local max = math.min(high,readint(index))
high = math.min(high,max)
index:seek('set',low * 4)
local start = readint(index)
verse:seek('set',start)
local hdr = string.format("Chapter %d",chapter)
write("\n%s%s\n\n",string.rep(" ",40 - #hdr // 2),hdr)
for v = low , high do
local stop = readint(index)
local len = stop - start
local text = verse:read(len)
local wt = wrapt(text,60)
start = stop
write("%3d. %s\n",v,table.concat(wt,"\n "))
end
index:close()
verse:close()
end
-- ================================================
write("%s%s\n",string.rep(" ",40 - #r.book // 2),r.book)
for chapter = r.cb , r.ce do
local vb
local ve
if chapter == r.cb then
vb = r.vb
else
vb = 1
end
if chapter == r.ce then
ve = r.ve
else
ve = 999
end
show_chapter(chapter,vb,ve)
end
return true
end
-- ***********************************************************************
return _ENV