janet/examples/tcpserver.janet

(defn handler
  "Simple handler for connections."
  [stream]
  (defer (:close stream)
    (def id (gensym))
    (def b @"")
    (print "Connection " id "!")
    (while (:read stream 1024 b)
      (:write stream b)
      (buffer/clear b))
    (printf "Done %v!" id)))

(net/server "127.0.0.1" "8000" handler)
Working TCP echo server and client. Required a few changes to APIs, namely janet_root_fiber() to get topmost fiber that is active in the current scheduler. This is distinct from janet_current_fiber(), which gets the bottom most fiber in the fiber stack - it might have a parent, and so cannot be reliably resumed. This is the kind of situation that makes symmetric coroutines more attractive. 2020-02-10 01:04:34 +00:00			`(defn handler`
			`"Simple handler for connections."`
			`[stream]`
Add methods to streams. This makes streams polymorphic with files in many cases. printf family functions still need porting. 2020-02-12 15:32:41 +00:00			`(defer (:close stream)`
			`(def id (gensym))`
			`(def b @"")`
			`(print "Connection " id "!")`
			`(while (:read stream 1024 b)`
			`(:write stream b)`
			`(buffer/clear b))`
			`(printf "Done %v!" id)))`
Working TCP echo server and client. Required a few changes to APIs, namely janet_root_fiber() to get topmost fiber that is active in the current scheduler. This is distinct from janet_current_fiber(), which gets the bottom most fiber in the fiber stack - it might have a parent, and so cannot be reliably resumed. This is the kind of situation that makes symmetric coroutines more attractive. 2020-02-10 01:04:34 +00:00
			`(net/server "127.0.0.1" "8000" handler)`