63 lines
1.7 KiB
Forth
63 lines
1.7 KiB
Forth
\ Copyright 2021 Bradley D. Nelson
|
|
\
|
|
\ Licensed under the Apache License, Version 2.0 (the "License");
|
|
\ you may not use this file except in compliance with the License.
|
|
\ You may obtain a copy of the License at
|
|
\
|
|
\ http://www.apache.org/licenses/LICENSE-2.0
|
|
\
|
|
\ Unless required by applicable law or agreed to in writing, software
|
|
\ distributed under the License is distributed on an "AS IS" BASIS,
|
|
\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
\ See the License for the specific language governing permissions and
|
|
\ limitations under the License.
|
|
|
|
( Lazy loaded Telnet )
|
|
: telnetd r|
|
|
|
|
vocabulary telnetd telnetd definitions also sockets
|
|
|
|
-1 value sockfd -1 value clientfd
|
|
sockaddr telnet-port sockaddr client variable client-len
|
|
|
|
defer broker
|
|
|
|
: telnet-emit ( ch -- ) >r rp@ 1 clientfd write-file rdrop if broker then ;
|
|
: telnet-type ( a n -- ) for aft dup c@ telnet-emit 1+ then next drop ;
|
|
: telnet-key ( -- n ) 0 >r rp@ 1 clientfd read-file swap 1 <> or if rdrop broker then r> ;
|
|
|
|
: connection ( n -- )
|
|
dup 0< if drop exit then to clientfd
|
|
0 echo !
|
|
['] telnet-key is key
|
|
['] telnet-type is type quit ;
|
|
|
|
: wait-for-connection
|
|
begin
|
|
sockfd client client-len sockaccept
|
|
dup 0 >= if exit else drop then
|
|
again
|
|
;
|
|
|
|
: broker-connection
|
|
rp0 rp! sp0 sp!
|
|
begin
|
|
['] default-key is key ['] default-type is type
|
|
-1 echo !
|
|
." Listening on port " telnet-port ->port@ . cr
|
|
wait-for-connection
|
|
." Connected: " dup . cr connection
|
|
again ;
|
|
' broker-connection is broker
|
|
|
|
: server ( port -- )
|
|
telnet-port ->port!
|
|
AF_INET SOCK_STREAM 0 socket to sockfd
|
|
sockfd non-block throw
|
|
sockfd telnet-port sizeof(sockaddr_in) bind throw
|
|
sockfd 1 listen throw broker ;
|
|
|
|
only forth definitions
|
|
telnetd
|
|
| evaluate ;
|