34 lines
847 B
Common Lisp
34 lines
847 B
Common Lisp
(ql:quickload "flexi-streams")
|
|
;(ql:quickload "babel")
|
|
(ql:quickload "usocket")
|
|
(ql:quickload "cl-match")
|
|
|
|
(ql:quickload "gbbopen")
|
|
(require :portable-threads)
|
|
|
|
(load "packages.lisp")
|
|
(load "sexp.lisp")
|
|
(load "network.lisp")
|
|
|
|
(in-package :cl-user)
|
|
|
|
;; (defun handle-connection (stream)
|
|
;; (spki-sexp:write-sexp (spki-sexp:read-sexp stream) stream))
|
|
|
|
;; (defun start-server (port)
|
|
;; (usocket:socket-server "localhost" port 'handle-connection '()
|
|
;; :in-new-thread t
|
|
;; :multi-threading t
|
|
;; :reuse-address t
|
|
;; :element-type '(unsigned-byte 8)))
|
|
|
|
;; (start-server 5671)
|
|
|
|
(smsg-network:serve-on-port 5671)
|
|
|
|
;; (let ((server-socket (socket-listen "localhost" 5671
|
|
;; :reuse-address t
|
|
;; :element-type unsigned-integer)))
|
|
;; (loop for conn = (socket-accept server-socket)
|
|
;; do (handle-connection conn)))
|