gistfile1.clj

(ns server.udp
  (:import (java.net InetAddress DatagramPacket DatagramSocket)))
 
(def udp-server (ref nil))
 
(def port 3333)
 
(defn localhost [] (. InetAddress getLocalHost))
 
(defn message [text]
  (new DatagramPacket (. text getBytes) (. text length) (localhost) port ))
 
(defn send-message [text]
  (.send @udp-server (message text)))
 
(defn create-udp-server []
  (DatagramSocket. port))
 
(defn start-udp-server []
     (dosync (ref-set udp-server (create-udp-server))))
 
(defn stop-udp-server []
     (.close @udp-server))