mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
examples: updated retro-edit
FossilOrigin-Name: e1ea4fdfddce57dc9dddaf1ed96775184dccf38fd51966b7c4cabe8948317b95
This commit is contained in:
crc
parent
de2b823023
commit
fd6878da05
1 changed files with 64 additions and 16 deletions
|
|
@ -34,12 +34,19 @@ Look further in the source for a table of commands.
|
|||
|
||||
## Configuration
|
||||
|
||||
On startup, this loads a working file specified here. Use the
|
||||
commands later to load a specific file if needed.
|
||||
|
||||
~~~
|
||||
'scratch 'SCRATCH s:const
|
||||
~~~
|
||||
|
||||
The editor needs a max line length and max number of lines per
|
||||
file.
|
||||
|
||||
~~~
|
||||
#140 'cfg:MAX-LINE-LENGTH const
|
||||
#2000 'cfg:MAX-LINES const
|
||||
#2001 'cfg:MAX-LINES const
|
||||
~~~
|
||||
|
||||
## The File Contents
|
||||
|
|
@ -72,7 +79,7 @@ Line display is trivial in this. I optionally support line numbers,
|
|||
controlled by setting `ShowLineNumbers` to `TRUE`.
|
||||
|
||||
~~~
|
||||
'ShowLineNumbers var
|
||||
TRUE 'ShowLineNumbers var-n
|
||||
|
||||
:ed:show-line-number (-)
|
||||
@ShowLineNumbers [ dup n:put ': s:put tab ] if ;
|
||||
|
|
@ -142,8 +149,11 @@ afterwards. I also reset the stack.
|
|||
~~~
|
||||
'Done var
|
||||
|
||||
'Context var
|
||||
|
||||
:edit
|
||||
[ &Heap [
|
||||
@Context [ @Context call ] if
|
||||
reset ed:get-input ed:process-command
|
||||
] v:preserve @Done ] until ;
|
||||
~~~
|
||||
|
|
@ -258,13 +268,28 @@ otherwise blank line to return to the command processing mode.
|
|||
:add-space dup ed:insert-line ;
|
||||
:store-line over ed:to-line s:copy n:inc ;
|
||||
:cleanup n:dec ed:delete-line ;
|
||||
:ruler #6 [ '---------+ s:put ] times '---- s:put nl ;
|
||||
---reveal---
|
||||
'Prompt var
|
||||
:cmd:e
|
||||
ruler
|
||||
@Input s:to-number
|
||||
[ add-space s:get [ store-line ] sip '. s:eq? ] until cleanup ;
|
||||
[ @Prompt [ @Prompt call ] if
|
||||
add-space s:get [ store-line ] sip '. s:eq? ] until cleanup ;
|
||||
}}
|
||||
~~~
|
||||
|
||||
Copy/paste
|
||||
|
||||
~~~
|
||||
'LineBuffer d:create
|
||||
cfg:MAX-LINE-LENGTH allot #0 ,
|
||||
|
||||
:cmd:c @Input s:to-number ed:to-line &LineBuffer s:copy ;
|
||||
:cmd:u cmd:a &LineBuffer @Input s:to-number ed:to-line s:copy ;
|
||||
~~~
|
||||
|
||||
|
||||
### Setting the Filename
|
||||
|
||||
| f | filename | set the filename for saves, loads |
|
||||
|
|
@ -273,6 +298,7 @@ otherwise blank line to return to the command processing mode.
|
|||
:cmd:f @Input &Filename s:copy ;
|
||||
~~~
|
||||
|
||||
|
||||
### Saving
|
||||
|
||||
| w | | save file |
|
||||
|
|
@ -285,21 +311,34 @@ upon completion.
|
|||
:with-file &Filename file:open-for-writing [ swap call ] sip file:close ;
|
||||
:file:nl ASCII:LF over file:write ;
|
||||
:write-line I ed:to-line [ over file:write ] s:for-each file:nl ;
|
||||
:write-file [ @Lines [ write-line ] indexed-times ] with-file ;
|
||||
:select @Input s:length n:-zero? [ cmd:f ] if ;
|
||||
---reveal---
|
||||
:cmd:w [ @Lines [ write-line ] indexed-times ] with-file @Lines n:put nl ;
|
||||
:cmd:w select write-file @Lines n:put nl ;
|
||||
}}
|
||||
~~~
|
||||
|
||||
|
||||
~~~
|
||||
:create-if-not-present
|
||||
@Input s:length n:-zero? [ cmd:f ] if
|
||||
&Filename file:exists? [ &Filename file:W file:open file:close ] -if ;
|
||||
|
||||
:erase-all
|
||||
#0 cfg:MAX-LINES [ #0 over ed:to-line store n:inc ] times drop ;
|
||||
|
||||
:load-file
|
||||
create-if-not-present
|
||||
#0 &Filename [ over ed:to-line s:copy n:inc ] file:for-each-line
|
||||
!Lines ;
|
||||
|
||||
:cmd:l erase-all load-file ;
|
||||
:cmd:l erase-all load-file @Lines n:put nl ;
|
||||
~~~
|
||||
|
||||
|
||||
### New
|
||||
|
||||
~~~
|
||||
:cmd:* SCRATCH &Filename s:copy erase-all #1 !Lines ;
|
||||
~~~
|
||||
|
||||
### Quit
|
||||
|
|
@ -323,19 +362,15 @@ Use `q` to quit the editor.
|
|||
:cmd:n @Input s:to-number ed:to-line dup '__ s:prepend swap s:copy ;
|
||||
:cmd:N @Input s:to-number ed:to-line dup #2 + swap s:copy ;
|
||||
|
||||
:cmd:;
|
||||
:cmd::
|
||||
@Input dup s:length n:zero?
|
||||
[ drop &Filename 'retro_%s s:format ] if unix:system ;
|
||||
|
||||
:cmd:?
|
||||
@Input s:length n:-zero?
|
||||
[ @Input 'retro-describe_%s s:format unix:system ] if ;
|
||||
[ drop &Filename ] if 'retro_%s s:format unix:system ;
|
||||
~~~
|
||||
|
||||
## Register The Commands
|
||||
|
||||
~~~
|
||||
{ ',p#/axdiefwlqnN;? [ ] s:for-each }
|
||||
{ ',p#/axdiefwlqnN:*cu [ ] s:for-each }
|
||||
[ [ 'cmd:%c s:format d:lookup d:xt fetch ] sip ed:register-command ]
|
||||
a:for-each
|
||||
~~~
|
||||
|
|
@ -348,7 +383,20 @@ The final startup process is:
|
|||
- run the editor command loop
|
||||
|
||||
~~~
|
||||
#0 script:get-argument &Filename s:copy
|
||||
&Filename file:exists? [ &Filename file:W file:open file:close ] -if
|
||||
load-file edit
|
||||
:cmd:?
|
||||
here n:put nl ;
|
||||
&cmd:? $? ed:register-command
|
||||
~~~
|
||||
|
||||
~~~
|
||||
SCRATCH &Filename s:copy s:empty !Input
|
||||
{ 'RETRO
|
||||
'Ready.
|
||||
} [ s:put nl ] a:for-each
|
||||
erase-all load-file
|
||||
edit bye
|
||||
~~~
|
||||
|
||||
{ '|\_|V|_/|\_|\_/\__Charles_Childers'_Personal_Computing_System
|
||||
'|/_|_|__|__|/_\/__a_Unix_Kernel,_Retro_Forth,_and_a_non-POSIX
|
||||
'|\_|_|__|__|\_/\__environment_written_in_Forth }
|
||||
|
|
|
|||
Loading…
Reference in a new issue