Practice: run clisp code via net

Clisp Codes

;;; read-eval-print-server.lisp
;;;
;;; read-eval-print loop server
;;;
;;; the oringial code was on below page of clisp:
;;; http://clisp.org/impnotes.html#socket-ex-server
;;;
;;; limit the socket server to local connections("127.0.0.1") for security,
;;; but it also work for internet ip if you do not limit the server.


(let ((server (socket:socket-server 23 :INTERFACE "127.0.0.1")))
  (format t "~&waiting for a connection on ~S:~D~%"
	  (socket:socket-server-host server)
	  (socket:socket-server-port server))
  (unwind-protect
      (loop
       (with-open-stream (socket (socket:socket-accept server))
	(multiple-value-bind (local-host local-port)
			     (socket:socket-stream-local socket)
	 (multiple-value-bind (remote-host remote-port)
			     (socket:socket-stream-peer socket)
	  (format t "~&connection: ~S:~D -- ~S:~D ~%"
		  remote-host remote-port local-host local-port)))
	(loop
	 (when (eq :eof (socket:socket-status (cons socket :input))) (return))
	 (print (eval (read socket)) socket)
	 (loop
	  :for c = (read-char-no-hang socket nil nil)
	  :while c)
	 (format socket "ok~%")
	 (terpri socket))))
    (socket:socket-server-close server)))

;;; read-eval-print-client.lisp
;;;
;;; read-eval-print client


(defun run-lisp-via-net (host lisp-codes &optional (port 23))
  (with-open-stream
   (socket (socket:socket-connect port host :external-format :dos))
   (format socket "~A" lisp-codes)
   (socket:socket-stream-shutdown socket :output)
   (loop :for line = (read-line socket nil nil)
	 :while line
	 :collect line
	 :do (format t "~A ~%" line))))

;; Test Cases

(run-lisp-via-net "127.0.0.1"
		  "(ext:dir)")

(run-lisp-via-net "127.0.0.1"
		  "(load \"http-client.lisp\")"
		  23)

Testing and results

start the server:

test the client:

Log outputted on server:

Q: what does this demo mean?

A: you can run any code via net as you want, no matter these codes is from client or on server. Clisp can make all data as code ... 

Enjoy~ Mars