Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (import
- '(java.net Socket)
- '(java.io PrintWriter BufferedReader InputStreamReader))
- (defn connect [nick host port]
- (let [sock (new Socket host port)
- out (new PrintWriter (. sock getOutputStream) true)
- in (new BufferedReader (new InputStreamReader (. sock getInputStream)))]
- (loop [msg ""]
- (if (. sock isConnected)
- (do
- (println msg)
- (recur (. in readLine)))
- (false)))))
- (connect "Clojjy" "irc.strictfp.com" 6667)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement