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