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

attempt to catch ctrl+d in rre -i mode

Browse source 
FossilOrigin-Name: 2749d2b8feb877e99ed47d1897023012aa2834a9eb082cbfcc6dbf6f2fe43eb8
This commit is contained in:
crc 2017-11-26 15:20:56 +00:00
parent d9a5756151
commit dd19df605c
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
interfaces/image.c
View file

File diff suppressed because one or more lines are too long

2
interfaces/rre.forth
View file

@ -341,7 +341,7 @@ once for each line in a file. This makes some things trivial. E.g., a simple
: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 ;
:check-eof (c-c) dup #4 eq? [ 'bye d:lookup d:xt fetch call ] if ;
:check-eof (c-c) dup [ #-1 eq? ] [ #4 eq? ] bi or [ 'bye d:lookup d:xt fetch call ] if ;
:check-bs (c-c) dup [ #8 eq? ] [ #127 eq? ] bi or [ buffer:get drop ] if ;
:gets (-s) [ #1025 buffer:set
[ getc dup buffer:add check-eof check-bs eol? ] until