server.clj

Branches > main > 496b7c4 > files / src / net / bowmap / network / server.clj

(ns net.bowmap.network.server
  (:require
   [clojure.core.async :refer [io-thread]]
   [net.bowmap.network.client :as client :refer [leave!]]
   [net.bowmap.network.handle :as handle])
  (:import
   [java.io EOFException]
   [java.net ServerSocket SocketException]))

(defn start-server! [port]
  (let [server (ServerSocket. port)]
    (loop []
      (let [socket (ServerSocket/.accept server)
            client-ref (client/client socket)]
        (io-thread
          (try
            (loop []
              (handle/handle!! client-ref (client/read-packet! client-ref))
              (recur))
            (catch EOFException _)
            (catch SocketException _)
            (finally
              (leave! client-ref)))))
      (recur))))