gered/ring-custom-jetty-server
Archived
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Added more docstrings

Browse source
This commit is contained in:
James Reeves 2012-02-11 21:07:22 +00:00
parent d960f97921
commit ee9c8eecad
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/ring/server/standalone.clj
View file

@ -3,7 +3,10 @@
(:use ring.adapter.jetty
ring.server.options))
(defn- try-port [port run-server]
(defn- try-port
"Try running a server under one port or a list of ports. If a list of ports
is supplied, try each port until it succeeds or runs out of ports."
[port run-server]
(if-not (sequential? port)
(run-server port)
(try (run-server (first port))
@ -12,11 +15,14 @@
(try-port port run-server)
(throw ex))))))
(defmacro ^:private in-thread [& body]
(defmacro ^:private in-thread
"Execute the body in a new thread and return the Thread object."
[& body]
`(doto (Thread. (fn [] ~@body))
(.start)))
(defn- run-server [server destroy]
(defn- add-destroy-hook [server destroy]
"Add a destroy hook to be executed when the server ends."
(in-thread
(try (.join server)
(finally (if destroy (destroy))))))
@ -34,6 +40,6 @@
(fn [port]
(let [options (merge {:port port} options)
server (run-jetty handler options)
thread (run-server server destroy)]
thread (add-destroy-hook server destroy)]
(if join? (.join thread))
server)))))