Initial import

2026-07-15 18:00:11 +02:00
parent 02d961e53d
commit c6954f5109
29 changed files with 3062 additions and 2 deletions
@@ -0,0 +1,18 @@
+#lang racket/base
+
+(require "../main.rkt"
+         "../media-renderer.rkt")
+
+(define renderers
+  (query-media-renderers
+   #:interface "10.7.3.118"
+   #:dns? #t))
+
+(for ([renderer (in-list renderers)])
+  (printf "~a\n" (upnp-device-name renderer))
+  (printf "  kind:     ~a\n" (upnp-device-kind renderer))
+  (printf "  address:  ~a\n" (upnp-device-address renderer))
+  (printf "  dns-name: ~a\n" (or (upnp-device-dns-name renderer) ""))
+  (printf "  model:    ~a\n" (or (upnp-device-model renderer) ""))
+  (printf "  services: ~a\n\n"
+          (map upnp-service-kind (upnp-device-services renderer))))