opus/sys/modules/opus/input.lua

local Util = require('opus.util')

local keyboard = _G.device and _G.device.keyboard
local keys     = _G.keys
local os       = _G.os

local modifiers = Util.transpose {
	keys.leftCtrl,  keys.rightCtrl,
	keys.leftShift, keys.rightShift,
	keys.leftAlt,   keys.rightAlt,
}

if not keyboard then -- not running under Opus OS
	keyboard = { state = { } }

	local Event = require('opus.event')
	Event.on({ 'key', 'key_up' }, function(event, code)
		if modifiers[code] then
			keyboard.state[code] = event == 'key'
		end
	end)
end

local input = { }

function input:modifierPressed()
	return keyboard.state[keys.leftCtrl] or
				 keyboard.state[keys.rightCtrl] or
				 keyboard.state[keys.leftAlt] or
				 keyboard.state[keys.rightAlt]
end

function input:toCode(ch, code)
	local result = { }

	if not ch and code == 1 then
		ch = 'escape'
	end

	if keyboard.state[keys.leftCtrl] or keyboard.state[keys.rightCtrl] or
		 code == keys.leftCtrl or code == keys.rightCtrl then
		table.insert(result, 'control')
	end

	-- the key-up event for alt keys is not generated if the minecraft
	-- window loses focus

	 if keyboard.state[keys.leftAlt] or keyboard.state[keys.rightAlt] or
	    code == keys.leftAlt or code == keys.rightAlt then
	   table.insert(result, 'alt')
	end

	if keyboard.state[keys.leftShift] or keyboard.state[keys.rightShift] or
		 code == keys.leftShift or code == keys.rightShift then
		if code and modifiers[code] then
			table.insert(result, 'shift')
		elseif #ch == 1 then
			table.insert(result, ch:upper())
		else
			table.insert(result, 'shift')
			table.insert(result, ch)
		end
	elseif not code or not modifiers[code] then
		table.insert(result, ch)
	end

	return table.concat(result, '-')
end

function input:reset()
	self.state = { }

	self.timer = nil
	self.mch = nil
	self.mfired = nil
end

local function isCombo()
	-- allow control-alt combinations for certain keyboards
	return (keyboard.state[keys.leftAlt] or keyboard.state[keys.rightAlt]) and
				 (keyboard.state[keys.leftCtrl] or keyboard.state[keys.rightCtrl])
end

function input:translate(event, code, p1, p2)
	if event == 'key' then
		if p1 then -- key is held down
			if not modifiers[code] then
				local ch = input:toCode(keys.getName(code), code)
				if #ch == 1 then
					return {
						code = 'char',
						ch = ch,
					}
				end
				return { code = ch }
			end
		elseif code then
			local ch = input:toCode(keys.getName(code), code)
			if #ch ~= 1 then
				return { code = ch }
			end
		end

	elseif event == 'char' then
		local combo = isCombo()
		if combo or not (keyboard.state[keys.leftCtrl] or keyboard.state[keys.rightCtrl]) then
			return { code = event, ch = code }
		end

	elseif event == 'paste' then
		if keyboard.state[keys.leftShift] or keyboard.state[keys.rightShift] then
			return { code = 'shift-paste', text = code }
		else
			return { code = 'paste', text = code }
		end

	elseif event == 'mouse_click' then
		local buttons = { 'mouse_click', 'mouse_rightclick' }
		self.mch = buttons[code]
		self.mfired = nil
		return {
			code = input:toCode('mouse_down', 255),
			button = code,
			x = p1,
			y = p2,
		}

	elseif event == 'mouse_drag' then
		self.mfired = true
		return {
			code = input:toCode('mouse_drag', 255),
			button = code,
			x = p1,
			y = p2,
		}

	elseif event == 'mouse_up' then
		if not self.mfired then
			local clock = os.clock()
			if self.timer and
				 p1 == self.x and p2 == self.y and
				 (clock - self.timer < .5) then

				self.mch = 'mouse_doubleclick'
				self.timer = nil
			else
				self.timer = os.clock()
				self.x = p1
				self.y = p2
			end
			self.mfired = input:toCode(self.mch, 255)
		else
			self.mch = 'mouse_up'
			self.mfired = input:toCode(self.mch, 255)
		end
		return {
			code = self.mfired,
			button = code,
			x = p1,
			y = p2,
		}

	elseif event == "mouse_scroll" then
		local directions = {
			[ -1 ] = 'scroll_up',
			[  1 ] = 'scroll_down'
		}
		return {
			code = input:toCode(directions[code], 255),
			x = p1,
			y = p2,
		}

	elseif event == 'terminate' then
		return { code = 'terminate' }
	end
end

function input:test()
	while true do
		local ch = self:translate(os.pullEvent())
		if ch then
			Util.print(ch)
		end
	end
end

return input