FEAT: preliminary support for char based input on Posix

Author: Oldes

src/boot/sysobj.reb

@@ -507,6 +507,8 @@ view: object [
 		focus
 		unfocus
 		scroll
+
+		control ;; used to pass control key events to a console port
 	]
 	event-keys: [
 		; Event types. Order dependent for C and REBOL.
@@ -533,6 +535,9 @@ view: object [
 		f10
 		f11
 		f12
+		paste-start  ;; Bracketed paste turned on - https://cirw.in/blog/bracketed-paste
+		paste-end    ;; Bracketed paste turned off
+		escape       ;; Escape key
 	]
 ]
 

src/core/t-event.c

@@ -265,8 +265,20 @@
 		goto is_none;
 
 	case SYM_KEY:
+		n = VAL_EVENT_DATA(value);
+		if (VAL_EVENT_TYPE(value) == EVT_CONTROL) {
+			arg = Get_System(SYS_VIEW, VIEW_EVENT_KEYS);
+			if (IS_BLOCK(arg) && n <= (REBINT)VAL_TAIL(arg)) {
+				*val = *VAL_BLK_SKIP(arg, n-1);
+				break;
+			}
+			goto is_none;
+			SET_CHAR(val, VAL_EVENT_DATA(value));
+			break;
+		}
 		if (VAL_EVENT_TYPE(value) != EVT_KEY && VAL_EVENT_TYPE(value) != EVT_KEY_UP)
 			goto is_none;
+		#ifdef TO_WINDOWS
 		n = VAL_EVENT_DATA(value); // key-words in top 16, chars in lower 16
 		if (n & 0xffff0000) {
 			arg = Get_System(SYS_VIEW, VIEW_EVENT_KEYS);
@@ -277,6 +289,10 @@
 			}
 			goto is_none;
 		}
+		#else
+		n = VAL_EVENT_DATA(value);
+		//n = Decode_UTF8_Char((REBYTE*)n, 0);
+		#endif
 		SET_CHAR(val, n);
 		break;