summaryrefslogtreecommitdiffstats
path: root/apps/plugins/lua/include_lua/create_kbd_layout.lua
blob: 3d8f343cc9ebc1285a28695b537c524f99e7cab5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
--create keyboard layout
--BILGUS 4/2021
-- kbdlayout = require("create_kbd_layout")
-- local layout = kbdlayout.create_keyboard_layout("abcd")
local _kbdlayout = {} do

    local function encode_short(n)
        return string.char(bit.band(0x00FF, n), bit.rshift(bit.band(0xFF00, n), 8))
    end

    local function utf8decode(str)
        local INVALID = 0xfffd
        local t = {}
        local function check_char(c)
            local tail = false
            local code
            c = string.byte(c)
            if (c <= 0x7f) or (c >= 0xc2) then
                -- Start of new character
                if (c < 0x80) then        -- U-00000000 - U-0000007F, 1 string.byte
                    code = c;
                elseif (c < 0xe0) then   -- U-00000080 - U-000007FF, 2 string.bytes
                    tail = 1;
                    code = bit.band(c, 0x1f)
                elseif (c < 0xf0) then   -- U-00000800 - U-0000FFFF, 3 string.bytes
                    tail = 2;
                    code = bit.band(c, 0x0f)
                elseif (c < 0xf5) then -- U-00010000 - U-001FFFFF, 4 string.bytes
                    tail = 3;
                    code = bit.band(c, 0x07)
                else
                    -- Invalid size
                    code = 0xfffd;
                end

                while tail and c ~= 0 do
                    tail = tail - 1
                    if bit.band(c, 0xc0) == 0x80 then
                        -- Valid continuation character
                        code = bit.bor(bit.lshift(code, 6),bit.band(c, 0x3f))
                    else
                        -- Invalid continuation char
                        code = INVALID;
                        break;
                    end
                end
            else
                -- Invalid UTF-8 char
                code = INVALID;
            end
            -- currently we don't support chars above U-FFFF
            t[#t + 1 ] = encode_short((code < 0x10000) and code or 0xfffd)
        end
        str:gsub(".", check_char) -- run check function for every char
        return table.concat(t)
    end

    local function create_keyboard_layout(s_layout)
        local insert = table.insert
        lines = {}

        local t={}
        for str in string.gmatch(s_layout, "([^\n]+)") do
            local len = string.len(str)
            lines[#lines + 1] =
            table.concat({encode_short(len), utf8decode(str)})
        end
        lines[#lines + 1] = encode_short(0xFEFF)

        return table.concat(lines)
    end
    _kbdlayout.create_keyboard_layout = create_keyboard_layout
    _kbdlayout.utf8decode = utf8decode
end


--[[
local name = "Test_KBD_LAYOUT_" .. tostring(1)
local test = _kbdlayout.create_keyboard_layout("ABCDEFGHIJKLM\nNOPQRSTUVWXYZ\n0123456789")
local file = io.open('/' .. name, "w+") -- overwrite, rb ignores the 'b' flag
file:write(test)-- write the layout to the file now
file:close()

if not file then
    rb.splash(rb.HZ, "Error opening /" .. name)
    return
end
rb.kbd_input(name, test)
]]
return _kbdlayout