civetweb/test/html_esc.lua

htmlEscape = {    "☺", "☻", "♥", "♦", "♣", "♠", "•", -- ASCII 1-7 (symbols for control characters, see code page 437)
      "◘", "○", "◙", "♂", "♀", "♪", "♫", "☼", -- ASCII 8-15
      "►", "◄", "↕", "‼", "¶", "§", "▬", "↨", -- ASCII 16-23
      "↑", "↓", "↨", "←", "∟", "→", "▲", "▼", -- ASCII 24-31
      " ",        "!",        """,   "#",        "$",        "%",        "&",    "'",        -- ASCII 32-39
      "(",        ")",        "*",        "+",        ",",        "-",        ".",        "/",        -- ASCII 40-47
      "0",        "1",        "2",        "3",        "4",        "5",        "6",        "7",        -- ASCII 48-55
      "8",        "9",        ":",        ";",        "<",     "=",        ">",     "?",        -- ASCII 56-63
      "@",        "A",        "B",        "C",        "D",        "E",        "F",        "G",        -- ASCII 64-71
      "H",        "I",        "J",        "K",        "L",        "M",        "N",        "O",        -- ASCII 72-79
      "P",        "Q",        "R",        "S",        "T",        "U",        "V",        "W",        -- ASCII 80-87
      "X",        "Y",        "Z",        "[",        "\\",       "]",        "^",        "_",        -- ASCII 88-95
      "`",        "a",        "b",        "c",        "d",        "e",        "f",        "g",        -- ASCII 96-103
      "h",        "i",        "j",        "k",        "l",        "m",        "n",        "o",        -- ASCII 104-111
      "p",        "q",        "r",        "s",        "t",        "u",        "v",        "w",        -- ASCII 112-119
      "x",        "y",        "z",        "{",        "|",        "}",        "~",        "⌂", -- ASCII 120-127
      "Ç", "ü",   "é", "â",  "ä",   "à", "å",  "ç", -- 128-135 (dos code page 850)
      "ê",  "ë",   "è", "ï",   "î",  "ì", "Ä",   "Å",  -- 136-143
      "É", "æ",  "Æ",  "ô",  "ö",   "ò", "û",  "ù", -- 144-151
      "ÿ",   "Ö",   "Ü",   "ø", "£", "Ø", "×", "ƒ", -- 152-159
      "á", "í", "ó", "ú", "ñ", "Ñ", "ª", "º", -- 160-167
      "¿", "®", "¬", "½", "¼", "¡", "«", "»", -- 168-175
      "░", "▒", "▓", "│", "┤", "Á", "Â",  "À", -- 176-183
      "©", "╣", "║", "╗", "╝", "¢",   "¥", "┐", -- 184-191
      "└", "┴", "┬", "├", "─", "┼", "ã", "Ã", -- 192-199
      "╚", "╔", "╩", "╦", "╠", "═", "╬", "¤", -- 200-207
      "ð",    "Ð",    "Ê",  "Ë",   "È", "ı", "Í", "Î",  -- 208-215
      "Ï",   "┘", "┌", "█", "▄", "¦", "Ì", "▀", -- 216-223
      "Ó", "ß",  "Ô",  "Ò", "õ", "Õ", "µ", "þ",  -- 224-231
      "Þ",  "Ú", "Û",  "Ù", "ý", "Ý", "¯", "´", -- 232-239
      "≡",  "±", "‗", "¾", "¶", "§", "÷", "¸", -- 240-247
      "°", "¨", "·", "¹", "³", "²", "■", "□",  -- 248-255 (use empty box for 255)
};
htmlEscape[0] = "·" -- in this table, we use a 8 bit character set, where every has a different graphical representation

-- the conversion table should work as a conversion function for strings as well
setmetatable(htmlEscape, {__call = function (tab,str) return string.gsub(str, ".", function (c) return (tab[c:byte()]) end) end})


function htmlEsc(txt)
    s = txt:gsub("%&", "&")
    s = s:gsub("%<", "&lt;")
	s = s:gsub("%>", "&gt;")
    return (s)
end


function iso8859_1_to_utf8(txt)
    local s = txt:gsub(".",
      function (c)
        local b = c:byte()
        if b < 128 then
          return c
        elseif b < 192 then
          return string.char(194, b)
        else
          return string.char(195, b-64)
        end
      end)
    return s
end