But How can I write a code to be a telnet server in newlisp??
I mean like
Code: Select all
(set 'listen (net-listen 8086))
(unless (not (nil? listen))
(begin
(print "listening 8086 failed\n")
(abort)
(exit)
)
)
(print "Waiting for connection on: 8086 \n")
(unless (= (share talk) 20)
(set 'connection (net-accept listen))
(while (not (net-select connection "r" 1000)))
(while (net-select connection "w" 1000)
(if (setq rvlen (net-receive connection buff 128 "\n"))
(begin
(println buff)
;;???
)
)
)
(assert "close connect \n")
(net-close connection)
)
But It is not like" newlisp -p 1234"s effect, "newlisp -p 1234" more like a real terminal.
I searched forum, seems no answer for me.
Anyone help me a little?
Do I need to net-send back some particularly data so can make it like a real terminal?