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

bin/listener now deprecated

Browse source 
FossilOrigin-Name: 03ef1a9b08f54bfd26cebcf381077264174a171f54a3c51423eac5010d413d8a
This commit is contained in:
crc 2017-11-15 19:58:04 +00:00
parent 1e3de483b7
commit 8e8328585c
1 changed files with 0 additions and 29 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
bin/listener
View file

@ -1,34 +1,5 @@
#!/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
~~~