Complete refactoring for rktplayer, in order to make it play on DLNA renderers and also use UpNP media server resources.

2026-08-08 14:29:01 +02:00
parent 186b3bb8d7
commit f5fdc38e67
69 changed files with 5953 additions and 1647 deletions
@@ -0,0 +1,35 @@
+#lang racket/base
+
+(require racket/class
+         racket-upnp
+         "base/renderer.rkt"
+         "../misc/utils.rkt")
+
+(provide renderer-upnp%)
+
+(define renderer-upnp%
+  (class renderer%
+    (init-field upnp-device)
+    (init
+     preferences
+     [name #f]
+     [id #f]
+     [kind 'upnp])
+
+    (check/c renderer-upnp%
+             upnp-device
+             media-renderer?)
+
+    (super-new
+     [id
+      (format "~a"
+              (or id
+                  (upnp-device-udn upnp-device)
+                  (upnp-device-address
+                   upnp-device)))]
+     [name
+      (or name
+          (media-renderer-name upnp-device))]
+     [kind kind]
+     [device upnp-device]
+     [preferences preferences])))