Skip to content

Instantly share code, notes, and snippets.

@jColeChanged

jColeChanged/gist:2f783f6c5c4478ed53e1 Secret

Created February 28, 2011 01:40
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save jColeChanged/2f783f6c5c4478ed53e1 to your computer and use it in GitHub Desktop.
Save jColeChanged/2f783f6c5c4478ed53e1 to your computer and use it in GitHub Desktop.
Download ZIP
Simple Server
Raw
gistfile1.txt
(ns hnparser.server
(:use clojure.contrib.server-socket)
(:import [java.io PushbackReader InputStreamReader]))
(defn process-link
[link]
(println link)) ;; will be doing something different
(defn read-links
[is os]
(let [in-reader (PushbackReader. (InputStreamReader. is))]
(process-link (read in-reader))))
(def *server* (create-server 4756 read-links))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment