14 lines
483 B
Scheme
14 lines
483 B
Scheme
;; copyright by Paul Graunke June 2000 AD
|
|
(define-signature dtd-ast^
|
|
((struct dtd-item ())
|
|
(struct element-def (name start-optional stop-optional content))
|
|
(struct att-list (name junk))
|
|
(struct entity-def (name value))
|
|
(struct thingy (uh whatever))))
|
|
|
|
(define-signature dtd^ (read-sgml-dtd summarize-dtd))
|
|
(define-signature entity-expander^ (empty-entity-expander extend-entity-expander expand-entities))
|
|
|
|
(require-library "functios.ss")
|
|
(require-library "strings.ss")
|