alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fixing telnet.

Browse Source
This commit is contained in:
Brad Nelson
2021-02-27 00:48:34 -08:00
parent 3b79f29673
commit deea8dc594
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ueforth/arduino/telnetd.fs
View File

@ -11,7 +11,9 @@ create client sizeof(sockaddr_in) allot variable client-len
defer broker defer broker
: telnet-type ( a n -- ) clientfd write-file if broker then ; : telnet-emit' ( ch -- ) >r rp@ 1 clientfd write-file rdrop if broker then ;
: telnet-emit ( ch -- ) dup nl = if 13 telnet-emit' then telnet-emit' ;
: telnet-type ( a n -- ) for aft dup c@ telnet-emit 1+ then next drop ;
: telnet-key ( -- n ) 0 >r rp@ 1 clientfd read-file if drop rdrop broker else drop then r> ; : telnet-key ( -- n ) 0 >r rp@ 1 clientfd read-file if drop rdrop broker else drop then r> ;
: connection ( n -- ) : connection ( n -- )

2
ueforth/common/boot.fs
View File

@ -199,7 +199,7 @@ variable echo -1 echo ! variable arrow -1 arrow !
: ?arrow. arrow @ if >r >r raw.s r> r> ." --> " then ; : ?arrow. arrow @ if >r >r raw.s r> r> ." --> " then ;
: accept ( a n -- n ) ?arrow. 0 swap begin 2dup < while : accept ( a n -- n ) ?arrow. 0 swap begin 2dup < while
key key
dup nl = if 13 emit ?echo drop nip exit then dup nl = if ?echo drop nip exit then
dup 8 = over 127 = or if dup 8 = over 127 = or if
drop over if rot 1- rot 1- rot 8 ?echo bl ?echo 8 ?echo then drop over if rot 1- rot 1- rot 8 ?echo bl ?echo 8 ?echo then
else else