forked from len0rd/rockbox
lua -- temp loader
fix a few bugs, improve memory usage Change-Id: I6ceefd033000a6178eab0dd513679b5d72cec81c
This commit is contained in:
William Wilgus
parent
15ad1c42db
commit
adff45ca21
7 changed files with 233 additions and 99 deletions
|
|
@ -1,82 +1,99 @@
|
|||
--[[
|
||||
/***************************************************************************
|
||||
* __________ __ ___.
|
||||
* Open \______ \ ____ ____ | | _\_ |__ _______ ___
|
||||
* Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ /
|
||||
* Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < <
|
||||
* Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \
|
||||
* \/ \/ \/ \/ \/
|
||||
* $Id$
|
||||
*
|
||||
* Copyright (C) 2021 William Wilgus
|
||||
*
|
||||
* This program is free software; you can redistribute it and/or
|
||||
* modify it under the terms of the GNU General Public License
|
||||
* as published by the Free Software Foundation; either version 2
|
||||
* of the License, or (at your option) any later version.
|
||||
*
|
||||
* This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY
|
||||
* KIND, either express or implied.
|
||||
*
|
||||
****************************************************************************/
|
||||
]]
|
||||
--create keyboard layout
|
||||
--BILGUS 4/2021
|
||||
-- kbdlayout = require("create_kbd_layout")
|
||||
-- local layout = kbdlayout.create_keyboard_layout("abcd")
|
||||
local _kbdlayout = {} do
|
||||
-- create_kbd_layout = require("create_kbd_layout")
|
||||
-- local layout = create_kbd_layout("abcd")
|
||||
|
||||
local function encode_short(n)
|
||||
return string.char(bit.band(0x00FF, n), bit.rshift(bit.band(0xFF00, n), 8))
|
||||
end
|
||||
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
|
||||
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 UTF-8 char
|
||||
-- Invalid size
|
||||
code = INVALID;
|
||||
end
|
||||
-- currently we don't support chars above U-FFFF
|
||||
t[#t + 1 ] = encode_short((code < 0x10000) and code or 0xfffd)
|
||||
|
||||
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
|
||||
str:gsub(".", check_char) -- run check function for every char
|
||||
return table.concat(t)
|
||||
-- currently we don't support chars above U-FFFF
|
||||
t[#t + 1 ] = encode_short((code < 0x10000) and code or INVALID)
|
||||
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 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)
|
||||
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
|
||||
_kbdlayout.create_keyboard_layout = create_keyboard_layout
|
||||
_kbdlayout.utf8decode = utf8decode
|
||||
lines[#lines + 1] = encode_short(0xFEFF)
|
||||
|
||||
return table.concat(lines)
|
||||
end
|
||||
|
||||
|
||||
--[[
|
||||
local name = "Test_KBD_LAYOUT_" .. tostring(1)
|
||||
local test = _kbdlayout.create_keyboard_layout("ABCDEFGHIJKLM\nNOPQRSTUVWXYZ\n0123456789")
|
||||
local test = 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()
|
||||
|
|
@ -87,4 +104,4 @@ if not file then
|
|||
end
|
||||
rb.kbd_input(name, test)
|
||||
]]
|
||||
return _kbdlayout
|
||||
return create_keyboard_layout
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue