An echo server example for link

tcp.clj

(ns link-test.tcp
  (:refer-clojure :exclude [float byte double])
  (:use [link core tcp codec]))

(def echo-handler
  (create-handler
   (on-message [ctx e]
               (let [channel (.getChannel ctx)]
                 (.write channel
                         (.getMessage e))))))

(defn -main [& args]
  (tcp-server 5888 echo-handler
              :codec (string :encoding :ascii :delimiter "\r\n"))
  (println "server started on 5888"))