5b6ff3c

src/net/bowmap/core.clj modified (view file)

@@ -1,4 +1,8 @@-(ns net.bowmap.core)+(ns net.bowmap.core+  (:require+   [net.bowmap.network.server :as server])+  (:import+   [java.net ServerSocket]))  (defn -main [& _args]-  (println "Hello world"))+  @(server/run-server! (ServerSocket. 25565)))

src/net/bowmap/network/server.clj added (view file)

@@ -0,0 +1,13 @@+(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)))))