33 lines
626 B
Racket
33 lines
626 B
Racket
#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)
|