Commits

crcx committed 3a0328e Draft

mostly working keymap support now

  • Participants
  • Parent commits 34389ae

Comments (0)

Files changed (2)

File image/kernel.rx

 w: getc:unfiltered getc:unfiltered 1 # 1 # out, wait 1 # in, ;
 "( -c ) Read a keypress and return the ASCII value on the stack" :doc
 
-w: getc getc repeat getc:unfiltered remapKeys dup, 0 # !if ws ; then drop, again ;
+w: getc getc
+  repeat getc:unfiltered
+  keymap:enabled # @, 0 # !if dup, keymap:PREFIX # @, =if drop, getc:unfiltered keymap:TABLE # +, @, 0; do 0 # then then
+  remapKeys dup, 0 # !if ws ; then drop, again ;
 "( -c ) Read a keypress and return the ASCII value on the stack.\nThis differs from **getc:unfiltered** in that the key value is processed\nby **remapKeys** before being returned." :doc
 
 i: putc? dup, 8 # =if drop, break # @, ; then dup, putc ;

File retroImage

Binary file modified.