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

editor: add copy/paste, backspace support

Browse source 
FossilOrigin-Name: cd80177769cf22c0f1cc535dd2f71289873dd8cd7efa22f3e0f708162c2e97b8
This commit is contained in:
crc 2017-11-12 20:06:21 +00:00
parent fc52857ffb
commit b767f9be66
1 changed files with 24 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
wip/edit.forth
View file

@ -156,7 +156,7 @@ after execution completes.
over @CurrentLine eq? ;
:delete-line (-)
[ current? [ drop s:empty ] if file:puts n:inc ] process-lines ;
[ current? [ drop '_ ] if file:puts n:inc ] process-lines ;
~~~
~~~
@ -175,14 +175,31 @@ the text to write instead of the original current line. When done, it
replaces the original file with the dummy one.
~~~
:gets (-s)
s:empty [ buffer:set
[ repeat getc dup ASCII:LF -eq? 0; drop buffer:add again ] call drop ] sip ;
{{
:save (c-)
ASCII:BS [ buffer:get drop ] case
ASCII:DEL [ buffer:get drop ] case
buffer:add ;
---reveal---
:gets (-s)
s:empty [ buffer:set
[ repeat getc dup ASCII:LF -eq? 0; drop save again ] call drop ] sip ;
}}
:replace-line (-)
[ current? [ drop gets ] if file:puts n:inc ] process-lines ;
~~~
~~~
'CopiedLine d:create #1025 allot
:copy-line (-)
[ current? [ dup &CopiedLine s:copy ] if file:puts n:inc ] process-lines ;
:paste-line (-)
[ current? [ drop &CopiedLine ] if file:puts n:inc ] process-lines ;
~~~
~~~
:goto (-)
gets s:to-number !CurrentLine ;
@ -199,7 +216,7 @@ And now tie everything together. There's a key handler and a top level loop.
$1 'insert_line describe | $2 'replace_text describe | $3 '____________ describe |
$4 'erase_text_ describe | $5 'delete_line_ describe nl
$j 'down_______ describe | $k 'up__________ describe | $g 'goto_line___ describe |
#32 '___________ describe | $q 'quit________ describe nl ;
$c 'copy_______ describe | $v 'paste_______ describe nl ;
:handler
getc
@ -207,6 +224,8 @@ And now tie everything together. There's a key handler and a top level loop.
$2 [ replace-line ] case
$4 [ delete-line ] case
$5 [ kill-line ] case
$c [ copy-line ] case
$v [ paste-line ] case
$j [ &CurrentLine v:inc &CurrentLine #0 #10000 v:limit ] case
$k [ &CurrentLine v:dec &CurrentLine #0 #10000 v:limit ] case
$g [ goto &CurrentLine #0 #10000 v:limit ] case