0000: 2d 2d 5b 5b 20 c2 a9 32 30 31 32 20 54 61 6e 67 --[[ ..2012 Tang
0010: 65 6e 74 31 32 38 0a 0a 50 65 72 6d 69 73 73 69 ent128..Permissi
0020: 6f 6e 20 69 73 20 68 65 72 65 62 79 20 67 72 61 on is hereby gra
0030: 6e 74 65 64 2c 20 66 72 65 65 20 6f 66 20 63 68 nted, free of ch
0040: 61 72 67 65 2c 20 74 6f 20 61 6e 79 20 70 65 72 arge, to any per
0050: 73 6f 6e 20 6f 62 74 61 69 6e 69 6e 67 20 61 20 son obtaining a
0060: 63 6f 70 79 20 6f 66 0a 74 68 69 73 20 73 6f 66 copy of.this sof
0070: 74 77 61 72 65 20 61 6e 64 20 61 73 73 6f 63 69 tware and associ
0080: 61 74 65 64 20 64 6f 63 75 6d 65 6e 74 61 74 69 ated documentati
0090: 6f 6e 20 66 69 6c 65 73 20 28 74 68 65 20 22 53 on files (the "S
00a0: 6f 66 74 77 61 72 65 22 29 2c 20 74 6f 20 64 65 oftware"), to de
00b0: 61 6c 20 69 6e 0a 74 68 65 20 53 6f 66 74 77 61 al in.the Softwa
00c0: 72 65 20 77 69 74 68 6f 75 74 20 72 65 73 74 72 re without restr
00d0: 69 63 74 69 6f 6e 2c 20 69 6e 63 6c 75 64 69 6e iction, includin
00e0: 67 20 77 69 74 68 6f 75 74 20 6c 69 6d 69 74 61 g without limita
00f0: 74 69 6f 6e 20 74 68 65 20 72 69 67 68 74 73 20 tion the rights
0100: 74 6f 0a 75 73 65 2c 20 63 6f 70 79 2c 20 6d 6f to.use, copy, mo
0110: 64 69 66 79 2c 20 6d 65 72 67 65 2c 20 70 75 62 dify, merge, pub
0120: 6c 69 73 68 2c 20 64 69 73 74 72 69 62 75 74 65 lish, distribute
0130: 2c 20 73 75 62 6c 69 63 65 6e 73 65 2c 20 61 6e , sublicense, an
0140: 64 2f 6f 72 20 73 65 6c 6c 20 63 6f 70 69 65 73 d/or sell copies
0150: 0a 6f 66 20 74 68 65 20 53 6f 66 74 77 61 72 65 .of the Software
0160: 2c 20 61 6e 64 20 74 6f 20 70 65 72 6d 69 74 20 , and to permit
0170: 70 65 72 73 6f 6e 73 20 74 6f 20 77 68 6f 6d 20 persons to whom
0180: 74 68 65 20 53 6f 66 74 77 61 72 65 20 69 73 20 the Software is
0190: 66 75 72 6e 69 73 68 65 64 20 74 6f 0a 64 6f 20 furnished to.do
01a0: 73 6f 2c 20 73 75 62 6a 65 63 74 20 74 6f 20 74 so, subject to t
01b0: 68 65 20 43 6f 6e 64 69 74 69 6f 6e 73 20 6f 66 he Conditions of
01c0: 20 74 68 65 20 4d 49 54 20 4c 69 63 65 6e 73 65 the MIT License
01d0: 20 61 73 20 73 70 65 63 69 66 69 65 64 20 68 65 as specified he
01e0: 72 65 3a 0a 68 74 74 70 3a 2f 2f 6f 70 65 6e 73 re:.http://opens
01f0: 6f 75 72 63 65 2e 6f 72 67 2f 6c 69 63 65 6e 73 ource.org/licens
0200: 65 73 2f 4d 49 54 0a 2d 2d 5d 5d 0a 0a 2d 2d 20 es/MIT.--]]..--
0210: 6d 6f 64 75 6c 65 20 66 6f 72 20 65 61 73 79 20 module for easy
0220: 70 72 6f 64 75 63 74 69 6f 6e 20 6f 66 20 48 54 production of HT
0230: 4d 4c 20 76 69 61 20 4c 75 61 20 74 61 62 6c 65 ML via Lua table
0240: 20 63 6f 6e 73 74 72 75 63 74 6f 72 73 0a 2d 2d constructors.--
0250: 20 6e 69 63 65 20 75 73 61 67 65 20 70 61 74 74 nice usage patt
0260: 65 72 6e 3a 0a 2d 2d 5b 5b 0a 6c 6f 63 61 6c 20 ern:.--[[.local
0270: 68 74 6d 6c 75 61 20 3d 20 72 65 71 75 69 72 65 htmlua = require
0280: 22 70 61 74 68 2e 74 6f 2e 68 74 6d 6c 75 61 22 "path.to.htmlua"
0290: 2e 6e 65 77 28 29 0a 6c 6f 63 61 6c 20 72 65 73 .new().local res
02a0: 75 6c 74 0a 2d 2d 20 73 65 74 20 75 73 65 72 44 ult.-- set userD
02b0: 61 74 61 2c 20 68 74 6d 6c 44 61 74 61 0a 64 6f ata, htmlData.do
02c0: 20 5f 45 4e 56 20 3d 20 68 74 6d 6c 75 61 0a 09 _ENV = htmlua..
02d0: 72 65 73 75 6c 74 20 3d 20 68 74 6d 6c 7b 0a 09 result = html{..
02e0: 09 68 65 61 64 20 7b 0a 09 09 09 74 69 74 6c 65 .head {....title
02f0: 20 22 50 61 67 65 22 0a 09 09 7d 2c 0a 09 09 62 "Page"...},...b
0300: 6f 64 79 20 7b 0a 09 09 09 64 69 76 2e 63 6c 61 ody {....div.cla
0310: 73 73 20 7b 0a 09 09 09 09 70 20 7b 0a 09 09 09 ss {.....p {....
0320: 09 09 22 55 73 65 72 20 64 61 74 61 3a 20 22 2c .."User data: ",
0330: 20 75 73 65 72 44 61 74 61 2c 20 22 20 28 65 73 userData, " (es
0340: 63 61 70 65 64 29 22 0a 09 09 09 09 7d 2c 0a 09 caped)".....},..
0350: 09 09 09 70 2e 63 6c 61 73 73 20 7b 0a 09 09 09 ...p.class {....
0360: 09 09 22 52 61 77 20 48 54 4d 4c 3a 20 22 2c 20 .."Raw HTML: ",
0370: 72 61 77 48 54 4d 4c 28 68 74 6d 6c 44 61 74 61 rawHTML(htmlData
0380: 29 0a 09 09 09 09 7d 0a 09 09 09 7d 0a 09 09 7d ).....}....}...}
0390: 0a 09 7d 0a 65 6e 64 0a 2d 2d 20 75 73 65 20 74 ..}.end.-- use t
03a0: 6f 73 74 72 69 6e 67 28 72 65 73 75 6c 74 29 0a ostring(result).
03b0: 0a 2d 2d 5d 5d 0a 0a 6c 6f 63 61 6c 20 63 6f 6e .--]]..local con
03c0: 63 61 74 2c 20 74 6f 73 74 72 69 6e 67 2c 20 73 cat, tostring, s
03d0: 74 72 69 6e 67 20 3d 20 74 61 62 6c 65 2e 63 6f tring = table.co
03e0: 6e 63 61 74 2c 20 74 6f 73 74 72 69 6e 67 2c 20 ncat, tostring,
03f0: 73 74 72 69 6e 67 0a 6c 6f 63 61 6c 20 73 65 74 string.local set
0400: 6d 65 74 61 74 61 62 6c 65 2c 20 67 65 74 6d 65 metatable, getme
0410: 74 61 74 61 62 6c 65 2c 20 70 61 69 72 73 2c 20 tatable, pairs,
0420: 74 79 70 65 20 3d 20 73 65 74 6d 65 74 61 74 61 type = setmetata
0430: 62 6c 65 2c 20 67 65 74 6d 65 74 61 74 61 62 6c ble, getmetatabl
0440: 65 2c 20 70 61 69 72 73 2c 20 74 79 70 65 0a 0a e, pairs, type..
0450: 6c 6f 63 61 6c 20 5f 45 4e 56 20 3d 20 7b 7d 0a local _ENV = {}.
0460: 0a 6c 6f 63 61 6c 20 67 65 6e 5f 6d 74 2c 20 74 .local gen_mt, t
0470: 61 67 5f 6d 74 2c 20 73 61 66 65 5f 6d 74 2c 20 ag_mt, safe_mt,
0480: 67 65 6e 48 54 4d 4c 2c 20 73 61 66 65 48 54 4d genHTML, safeHTM
0490: 4c 2c 20 65 73 63 61 70 65 48 54 4d 4c 2c 20 72 L, escapeHTML, r
04a0: 61 77 48 54 4d 4c 0a 0a 2d 2d 20 63 72 65 61 74 awHTML..-- creat
04b0: 65 20 48 54 4d 4c 20 66 72 6f 6d 20 61 20 74 61 e HTML from a ta
04c0: 62 6c 65 0a 66 75 6e 63 74 69 6f 6e 20 67 65 6e ble.function gen
04d0: 48 54 4d 4c 28 74 61 67 2c 20 63 6f 6e 74 65 6e HTML(tag, conten
04e0: 74 29 0a 09 0a 09 2d 2d 20 63 6f 6e 76 65 6e 69 t)....-- conveni
04f0: 65 6e 63 65 3b 20 63 61 6e 20 63 61 6c 6c 20 77 ence; can call w
0500: 69 74 68 20 74 61 62 6c 65 20 6f 72 20 73 74 72 ith table or str
0510: 69 6e 67 20 70 61 72 61 6d 65 74 65 72 0a 09 69 ing parameter..i
0520: 66 20 74 79 70 65 28 63 6f 6e 74 65 6e 74 29 20 f type(content)
0530: 3d 3d 20 22 73 74 72 69 6e 67 22 20 74 68 65 6e == "string" then
0540: 0a 09 09 72 65 74 75 72 6e 20 67 65 6e 48 54 4d ...return genHTM
0550: 4c 28 74 61 67 2c 20 7b 63 6f 6e 74 65 6e 74 7d L(tag, {content}
0560: 29 0a 09 65 6e 64 0a 09 0a 09 6c 6f 63 61 6c 20 )..end....local
0570: 6e 61 6d 65 20 3d 20 74 61 67 2e 5f 6e 61 6d 65 name = tag._name
0580: 0a 09 6c 6f 63 61 6c 20 74 61 67 43 6c 61 73 73 ..local tagClass
0590: 20 3d 20 74 61 67 2e 5f 63 6c 61 73 73 0a 09 0a = tag._class...
05a0: 09 63 6f 6e 74 65 6e 74 2e 63 6c 61 73 73 20 3d .content.class =
05b0: 20 63 6f 6e 74 65 6e 74 2e 63 6c 61 73 73 20 61 content.class a
05c0: 6e 64 20 28 28 74 61 67 43 6c 61 73 73 20 6f 72 nd ((tagClass or
05d0: 20 22 20 22 29 20 2e 2e 20 63 6f 6e 74 65 6e 74 " ") .. content
05e0: 2e 63 6c 61 73 73 29 20 6f 72 20 74 61 67 43 6c .class) or tagCl
05f0: 61 73 73 20 6f 72 20 6e 69 6c 0a 09 0a 09 6c 6f ass or nil....lo
0600: 63 61 6c 20 61 74 74 54 61 62 6c 65 20 3d 20 7b cal attTable = {
0610: 7d 0a 09 6c 6f 63 61 6c 20 62 6f 64 79 54 61 62 }..local bodyTab
0620: 6c 65 20 3d 20 7b 7d 0a 09 66 6f 72 20 6b 2c 76 le = {}..for k,v
0630: 20 69 6e 20 70 61 69 72 73 28 63 6f 6e 74 65 6e in pairs(conten
0640: 74 29 20 64 6f 0a 09 09 6c 6f 63 61 6c 20 74 20 t) do...local t
0650: 3d 20 74 79 70 65 28 6b 29 0a 09 09 69 66 20 74 = type(k)...if t
0660: 20 3d 3d 20 22 73 74 72 69 6e 67 22 20 74 68 65 == "string" the
0670: 6e 0a 09 09 09 61 74 74 54 61 62 6c 65 5b 23 61 n....attTable[#a
0680: 74 74 54 61 62 6c 65 20 2b 20 31 5d 20 3d 20 28 ttTable + 1] = (
0690: 27 25 73 3d 22 25 73 22 27 29 3a 66 6f 72 6d 61 '%s="%s"'):forma
06a0: 74 28 6b 2c 73 61 66 65 48 54 4d 4c 28 76 29 29 t(k,safeHTML(v))
06b0: 0a 09 09 65 6c 73 65 69 66 20 74 20 3d 3d 20 22 ...elseif t == "
06c0: 6e 75 6d 62 65 72 22 20 74 68 65 6e 0a 09 09 09 number" then....
06d0: 62 6f 64 79 54 61 62 6c 65 5b 23 62 6f 64 79 54 bodyTable[#bodyT
06e0: 61 62 6c 65 20 2b 20 31 5d 20 3d 20 73 61 66 65 able + 1] = safe
06f0: 48 54 4d 4c 28 76 29 0a 09 09 65 6e 64 0a 09 65 HTML(v)...end..e
0700: 6e 64 0a 09 0a 09 6c 6f 63 61 6c 20 61 74 74 73 nd....local atts
0710: 20 3d 20 63 6f 6e 63 61 74 28 61 74 74 54 61 62 = concat(attTab
0720: 6c 65 2c 20 22 20 22 29 0a 09 69 66 20 23 61 74 le, " ")..if #at
0730: 74 73 20 3e 20 30 20 74 68 65 6e 20 61 74 74 73 ts > 0 then atts
0740: 20 3d 20 22 20 22 20 2e 2e 20 61 74 74 73 20 65 = " " .. atts e
0750: 6e 64 0a 09 0a 09 6c 6f 63 61 6c 20 62 6f 64 79 nd....local body
0760: 20 3d 20 63 6f 6e 63 61 74 28 62 6f 64 79 54 61 = concat(bodyTa
0770: 62 6c 65 29 0a 09 0a 09 6c 6f 63 61 6c 20 68 74 ble)....local ht
0780: 6d 6c 20 3d 20 28 22 3c 25 73 25 73 3e 25 73 3c ml = ("<%s%s>%s<
0790: 2f 25 73 3e 22 29 3a 66 6f 72 6d 61 74 28 6e 61 /%s>"):format(na
07a0: 6d 65 2c 20 61 74 74 73 2c 20 62 6f 64 79 2c 20 me, atts, body,
07b0: 6e 61 6d 65 29 0a 09 0a 09 72 65 74 75 72 6e 20 name)....return
07c0: 72 61 77 48 54 4d 4c 28 68 74 6d 6c 29 0a 09 0a rawHTML(html)...
07d0: 65 6e 64 0a 0a 2d 2d 20 61 75 74 6f 63 72 65 61 end..-- autocrea
07e0: 74 65 73 20 63 61 6c 6c 61 62 6c 65 20 74 61 62 tes callable tab
07f0: 6c 65 73 20 74 68 61 74 20 67 65 6e 65 72 61 74 les that generat
0800: 65 20 48 54 4d 4c 20 66 6f 72 20 61 20 74 61 67 e HTML for a tag
0810: 0a 67 65 6e 5f 6d 74 20 3d 20 7b 0a 09 5f 5f 69 .gen_mt = {..__i
0820: 6e 64 65 78 20 3d 20 66 75 6e 63 74 69 6f 6e 28 ndex = function(
0830: 63 6f 6e 74 65 78 74 2c 20 6e 61 6d 65 29 0a 09 context, name)..
0840: 09 6c 6f 63 61 6c 20 74 61 67 20 3d 20 73 65 74 .local tag = set
0850: 6d 65 74 61 74 61 62 6c 65 28 7b 0a 09 09 09 5f metatable({...._
0860: 6e 61 6d 65 20 3d 20 6e 61 6d 65 2c 0a 09 09 09 name = name,....
0870: 5f 63 6c 61 73 73 20 3d 20 66 61 6c 73 65 0a 09 _class = false..
0880: 09 7d 2c 20 74 61 67 5f 6d 74 29 0a 09 09 63 6f .}, tag_mt)...co
0890: 6e 74 65 78 74 5b 6e 61 6d 65 5d 20 3d 20 74 61 ntext[name] = ta
08a0: 67 0a 09 09 72 65 74 75 72 6e 20 74 61 67 0a 09 g...return tag..
08b0: 65 6e 64 0a 7d 0a 0a 2d 2d 20 6d 61 6b 65 20 63 end.}..-- make c
08c0: 61 6c 6c 61 62 6c 65 20 48 54 4d 4c 20 67 65 6e allable HTML gen
08d0: 65 72 61 74 69 6e 67 20 74 61 62 6c 65 73 2c 20 erating tables,
08e0: 77 68 69 63 68 20 63 61 6e 20 62 65 20 61 75 74 which can be aut
08f0: 6f 69 6e 64 65 78 65 64 0a 2d 2d 20 66 6f 72 20 oindexed.-- for
0900: 76 65 72 73 69 6f 6e 73 20 77 68 69 63 68 20 61 versions which a
0910: 75 74 6f 61 64 64 20 63 6c 61 73 73 20 61 74 74 utoadd class att
0920: 72 69 62 75 74 65 73 0a 74 61 67 5f 6d 74 20 3d ributes.tag_mt =
0930: 20 7b 0a 09 5f 5f 63 61 6c 6c 20 3d 20 67 65 6e {..__call = gen
0940: 48 54 4d 4c 2c 0a 09 5f 5f 69 6e 64 65 78 20 3d HTML,..__index =
0950: 20 66 75 6e 63 74 69 6f 6e 28 74 61 67 2c 20 63 function(tag, c
0960: 6c 61 73 73 29 0a 09 09 6c 6f 63 61 6c 20 6f 6c lass)...local ol
0970: 64 43 6c 61 73 73 20 3d 20 74 61 67 2e 5f 63 6c dClass = tag._cl
0980: 61 73 73 20 6f 72 20 22 22 0a 09 09 0a 09 09 6c ass or ""......l
0990: 6f 63 61 6c 20 74 61 67 57 69 74 68 43 6c 61 73 ocal tagWithClas
09a0: 73 20 3d 20 73 65 74 6d 65 74 61 74 61 62 6c 65 s = setmetatable
09b0: 28 7b 0a 09 09 09 5f 6e 61 6d 65 20 3d 20 74 61 ({...._name = ta
09c0: 67 2e 5f 6e 61 6d 65 2c 0a 09 09 09 5f 63 6c 61 g._name,...._cla
09d0: 73 73 20 3d 20 6f 6c 64 43 6c 61 73 73 20 2e 2e ss = oldClass ..
09e0: 20 22 20 22 20 2e 2e 20 63 6c 61 73 73 0a 09 09 " " .. class...
09f0: 7d 2c 20 74 61 67 5f 6d 74 29 0a 09 09 0a 09 09 }, tag_mt)......
0a00: 74 61 67 5b 63 6c 61 73 73 5d 20 3d 20 74 61 67 tag[class] = tag
0a10: 57 69 74 68 43 6c 61 73 73 0a 09 09 72 65 74 75 WithClass...retu
0a20: 72 6e 20 74 61 67 57 69 74 68 43 6c 61 73 73 0a rn tagWithClass.
0a30: 09 65 6e 64 0a 7d 0a 0a 2d 2d 20 6d 61 6b 65 20 .end.}..-- make
0a40: 6f 62 6a 65 63 74 20 74 68 61 74 20 77 72 61 70 object that wrap
0a50: 73 20 61 20 73 74 72 69 6e 67 20 6b 6e 6f 77 6e s a string known
0a60: 20 74 6f 20 62 65 20 73 61 66 65 20 48 54 4d 4c to be safe HTML
0a70: 0a 73 61 66 65 5f 6d 74 20 3d 20 7b 0a 09 5f 5f .safe_mt = {..__
0a80: 74 6f 73 74 72 69 6e 67 20 3d 20 66 75 6e 63 74 tostring = funct
0a90: 69 6f 6e 28 73 65 6c 66 29 0a 09 09 72 65 74 75 ion(self)...retu
0aa0: 72 6e 20 73 65 6c 66 2e 68 74 6d 6c 0a 09 65 6e rn self.html..en
0ab0: 64 0a 7d 0a 0a 66 75 6e 63 74 69 6f 6e 20 72 61 d.}..function ra
0ac0: 77 48 54 4d 4c 28 68 74 6d 6c 29 0a 09 69 66 20 wHTML(html)..if
0ad0: 74 79 70 65 28 68 74 6d 6c 29 20 3d 3d 20 22 73 type(html) == "s
0ae0: 74 72 69 6e 67 22 20 74 68 65 6e 0a 09 09 72 65 tring" then...re
0af0: 74 75 72 6e 20 73 65 74 6d 65 74 61 74 61 62 6c turn setmetatabl
0b00: 65 28 7b 0a 09 09 09 68 74 6d 6c 20 3d 20 68 74 e({....html = ht
0b10: 6d 6c 0a 09 09 7d 2c 20 73 61 66 65 5f 6d 74 29 ml...}, safe_mt)
0b20: 0a 09 65 6c 73 65 0a 09 09 72 65 74 75 72 6e 0a ..else...return.
0b30: 09 65 6e 64 0a 65 6e 64 0a 0a 2d 2d 20 67 65 74 .end.end..-- get
0b40: 20 70 72 69 6e 74 61 62 6c 65 20 48 54 4d 4c 2c printable HTML,
0b50: 20 65 73 63 61 70 69 6e 67 20 75 6e 6c 65 73 73 escaping unless
0b60: 20 6d 61 72 6b 65 64 20 74 6f 20 62 65 20 75 73 marked to be us
0b70: 65 64 20 72 61 77 0a 66 75 6e 63 74 69 6f 6e 20 ed raw.function
0b80: 73 61 66 65 48 54 4d 4c 28 74 65 78 74 29 0a 09 safeHTML(text)..
0b90: 69 66 20 67 65 74 6d 65 74 61 74 61 62 6c 65 28 if getmetatable(
0ba0: 74 65 78 74 29 20 3d 3d 20 73 61 66 65 5f 6d 74 text) == safe_mt
0bb0: 20 74 68 65 6e 0a 09 09 72 65 74 75 72 6e 20 74 then...return t
0bc0: 65 78 74 2e 68 74 6d 6c 0a 09 65 6e 64 0a 09 0a ext.html..end...
0bd0: 09 72 65 74 75 72 6e 20 65 73 63 61 70 65 48 54 .return escapeHT
0be0: 4d 4c 28 74 65 78 74 29 0a 65 6e 64 0a 0a 2d 2d ML(text).end..--
0bf0: 20 61 6c 77 61 79 73 20 65 73 63 61 70 65 20 48 always escape H
0c00: 54 4d 4c 20 63 6f 6e 74 65 6e 74 0a 66 75 6e 63 TML content.func
0c10: 74 69 6f 6e 20 65 73 63 61 70 65 48 54 4d 4c 28 tion escapeHTML(
0c20: 74 65 78 74 29 0a 09 2d 2d 20 65 73 63 61 70 65 text)..-- escape
0c30: 20 73 70 65 63 69 61 6c 20 63 68 61 72 73 20 28 special chars (
0c40: 3c 2c 20 3e 2c 20 22 2c 20 61 6e 64 20 26 29 0a <, >, ", and &).
0c50: 09 2d 2d 20 64 6f 75 62 6c 65 20 71 75 6f 74 65 .-- double quote
0c60: 73 20 61 72 65 20 61 73 73 75 6d 65 64 20 66 6f s are assumed fo
0c70: 72 20 61 74 74 72 69 62 75 74 65 73 0a 09 74 65 r attributes..te
0c80: 78 74 20 3d 20 74 6f 73 74 72 69 6e 67 28 74 65 xt = tostring(te
0c90: 78 74 29 3a 67 73 75 62 28 22 26 22 2c 20 22 26 xt):gsub("&", "&
0ca0: 61 6d 70 3b 22 29 0a 09 74 65 78 74 20 3d 20 74 amp;")..text = t
0cb0: 65 78 74 3a 67 73 75 62 28 22 3c 22 2c 20 22 26 ext:gsub("<", "&
0cc0: 6c 74 3b 22 29 0a 09 74 65 78 74 20 3d 20 74 65 lt;")..text = te
0cd0: 78 74 3a 67 73 75 62 28 22 3e 22 2c 20 22 26 67 xt:gsub(">", "&g
0ce0: 74 3b 22 29 0a 09 74 65 78 74 20 3d 20 74 65 78 t;")..text = tex
0cf0: 74 3a 67 73 75 62 28 27 22 27 2c 20 22 26 71 75 t:gsub('"', "&qu
0d00: 6f 74 3b 22 29 0a 09 0a 09 2d 2d 20 75 6e 65 73 ot;")....-- unes
0d10: 63 61 70 65 20 6e 75 6d 65 72 69 63 20 65 6e 74 cape numeric ent
0d20: 69 74 69 65 73 20 61 6e 64 20 65 78 70 6c 69 63 ities and explic
0d30: 69 74 20 26 61 6d 70 3b 0a 09 2d 2d 20 64 69 73 it &..-- dis
0d40: 61 62 6c 65 64 20 64 75 65 20 74 6f 20 65 78 70 abled due to exp
0d50: 65 63 74 65 64 20 63 6f 6e 66 75 73 69 6f 6e 2c ected confusion,
0d60: 20 62 65 6c 6f 6e 67 73 20 65 6c 73 65 77 68 65 belongs elsewhe
0d70: 72 65 0a 09 2d 2d 5b 5b 20 20 20 74 65 78 74 20 re..--[[ text
0d80: 3d 20 74 65 78 74 3a 67 73 75 62 28 22 26 61 6d = text:gsub("&am
0d90: 70 3b 23 28 78 25 78 2b 29 3b 22 2c 20 22 26 23 p;#(x%x+);", "&#
0da0: 25 31 3b 22 29 0a 09 74 65 78 74 20 3d 20 74 65 %1;")..text = te
0db0: 78 74 3a 67 73 75 62 28 22 26 61 6d 70 3b 23 28 xt:gsub("&#(
0dc0: 25 64 2b 29 3b 22 2c 20 22 26 23 25 31 3b 22 29 %d+);", "&#%1;")
0dd0: 0a 09 74 65 78 74 20 3d 20 74 65 78 74 3a 67 73 ..text = text:gs
0de0: 75 62 28 22 26 61 6d 70 3b 61 6d 70 3b 22 2c 20 ub("&amp;",
0df0: 22 26 61 6d 70 3b 22 29 20 20 20 20 20 5d 5d 0a "&") ]].
0e00: 09 0a 09 72 65 74 75 72 6e 20 74 65 78 74 0a 65 ...return text.e
0e10: 6e 64 0a 0a 2d 2d 20 63 6f 6e 73 74 72 75 63 74 nd..-- construct
0e20: 20 6e 65 77 20 63 6f 6e 74 65 78 74 0a 66 75 6e new context.fun
0e30: 63 74 69 6f 6e 20 6e 65 77 28 29 0a 09 72 65 74 ction new()..ret
0e40: 75 72 6e 20 73 65 74 6d 65 74 61 74 61 62 6c 65 urn setmetatable
0e50: 28 7b 0a 09 09 72 61 77 48 54 4d 4c 20 3d 20 72 ({...rawHTML = r
0e60: 61 77 48 54 4d 4c 2c 0a 09 09 73 61 66 65 48 54 awHTML,...safeHT
0e70: 4d 4c 20 3d 20 73 61 66 65 48 54 4d 4c 2c 0a 09 ML = safeHTML,..
0e80: 09 65 73 63 61 70 65 48 54 4d 4c 20 3d 20 65 73 .escapeHTML = es
0e90: 63 61 70 65 48 54 4d 4c 2c 0a 09 7d 2c 20 67 65 capeHTML,..}, ge
0ea0: 6e 5f 6d 74 29 0a 65 6e 64 0a 0a 72 65 74 75 72 n_mt).end..retur
0eb0: 6e 20 5f 45 4e 56 0a 0a n _ENV..