| 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 convertion 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("%<", "<") | |
| return s:gsub("%>", ">") | |
| 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 |