-- ***********************************************************************
--
-- Module to genmerate a B-movie plot.
-- 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 handler
-- luacheck: ignore 611
local randomseed = require "org.conman.math".randomseed
local str = require "org.conman.string"
local abnf = require "org.conman.parsers.abnf"
local lpeg = require "lpeg"
local io = require "io"
local math = require "math"
local string = require "string"
local table = require "table"
local ipairs = ipairs
local require = require
local tonumber = tonumber
local _VERSION = _VERSION
if _VERSION == "Lua 5.1" then
module("movie")
else
_ENV = {}
end
-- ***********************************************************************
local FILES do
local function readlist(filename)
local list = {}
for line in io.lines(filename) do
table.insert(list,line)
end
return list
end
-- ===========================================================
local filename = require "CONFIG".movie
local f = io.open(filename,"r")
local data = f:read("*a")
f:close()
local Carg = lpeg.Carg
local Cc = lpeg.Cc
local Cg = lpeg.Cg
local Cs = lpeg.Cs
local Ct = lpeg.Ct
local P = lpeg.P
local R = lpeg.R
local token = R"!~"^1
local cmd = P"BaseDir:" * abnf.WSP^0 * Cg(token,'basedir') * abnf.CRLF
+ P"Male-Names:" * abnf.WSP^0 * Cg(token,'males') * abnf.CRLF
+ P"Female-Names:" * abnf.WSP^0 * Cg(token,'females') * abnf.CRLF
+ P"Family-Names:" * abnf.WSP^0 * Cg(token,'family') * abnf.CRLF
+ P"Adjectives:" * abnf.WSP^0 * Cg(token,'adjective') * abnf.CRLF
+ P"Mission:" * abnf.WSP^0 * Cg(token,'mission') * abnf.CRLF
+ P"Occupation:" * abnf.WSP^0 * Cg(token,'occupation') * abnf.CRLF
+ P"Double-Mission:" * abnf.WSP^0 * Cg(token,'dmission') * abnf.CRLF
+ P"Template:" * abnf.WSP^0 * Cg(token,'template') * abnf.CRLF
+ R" ~"^0 * abnf.CRLF
local parser = Ct(cmd^0)
local rebase = Cs((-P"/" * Carg(1) * Cc'/')^-1 * P(1)^1)
FILES = parser:match(data)
FILES.males = readlist(rebase:match(FILES.males, 1,FILES.basedir))
FILES.females = readlist(rebase:match(FILES.females, 1,FILES.basedir))
FILES.family = readlist(rebase:match(FILES.family, 1,FILES.basedir))
FILES.adjective = readlist(rebase:match(FILES.adjective, 1,FILES.basedir))
FILES.mission = readlist(rebase:match(FILES.mission, 1,FILES.basedir))
FILES.occupation = readlist(rebase:match(FILES.occupation,1,FILES.basedir))
FILES.dmission = readlist(rebase:match(FILES.dmission, 1,FILES.basedir))
end
-- ***********************************************************************
local function pick_unique(list)
local p1,p2
p1 = list[math.random(#list)]
repeat
p2 = list[math.random(#list)]
until p1 ~= p2
return { p1 , p2 }
end
-- ***********************************************************************
local article = lpeg.S"BCDFGHJKLMNPQRSTVWXYZbcdfghjklmnpqrstvwxyz" / "a"
+ lpeg.P"one" / "a"
+ lpeg.Cc'an'
function handler(req)
local config = require "CONFIG"
local handler = require "handler"
local seed = randomseed(tonumber(req))
local bytes = 0
local function write(fmt,...)
local s = string.format(fmt,...)
io.stdout:write(s)
bytes = bytes + #s
end
local hero = pick_unique(FILES.males)
local heroine = pick_unique(FILES.females)
local lastname = pick_unique(FILES.family)
local madj = pick_unique(FILES.adjective)
local fadj = pick_unique(FILES.adjective)
local occupation = pick_unique(FILES.occupation)
local mission = pick_unique(FILES.mission)
local title = FILES.dmission[math.random(#FILES.dmission)]
local man = str.template(
string.format(
"%s %s %s is %s %s %s %s %s",
hero[1],hero[2],lastname[1],
article:match(madj[1]),madj[1],madj[2],
occupation[1],
mission[1]
),
{ his = "his" , her = "his" , he = "he" , she = "he" }
)
local woman = str.template(
string.format(
"%s %s %s is %s %s %s %s %s",
heroine[1],heroine[2],lastname[2],
article:match(fadj[1]),fadj[1],fadj[2],
occupation[2],
mission[2]
),
{ his = "her" , her = "her" , he = "she" , she = "she" }
)
local story = string.format("%s %s And together, they must %s",man,woman,title)
local output = str.wrapt(story,68)
write(handler.INFO { handler.INFO , "" })
write(handler.INFO { handler.INFO , " -- The Quick and Dirty B-Movie Plot Generator --" })
write(handler.INFO { handler.INFO , "" })
write(handler.INFO { handler.INFO , "Only the finest script writers were hired to come up with thie plot:" })
write(handler.INFO { handler.INFO , "" })
for _,line in ipairs(output) do
write(handler.INFO { handler.INFO , line })
end
write(handler.INFO { handler.INFO , "" })
local port do
if config.interface.port == 70 then
port = ""
else
port = string.format(":%d",config.interface.port)
end
end
local selector = string.format("Movie:%u",seed)
local url = string.format("gopher://%s%s/1%s",config.interface.hostname,port,selector)
write(handler.INFO { handler.INFO , "Link for this B-Movie Plot:" })
write(handler.DIR { handler.DIR , url , selector })
return bytes
end
-- ***********************************************************************
if _VERSION >= "Lua 5.2" then
return _ENV
end