CLisp 6：通过TCP/IP连接远程执行命令

LISP有一个非常强的特性，程序即是数据，数据也是程序。

函数eval可以解释并执行一段数据，例如 (eval '(+ 1 2 3) ) ，后面的 '(+ 1 2 3) 是数据，传给eval后执行得6。

被执行的数据可以写在程序中，也可以从键盘、文件、网络连接读取，下面给一个例程，从网络连接读取数据并执行。

客户端程序net-client.lisp

循环从键盘读取数据，并写到网络连接，传给服务端。

(setq cc (socket:socket-connect 80 "127.0.0.1"))

(fresh-line)

(do ((cmd))

(nil)

(setq cmd (read-line))

(if (equal cmd "")

(progn (write-line "nil" cc) (return)))

(write-line cmd cc))

(close cc)

服务端程序net-server.lisp

从网络连接读取S-表达式，注意直接读取S-表达式，而不是逐行读取。

调用eval执行表达式，并把结果写到屏幕上。

(setq ss (socket:socket-server 80))

(setq sc (socket:socket-accept ss))

(fresh-line)

(do ((cmd))

(nil)

(setq cmd (read sc nil))

(if (not cmd) (return))

(write cmd)

(format t " : ~a~%" (eval cmd)))

(close sc)

此例程的没有容错性，客户端必须输入无错的命令，输入空串退出。