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)

 

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