server.clj

Bowmap · bowmap.git · Tickets

Branches > main > 58deb69 > files / src / net / bowmap / network / server.clj

(ns net.bowmap.network.server
  (:import
   [java.net ServerSocket]))

(defn run-server!
  "Starts running the Minecraft server with the supplied server socket.
   Returns a future that will deliver with an exception when the server closes."
  [server-socket]
  (future
    (loop []
      (let [socket (ServerSocket/.accept server-socket)]
        (println "Client connected:" socket)
        (recur)))))