hidmacros.eu

Code: Select all

function write_altcode(altcode)
	lmc_send_input(18, 0, 0);            -- press ALT
	lmc_send_keys(altcode, 10);          -- typing AltCode 
	lmc_sleep(string.len(altcode) * 10); -- wait until all caracters the AltCode has been send/typing
	lmc_send_input(18, 0, 2);            -- release ALT
end;

Code: Select all

function write_text(text)
  if (text == nil) then text = "" end;
  
  local tbl = utf8_explode(tostring(text));
  if (tbl.len > 0) then
    for i, c in pairs(tbl.codepoints) do
      lmc_send_input(0, c, 4) -- press
      lmc_send_input(0, c, 6) -- release
    end;
  end;
end;

--[[ utf8_explode / unicode compatibility
 extract from ustring.lua
 https://github.com/wikimedia/mediawiki-extensions-Scribunto/blob/master/includes/engines/LuaCommon/lualib/ustring/ustring.lua

 A private helper that splits a string into codepoints, and also collects the
 starting position of each character and the total length in codepoints.

 @param s string  utf8-encoded string to decode
 @return table { .len, .codepoints, .bytepos}
]]

function utf8_explode( s )
  local rslt = {
    len = 0,
    codepoints = {},
    bytepos = {},
  }

  local i = 1
  local l = string.len( s )
  local cp, b, b2, trail
  local min
  while i <= l do
    b = string.byte( s, i )
    if b < 0x80 then
      -- 1-byte code point, 00-7F
      cp = b
      trail = 0
      min = 0
    elseif b < 0xc2 then
      -- Either a non-initial code point (invalid here) or
      -- an overlong encoding for a 1-byte code point
      return nil
    elseif b < 0xe0 then
      -- 2-byte code point, C2-DF
      trail = 1
      cp = b - 0xc0
      min = 0x80
    elseif b < 0xf0 then
      -- 3-byte code point, E0-EF
      trail = 2
      cp = b - 0xe0
      min = 0x800
    elseif b < 0xf4 then
      -- 4-byte code point, F0-F3
      trail = 3
      cp = b - 0xf0
      min = 0x10000
    elseif b == 0xf4 then
      -- 4-byte code point, F4
      -- Make sure it doesn't decode to over U+10FFFF
      if string.byte( s, i + 1 ) > 0x8f then
        return nil
      end
      trail = 3
      cp = 4
      min = 0x100000
    else
      -- Code point over U+10FFFF, or invalid byte
      return nil
    end

    -- Check subsequent bytes for multibyte code points
    for j = i + 1, i + trail do
      b = string.byte( s, j )
      if not b or b < 0x80 or b > 0xbf then
        return nil
      end
      cp = cp * 0x40 + b - 0x80
    end
    if cp < min then
      -- Overlong encoding
      return nil
    end

    rslt.codepoints[#rslt.codepoints + 1] = cp
    rslt.bytepos[#rslt.bytepos + 1] = i
    rslt.len = rslt.len + 1
    i = i + 1 + trail
  end

  -- Two past the end (for sub with empty string)
  rslt.bytepos[#rslt.bytepos + 1] = l + 1
  rslt.bytepos[#rslt.bytepos + 1] = l + 1

  return rslt;
end;

Code: Select all

function mp_write_text(text)
	if (text == nil) then text = "" end;
	local tbl = utf8_explode(tostring(text));
	if (tbl.len > 0) then
		for i, c in pairs(tbl.codepoints) do
			mp_unicode_write(c);
		end;
	end;
end;

function mp_unicode_write(codepoint)
	if (codepoint == nil) then codepoint = "" end;
	codepoint = tonumber(codepoint);
	if (codepoint == nil or codepoint < 0 or codepoint >= 0xd800 and codepoint <= 0xdfff or codepoint >= 0x10ffff) then return end;
	
	if (codepoint < 0x10000) then
		lmc_send_input(0, codepoint, 4); -- press
		lmc_send_input(0, codepoint, 6); -- release
	else
		local utf32 = toBits(codepoint, 32)
		print(utf32)
		print("")
		local w = toBits(tonumber(string.sub(utf32, 1, 16), 2) - 1, 4);
		local x = string.sub(utf32, 17, 22);
		local y = string.sub(utf32, 23, 32);
		
		print("110110" .. w .. x)
		print("110111" .. y)
		
		lmc_send_input(0, tonumber("110110" .. w .. x, 2), 4)
		lmc_send_input(0, tonumber("110111" .. y, 2), 4)
		lmc_send_input(0, tonumber("110110" .. w .. x, 2), 6)
		lmc_send_input(0, tonumber("110111" .. y, 2), 6)
	end;
end;

function toBits(num, bits)
	-- returns a table of bits, most significant first.
	bits = bits or math.max(1, select(2, math.frexp(num)))
	local t = {} -- will contain the bits        
	for b = bits, 1, -1 do
		t[b] = math.fmod(num, 2)
		num = math.floor((num - t[b]) / 2)
	end
	return table.concat(t)
end

--[[ utf8_explode / extract from ustring.lua
 https://github.com/wikimedia/mediawiki-extensions-Scribunto/blob/master/includes/engines/LuaCommon/lualib/ustring/ustring.lua

 A private helper that splits a string into codepoints, and also collects the
 starting position of each character and the total length in codepoints.

 @param s string utf8-encoded to decode
 @return table { .len, .codepoints, .bytepos}
]]

function utf8_explode( s )
	local rslt = {
		len = 0,
		codepoints = {},
		bytepos = {},
	};

	local i = 1;
	local l = string.len( s );
	local cp, b, b2, trail;
	local min;
	while i <= l do
	b = string.byte( s, i );
	if b < 0x80 then
		-- 1-byte code point, 00-7F
		cp = b;
		trail = 0;
		min = 0;
	elseif b < 0xc2 then
		-- Either a non-initial code point (invalid here) or
		-- an overlong encoding for a 1-byte code point
		return nil;
	elseif b < 0xe0 then
		-- 2-byte code point, C2-DF
		trail = 1;
		cp = b - 0xc0;
		min = 0x80;
	elseif b < 0xf0 then
		-- 3-byte code point, E0-EF
		trail = 2;
		cp = b - 0xe0;
		min = 0x800;
	elseif b < 0xf4 then
		-- 4-byte code point, F0-F3
		trail = 3;
		cp = b - 0xf0;
		min = 0x10000;
	elseif b == 0xf4 then
		-- 4-byte code point, F4
		-- Make sure it doesn't decode to over U+10FFFF
		if string.byte( s, i + 1 ) > 0x8f then
		return nil;
		end
		trail = 3;
		cp = 4;
		min = 0x100000;
	else
		-- Code point over U+10FFFF, or invalid byte
		return nil;
	end
	
	-- Check subsequent bytes for multibyte code points
	for j = i + 1, i + trail do
		b = string.byte( s, j );
		if not b or b < 0x80 or b > 0xbf then
		return nil;
		end;
		cp = cp * 0x40 + b - 0x80;
	end;
	if cp < min then
		-- Overlong encoding
		return nil;
	end;
	
	rslt.codepoints[#rslt.codepoints + 1] = cp;
	rslt.bytepos[#rslt.bytepos + 1] = i;
	rslt.len = rslt.len + 1;
	i = i + 1 + trail;
	end;
	
	-- Two past the end (for sub with empty string)
	rslt.bytepos[#rslt.bytepos + 1] = l + 1;
	rslt.bytepos[#rslt.bytepos + 1] = l + 1;
	
	return rslt;
end;