newlispfanclub.alh.net

hi, I'm a newbie of newlisp. now I writed one very simple mud client as following.

now it has two problem:
1. if I use readline search function, the program will exit silently. I think it is about memory problem. can anyone fix it ???

2. when the peer of socket close the connection, the program will exit. but I must enter an "\n" before the console returned to shell. why ?

thanks.

this is the probram:


#!/usr/bin/newlisp
;; server
(define mud-server '("pkuxkx.3322.org" 8081))

(context 'greadline)
(import "libhistory.so.5" "add_history")
(import "libreadline.so.5" "readline")
(define (greadline:greadline)
(set 'getted-string-p (readline ""))
(add_history getted-string-p)
(get-string getted-string-p))

(context MAIN)

(set 'server (apply net-connect mud-server))

(fork (begin
(while (net-receive server buffer 8192)
(print buffer))
(letn ((error (net-error))
(error-code (error 0)))
(if (= error-code 6)
(println "bye bye!!")
(print (error 1))))))

(constant 'SIGCHLD 17)
(define (sig_chld_handler)
(wait-pid -1 nil)
(close server)
(exit))

(signal SIGCHLD sig_chld_handler)

(while 1 (net-send server (append (greadline) "\r\n")))


(exit)

For one thing, when you initialize with (readline ""), you are sending a string that is not anchored in memory. Assign "" to a local variable and then pass it to readline.

You exit early because you do (while (net-receive ...)). For an example on how to loop a socket server indefinitely, take a look at my sockets module:

http://static.artfulcode.net/newlisp/sockets.lsp.html

my program exit early only when I use add_history function on libhistory. so I think I misused it ?

(while (net-recieve) ... is ok when I don't use add_history. and it is a simplified version. I will change it when I resovled this problem.


thanks!