34 lines
1.1 KiB
Text
Executable file
34 lines
1.1 KiB
Text
Executable file
#!/usr/bin/env rre
|
|
|
|
RETRO12: Interactive Listener
|
|
---------------------------------------------------------------------
|
|
This is a bit of trickery using shell scripting and RRE to implement
|
|
an interactive environment for Retro.
|
|
---------------------------------------------------------------------
|
|
To work as expected, input should process as it's entered and not be
|
|
line buffered. I use `stty` to set this mode.
|
|
|
|
~~~
|
|
'stty_cbreak unix:system
|
|
~~~
|
|
|
|
~~~
|
|
:bye
|
|
'stty_-cbreak unix:system #0 unix:exit ;
|
|
|
|
{{
|
|
:version (-) @Version #100 /mod putn $. putc putn ;
|
|
:banner (-) 'RETRO_12_(rx- puts version $) putc nl
|
|
EOM putn '_MAX,_TIB_@_1025,_Heap_@_ puts here putn nl ;
|
|
:eol? (c-f) [ ASCII:CR eq? ] [ ASCII:LF eq? ] [ ASCII:SPACE eq? ] tri or or ;
|
|
:valid? (s-sf) dup s:length n:-zero? ;
|
|
:ok (-) compiling? [ nl 'Ok_ puts ] -if ;
|
|
:gets (-s) [ #1025 buffer:set
|
|
[ getc dup buffer:add eol? ] until
|
|
buffer:start s:chop ] buffer:preserve ;
|
|
---reveal---
|
|
:listen (-) banner ok repeat gets valid? [ interpret ok ] [ drop ] choose again ;
|
|
}}
|
|
|
|
listen
|
|
~~~
|