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