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)
此例程的没有容错性,客户端必须输入无错的命令,输入空串退出。