Veit Heller
6369d15e93
- Move to a Python process for the LanguageLink client [fixes #1, presumably] - Finish a first rough draft of the booklet [fixes #4]
18 lines
560 B
Plaintext
18 lines
560 B
Plaintext
(load "/Users/veitheller/Documents/Code/Github/carp/archive/socket/sockets.carp")
|
||
|
||
(use Socket)
|
||
|
||
(defn main []
|
||
(let-do [port (Maybe.from (from-string &(Maybe.from (nth &System.args 1) @"")) 0)]
|
||
(IO.println &(fmt "Starting server on localhost, port %d" port))
|
||
(Socket.with-server sock "127.0.0.1" port
|
||
(if (Socket.valid? &sock)
|
||
(Socket.while-connection &sock client
|
||
(IO.println &(read &client))
|
||
(send &client "hi")
|
||
(IO.println "yay"))
|
||
(IO.errorln "Server couldn’t be started.")))))
|
||
|
||
(build)
|
||
(run)
|