added alt detection to keyboard input parser

Author: RaphGL

input.odin

@@ -1,9 +1,9 @@
 package termcl
 
-import "core:strconv"
-import "core:unicode"
 import "core:fmt"
 import "core:os"
+import "core:strconv"
+import "core:unicode"
 
 Input :: distinct []byte
 
@@ -151,195 +151,198 @@ check what value it is processed into.
 For example, `.Escape` is either Esc, Ctrl + [ and Ctrl + 3 to the terminal.
 */
 parse_keyboard_input :: proc(input: Input) -> (keyboard_input: Keyboard_Input, has_input: bool) {
-	input := input
-	seq: Keyboard_Input
-
-	if len(input) == 0 do return
-
-	if len(input) == 1 {
-		input_rune := cast(rune)input[0]
-		if unicode.is_upper(input_rune) {
-			seq.mod = .Shift
-		}
-
-		if unicode.is_control(input_rune) {
-			switch input_rune {
-			case '\r',
-			     '\n',
-			     '\b',
-			     127, /* backspace */
-			     '\t',
-			     '\x1b':
-			case:
-				seq.mod = .Ctrl
-				input[0] += 64
-			}
-		}
-
-		switch input[0] {
+	_alnum_to_key :: proc(b: byte) -> (key: Key, ok: bool) {
+		switch b {
 		case '\x1b':
-			seq.key = .Escape
+			key = .Escape
 		case '1':
-			seq.key = .Num_1
+			key = .Num_1
 		case '2':
-			seq.key = .Num_2
+			key = .Num_2
 		case '3':
-			seq.key = .Num_3
+			key = .Num_3
 		case '4':
-			seq.key = .Num_4
+			key = .Num_4
 		case '5':
-			seq.key = .Num_5
+			key = .Num_5
 		case '6':
-			seq.key = .Num_6
+			key = .Num_6
 		case '7':
-			seq.key = .Num_7
+			key = .Num_7
 		case '8':
-			seq.key = .Num_8
+			key = .Num_8
 		case '9':
-			seq.key = .Num_9
+			key = .Num_9
 		case '0':
-			seq.key = .Num_0
+			key = .Num_0
 		case '\r', '\n':
-			seq.key = .Enter
+			key = .Enter
 		case '\t':
-			seq.key = .Tab
+			key = .Tab
 		case 8, 127:
-			seq.key = .Backspace
+			key = .Backspace
 		case 'a', 'A':
-			seq.key = .A
+			key = .A
 		case 'b', 'B':
-			seq.key = .B
+			key = .B
 		case 'c', 'C':
-			seq.key = .C
+			key = .C
 		case 'd', 'D':
-			seq.key = .D
+			key = .D
 		case 'e', 'E':
-			seq.key = .E
+			key = .E
 		case 'f', 'F':
-			seq.key = .F
+			key = .F
 		case 'g', 'G':
-			seq.key = .G
+			key = .G
 		case 'h', 'H':
-			seq.key = .H
+			key = .H
 		case 'i', 'I':
-			seq.key = .I
+			key = .I
 		case 'j', 'J':
-			seq.key = .J
+			key = .J
 		case 'k', 'K':
-			seq.key = .K
+			key = .K
 		case 'l', 'L':
-			seq.key = .L
+			key = .L
 		case 'm', 'M':
-			seq.key = .M
+			key = .M
 		case 'n', 'N':
-			seq.key = .N
+			key = .N
 		case 'o', 'O':
-			seq.key = .O
+			key = .O
 		case 'p', 'P':
-			seq.key = .P
+			key = .P
 		case 'q', 'Q':
-			seq.key = .Q
+			key = .Q
 		case 'r', 'R':
-			seq.key = .R
+			key = .R
 		case 's', 'S':
-			seq.key = .S
+			key = .S
 		case 't', 'T':
-			seq.key = .T
+			key = .T
 		case 'u', 'U':
-			seq.key = .U
+			key = .U
 		case 'v', 'V':
-			seq.key = .V
+			key = .V
 		case 'w', 'W':
-			seq.key = .W
+			key = .W
 		case 'x', 'X':
-			seq.key = .X
+			key = .X
 		case 'y', 'Y':
-			seq.key = .Y
+			key = .Y
 		case 'z', 'Z':
-			seq.key = .Z
+			key = .Z
 		case ',':
-			seq.key = .Comma
+			key = .Comma
 		case ':':
-			seq.key = .Colon
+			key = .Colon
 		case ';':
-			seq.key = .Semicolon
+			key = .Semicolon
 		case '-':
-			seq.key = .Minus
+			key = .Minus
 		case '+':
-			seq.key = .Plus
+			key = .Plus
 		case '=':
-			seq.key = .Equal
+			key = .Equal
 		case '{':
-			seq.key = .Open_Curly_Bracket
+			key = .Open_Curly_Bracket
 		case '}':
-			seq.key = .Close_Curly_Bracket
+			key = .Close_Curly_Bracket
 		case '(':
-			seq.key = .Open_Paren
+			key = .Open_Paren
 		case ')':
-			seq.key = .Close_Paren
+			key = .Close_Paren
 		case '[':
-			seq.key = .Open_Square_Bracket
+			key = .Open_Square_Bracket
 		case ']':
-			seq.key = .Close_Square_Bracket
+			key = .Close_Square_Bracket
 		case '/':
-			seq.key = .Slash
+			key = .Slash
 		case '\'':
-			seq.key = .Single_Quote
+			key = .Single_Quote
 		case '"':
-			seq.key = .Double_Quote
+			key = .Double_Quote
 		case '.':
-			seq.key = .Period
+			key = .Period
 		case '*':
-			seq.key = .Asterisk
+			key = .Asterisk
 		case '`':
-			seq.key = .Backtick
+			key = .Backtick
 		case '\\':
-			seq.key = .Backslash
+			key = .Backslash
 		case ' ':
-			seq.key = .Space
+			key = .Space
 		case '$':
-			seq.key = .Dollar
+			key = .Dollar
 		case '!':
-			seq.key = .Exclamation
+			key = .Exclamation
 		case '#':
-			seq.key = .Hash
+			key = .Hash
 		case '%':
-			seq.key = .Percent
+			key = .Percent
 		case '&':
-			seq.key = .Ampersand
+			key = .Ampersand
 		case '´':
-			seq.key = .Tick
+			key = .Tick
 		case '_':
-			seq.key = .Underscore
+			key = .Underscore
 		case '^':
-			seq.key = .Caret
+			key = .Caret
 		case '|':
-			seq.key = .Pipe
+			key = .Pipe
 		case '@':
-			seq.key = .At
+			key = .At
 		case '~':
-			seq.key = .Tilde
+			key = .Tilde
 		case '<':
-			seq.key = .Less_Than
+			key = .Less_Than
 		case '>':
-			seq.key = .Greater_Than
+			key = .Greater_Than
 		case '?':
-			seq.key = .Question_Mark
+			key = .Question_Mark
 		case:
+			ok = false
 			return
 		}
 
-		return seq, true
+		ok = true
+		return
 	}
 
-	if input[0] != '\x1b' do return
+	input := input
+	seq: Keyboard_Input
+
+	if len(input) == 0 do return
+
+	if len(input) == 1 {
+		input_rune := cast(rune)input[0]
+		if unicode.is_upper(input_rune) {
+			seq.mod = .Shift
+		}
+
+		if unicode.is_control(input_rune) {
+			switch input_rune {
+			case '\r',
+			     '\n',
+			     '\b',
+			     127, /* backspace */
+			     '\t',
+			     '\x1b':
+			case:
+				seq.mod = .Ctrl
+				input[0] += 64
+			}
+		}
 
-	if input[1] == 10 {
-		seq.mod = .Alt
-		seq.key = .Enter
+		key, ok := _alnum_to_key(input[0])
+		if !ok do return {}, false
+		seq.key = key
 		return seq, true
 	}
 
+	if input[0] != '\x1b' do return
+
 	if len(input) > 3 {
 		input_len := len(input)
 
@@ -488,6 +491,16 @@ parse_keyboard_input :: proc(input: Input) -> (keyboard_input: Keyboard_Input, h
 		return seq, true
 	}
 
+	// alt is ESC + <char>
+	if len(input) == 2 {
+		key, ok := _alnum_to_key(input[1])
+		if ok {
+			seq.mod = .Alt
+			seq.key = key
+			return seq, true
+		}
+	}
+
 	return
 }