send_response   xtlang

(bind-func send_response
  (let ((msglen:i64 4096)
        (msg:i8* (zalloc msglen))
        (continue #t))
    (lambda (buf:i8* nbytes:i32)
      (printf "revieved request: %.*s\n" nbytes buf)
      (sprintf msg "**REPLY** ")
      (sprintf (pref-ptr msg (strlen msg)) "%s" buf)
      (let ((msglen (+ (strlen msg) 1))
            (bytes (nn_send REPLY_SOCKET msg msglen 0)))
        (if (or (< bytes 0) (< bytes (convert msglen)))
            (nn_println_strerror)
            void)))))