build-your-own-redis
build-your-own-redis copied to clipboard
don't include code for PONG
Thanks to @camin-mccluskey for pointing this out!
Stage 1: init (clojure)
solutions/clojure/01-init/diff/src/redis/core.clj.diff
old content
@@ -9,30 +9,27 @@
[socket]
(.readLine (io/reader socket)))
(defn send-message
"Send the given string message out over the given socket"
[socket msg]
(let [writer (io/writer socket)]
(.write writer msg)
(.flush writer)))
(defn serve [port handler]
(with-open [server-sock (ServerSocket. port)
sock (.accept server-sock)]
(. server-sock (setReuseAddress true))
(let [msg-in (receive-message sock)
msg-out (handler msg-in)]
(send-message sock msg-out))))
(defn handler
[& args]
"+PONG\r\n")
(defn -main
"I don't do a whole lot ... yet."
[& args]
- ;; You can use print statements as follows for debugging, they'll be visible when running tests.
- (println "Logs from your program will appear here!")
- ;; Uncomment this block to pass the first stage
- ;; (serve 6379 handler)
+ (serve 6379 handler)
)
new content
@@ -9,30 +9,27 @@
[socket]
(.readLine (io/reader socket)))
(defn send-message
"Send the given string message out over the given socket"
[socket msg]
(let [writer (io/writer socket)]
(.write writer msg)
(.flush writer)))
(defn serve [port handler]
(with-open [server-sock (ServerSocket. port)
sock (.accept server-sock)]
(. server-sock (setReuseAddress true))
(let [msg-in (receive-message sock)
msg-out (handler msg-in)]
(send-message sock msg-out))))
(defn handler
[& args]
"TODO: <respond-with-output>")
(defn -main
"I don't do a whole lot ... yet."
[& args]
- ;; You can use print statements as follows for debugging, they'll be visible when running tests.
- (println "Logs from your program will appear here!")
- ;; Uncomment this block to pass the first stage
- ;; (serve 6379 handler)
+ (serve 6379 handler)
)
Posted via course-sdk.