;; -*- lexical-binding: t; -*-

(defun server-filter (process string)
  (message "Received string (%s): %S" (length string) string))

(defun server-sentinel (process event)
  (message "Received event: %S" event)
  (when (eq (process-status process) 'closed)
    (delete-process process)
    (kill-buffer (process-buffer process))))

(defun make-server ()
  (make-network-process
   :name "bug-server"
   :type 'datagram
   :server t
   :host "127.0.0.1"
   :service 10000
   :family 'ipv4
   :coding 'binary
   :filter #'server-filter
   :sentinel #'server-sentinel))

(defvar server (make-server))

(while t
  (accept-process-output nil 0.01))