server.clj

Branches > facts > 66269b8 > 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])
  (: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 (client/client socket)]
        (io-thread
          (try
            (loop []
              ; Close the client connection when EOF is reached
              (let [frame (client/read-frame!! input-stream)]
                (send client client/process-serverbound-packet frame))
              (recur))
            (catch EOFException _)
            (catch SocketException _)
            (finally
              (Socket/.close socket)))))
      (recur))))