Initial import

private/model.rkt

@@ -0,0 +1,32 @@
+#lang racket/base
+
+;; Internal data structures shared by the UPnP modules.  Constructors are
+;; intentionally kept out of the public interface; users receive these values
+;; through discovery and description functions.
+
+(provide (struct-out upnp-service)
+         (struct-out upnp-device))
+
+(struct upnp-service
+  (service-type
+   service-id
+   scpd-url
+   control-url
+   event-sub-url)
+  #:transparent)
+
+(struct upnp-device
+  (udn
+   device-type
+   friendly-name
+   manufacturer
+   model-name
+   model-number
+   serial-number
+   location
+   address
+   dns-name
+   services
+   embedded-devices
+   properties)
+  #:transparent)