server.clj

Branches > facts > f9703b2 > 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]
   [net.bowmap.network.handle :as handle])
  (:import
   [java.io EOFException]
   [java.net ServerSocket Socket SocketException]))

(defn start-server! [port]
  (let [server (ServerSocket. port)]
    (loop []
      (let [socket (ServerSocket/.accept server)
            input-stream (Socket/.getInputStream socket)
            client-agent (client/client socket)]
        (io-thread
          (try
            (loop []
              (let [frame (client/read-frame!! input-stream)]
                (handle/process-incoming-frame! client-agent frame))
              (recur))
            (catch EOFException _)
            (catch SocketException _)
            (finally
              (Socket/.close socket)))))
      (recur))))