crc/retroforth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

retro-edit: add A command to insert multiple lines

Browse source 
FossilOrigin-Name: 4657972ef546e0cd85e761872acac186109c4c46b8022a9f7b379fa6361f81e8
This commit is contained in:
crc 2021-02-04 17:32:42 +00:00
parent d32ad2fc5b
commit 2a3fcd46e7
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
example/retro-edit.retro
View file

@ -148,6 +148,7 @@ afterwards. I also reset the stack.
In general, each command is intended to do a single task.
| a | line | add a line at line number, shifting lines down |
| A | line,count | add lines at line number, shifting lines down |
| d | line | erase contents of a line |
| i | line,text | replace contents of line with text |
| n | line | indent line |
@ -170,6 +171,7 @@ In general, each command is intended to do a single task.
---reveal---
:cmd:p @Input s:to-number ed:display-line ;
:cmd:r valid? [ get-limits display-range ] if ;
:cmd:A valid? [ get-limits [ dup ed:insert-line ] times drop ] if ;
}}
{{
@ -218,6 +220,7 @@ In general, each command is intended to do a single task.
&cmd:i $i ed:register-command
&cmd:q $q ed:register-command
&cmd:a $a ed:register-command
&cmd:A $A ed:register-command
&cmd:x $x ed:register-command
&cmd:X $X ed:register-command
&cmd:, $, ed:register-command