7d50e61c7f
* Another big chunk of v4-require-isms * Allow `#lang framework/keybinding-lang' for keybinding files * Move hierlist sources into "mrlib/hierlist", leave stub behind svn: r10689
31 lines
761 B
Scheme
31 lines
761 B
Scheme
;; copyright by Paul Graunke June 2000 AD
|
|
|
|
(module html mzscheme
|
|
(require mzlib/unitsig
|
|
"html-sig.ss"
|
|
"html-unit.ss"
|
|
"sgml-reader-sig.ss"
|
|
"sgml-reader-unit.ss"
|
|
xml/xml
|
|
xml/xml-sig
|
|
xml/private/sig
|
|
xml/xml-unit)
|
|
|
|
;; 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))
|