Commits

crcx committed 34389ae Draft

add empty table, keymap prefix character stubs

Comments (0)

Files changed (3)

 
 label: copytag   "Retro" $,
 label: version   "11.5" $,
-label: build     "2012.11.02" $,
+label: build     "2012.11.09" $,
 label: okmsg     "ok  " $,
 
 t: ,           ( n-  ) heap # @, dup, 1+, push, !, pop, heap # !, ;
 
 -1 variable: tabAsWhitespace
 
+ 0 variable: keymap:enabled
+keymap:enabled data: keymap:enabled
+"( -a ) Variable, determines whether or not to use the keymap" :doc
+
+ 0 variable: keymap:PREFIX
+keymap:PREFIX data: keymap:PREFIX
+"( -a ) Variable, holds prefix for triggering keymap lookups" :doc
+
+ 0 variable: keymap:TABLE
+256 tallot
+keymap:TABLE data: keymap:TABLE
+"( -a ) Variable, jump table for keymap handlers" :doc
+
+
 w: STRING-LENGTH STRING-LENGTH  256 # ;
 "( -n ) Return the max length for a string" :doc
 
 : repeat (  -a ) t-here ;
 : again  ( a-  ) jump, m, ;
 
+: tallot  ( n- ) [ 0 m, ] times ;
+
 : variable: ( n"- ) label: m, ;
 : variable  (  "- ) 0 variable: ;
 : elements  ( n"- ) &variable times ;

retroImage

Binary file modified.