Differences From Artifact [77df81d8c18ee4c2]:
File editor.rx part of check-in [26f4d13a0e] - editor: now use 'i' to enter edit mode, 'esc' to return to command mode; fix embedded docs by crc on 2011-11-25 17:51:29. [annotate] [view]
To Artifact [b13a52e619637c58]:
File editor.rx part of check-in [47458cc28d] - use variables| in editor by crc on 2011-12-06 14:04:40. [annotate] [view]
@@ -24,16 +24,15 @@
chain: editor'
{{
- 2 elements buffer count
+ variables| buffer count #blocks offset blk line column mode active |
: restore ( - ) &getc :devector ok ;
: get ( -c ) @buffer @ ;
: next ( -c ) @count [ count -- get buffer ++ ] [ 32 restore ] if ;
: replace ( - ) &next &getc :is ;
: eval ( an- ) !count !buffer replace ;
- 7 elements #blocks offset blk line column mode active
: toBlock 1600 * @offset + ;
: thisBlock @blk toBlock ;
: toLine 80 * thisBlock + ;