mirror of
https://github.com/janet-lang/janet
synced 2024-10-18 16:05:47 +00:00
36 lines
1.0 KiB
Plaintext
36 lines
1.0 KiB
Plaintext
(def conmap @{})
|
|
|
|
(defn broadcast [em msg]
|
|
(eachk par conmap
|
|
(if (not= par em)
|
|
(if-let [tar (get conmap par)]
|
|
(net/write tar (string/format "[%s]:%s" em msg))))))
|
|
|
|
(defn handler
|
|
[connection]
|
|
(print "connection: " connection)
|
|
(net/write connection "Whats your name?\n")
|
|
(def name (string/trim (string (ev/read connection 100))))
|
|
(print name " connected")
|
|
(if (get conmap name)
|
|
(do
|
|
(net/write connection "Name already taken!")
|
|
(:close connection))
|
|
(do
|
|
(put conmap name connection)
|
|
(net/write connection (string/format "Welcome %s\n" name))
|
|
(defer (do
|
|
(put conmap name nil)
|
|
(:close connection))
|
|
(while (def msg (ev/read connection 100))
|
|
(broadcast name (string msg)))
|
|
(print name " disconnected")))))
|
|
|
|
(defn main [& args]
|
|
(printf "STARTING SERVER...")
|
|
(flush)
|
|
(def my-server (net/listen "127.0.0.1" "8000"))
|
|
(forever
|
|
(def connection (net/accept my-server))
|
|
(ev/call handler connection)))
|