Initial import

examples/example.rkt

@@ -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))))

examples/media-server-example.rkt

@@ -0,0 +1,36 @@
+#lang racket/base
+
+(require racket/list
+         "upnp/main.rkt"
+         "upnp/media-server.rkt")
+
+(define servers
+  (query-media-servers
+   #:interface "10.7.3.118"
+   #:dns? #t))
+
+(for ([server (in-list servers)])
+  (printf "~a (~a)\n"
+          (upnp-device-name server)
+          (upnp-device-address server)))
+
+(when (pair? servers)
+  (let* ([server (car servers)]
+         [root (media-server-root server)]
+         [music
+          (findf
+           (lambda (entry)
+             (and (media-container? entry)
+                  (string=? (media-entry-title entry) "Muziek")))
+           root)])
+    (for ([entry (in-list root)])
+      (printf "~a  ~a  ~a\n"
+              (if (media-container? entry) "map " "item")
+              (or (media-entry-id entry) "")
+              (media-entry-title entry)))
+    (when music
+      (displayln "\nMuziek:")
+      (for ([entry (in-list (media-container-children server music))])
+        (printf "~a  ~a\n"
+                (if (media-container? entry) "map " "item")
+                (media-entry-title entry))))))