Newlisp telnet

[dexter]

I know newlisp -p 1234 can be a telnet server

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)
	)	

Telnet can connect to my code on 8086, I can receive the input data from telnet
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?

[conan]

What do you mean by "real terminal"? To have line editing capability?

[dexter]

Thanks for the reply

No edit
just looks like a terminal

I did it yestoday, Telnet can work with my code now

Now hypertrm on windows ,still can not work correcttly with my code