31 lines
820 B
Scheme
31 lines
820 B
Scheme
;; copyright by Paul Graunke June 2000 AD
|
|
|
|
(module html mzscheme
|
|
(require (lib "unitsig.ss")
|
|
"html-sig.ss"
|
|
"html-unit.ss"
|
|
"sgml-reader-sig.ss"
|
|
"sgml-reader-unit.ss"
|
|
(lib "xml.ss" "xml")
|
|
(lib "xml-sig.ss" "xml")
|
|
(lib "sig.ss" "xml" "private")
|
|
(lib "xml-unit.ss" "xml"))
|
|
|
|
;; To get read-comments from sgml-reader, we have to
|
|
;; avoid the read-comments from XML, so we rename it
|
|
;; to read-html-comments.
|
|
|
|
(define-values/invoke-unit/sig
|
|
((open html^) read-html-comments)
|
|
(compound-unit/sig
|
|
(import [x : xml^])
|
|
(link
|
|
[s : sgml-reader^ (sgml-reader@ (x : xml-structs^))]
|
|
[h : html^ (html@ x s)])
|
|
(export (open h) (var (s read-comments) read-html-comments)))
|
|
#f
|
|
xml^)
|
|
|
|
(provide-signature-elements html^)
|
|
(provide read-html-comments))
|