20 lines
462 B
Scheme
20 lines
462 B
Scheme
#lang scheme
|
|
(require "private/sig.ss")
|
|
|
|
(define-signature xml-syntax^
|
|
((contracted
|
|
; XXX these should both actually return syntax? that is also xexpr/c
|
|
[syntax:read-xml (() (input-port?) . ->* . syntax?)]
|
|
[syntax:read-xml/element (() (input-port?) . ->* . syntax?)])))
|
|
|
|
(define-signature xml^
|
|
((open xml-structs^)
|
|
(open reader^)
|
|
(open writer^)
|
|
(open xexpr^)
|
|
(open space^)
|
|
(open xml-syntax^)))
|
|
|
|
(provide xml^
|
|
xml-syntax^)
|