server.clj

Bowmap · bowmap.git · Tickets

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

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

(defn accept!! [server]
  (try
    (connection/connection (ServerSocket/.accept server))
    (catch Throwable t
      (ServerSocket/.close server)
      (throw t))))

(defn start-server!
  [& {:keys [port bind-addr backlog] :or {:backlog 50 :port 0}}]
  (ServerSocket. port backlog bind-addr))