all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Vasilij Schneidermann <mail@vasilij.de>
To: 62990@debbugs.gnu.org
Subject: bug#62990: 30.0.50; UDP server closes connection upon receiving an empty packet
Date: Fri, 21 Apr 2023 12:36:52 +0200	[thread overview]
Message-ID: <ZEJnRHE7R4hWSwWl@odonien> (raw)


[-- Attachment #1.1: Type: text/plain, Size: 3820 bytes --]

I'm doing network programming with Emacs Lisp and one of the tasks was
implementing a UDP server reading individual packets. I've found that
when a client sends an empty packet, the server hangs up with a
connection error and no longer accepts subsequent packets. This seems to
be reasonable behavior for TCP (from what I understand, empty TCP
messages are a sign of the connection being closed), but not for
UDP. I've attached test programs written in Emacs Lisp and Guile to
reproduce both correctly and incorrectly functioning servers and clients
respectively. One minor nitpick is that sending an empty UDP packet from
Emacs Lisp doesn't work either, but I'm unsure whether this is a bug
(socat behaves similarly).


In GNU Emacs 30.0.50 (build 2, x86_64-pc-linux-gnu, GTK+ Version
 3.24.37, cairo version 1.17.8) of 2023-04-15 built on odonien
Repository revision: c60b59e04c3776a90adaa8c8fe53af3075a833b8
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.12101007
System Description: Arch Linux

Configured using:
 'configure 'CFLAGS=-g -ggdb -O0''

Configured features:
ACL CAIRO DBUS FREETYPE GIF GLIB GMP GNUTLS GPM GSETTINGS HARFBUZZ JPEG
JSON LCMS2 LIBOTF LIBSYSTEMD LIBXML2 M17N_FLT MODULES NOTIFY INOTIFY
PDUMPER PNG RSVG SECCOMP SOUND SQLITE3 THREADS TIFF TOOLKIT_SCROLL_BARS
TREE_SITTER WEBP X11 XDBE XIM XINPUT2 XPM GTK3 ZLIB

Important settings:
  value of $LC_MESSAGES: 
  value of $LANG: en_US.UTF-8
  locale-coding-system: utf-8-unix

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  show-paren-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  line-number-mode: t
  indent-tabs-mode: t
  transient-mark-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t

Load-path shadows:
None found.

Features:
(shadow sort mail-extr emacsbug message mailcap yank-media puny dired
dired-loaddefs rfc822 mml mml-sec password-cache epa derived epg rfc6068
epg-config gnus-util text-property-search time-date subr-x mm-decode
mm-bodies mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader
cl-loaddefs cl-lib sendmail rfc2047 rfc2045 ietf-drums mm-util
mail-prsvr mail-utils rmc iso-transl tooltip cconv eldoc paren electric
uniquify ediff-hook vc-hooks lisp-float-type elisp-mode mwheel
term/x-win x-win term/common-win x-dnd tool-bar dnd fontset image
regexp-opt fringe tabulated-list replace newcomment text-mode lisp-mode
prog-mode register page tab-bar menu-bar rfn-eshadow isearch easymenu
timer select scroll-bar mouse jit-lock font-lock syntax font-core
term/tty-colors frame minibuffer nadvice seq simple cl-generic
indonesian philippine cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese eucjp-ms cp51932 hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
composite emoji-zwj charscript charprop case-table epa-hook
jka-cmpr-hook help abbrev obarray oclosure cl-preloaded button loaddefs
theme-loaddefs faces cus-face macroexp files window text-properties
overlay sha1 md5 base64 format env code-pages mule custom widget keymap
hashtable-print-readable backquote threads dbusbind inotify lcms2
dynamic-setting system-font-setting font-render-setting cairo
move-toolbar gtk x-toolkit xinput2 x multi-tty make-network-process
emacs)

Memory information:
((conses 16 36403 15371)
 (symbols 48 5177 0)
 (strings 32 13201 2082)
 (string-bytes 1 377158)
 (vectors 16 9346)
 (vector-slots 8 149422 15364)
 (floats 8 21 24)
 (intervals 56 212 0)
 (buffers 984 10))

[-- Attachment #1.2: bug-client.el --]
[-- Type: text/plain, Size: 380 bytes --]

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

(defun make-client ()
  (make-network-process
   :name "bug-client"
   :type 'datagram
   :host "127.0.0.1"
   :service 10000
   :family 'ipv4
   :coding 'binary))

(defvar client (make-client))

(process-send-string client "hello")
(process-send-string client "")
(process-send-string client "world")

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

[-- Attachment #1.3: bug-server.el --]
[-- Type: text/plain, Size: 645 bytes --]

;; -*- 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))

[-- Attachment #1.4: fixed-client.scm --]
[-- Type: text/plain, Size: 260 bytes --]

(import (rnrs bytevectors))

(define client (socket PF_INET SOCK_DGRAM 0))
(connect client AF_INET (inet-pton AF_INET "127.0.0.1") 10000)

(send client (string->utf8 "hello"))
(send client (string->utf8 ""))
(send client (string->utf8 "world"))
(close client)

[-- Attachment #1.5: fixed-server.scm --]
[-- Type: text/plain, Size: 452 bytes --]

(use-modules (ice-9 format))

(import (rnrs bytevectors))
(import (rnrs bytevectors gnu))
(import (srfi 18))

(define server (socket PF_INET SOCK_DGRAM 0))
(bind server AF_INET (inet-pton AF_INET "127.0.0.1") 10000)

(define buffer (make-u8vector 1024))

(let loop ()
  (let* ((len (car (recvfrom! server buffer)))
         (message (utf8->string (bytevector-slice buffer 0 len))))
    (format #t "Received string (~a): ~s~%" len message)
    (loop)))

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 488 bytes --]

             reply	other threads:[~2023-04-21 10:36 UTC|newest]

Thread overview: 16+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2023-04-21 10:36 Vasilij Schneidermann [this message]
2023-04-24  8:51 ` bug#62990: 30.0.50; UDP server closes connection upon receiving an empty packet Robert Pluim
2023-04-24 21:04   ` Vasilij Schneidermann
2023-04-25  8:07     ` Robert Pluim
2023-04-26  9:14       ` Robert Pluim
2023-04-26 10:30         ` Eli Zaretskii
2023-04-26 10:35           ` Robert Pluim
2023-04-26 10:38             ` Eli Zaretskii
2023-04-26 11:47               ` Robert Pluim
2023-04-26 12:24                 ` Eli Zaretskii
2023-04-26 14:27                   ` Robert Pluim
2023-04-26 10:58             ` Vasilij Schneidermann
2023-04-26 10:56       ` Vasilij Schneidermann
2023-04-26 11:50         ` Robert Pluim
2023-04-26 14:31           ` Robert Pluim
2024-03-09 13:40             ` Vasilij Schneidermann

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=ZEJnRHE7R4hWSwWl@odonien \
    --to=mail@vasilij.de \
    --cc=62990@debbugs.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.