2024-02-17 13:26:14 -05:00
|
|
|
require util.4th
|
2024-02-03 14:15:37 -05:00
|
|
|
|
|
|
|
|
80 constant COMMANDLINE_SIZE
|
|
|
|
|
create commandline COMMANDLINE_SIZE allot
|
|
|
|
|
variable cmdcursor
|
|
|
|
|
variable cmdready
|
|
|
|
|
|
|
|
|
|
: (cursor@) ( -- index-u ) cmdcursor @ ;
|
|
|
|
|
: (translate) ( index-u -- addr )
|
|
|
|
|
commandline + ;
|
|
|
|
|
: (last-position) ( -- index-u )
|
|
|
|
|
COMMANDLINE_SIZE 1- ;
|
|
|
|
|
: (tail) ( index-u -- length-u )
|
|
|
|
|
COMMANDLINE_SIZE swap - ;
|
|
|
|
|
: (cursor-left) ( -- ) (cursor@) 1- 0 max cmdcursor ! ;
|
|
|
|
|
: (cursor-right) ( -- ) (cursor@) 1+ COMMANDLINE_SIZE 1- min cmdcursor ! ;
|
|
|
|
|
: (overwrite-char) ( c -- )
|
|
|
|
|
commandline (cursor@) + c! ;
|
|
|
|
|
: (append-char) ( c -- )
|
|
|
|
|
(cursor@) (last-position) <> IF
|
|
|
|
|
(cursor@) dup (translate) dup 1+ rot (tail) 1- move
|
|
|
|
|
THEN (overwrite-char) ;
|
|
|
|
|
: (backspace) ( -- )
|
|
|
|
|
(cursor@) 0> IF
|
|
|
|
|
(cursor@) (translate) dup 1- (cursor@) (tail) move
|
|
|
|
|
bl (last-position) (translate) c!
|
|
|
|
|
(cursor-left)
|
|
|
|
|
THEN ;
|
|
|
|
|
|
|
|
|
|
: commandline-handlekey ( ekey-n -- )
|
|
|
|
|
ekey>char if ( c )
|
|
|
|
|
CASE
|
|
|
|
|
10 OF true cmdready ! ENDOF \ newline
|
|
|
|
|
13 OF true cmdready ! ENDOF \ carriage return
|
|
|
|
|
127 OF (backspace) ENDOF \ DEL
|
|
|
|
|
(append-char) (cursor-right) EXIT
|
|
|
|
|
ENDCASE
|
|
|
|
|
else ekey>fkey if ( key-id )
|
|
|
|
|
case
|
|
|
|
|
k-left of (cursor-left) endof
|
|
|
|
|
k-right of (cursor-right) endof
|
|
|
|
|
endcase
|
|
|
|
|
else ( keyboard-event )
|
2024-02-17 13:26:14 -05:00
|
|
|
drop \ just ignore an unknown keyboard event
|
2024-02-03 14:15:37 -05:00
|
|
|
then then ;
|
|
|
|
|
|
|
|
|
|
: commandline-getline ( -- c-addr u )
|
|
|
|
|
commandline COMMANDLINE_SIZE ;
|
|
|
|
|
|
|
|
|
|
: (update-cursorpos) ( -- )
|
|
|
|
|
s\" \033[" type
|
2024-02-17 13:26:14 -05:00
|
|
|
(cursor@) 1+ to-string type
|
2024-02-03 14:15:37 -05:00
|
|
|
s" G" type ;
|
|
|
|
|
: (carriage-return) ( -- )
|
|
|
|
|
13 emit ;
|
|
|
|
|
: commandline-redraw ( -- )
|
2024-02-17 13:26:14 -05:00
|
|
|
false stdout-logger
|
2024-02-03 14:15:37 -05:00
|
|
|
(carriage-return)
|
|
|
|
|
commandline-getline type
|
2024-02-17 13:26:14 -05:00
|
|
|
(update-cursorpos)
|
|
|
|
|
true stdout-logger ;
|
2024-02-03 14:15:37 -05:00
|
|
|
|
|
|
|
|
: commandline-reset ( -- )
|
|
|
|
|
commandline COMMANDLINE_SIZE bl fill
|
|
|
|
|
0 cmdcursor !
|
|
|
|
|
false cmdready ! ;
|
|
|
|
|
|
|
|
|
|
: commandline-key? ( -- flag ) key? ;
|
|
|
|
|
: commandline-key ( -- ekey ) ekey ;
|
|
|
|
|
: commandline-ready? ( -- flag ) cmdready @ ;
|
|
|
|
|
|
|
|
|
|
commandline-reset
|
