2 -- Copyright (C) 2011 Toni Gundogdu <legatvs@gmail.com>
4 -- This file is part of libquvi-scripts <http://quvi.sourceforge.net/>.
6 -- This library is free software; you can redistribute it and/or
7 -- modify it under the terms of the GNU Lesser General Public
8 -- License as published by the Free Software Foundation; either
9 -- version 2.1 of the License, or (at your option) any later version.
11 -- This library is distributed in the hope that it will be useful,
12 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
13 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 -- Lesser General Public License for more details.
16 -- You should have received a copy of the GNU Lesser General Public
17 -- License along with this library; if not, write to the Free Software
18 -- Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
23 -- A modularized version of <http://www.hpelbers.org/lua/utf8>
25 -- convert numeric html entities to utf8
26 -- example: € -> €
30 local char
= string.char
35 n
,r
= math
.floor(n
/0x40), n
%0x40
42 local n
, r
, u
= tonumber(a
)
43 if n
<0x80 then -- 1 byte
45 elseif n
<0x800 then -- 2 byte
47 return char(n
+0xc0) .. u
48 elseif n
<0x10000 then -- 3 byte
50 return char(n
+0xe0) .. u
51 elseif n
<0x200000 then -- 4 byte
53 return char(n
+0xf0) .. u
54 elseif n
<0x4000000 then -- 5 byte
56 return char(n
+0xf8) .. u
59 return char(n
+0xfc) .. u
64 for s in io.lines() do
65 local o = s:gsub('&#(%d+);', M.to_utf8)
72 -- vim: set ts=2 sw=2 tw=72 expandtab: