mods/sign/encoding.lua

   1 -- encoding borrowed from signs_lib fork at https://github.com/lord-server/lord
   2
   3 local ansi_decode = {
   4       [128] = "\208\130",
   5       [129] = "\208\131",
   6       [130] = "\226\128\154",
   7       [131] = "\209\147",
   8       [132] = "\226\128\158",
   9       [133] = "\226\128\166",
  10       [134] = "\226\128\160",
  11       [135] = "\226\128\161",
  12       [136] = "\226\130\172",
  13       [137] = "\226\128\176",
  14       [138] = "\208\137",
  15       [139] = "\226\128\185",
  16       [140] = "\208\138",
  17       [141] = "\208\140",
  18       [142] = "\208\139",
  19       [143] = "\208\143",
  20       [144] = "\209\146",
  21       [145] = "\226\128\152",
  22       [146] = "\226\128\153",
  23       [147] = "\226\128\156",
  24       [148] = "\226\128\157",
  25       [149] = "\226\128\162",
  26       [150] = "\226\128\147",
  27       [151] = "\226\128\148",
  28       [152] = "\194\152",
  29       [153] = "\226\132\162",
  30       [154] = "\209\153",
  31       [155] = "\226\128\186",
  32       [156] = "\209\154",
  33       [157] = "\209\156",
  34       [158] = "\209\155",
  35       [159] = "\209\159",
  36       [160] = "\194\160",
  37       [161] = "\209\142",
  38       [162] = "\209\158",
  39       [163] = "\208\136",
  40       [164] = "\194\164",
  41       [165] = "\210\144",
  42       [166] = "\194\166",
  43       [167] = "\194\167",
  44       [168] = "\208\129",
  45       [169] = "\194\169",
  46       [170] = "\208\132",
  47       [171] = "\194\171",
  48       [172] = "\194\172",
  49       [173] = "\194\173",
  50       [174] = "\194\174",
  51       [175] = "\208\135",
  52       [176] = "\194\176",
  53       [177] = "\194\177",
  54       [178] = "\208\134",
  55       [179] = "\209\150",
  56       [180] = "\210\145",
  57       [181] = "\194\181",
  58       [182] = "\194\182",
  59       [183] = "\194\183",
  60       [184] = "\209\145",
  61       [185] = "\226\132\150",
  62       [186] = "\209\148",
  63       [187] = "\194\187",
  64       [188] = "\209\152",
  65       [189] = "\208\133",
  66       [190] = "\209\149",
  67       [191] = "\209\151"
  68 }
  69 local utf8_decode = {
  70       [128] = {
  71             [147] = "\150",
  72             [148] = "\151",
  73             [152] = "\145",
  74             [153] = "\146",
  75             [154] = "\130",
  76             [156] = "\147",
  77             [157] = "\148",
  78             [158] = "\132",
  79             [160] = "\134",
  80             [161] = "\135",
  81             [162] = "\149",
  82             [166] = "\133",
  83             [176] = "\137",
  84             [185] = "\139",
  85             [186] = "\155"
  86       },
  87       [130] = {[172] = "\136"},
  88       [132] = {[150] = "\185", [162] = "\153"},
  89       [194] = {
  90             [152] = "\152",
  91             [160] = "\160",
  92             [164] = "\164",
  93             [166] = "\166",
  94             [167] = "\167",
  95             [169] = "\169",
  96             [171] = "\171",
  97             [172] = "\172",
  98             [173] = "\173",
  99             [174] = "\174",
 100             [176] = "\176",
 101             [177] = "\177",
 102             [181] = "\181",
 103             [182] = "\182",
 104             [183] = "\183",
 105             [187] = "\187"
 106       },
 107       [208] = {
 108             [129] = "\168",
 109             [130] = "\128",
 110             [131] = "\129",
 111             [132] = "\170",
 112             [133] = "\189",
 113             [134] = "\178",
 114             [135] = "\175",
 115             [136] = "\163",
 116             [137] = "\138",
 117             [138] = "\140",
 118             [139] = "\142",
 119             [140] = "\141",
 120             [143] = "\143",
 121             [144] = "\192",
 122             [145] = "\193",
 123             [146] = "\194",
 124             [147] = "\195",
 125             [148] = "\196",
 126             [149] = "\197",
 127             [150] = "\198",
 128             [151] = "\199",
 129             [152] = "\200",
 130             [153] = "\201",
 131             [154] = "\202",
 132             [155] = "\203",
 133             [156] = "\204",
 134             [157] = "\205",
 135             [158] = "\206",
 136             [159] = "\207",
 137             [160] = "\208",
 138             [161] = "\209",
 139             [162] = "\210",
 140             [163] = "\211",
 141             [164] = "\212",
 142             [165] = "\213",
 143             [166] = "\214",
 144             [167] = "\215",
 145             [168] = "\216",
 146             [169] = "\217",
 147             [170] = "\218",
 148             [171] = "\219",
 149             [172] = "\220",
 150             [173] = "\221",
 151             [174] = "\222",
 152             [175] = "\223",
 153             [176] = "\224",
 154             [177] = "\225",
 155             [178] = "\226",
 156             [179] = "\227",
 157             [180] = "\228",
 158             [181] = "\229",
 159             [182] = "\230",
 160             [183] = "\231",
 161             [184] = "\232",
 162             [185] = "\233",
 163             [186] = "\234",
 164             [187] = "\235",
 165             [188] = "\236",
 166             [189] = "\237",
 167             [190] = "\238",
 168             [191] = "\239"
 169       },
 170       [209] = {
 171             [128] = "\240",
 172             [129] = "\241",
 173             [130] = "\242",
 174             [131] = "\243",
 175             [132] = "\244",
 176             [133] = "\245",
 177             [134] = "\246",
 178             [135] = "\247",
 179             [136] = "\248",
 180             [137] = "\249",
 181             [138] = "\250",
 182             [139] = "\251",
 183             [140] = "\252",
 184             [141] = "\253",
 185             [142] = "\254",
 186             [143] = "\255",
 187             [144] = "\161",
 188             [145] = "\184",
 189             [146] = "\144",
 190             [147] = "\131",
 191             [148] = "\186",
 192             [149] = "\190",
 193             [150] = "\179",
 194             [151] = "\191",
 195             [152] = "\188",
 196             [153] = "\154",
 197             [154] = "\156",
 198             [155] = "\158",
 199             [156] = "\157",
 200             [158] = "\162",
 201             [159] = "\159"
 202       },
 203       [210] = {[144] = "\165", [145] = "\180"}
 204 }
 205
 206 local nmdc = {
 207       [36] = "$",
 208       [124] = "|"
 209 }
 210
 211 function AnsiToUtf8(s)
 212       local r, b = ""
 213       for i = 1, s and s:len() or 0 do
 214             b = s:byte(i)
 215             if b < 128 then
 216                   r = r .. string.char(b)
 217             else
 218                   if b > 239 then
 219                         r = r .. "\209" .. string.char(b - 112)
 220                   elseif b > 191 then
 221                         r = r .. "\208" .. string.char(b - 48)
 222                   elseif ansi_decode[b] then
 223                         r = r .. ansi_decode[b]
 224                   else
 225                         r = r .. "_"
 226                   end
 227             end
 228       end
 229       return r
 230 end
 231
 232 function Utf8ToAnsi(s)
 233       local a, j, r, b = 0, 0, ""
 234       for i = 1, s and s:len() or 0 do
 235             b = s:byte(i)
 236             if b < 128 then
 237                   if nmdc[b] then
 238                         r = r .. nmdc[b]
 239                   else
 240                         r = r .. string.char(b)
 241                   end
 242             elseif a == 2 then
 243                   a, j = a - 1, b
 244             elseif a == 1 then
 245                   --if j == nil or b == nil then return r end
 246                   --print(j)
 247                   --print(b)
 248                   --local ansi = utf8_decode[j]
 249                   --if ansi == nil then return r end
 250                   --if ansi[b] == nil then return r end
 251                   if utf8_decode[j] then
 252                         if utf8_decode[j][b] then
 253                               a, r = a - 1, r .. utf8_decode[j][b]
 254                         end
 255                   end
 256             elseif b == 226 then
 257                   a = 2
 258             elseif b == 194 or b == 208 or b == 209 or b == 210 then
 259                   j, a = b, 1
 260             else
 261                   r = r .. "_"
 262             end
 263       end
 264       return r
 265 end