You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
2.6 KiB
90 lines
2.6 KiB
-- -----------------------------------------------------------------------------
|
|
-- -- MIME support for the Lua language.
|
|
-- -- Author: Diego Nehab
|
|
-- -- Conforming to RFCs 2045-2049
|
|
-- -----------------------------------------------------------------------------
|
|
|
|
-- -----------------------------------------------------------------------------
|
|
-- -- Declare module and import dependencies
|
|
-- -----------------------------------------------------------------------------
|
|
-- local base = _G
|
|
-- local ltn12 = require("ltn12")
|
|
-- local mime = require("mime.core")
|
|
-- local io = require("io")
|
|
-- local string = require("string")
|
|
-- local _M = mime
|
|
|
|
-- -- encode, decode and wrap algorithm tables
|
|
-- local encodet, decodet, wrapt = {},{},{}
|
|
|
|
-- _M.encodet = encodet
|
|
-- _M.decodet = decodet
|
|
-- _M.wrapt = wrapt
|
|
|
|
-- -- creates a function that chooses a filter by name from a given table
|
|
-- local function choose(table)
|
|
-- return function(name, opt1, opt2)
|
|
-- if base.type(name) ~= "string" then
|
|
-- name, opt1, opt2 = "default", name, opt1
|
|
-- end
|
|
-- local f = table[name or "nil"]
|
|
-- if not f then
|
|
-- base.error("unknown key (" .. base.tostring(name) .. ")", 3)
|
|
-- else return f(opt1, opt2) end
|
|
-- end
|
|
-- end
|
|
|
|
-- -- define the encoding filters
|
|
-- encodet['base64'] = function()
|
|
-- return ltn12.filter.cycle(_M.b64, "")
|
|
-- end
|
|
|
|
-- encodet['quoted-printable'] = function(mode)
|
|
-- return ltn12.filter.cycle(_M.qp, "",
|
|
-- (mode == "binary") and "=0D=0A" or "\r\n")
|
|
-- end
|
|
|
|
-- -- define the decoding filters
|
|
-- decodet['base64'] = function()
|
|
-- return ltn12.filter.cycle(_M.unb64, "")
|
|
-- end
|
|
|
|
-- decodet['quoted-printable'] = function()
|
|
-- return ltn12.filter.cycle(_M.unqp, "")
|
|
-- end
|
|
|
|
-- local function format(chunk)
|
|
-- if chunk then
|
|
-- if chunk == "" then return "''"
|
|
-- else return string.len(chunk) end
|
|
-- else return "nil" end
|
|
-- end
|
|
|
|
-- -- define the line-wrap filters
|
|
-- wrapt['text'] = function(length)
|
|
-- length = length or 76
|
|
-- return ltn12.filter.cycle(_M.wrp, length, length)
|
|
-- end
|
|
-- wrapt['base64'] = wrapt['text']
|
|
-- wrapt['default'] = wrapt['text']
|
|
|
|
-- wrapt['quoted-printable'] = function()
|
|
-- return ltn12.filter.cycle(_M.qpwrp, 76, 76)
|
|
-- end
|
|
|
|
-- -- function that choose the encoding, decoding or wrap algorithm
|
|
-- _M.encode = choose(encodet)
|
|
-- _M.decode = choose(decodet)
|
|
-- _M.wrap = choose(wrapt)
|
|
|
|
-- -- define the end-of-line normalization filter
|
|
-- function _M.normalize(marker)
|
|
-- return ltn12.filter.cycle(_M.eol, 0, marker)
|
|
-- end
|
|
|
|
-- -- high level stuffing filter
|
|
-- function _M.stuff()
|
|
-- return ltn12.filter.cycle(_M.dot, 2)
|
|
-- end
|
|
|
|
-- return _M
|