FilesExpand file tree

 master

/

mime.lua

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

executable file

·

87 lines (74 loc) · 2.38 KB

 master

/

mime.lua

Copy path

Top

File metadata and controls

• Code
• Blame

executable file

·

87 lines (74 loc) · 2.38 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

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

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

-----------------------------------------------------------------------------

-- MIME support for the Lua language.

-- Author: Diego Nehab

-- Conforming to RFCs 2045-2049

-- RCS ID: $Id: mime.lua,v 1.29 2007/06/11 23:44:54 diego Exp $

-----------------------------------------------------------------------------

-----------------------------------------------------------------------------

-- 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")

module("mime")

-- encode, decode and wrap algorithm tables

encodet = {}

decodet = {}

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(b64, "")

end

encodet['quoted-printable'] = function(mode)

return ltn12.filter.cycle(qp, "",

(mode == "binary") and "=0D=0A" or "\r\n")

end

-- define the decoding filters

decodet['base64'] = function()

return ltn12.filter.cycle(unb64, "")

end

decodet['quoted-printable'] = function()

return ltn12.filter.cycle(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(wrp, length, length)

end

wrapt['base64'] = wrapt['text']

wrapt['default'] = wrapt['text']

wrapt['quoted-printable'] = function()

return ltn12.filter.cycle(qpwrp, 76, 76)

end

-- function that choose the encoding, decoding or wrap algorithm

encode = choose(encodet)

decode = choose(decodet)

wrap = choose(wrapt)

-- define the end-of-line normalization filter

function normalize(marker)

return ltn12.filter.cycle(eol, 0, marker)

end

-- high level stuffing filter

function stuff()

return ltn12.filter.cycle(dot, 2)

end